Results 1 to 17 of 17

Thread: Footy's Gbodies

  1. #1
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Footy's Gbodies

    234K XP/H
    CURRENTLY BROKEN

    By request, here it is. Setup your char. On space infront of SW bank, Plenty of thread in first inv spot, fill inv with green leather, and have green leather in your second bank spot. I've just editied this script, but I cant test it, since I have insufficient levels. Let me know how it runs, if it doesent go properly, Ill downgrade it to the old version. Enjoy!
    Simba Code:
    program Gbodymaker;
    {$DEFINE SMART}
    {$i srl/srl.simba}                          //Start on space infront of SW
                                                //And fill inv sith
    var
      Crafted:integer;

    const
      ToCraft = 1000; //How many bodies to craft?
      Username = ''; //Username here
      Password = ''; //Password here
      Yoff = 50;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
        Name:= '';    //Username
        Pass:= '';    //Password
        Active:= True;
      end;
    end;

    Procedure Proggy;
    var
      XP:integer;
    begin
      XP := 186 * Crafted;
      Writeln('*****************************************');
      Writeln('Thank You for using Footys Gbodies Crafter');
      Writeln('We have been running for ' + (Timerunning));
      Writeln('We have Crafted ' + IntToStr(Crafted) + ' Gbodies');
      Writeln('We have Earned ' + IntToStr(XP) + ' XP So Far');
      writeln('Please leave feedback in forums and post your best Proggys');
      Writeln('*****************************************');

    end;

    Procedure Bank;
    begin
      Writeln('Time To Bank');
      wait(randomrange(200, 300));
      Mouse(326, 213 - Yoff, 4, 4, 1);
      wait(randomrange(1500, 2000));
      Mouse(621, 278 - Yoff, 2, 2, Mouse_right);
      Chooseoption('All')
      wait(randomrange(400, 500));
      Mouse(102, 159- Yoff, 2, 2, Mouse_right);
      wait(randomrange(300, 400));
      Chooseoption('All');
      wait(randomrange(200, 400));
      Mouse(490, 84 - Yoff, 2, 2, 1);
      wait(randomrange(400, 600));
      Crafted := Crafted + 9

    end;

    Procedure Waiting;
    var
      x, y, LeatherDTM:integer;
    begin
      LeatherDTM := DTMFromString('mlwAAAHicY2dgYHBhYmBwAuIAIDYBYhsg9gBidyAWY2RgUAFiSShWAmIuIFYFYg4bLqBuJgxsoKDAIAJk4cKMeDAUAACtKAQK');
      writeln('Waiting for Bodies to be crafted');
      while findDTM(LeatherDTM, x, y, 552, 259 - Yoff, 737, 512 - Yoff) do
      begin
        case random(10) of
          0..5:wait(randomrange(100, 1000));
          6..8:Sleepandmovemouse(Randomrange(200, 600));
          9..10: begin wait(randomrange(100, 300)); Sleepandmovemouse(randomrange(50, 250)); end;
        end;
      end;
    end;

    Procedure Antiban;
    begin
      case random(1000) of
        1: begin writeln('Antiban: Wait'); wait(randomrange(10000, 30000)); end;
        2..5: begin writeln('Antiban: Checking skills'); Gametab(22); wait(randomrange(10000, 20000)); Gametab(25); wait(randomrange(100, 200)); end;
        6..8: begin writeln('Antiban: Checking crafting XP'); Gametab(22); wait(randomrange(200, 600)); mmouse(637, 384 - Yoff, 4, 4); wait(randomrange(2000, 10000)); Gametab(25); wait(randomrange(200, 450)); end;
        9..12: begin writeln('Antiban: Sleepandmovemouse'); sleepandmovemouse(randomrange(1000, 10000)); end;
        14..15: begin writeln('Antiban: Checking whos online'); Gametab(30); wait(randomrange(2000, 3000)); Gametab(25); wait(randomrange(100, 200)); end;
      end;
    end;

    Procedure Minibreaker;
    begin
      case random(200) of
        1: begin writeln('Taking a break'); Wait(randomrange(10000, 100000)); end;
      end;
    end;

    Procedure FirstCraft;
    begin
      wait(randomrange(200, 300));
      Mouse(620, 278 -  Yoff, 4, 4, 1);
      wait(randomrange(1200, 1600));
      Mousebox(240, 457 -  Yoff, 275, 499 - Yoff, 1);   //FIRST ONLY
      wait(randomrange(1200, 1600));     //FIRST ONLY
      Mousebox(111, 457 - Yoff, 192, 500 - Yoff, 1);
      Waiting;
    end;

    Procedure Craft;
    begin
      writeln('Lets start Crafting');
      wait(randomrange(200, 300));
      Mouse(620, 278 - Yoff, 4, 4, 1);
      wait(randomrange(1200, 1600));
      Mousebox(111, 457 - Yoff, 192, 500 - Yoff, 1);
      Waiting;
    end;
    begin
      SetupSRL;
      Declareplayers;
      Loginplayer;
      Mouse(545, 76, 6, 6, 1);
      Wait(randomrange(200, 300));
      keydown(VK_right);
      wait(randomrange(1150, 1180));
      keyup(VK_right);
      Firstcraft;
      Bank;
      repeat
        Craft;
        Proggy;
        bank;
        Minibreaker;
        Antiban;
      until(Crafted >= ToCraft);
    end.

    BEST PROGGYS

    THOMAS1116
    *****************************************
    Thank You for using Footys Gbodies Crafter
    We have been running for 1 Hours, 14 Seconds
    We have Crafted 1260 Gbodies
    We have Earned 234360 XP So Far
    Please leave feedback in forums and post your best Proggys
    *****************************************

    99's Achieved
    THOMAS1116
    Last edited by Footy; 08-08-2012 at 02:36 PM.
    Thx Euphemism and Vinyl for the awesome siggy and avatar!

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

    Default

    Thanks again Footy!!! Really nice :P i recomend this one ! :P been using it from 82-98 soon 99 :P

  3. #3
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good to hear! Good luck with your 99! Small fix was just made to the script, just makes the proggy a little easier to read.
    Thx Euphemism and Vinyl for the awesome siggy and avatar!

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

    Default

    *****************************************
    Thank You for using Footys Gbodies Crafter
    We have been running for 1 Hours, 14 Seconds
    We have Crafted 1260Gbodies
    We have Earned 234360So Far
    Please leave feedback in forums and post your best Proggys
    *****************************************

    here can u see what u get in the houer :P now ill use ur updated script :P i use the old hehe :P

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

    Default

    wiiihuuuu 99 crafting , thanks alot footy!!! :P

  6. #6
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice job! Added to OP
    Thx Euphemism and Vinyl for the awesome siggy and avatar!

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

    Default

    footy can u make me a private script? a gold smithing script=) with a nice anti ban
    created my mr[s]

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

    Default

    footy can u make me a private smithing script i would pay u rsgp for it
    a gold smithing script with a nice antiban=)
    created my mr[s]

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

    Default

    sorry for spam ha>.<
    created my mr[s]

  10. #10
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    PM me about that, dont post it here. Im away from home till next week anyways, so maybe then.
    Script updated, should work now. Let me know how it runs.
    Last edited by Footy; 08-02-2012 at 08:37 PM.
    Thx Euphemism and Vinyl for the awesome siggy and avatar!

  11. #11
    Join Date
    Mar 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yh this bot does not work. Clicks on the dleather selects needle and then just sits there...
    Last edited by rougarou; 08-05-2012 at 09:06 AM.

  12. #12
    Join Date
    Dec 2011
    Posts
    414
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by rougarou View Post
    Yh this bot does on work. Clicks on the dleather selects needle and then just sits there...
    Pretty sure he meant to say "this bot does not work". But yeah, I am having that same issue.


  13. #13
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ill have a look at it. Im afraid I cant test it, as I dont have a sufficent crafting level, but Ill see what I can do.
    E: Script fixed, had a couple of small mistakes. let me know how it runs now. OP has the newest version of the script.
    Last edited by Footy; 08-04-2012 at 07:46 PM.
    Thx Euphemism and Vinyl for the awesome siggy and avatar!

  14. #14
    Join Date
    Mar 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Trying the one pasted above. Not sure what OP means... Will let you know how it goes :-)

    E: Ok your past the making a green body from an inv full of leathers however when it goes to bank it clicks on the top right crate when the screen is facing west.

    E2: also you're default start seems to be just after the character logs in so it always goes for the needle option after clicking on the leather.

    E2.1: So to start the script after a crash I will need to move the menu after clicking the dhide back to the needle menu. Just inconvenience.

    E3: Your start default seems to be that the screen is always facing north after starting the script, so it spins the screen a quarter even if its not facing north.

    E4: Interrupted the script to click on bank to get it to the second load. After manually opening the bank the scripts deposits the bodies, withdraws the leathers, and makes the next load flawlessly
    Last edited by rougarou; 08-05-2012 at 09:28 AM.

  15. #15
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sorry guys, but I dont have a sufficient crafting level to test this script, I developed it with the help of thomas. If any of you guys wanna fix it, go ahead, and post your working versions here. Ill be sure to credit you!
    Thx Euphemism and Vinyl for the awesome siggy and avatar!

  16. #16
    Join Date
    Jun 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    all it seems to do for me is run around randomly

  17. #17
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Script is outdated, and I cant fix it at the moment. Sorry!
    Thx Euphemism and Vinyl for the awesome siggy and avatar!

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
  •