Results 1 to 11 of 11

Thread: Craft Dragonhide Bodies

  1. #1
    Join Date
    Apr 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Craft Dragonhide Bodies

    First script ever, learnt everything today.

    Please note: I HAVE taken bits and pieces out of other peoples scripts but HAVE mentioned their names (correct me if I have done the wrong thing), mainly anti-ban.

    You will need to setup Smart8 and SRL-OSR, please don't post asking how, use the forums to find out yourself.

    To run script:
    1) Go to Pest Control Bank
    2) Place tanned leather in first bank slot.
    3) Place needle in first bag position.
    4) Place thread in second bag position.
    5) Enter the amount of hides you have in the script.

    Logs out if no hides are available or all hides are done.

    Enjoy

    Code:
    program CraftBodies;
    
    //(1) Go to Pest Control Island. (Scipt was made for ONLY this bank).
    //(2) Place tanned dragon hide in first bank slot.
    //(3) Place needle in first position (bag).
    //(4) Place thread in second position (bag).
    //(5) Enter how many hides you have below.
    
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}
    
    var
    hides, bodies, count:integer;
    
    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      hides := 0; //ENTER HOW MANY HIDES
      if hides <= 0 then
        begin
          writeln('You have not entered how many hides.');
          TerminateScript();
        end;
      bodies := (hides/3);
    
    End;
    
    procedure Open;
    var x, y: integer;
    begin
      Repeat
        If FindObj(x, y, 'Bank booth', 5599869, 10) Then
        begin
          Mouse(RandomRange(X - 5, x + 5), RandomRange(Y - 5, Y + 5), random(3), random(3), false);
          ChooseOptionMulti(['Bank']);
        end
        else
        begin;
          MakeCompass(randomrange(25, 35));
        end;
        wait(randomrange(700, 1000));
      until(BankScreen)
    end;
    
    Procedure Antiban;  //Credit to  Vusn
    Begin
    
      Case Random(100) Of
        1: HoverSkill('crafting', False);
        2: HoverSkill('random', False);
        3: Boredhuman;
        4: Wait(2500 + random(4500));
        5: HoverSkill('magic', False);
        6: PickUpMouse;
        7: RandomMovement;
        8: RandomRClick;
      end;
    end;
    
    procedure Craft;
    var x, y: integer;
    begin
      //Body position
      x := 105;
      y := 400;
      MMouse(580, 225, 5, 5); //Move to needle
      clickmouse2(mouse_left);
      wait(randomrange(700, 1000));
      MMouse(660, 225, 5, 5); //Move to dhide
      clickmouse2(mouse_left);
      wait(randomrange(700, 1000));
      MMouse(x, y, 10, 10);
      clickmouse2(mouse_right);
      wait(randomrange(700, 1000));
      MMouse(RandomRange(X - 5, x + 5), ((RandomRange(Y - 3, Y + 3) + 53)), 0, 0);
      wait(randomrange(700, 1000));
      clickmouse2(mouse_left);
      wait(randomrange(7500, 8000));
      Antiban;
      wait(randomrange(7500, 8000));
    end;
    
    
    Procedure LogPlayerOut;  //Credit to  Vusn
    begin
      MMouse(RandomRange(643 - 5, 643 + 5), RandomRange(484 - 5, 484 + 5), 0, 0);
      wait(randomrange(1000, 1200));
      clickmouse2(mouse_left);
      MMouse(RandomRange(643 - 20, 643 + 20), RandomRange(375 - 5, 375 + 5), 0, 0);
      wait(randomrange(500, 1000));
      clickmouse2(mouse_left);
    end;
    
    Procedure MiniBreaker;  //Credit to Solidone40
    Begin
    
      Case Random (300) Of
        1: Wait(20000 + random(7400));
        2: Wait(14500 + random(8550));
        3: Wait(30040 + random(6759));
        4: Wait(10400 + random(2549));
      end;
    end;
    
    begin
      SetupSRL();
      DeclarePlayers;
      SetScreenName(Players[CurrentPlayer].Nick);
      ActivateClient;
      MakeCompass('N');
      count := 0;
      repeat
        Open;
        Deposit(3,24,true);
        if (not (WithdrawEx(0, 0, 28, ['reen', 'lue', 'ed', 'lack']))) then
          begin
            writeln('No leather in first bank slot remaining.');
            CloseBank;
            wait(randomrange(15000, 16000));
            LogPlayerOut;
            terminatescript;
          end;
        CloseBank;
        Craft;
        MiniBreaker;
        FindMod;
        count := count + 1;
      until (count >= bodies)
      LogPlayerOut;
    
    end.
    Last edited by Pinoobio; 04-11-2013 at 06:43 PM.

  2. #2
    Join Date
    Apr 2012
    Location
    Melbourne, Australia
    Posts
    230
    Mentioned
    0 Post(s)
    Quoted
    59 Post(s)

    Default

    I'll put this in the script directory, please let me know next time you make a script as it makes it easier for others to find your script

  3. #3
    Join Date
    Oct 2006
    Posts
    6,752
    Mentioned
    95 Post(s)
    Quoted
    532 Post(s)

    Default

    Not being a jerk at all, just trying to help you out, but this entire script is relying on static coords. Not only does that mean it is easily detectable but if theres a lag spike or anything happens, there isn't any failsafes. Great start to scripting though! Just keep improving!
    “The long-lived and those who will die soonest lose the same thing. The present is all that they can give up, since that is all you have, and what you do not have, you cannot lose.” - Marcus Aurelius

  4. #4
    Join Date
    Apr 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by elfyyy View Post
    Not being a jerk at all, just trying to help you out, but this entire script is relying on static coords. Not only does that mean it is easily detectable but if theres a lag spike or anything happens, there isn't any failsafes. Great start to scripting though! Just keep improving!
    I didn't think that they were static otherwise I wouldn't have used, doesn't MMouse infer a random co-od from x,y with the 3rd and 4th attribute? If there is any lag it would simply miss a cycle at the moment, you are correct. There is a lot more I could add to this but wanted something out there for people to use asap. It logs if no hides are available, logs if mods are detected, has random breaks and an anti-ban that I leeched from Vusn to do things whilst waiting to craft such as checking stats. If you feel it is not safe for people to use please let me know.

    I do appreciate any feedback.
    Last edited by Pinoobio; 04-11-2013 at 06:49 PM.

  5. #5
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    pinoobio maybe you can use dtm's here?

  6. #6
    Join Date
    Oct 2006
    Posts
    6,752
    Mentioned
    95 Post(s)
    Quoted
    532 Post(s)

    Default

    Quote Originally Posted by Pinoobio View Post
    I didn't think that they were static otherwise I wouldn't have used, doesn't MMouse infer a random co-od from x,y with the 3rd and 4th attribute?

    I do appreciate any feedback.
    Yeah, not static as in theres not variance, there is! But your coord clicking which is dangerous to do as if something goes wrong, your always clicking, no matter what is there. I agree with hoodz definitely, read some tutorials on using DTM's there awesome in inventories and banks!
    “The long-lived and those who will die soonest lose the same thing. The present is all that they can give up, since that is all you have, and what you do not have, you cannot lose.” - Marcus Aurelius

  7. #7
    Join Date
    Apr 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I wanted an interface if I was going to implement DTM's, for now this works.

  8. #8
    Join Date
    Feb 2013
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Does this scirpt work as of today?

  9. #9
    Join Date
    May 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by iTimmy View Post
    Does this scirpt work as of today?
    ^
    |

  10. #10
    Join Date
    Mar 2013
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    sweet thanks man

  11. #11
    Join Date
    May 2015
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    A little rough around the edges but still works.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •