SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
EL_TYCHO - SRL Member Application Form
EL_TYCHO

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Sythe

Programming Knowledge
Pascal, HTML

Other Communitys
clans, sythe, psp, playstation, nintendo, tip.it

How Long have You Played Runescape
2years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I like to make buyer scripts and I'm allways looking for some original scripts, scripts that no one else made before, I also look to make scrips for things that anoy me to, the script thats attached was made when I was in Catherby and the general store was full with thousands of bolt tips, jad topaz etc, but I didnt wanted to click that much so I made this script, it works the best on the general store and it stops buying when the item is out of stock, it works in every store becaus they all use the same "shop size", (the box where all the items are displayed) its easy to use and it can help people alot, because it can be used to buy runes, arrows etc, it just needs to be stackable.
Im sorry if I allready posted an apply but I didnt know how to get there, and this script is better then the script I used for the first apply :)

EL_TYCHO

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

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 = '23'; //Wich slot is it in? It counts from left to right so first 1-8 then 9-16, then 17-24 etc
AmountToBuy = 1000; //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.

——————————————————
<!– END TEMPLATE: formanswers –>

No.

-not multiplayer
-only one hude procedure
-its all basically the same thing you've repeated 40 times with little change.

Well its kinda hard to put multiplayer in cause when it changes the player, its not sure that the item is still there and it would be kinda hard to make a bitmap of EVERY item in rs, it would help but it would be madness.
I know its kinda 40 times the same thing but it does compile and well, it does help :).
And I allready know that somebody is going to say that it has no anti randoms but, I never had a random while I was buying from a shop.
But all comments are welcome :)

you say you dont got anti randoms?

FindNormalRandoms;
Wait(100);
FindTalk;
Wait(100);
FindNormalRandoms;
Wait(100);
FindTalk;
Wait(100);
Logout;
TerminateScript;
end;
end;

Thats the last part of you script. Try making something able to be multi player for you app, like a fisher of something. or figure out your problems.

Well I kinda dont understand the "or figure out your problems", but ill try and make a powerfisher or something like that.
I said the antirandoms cause on my last apply they said it has no antirandoms, but it had the same as here.

From: EL_TYCHO
when it changes the player, its not sure that the item is still there

^^thats problem

oooooooh :p sorry for the dumb question ;)
Maybe I could make it a rune buyer with multiplayer and even try worldhopping ;)

sorry for the doublepost, didnt know it made the first one, tought i just clicked away

You didnt wait a month after your first app.
You didnt impove at all since that app.
You didnt take any advice given to you.

NO

Well I can allready see that this script aint gonna make it ;)
So now im working on one that buys logs in the lumby general store, cuts them into arrow shafts and then buys again etc, it will have multiplayer :)
Will that be a better script then this one? Ill use bitmaps to find the logs.

and next time put the script in the SCAR tags please ;)

Ah sorry bout that :) I thought I just had to enter the script in the preserved box :) Ill remember it for next month ;)

Closed.