Results 1 to 17 of 17

Thread: BucketBuyer v.001

  1. #1
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default BucketBuyer

    This is a very rudimentary Bucket Buyer from the GnomeCopter Place. I made it so that I didn't have to buy buckets myself...

    Instructions:
    Start with player logged on.
    Get color from alvafrim(the general store guy!) and put it in the const at the beginning of the script.
    Just turn off script when done buying...

    I know its not very good, I just need some suggestions of what to work on!


    Edit: Update to v.0011 (forgot to add repeat)
    Edit: Update to v.002(thnx for adding all that stuff!)

  2. #2
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    lol new update already!

  3. #3
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok i added some stuff in...your walking procedurse look alright...standards are good

    great try for first script!

    added in login/anti-randoms.

    enjoy /update your script

    SCAR Code:
    program BucketBuyer;
    {.include SRL/SRL.scar}

    const
    NPCcolor =  1344272;


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;   //how many players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;   //current player

      Players[0].Name   := '4d'; //username!
      Players[0].Pass   := 'lp'; //password
      Players[0].Nick   := 'k1l'; //Nick (3-4 letters of ur name
      Players[0].Active := True; //is the player active?
     
    end;

    procedure PreparePlayer;
    begin
      if not LoggedIn then LoginPlayer;
    end;

    procedure AntiRandoms;
    begin
      findnormalrandoms;
      if findfight=true then
      begin
        runaway('E',true,1,5000+random(1000));
      end;
    end;





    procedure AntiBan;
    begin
      case random(60) of
        0: RandomRClick;
      end;
    end;


    var
      x, y : Integer;
      WaterBucketDTM : Integer;
    procedure BuyWaterBucket;
    begin
      WaterBucketDTM := DTMFromString('78DA63F466606070654001C5D1FA0CBF80342' +
           '310FF0702C66020C38A010D30229140DA0548F811501302243C09' +
           'A8710212F604D480DC1C805F0D00FCCA096D');
      Wait(3000+random(1000));
      if (FindDTM(WaterBucketDTM, x, y, MSx1, MSy1, MSx2, MSy2)) then
      begin
        Wait(800+random(150));
        Mouse(x, y, 3, 3, False);
        Wait(800+random(150));
        if ChooseOption('X') then
        begin
         Wait(800+random(150));
         TypeSend('123');
         Wait(800+random(150))
        end;
      end;
    end;



    procedure WalkToDepositBox;
      begin
        LoadSymbolBitmapColor('bank')
        if FindSymbol(x, y, 'bank') then
        begin
          Wait(4000+random(150));
          Mouse(x,y,4,4, True);
          FFlag(1);
          Wait(1000+random(150));
        end;
      end;
     



    procedure OpenDepositBox;
       begin
         if (FindColorSpiralTolerance(x, y, 6382171, 10, 10, 520, 340, 6)) then
         begin
           Wait(1000+random(150));
           Mouse(x, y, 3, 3, False);
           Wait(1000+random(150));
           ChooseOption('Deposit');
           FFlag(2);
           Wait(1000+random(150));
         end;
       end;


    procedure DepositBucket;
      begin
        WaterBucketDTM := DTMFromString('78DA63F466606070654001C5D1FA0CBF80342' +
           '310FF0702C66020C38A010D30229140DA0548F811501302243C09' +
           'A8710212F604D480DC1C805F0D00FCCA096D');
        if (FindDTM(WaterBucketDTM, x, y, MSx1, MSy1, MSx2, MSy2)) then
        begin
          Wait(1000+random(150));
          Mouse(x,y,3,3, False);
          Wait(1000+random(150));
          ChooseOption('All');
          Wait(1000+random(150));
        end;
        FreeDTM(WaterBucketDTM);
      end;
     
    procedure WalkToTrade;
      begin
        LoadSymbolBitmapColor('shop');
        if FindSymbol(x, y, 'shop') then
        begin
          Wait(4000+random(150));
          Mouse(x,y,4,4, True);
          FFlag(1);
          Wait(1000+random(150));
        end;
      end;
     
    procedure Trade;
      begin
        begin
          if FindObj(x,y,'frim',1344272,5) then
          Wait(100+random(400));
          Mouse(x, y, 2, 2, False);
          Wait(100+random(400));
          ChooseOption('rade');
        end;
    end;

    procedure MainLoop;
      begin
        MouseSpeed:= 15+random(3);
        ActivateClient;
        SetAngle(true);
        MakeCompass('n');
        if (loggedin) then
          begin
          Trade;
          Antiban;
          BuyWaterBucket;
          Antiban;
          WalkToDepositBox;
          Antiban;
          OpenDepositBox;
          Antiban;
          DepositBucket;
          Antiban;
          WalkToTrade;
          Antiban;
          end;
      end;

           
           
    begin
    SetupSRL;
    ActivateClient;
    MainLoop;
    Wait(1000+random(100));
    repeat
    until (loggedin=false)
    end.

    that's all i can think of atm.
    IM BACK!!!!!!!!!!!!!!!!!

  4. #4
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    thnx... at school right now... will update with that script when i get home!

  5. #5
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  6. #6
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    i had antibans in it too.... but i took em out right before posting(IDK y)

  7. #7
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Update

  8. #8
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    np ill take a look at the update when i get home from my blood test

    yay me ...



    freaking doctors stealing my blood


    anyway good attempt for first script im prolly gunna use for my merchanter to make some soft clay
    IM BACK!!!!!!!!!!!!!!!!!

  9. #9
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    lol woot! thats what i use it for...(well not a merchanter... just to make money on noobs!)

  10. #10
    Join Date
    Mar 2008
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks. and gl scripting more ... do they really buy in G.E ? :P

  11. #11
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    they sell on GE if u try buy em...dunno if u can sell though...

    don't think he was aiming for this script to BE one..

    if it was

    27x1= 27gp per load

    27x 6-7=150/189gp per load

    profit = around 150-160gp per load

    slow money anyway
    IM BACK!!!!!!!!!!!!!!!!!

  12. #12
    Join Date
    Oct 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    why would you need to buy so much buckets?
    http://www.forumammo.com/cpg/albums/...e2218814qr.gifhttp://i296.photobucket.com/albums/m.../fliegetn0.gif
    >Error Loading Image Press Alt+F4 To Load Image Now< If you find my signature offensive just tell me instead of reporting me so I can change it so it doesn’t offend people.

  13. #13
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    for my custom clay softener! it just takes out 14 buckets of water and 14 clay and then makes soft clay and banks em!

  14. #14
    Join Date
    Oct 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh, i never do that sort of stuff though so i wouldnt know.
    http://www.forumammo.com/cpg/albums/...e2218814qr.gifhttp://i296.photobucket.com/albums/m.../fliegetn0.gif
    >Error Loading Image Press Alt+F4 To Load Image Now< If you find my signature offensive just tell me instead of reporting me so I can change it so it doesn’t offend people.

  15. #15
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    ya it makes pretty good gp... kinda fast... the best part is it doesn't require any skills...

  16. #16
    Join Date
    Oct 2008
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice, i wont use this tho =(
    im more of a "auto woodcutter" person

  17. #17
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how's it nice?

    even if you won';t use it would be nice to test once at least if you bothered looking at the script/posting feedback.
    IM BACK!!!!!!!!!!!!!!!!!

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
  •