Page 1 of 4 123 ... LastLast
Results 1 to 25 of 81

Thread: GBodies 210k/h +

  1. #1
    Join Date
    Mar 2012
    Posts
    66
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default GBodies 210k/h +

    Hello there,
    This is my second script.
    What does it do? It makes (Green) Bodies for exp at the Soul wars bank.
    How good is it? It gives me a 200-210k exp a hour with green.
    I am not sure if it also work with other hides, but i am pretty sure that it will.
    Put the hide you want to use in your top left slot on your bank.
    And your needle left from your thread in the invertory in the top


    Todo: Anti-Ban (I keep failing on that xD)
    Fail safe? (Din't fail yet... but you never know)

    Simba Code:
    program GBodies;
    {$DEFINE SMART}
    {$I SRL/SRL.simba}

    var
    x, y, Body, xp: Integer;

    procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      With Players[0] Do
      Begin
        Name        := '';     //name
        Pass        := '';     //password
        Nick        := '';     //nickname
        Pin         := '';     //pin (if you atleast have one, else leave it)
        Active      := True;
      end;
    end;
    //////////////////////No need for change below this line///////////////////////
    procedure Camera;
    begin
    setangle(0);
    Makecompass('N');
    end;

    procedure Banking;
    begin
      begin
        repeat
          OpenBankChest(SRL_BANK_SW);
        until BankSCreen or PinScreen;
      end;

      if PinScreen then
      begin
        repeat
          InPin(Players[0].Pin);
        until BankScreen
      end;

    if BankScreen then
      begin
      Deposit(5,26, true);
      end;
      if invCount=4 then
      begin
      Withdraw(0, 0, 26);
      end;
      if invCount<4 then
      begin
      writeln('We need the needle and thread and the two green dragon hides in the down corner');
      end;
      begin
      if BankScreen then
      CloseBank;
    end;
    end;

    procedure CraftAllTheBodies;
    begin
    If InvFull then
    Wait(200 + Random(100));
    InvMouse(1, 1);
    InvMouse(3, 1);
    wait(410+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    wait(400+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    repeat
    wait(100+randomrange(0,100));
    until invcount=12;
    wait(200+random(100));
    Body := Body+8;
    end;

    Procedure Exp;
    begin
    xp := Body*186;
    end;

    Procedure Progress;
    begin
    Exp;
    Writeln('============================================');
    Writeln('We are running now for '+TimeRunning+'');
    Writeln('You have gained '+inttostr(xp)+' Crafting xp');
    Writeln('============================================');
    end;

    procedure First;
    begin
      Smart_Server := 51;
      Smart_Members:= true;
      Smart_Signed := true;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Mousespeed := 15;
      wait(100+random(100));
      Body := 0;
    end;

    begin
    writeln('Start that shit up');
    First;
    writeln('Loadin that shit');
    Camera;
      repeat
      writeln('We gotta bank');
      Banking;
      Writeln('Makin the bodies');
      CraftAllTheBodies;
      Progress;
      until not LoggedIn;
      Writeln('What happened? Please post it in the topic');
      Progress;
      TerminateScript;
    end.

    IGunXZ his version (Craftes 9 bodies each invertory)

    Simba Code:
    program GBodies;
    {$DEFINE SMART}
    {$I SRL/SRL.simba}

    var
    x, y, Body, xp: Integer;

    procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      With Players[0] Do
      Begin
        Name        := 'xxx';     //name
        Pass        := 'xxx';     //password
        Nick        := 'xxx';     //nickname
        Pin         := 'xxx';     //pin (if you atleast have one, else leave it)
        Active      := True;
      end;
    end;
    //////////////////////No need for change below this line///////////////////////
    procedure Camera;
    begin
    setangle(0);
    Makecompass('N');
    end;
    procedure NormalCheck;
    begin
     if not LoggedIn then Exit;
     FindNormalRandoms;
    end;
    procedure Banking;
    begin
      begin
        repeat
          OpenBankChest(SRL_BANK_SW);
        until BankSCreen or PinScreen;
      end;

      if PinScreen then
      begin
        repeat
          InPin(Players[0].Pin);
        until BankScreen
      end;

    if BankScreen then
      begin
      Deposit(2,27, true);
      end;
      if invCount=1 then
      begin
      Withdraw(0, 0, 27);
      end;
      begin
      if BankScreen then
      CloseBank;
    end;
    end;

    procedure CraftAllTheBodies;
    var
    Time: integer;
    begin
    If InvFull then
    Wait(200 + Random(100));
    InvMouse(2, 1);
    wait(1000+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    wait(650+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    wait(100+randomrange(0,100));
    MarkTime(Time);
    While (TimeFromMark(Time) <= ((42*370))) do
    begin
        Wait(500+random(200));
        FindNormalRandoms;
    end;
    Body := Body+9;
    end;

    Procedure Exp;
    begin
    xp := Body*186;
    end;

    Procedure Progress;
    begin
    Exp;
    Writeln('============================================');
    Writeln('We are running now for '+TimeRunning+'');
    Writeln('You have gained '+inttostr(xp)+' Crafting xp');
    Writeln('============================================');
    end;

    procedure First;
    begin
      Smart_Server := 51;
      Smart_Members:= true;
      Smart_Signed := true;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Mousespeed := 15;
      wait(100+random(100));
      Body := 0;
    end;

    begin
    writeln('Start that shit up');
    First;
    writeln('Loadin that shit');
    Camera;
      repeat
      writeln('We gotta bank');
      Banking;
      Writeln('Makin the bodies');
      CraftAllTheBodies;
      NormalCheck;
      Writeln ('Checking for randoms');
      Progress;
      until not LoggedIn;
      Writeln('What happened? Please post it in the topic');
      Progress;
      TerminateScript;
    end.

    Proggies are nice :3

    177: 50 = 3,54 x 60 = 212,4k
    So thats 212,4k exp a hour.
    Ps. Put your chatbox on Assist or anything else except Public or clan chat (more smoother run)

    Proggies from others:
    Megadeth with royal d'hide bodies
    ============================================
    We are running now for 1 Hours, 1 Minutes and 54 Seconds
    You have gained 378162 Crafting xp
    ============================================
    Punjabi3
    We are running now for 1 Hours, 20 Minutes and 10 Seconds
    You have gained 300576 Crafting xp
    ============================================
    IGunXZ
    ============================================
    We are running now for 1 Hours, 1 Minutes and 15 Seconds
    You have gained 219294 Crafting xp
    ============================================
    Last edited by MotorMouse; 07-11-2012 at 10:49 AM.

  2. #2
    Join Date
    Apr 2012
    Posts
    3,356
    Mentioned
    34 Post(s)
    Quoted
    218 Post(s)

    Default

    Well done on your release!
    Looks good

  3. #3
    Join Date
    Mar 2012
    Posts
    66
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by -Benny View Post
    Well done on your release!
    Looks good
    Thank you
    Il post a proggy in a minute from 1 hour soon.
    Got already in 16 mins 60k exp so thats quite a amount.

  4. #4
    Join Date
    Jun 2012
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Testing this now. Ill post proggy later

    Hm.. It doesn't withdraw the hides for me.
    Last edited by tspawncamper; 07-01-2012 at 07:35 PM.

  5. #5
    Join Date
    Apr 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, it doesn't withdraw the leathers for me, either

    Edit: oh, it works if you start the script while having two dragonleathers in the bottom row of your inventory on the right-hand side. Kind of a weird requirement but ...

    After I get this next Hunter level I'll test out the script for an hour and post a proggy. Thanks!
    Last edited by Megadeth; 07-02-2012 at 02:03 AM.

  6. #6
    Join Date
    Apr 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Edited because my fix occasionally brings up other problems. The original script is great, you just need to start it with two dragonhides in your inventory already
    Last edited by Megadeth; 07-02-2012 at 03:15 AM.

  7. #7
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    How much money does this lose or make?

  8. #8
    Join Date
    Apr 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Mjordan View Post
    How much money does this lose or make?
    You lose 899 gp per green d'hide body (with current prices), which works out to about 4.8 gp/xp.

  9. #9
    Join Date
    Dec 2011
    Location
    -bash
    Posts
    515
    Mentioned
    0 Post(s)
    Quoted
    27 Post(s)

    Default

    If you use DTMs and Uptext, you could easily convert this into an AIO body crafter. But good job on first release.

  10. #10
    Join Date
    Feb 2012
    Location
    Bboy Vil
    Posts
    319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    awsome release, i will be needing this soon.

  11. #11
    Join Date
    Apr 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here's a proggy for making royal d'hide bodies with this script

    ============================================
    We are running now for 1 Hours, 1 Minutes and 54 Seconds
    You have gained 378162 Crafting xp
    ============================================

    Edit: and just so you know, you can add a needle to your toolbelt which will make it so you'll be able to make 9 bodies per inventory rather than 8 if you edit the script
    Last edited by Megadeth; 07-02-2012 at 05:17 AM.

  12. #12
    Join Date
    Mar 2012
    Posts
    66
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Megadeth View Post
    Here's a proggy for making royal d'hide bodies with this script

    ============================================
    We are running now for 1 Hours, 1 Minutes and 54 Seconds
    You have gained 378162 Crafting xp
    ============================================

    Edit: and just so you know, you can add a needle to your toolbelt which will make it so you'll be able to make 9 bodies per inventory rather than 8 if you edit the script
    True, but then i get a problem with the needle that got to select first so i use this way to make them.
    Ps. Nice proggy, added to first post.
    Last edited by MotorMouse; 07-02-2012 at 05:36 AM.

  13. #13
    Join Date
    Jun 2012
    Posts
    56
    Mentioned
    1 Post(s)
    Quoted
    20 Post(s)

    Default

    not sure y but none of the scripts that i use work on this 1 it says
    Code:
    Exception in Script: Unable to find file 'SRL/SRL.simba' used from ''

  14. #14
    Join Date
    Apr 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sharkyscape View Post
    not sure y but none of the scripts that i use work on this 1 it says
    Code:
    Exception in Script: Unable to find file 'SRL/SRL.simba' used from ''
    I googled that and got this fix:

    http://villavu.com/forum/showthread.php?t=82268

    It worked for me, might work for you.

  15. #15
    Join Date
    Feb 2012
    Posts
    317
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when it gets spin ticket, it stops :/

  16. #16
    Join Date
    Mar 2012
    Posts
    66
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Gestapo View Post
    when it gets spin ticket, it stops :/
    Then you add it yourself?
    I am all out of money so i can't test it mate.

  17. #17
    Join Date
    Jun 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    supports stealing creation needles?

  18. #18
    Join Date
    Feb 2012
    Location
    Discord
    Posts
    3,114
    Mentioned
    37 Post(s)
    Quoted
    538 Post(s)

    Default

    nice to see different people posting their work (yes i know its your second scripts but still)
    gz on release

  19. #19
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by MotorMouse View Post
    Then you add it yourself?
    I am all out of money so i can't test it mate.
    Just add FindNormalRandoms after it's done making the bodies

  20. #20
    Join Date
    Apr 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script used it for 6k d'hide bodies, this was my last proggy

    We are running now for 1 Hours, 20 Minutes and 10 Seconds
    You have gained 300576 Crafting xp
    ============================================
    We gotta bank
    Makin the bodies

    it seemed to shutdown on its own but that was probably due to my internet where it would lagg and mess up.

  21. #21
    Join Date
    Dec 2008
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is a very nice script, it works almost flawlessly and doesn't ever fail BUT it's been stated before when you get a spin ticket, (after about an hour) the bot will just stop.

    right after i posted this, it stopped working -.-



    Quote Originally Posted by Punjabi3 View Post
    Nice script used it for 6k d'hide bodies, this was my last proggy

    We are running now for 1 Hours, 20 Minutes and 10 Seconds
    You have gained 300576 Crafting xp
    ============================================
    We gotta bank
    Makin the bodies

    it seemed to shutdown on its own but that was probably due to my internet where it would lagg and mess up.
    You probably got a spin ticket.
    Last edited by aNOOBus; 07-07-2012 at 04:44 AM.

  22. #22
    Join Date
    Feb 2012
    Location
    Ă…lesund,Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wont run for more than 5-10 mins before it mess upp or crash :S

    I can donate u some money if want to update it or work on it ?

  23. #23
    Join Date
    Mar 2012
    Posts
    66
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by thomas1116 View Post
    Wont run for more than 5-10 mins before it mess upp or crash :S

    I can donate u some money if want to update it or work on it ?
    Could you please tell me what it does to crash/mess up?
    Ps. It uses the mouse position so that means it doesn't scan for the runescape gui which makes it more failisch.
    And if you got a laggy pc (also on rs) change the delay here:
    Simba Code:
    procedure CraftAllTheBodies;
    begin
    If InvFull then
    Wait(200 + Random(100));
    InvMouse(1, 1);
    InvMouse(3, 1);
    wait(410+randomrange(0,100)); //<<<< the 410 here (increase that in case of slow/laggy pc)
    Mouse(150, 423, 10, 10, true);
    wait(400+randomrange(0,100)); //<<<< the 400 here (increase that in case of slow/laggy pc)
    Mouse(150, 423, 10, 10, true);
    repeat
    wait(100+randomrange(0,100));
    until invcount=12;
    wait(200+random(100));
    Body := Body+8;
    end;

    Or if you don't want to increase that you can do this also:
    Simba Code:
    procedure CraftAllTheBodies;
    begin
    If InvFull then
    Wait(200 + Random(100));
    InvMouse(1, 1);
    InvMouse(3, 1);
    wait(410+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    wait(400+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    repeat
    wait(400+randomrange(0,100)); // <<<<<< thats the wait thingy.
    Mouse(150, 423, 10, 10, true);  // <<<<<< it will repeat clicking on the position until the invertory has 12 items in it
    wait(100+randomrange(0,100));
    until invcount=12;
    wait(200+random(100));
    Body := Body+8;
    end;
    I don't think it misclicks on the items alot so thats not the problem but you can also disable assist and put it on there.
    It might click on that and then it blocks your bank screen. Because the delay from the craft gui it makes it misclick sometimes...
    Last edited by MotorMouse; 07-08-2012 at 10:39 AM.

  24. #24
    Join Date
    Feb 2012
    Location
    Ă…lesund,Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by MotorMouse View Post
    Could you please tell me what it does to crash/mess up?
    Ps. It uses the mouse position so that means it doesn't scan for the runescape gui which makes it more failisch.
    And if you got a laggy pc (also on rs) change the delay here:
    Simba Code:
    procedure CraftAllTheBodies;
    begin
    If InvFull then
    Wait(200 + Random(100));
    InvMouse(1, 1);
    InvMouse(3, 1);
    wait(410+randomrange(0,100)); //<<<< the 410 here (increase that in case of slow/laggy pc)
    Mouse(150, 423, 10, 10, true);
    wait(400+randomrange(0,100)); //<<<< the 400 here (increase that in case of slow/laggy pc)
    Mouse(150, 423, 10, 10, true);
    repeat
    wait(100+randomrange(0,100));
    until invcount=12;
    wait(200+random(100));
    Body := Body+8;
    end;

    Or if you don't want to increase that you can do this also:
    Simba Code:
    procedure CraftAllTheBodies;
    begin
    If InvFull then
    Wait(200 + Random(100));
    InvMouse(1, 1);
    InvMouse(3, 1);
    wait(410+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    wait(400+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    repeat
    wait(400+randomrange(0,100)); // <<<<<< thats the wait thingy.
    Mouse(150, 423, 10, 10, true);  // <<<<<< it will repeat clicking on the position until the invertory has 12 items in it
    wait(100+randomrange(0,100));
    until invcount=12;
    wait(200+random(100));
    Body := Body+8;
    end;
    I don't think it misclicks on the items alot so thats not the problem but you can also disable assist and put it on there.
    It might click on that and then it blocks your bank screen. Because the delay from the craft gui it makes it misclick sometimes...
    u know it always need to have 2 leathers in the down right corner or it buggs up , so it sometimes missclicks CRAFT bodies,,,, and then he just bank all leathers, and closes :S

    EDIT: THink its works very great now :P didnt mess up yet
    Last edited by thomas1116; 07-08-2012 at 04:39 PM.

  25. #25
    Join Date
    Dec 2011
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey I've added more modifications to it, such as failsafes, you can potentially run this overnight. Added random checks (For SoF spin tickets). Etc. try it out. And oh no need for needles! (Have it in toolbelt) just start with thread in inventory, and have Green Dhides in the 1st slot in any tab in the bank.

    Cheers!

    Simba Code:
    program GBodies;
    {$DEFINE SMART}
    {$I SRL/SRL.simba}

    var
    x, y, Body, xp: Integer;

    procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      With Players[0] Do
      Begin
        Name        := 'xxx';     //name
        Pass        := 'xxx';     //password
        Nick        := 'xxx';     //nickname
        Pin         := 'xxx';     //pin (if you atleast have one, else leave it)
        Active      := True;
      end;
    end;
    //////////////////////No need for change below this line///////////////////////
    procedure Camera;
    begin
    setangle(0);
    Makecompass('N');
    end;
    procedure NormalCheck;
    begin
     if not LoggedIn then Exit;
     FindNormalRandoms;
    end;
    procedure Banking;
    begin
      begin
        repeat
          OpenBankChest(SRL_BANK_SW);
        until BankSCreen or PinScreen;
      end;

      if PinScreen then
      begin
        repeat
          InPin(Players[0].Pin);
        until BankScreen
      end;

    if BankScreen then
      begin
      Deposit(2,27, true);
      end;
      if invCount=1 then
      begin
      Withdraw(0, 0, 27);
      end;
      begin
      if BankScreen then
      CloseBank;
    end;
    end;

    procedure CraftAllTheBodies;
    var
    Time: integer;
    begin
    If InvFull then
    Wait(200 + Random(100));
    InvMouse(2, 1);
    wait(1000+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    wait(650+randomrange(0,100));
    Mouse(150, 423, 10, 10, true);
    wait(100+randomrange(0,100));
    MarkTime(Time);
    While (TimeFromMark(Time) <= ((42*370))) do
    begin
        Wait(500+random(200));
        FindNormalRandoms;
    end;
    Body := Body+9;
    end;

    Procedure Exp;
    begin
    xp := Body*186;
    end;

    Procedure Progress;
    begin
    Exp;
    Writeln('============================================');
    Writeln('We are running now for '+TimeRunning+'');
    Writeln('You have gained '+inttostr(xp)+' Crafting xp');
    Writeln('============================================');
    end;

    procedure First;
    begin
      Smart_Server := 51;
      Smart_Members:= true;
      Smart_Signed := true;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Mousespeed := 15;
      wait(100+random(100));
      Body := 0;
    end;

    begin
    writeln('Start that shit up');
    First;
    writeln('Loadin that shit');
    Camera;
      repeat
      writeln('We gotta bank');
      Banking;
      Writeln('Makin the bodies');
      CraftAllTheBodies;
      NormalCheck;
      Writeln ('Checking for randoms');
      Progress;
      until not LoggedIn;
      Writeln('What happened? Please post it in the topic');
      Progress;
      TerminateScript;
    end.
    Last edited by iGunXZ; 07-09-2012 at 07:13 AM.

Page 1 of 4 123 ... LastLast

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
  •