Any shop buyer

EL_TYCHO · May 9, 2007

Ok, this is very easy script, it buys in whatever shop you want cuz every buy screen is the same size, just specify the runescape screen, trade the shop and press play, it will buy the amount that you need, it can be used to buy runes, arrows etc, anything thats stackable. It has no worldswitch.
I think its the best that you use it on SCAR 2.03 cuz I havent tested it on the 3.05Divi. Have fun

Code:

program Anyshopbuyer;

{Run this in ANY shop with the trade screen open, the stuff you are
going to buy must be stackable tough, just fill in line 11 and 12 and
press play!}
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Amount.scar}

var
Bought : Integer;

const
Slot = '2'; //Wich slot is it in? It counts from left to right so first 1-8 then 9-16, then 17-24 etc
AmountToBuy = 4000; //How many do you want to buy?

 procedure Buyer;
  begin

   if(Slot = '1')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(85, 76, 104, 96, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '2')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(128, 74, 151, 94, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '3')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(176, 77, 198, 89, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '4')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(223, 77, 246, 93, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '5')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(269, 78, 292, 93, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '6')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(317, 76, 338, 95, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

      if(Slot = '7')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(369, 77, 384, 94, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '8')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(411, 75, 440, 91, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '9')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(82, 123, 107, 144, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '10')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(130, 122, 152, 142, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '11')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(175, 122, 201, 142, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '12')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(223, 122, 248, 143, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '13')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(270, 121, 294, 143, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '14')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(317, 122, 338, 140, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

      if(Slot = '15')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(360, 122, 384, 136, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '16')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(409, 119, 435, 142, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '17')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(81, 165, 105, 189, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '18')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(128, 166, 153, 185, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '19')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(175, 166, 201, 189, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '20')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(220, 166, 247, 190, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '21')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(269, 166, 294, 190, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '22')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(317, 165, 340, 188, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '23')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(363, 167, 386, 190, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '24')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(409, 163, 247, 186, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '25')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(80, 212, 109, 237, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '26')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(128, 213, 153, 236, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '27')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(176, 211, 201, 238, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '28')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(222, 212, 248, 235, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '29')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(268, 211, 294, 237, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '30')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(316, 210, 345, 236, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '31')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(367, 214, 392, 234, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '32')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(409, 213, 436, 236, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '33')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(81, 257, 109, 283, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '34')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(128, 263, 156, 280, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '35')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(176, 263, 200, 281, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '36')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(222, 258, 248, 284, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '37')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(269, 259, 295, 285, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '38')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(319, 266, 343, 281, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '39')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(363, 258, 390, 285, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Slot = '40')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(409, 265, 433, 284, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(Bought >= AmountToBuy) or (InChat('out of stock.')) or
   (InChat('have enough coins.'))then
    begin
     MouseBox(480, 35, 490, 45, 1);
     FindNormalRandoms;
     Wait(100);
     FindTalk;
     Wait(100);
     FindNormalRandoms;
     Wait(100);
     FindTalk;
     Wait(100);
     Logout;
     TerminateScript;
    end;
  end;

begin
SetupSRL;
 Buyer;
end.

the scar noob · May 9, 2007

nice work, but try using case statements

17th Alley · May 9, 2007

Nice work, try adding some randoms and anti-ban features. The rest is GREAT!!!

EL_TYCHO · May 9, 2007

Ty

-Ill try and check out the case of

- do you meen randoms as in the gernie or random clicks?
and ill see for an antiban

EL_TYCHO · May 9, 2007

Well I tried to ad case of in it, but got an error so still use the script above

but can anyone help me with this?
I get the error : Line 61: [Error] (18347:24): colon (':') expected in script

Code:

program Anyshopbuyer;

{Run this in ANY shop with the trade screen open, the stuff you are
going to buy must be stackable tough, just fill in line 11 and 12 and
press play!}
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Amount.scar}

var
Bought : Integer;

const
Slot = '3'; //Wich slot is it in? It counts from left to right so first 1-8 then 9-16, then 17-24 etc
AmountToBuy = 4000; //How many do you want to buy?

 procedure Buyer;
  begin
    repeat
      Wait(500 + Random(500));
      Case Slot Of
      1: MouseBox(85, 76, 104, 96, 2);
      2: MouseBox(128, 74, 151, 94, 2);
      3: MouseBox(176, 77, 198, 89, 2);
      4: MouseBox(223, 77, 246, 93, 2);
      5: MouseBox(269, 78, 292, 93, 2);
      6: MouseBox(317, 76, 338, 95, 2);
      7: MouseBox(369, 77, 384, 94, 2);
      8: MouseBox(411, 75, 440, 91, 2);
      9: MouseBox(82, 123, 107, 144, 2);
      10: MouseBox(130, 122, 152, 142, 2);
      11: MouseBox(175, 122, 201, 142, 2);
      12: MouseBox(223, 122, 248, 143, 2);
      13: MouseBox(270, 121, 294, 143, 2);
      14: MouseBox(317, 122, 338, 140, 2);
      15: MouseBox(360, 122, 384, 136, 2);
      16: MouseBox(409, 119, 435, 142, 2);
      17: MouseBox(81, 165, 105, 189, 2);
      18: MouseBox(128, 166, 153, 185, 2);
      19: MouseBox(175, 166, 201, 189, 2);
      20: MouseBox(220, 166, 247, 190, 2);
      21: MouseBox(269, 166, 294, 190, 2);
      22: MouseBox(317, 165, 340, 188, 2);
      23: MouseBox(363, 167, 386, 190, 2);
      24: MouseBox(409, 163, 247, 186, 2);
      25: MouseBox(80, 212, 109, 237, 2);
      26: MouseBox(128, 213, 153, 236, 2);
      27: MouseBox(176, 211, 201, 238, 2);
      28: MouseBox(222, 212, 248, 235, 2);
      29: MouseBox(268, 211, 294, 237, 2);
      30: MouseBox(316, 210, 345, 236, 2);
      31: MouseBox(367, 214, 392, 234, 2);
      32: MouseBox(409, 213, 436, 236, 2);
      33: MouseBox(81, 257, 109, 283, 2);
      34: MouseBox(128, 263, 156, 280, 2);
      35: MouseBox(176, 263, 200, 281, 2);
      36: MouseBox(222, 258, 248, 284, 2);
      37: MouseBox(269, 259, 295, 285, 2);
      38: MouseBox(319, 266, 343, 281, 2);
      39: MouseBox(363, 258, 390, 285, 2);
      40: MouseBox(409, 265, 433, 284, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Bought := Bought + 10;
     until(Bought >= AmountToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;



 if(Bought >= AmountToBuy) or (InChat('out of stock.')) or
   (InChat('have enough coins.'))then
    begin
     MouseBox(480, 35, 490, 45, 1);
     FindNormalRandoms;
     Wait(100);
     FindTalk;
     Wait(100);
     FindNormalRandoms;
     Wait(100);
     FindTalk;
     Wait(100);
     Logout;
     TerminateScript;
    end;
  end;

begin
SetupSRL;
 Buyer;
end.

Jukka · May 10, 2007

add a END;

Here:

40: MouseBox(409, 265, 433, 284, 2);
end;
Wait(500 + Random(100));

and there are no randoms when buying so its not needed

EL_TYCHO · May 10, 2007

Wel, I allready tried that, but then I get another error:
Line 70: [Error] (15027:1): 'BEGIN' expected

Yeah I allready knew that but 17th alley asked so I didnt knew what he ment cuz I tried to add a lot of randoms in clicking etc.
So it will take a few days for V2 to come out

the scar noob · May 10, 2007

you see, it slows down the lines, isn't it?

EL_TYCHO · May 10, 2007

Yeah

But I need to get it fixed now so when its finished, it will be shorter

runekingex · May 10, 2007

<bump>

Aphonix · May 11, 2007

runekingex said:
<bump>

The final <Bump> I have found. This guy needs banning or something

EL_TYCHO · May 11, 2007

?? I dont know why, Im gratefull for my free bump, thanks

Aphonix · May 11, 2007

Please dont encourage it thanks.

EL_TYCHO · May 11, 2007

BTW why r u spamming this topic? For as long as I know, you aint a mod.

pro_spider13 · May 11, 2007

haha lol he is right

Aphonix · May 11, 2007

Since there are no mods that are botherd, i thought i would help em out a bit.

EL_TYCHO · May 11, 2007

then just report his post and stop spamming

EL_TYCHO · May 15, 2007

bumpety

9pyro9mage9 · May 15, 2007

17th Alley said:
Nice work, try adding some randoms and anti-ban features. The rest is GREAT!!!

lol you wouldnt need antirandoms cuz ur in a shop screen but other antibans would be good like random clicks very good script btw

9pyro9mage9 · May 16, 2007

awsome helped me buy bronze arrows

Any shop buyer

Member

Forum Addict

Forum Addict

Member

Member

Active Member

Member

Forum Addict

Member

Member

Active Member

Member

Active Member

Member

Forum Addict

Active Member

Member

Member

Active Member

Active Member