SRL Archive - First Scripts

Items for Gold


70s_dollar

2009-03-22 17:47:11

Items for Gold!

Does
High Alching (Next version will include superheat and low alch)

Instructions

Place the alching item in the 13th inv slot
Start on the magic tab
Select the RS screen and start.

Please post if it worked or not, maybe next version will have a proggy.

Edit: Ver 1.1 is out, proggy, and sophisticated mouse clicking.

//Items for Gold by 70s_dollar//
//Place the alching item in the 13th inv slot//
//Start on the magic tab,
//select the RS screen and start //

program Alcher;

{.include srl/srl.scar}

var
alched: integer;

//////////////////SETUP//////////////////

const AlchNumber = 100; //How many much of the item do you want to alch?

procedure Alch;
var
sx, sy, ix, iy: integer;
begin
sx := 574;
sy := 354;
ix := 579;
iy := 338;
if(not(GameTab(7))) then
GameTab(7);
Wait(1850+Random(600));
Mouse(sx, sy, 5, 5, True);
Wait(1500+Random(500));
Mouse(ix, iy, 4, 5, True);
Inc(Alched);
end;

procedure Proggy;
begin
ClearDebug; //Deletes everything in the bottom box..
Writeln('70s_dollar''s Alcher :D'); //you need '' instead of ' for appostraphe's..
Writeln('Thanks for using ;)');
Writeln('-----------------------');
Writeln('Alched '+IntToStr(Alched)+' out of '+IntToStr(AlchNumber)+' times!');
Writeln(IntToStr(AlchNumber-Alched)+ 'Alchs to do :)');
Disguise(+IntToStr(Alched)+'/'+IntToStr(AlchNumber)+' alchs'); //change's the name of the window to this..
end;

begin
SetupSRL;
ActivateClient;
Status('Alching ' + IntToStr(AlchNumber) + ' items');
begin
repeat
Alch;
Proggy;
until(Alched >= AlchNumber)
end;
end.

Lots of thanks to 99_ for helping with the proggy and mouse clicking.

Also if I could get some good proggies that'd be great.

PROGGIES

70s_dollar's Items for Gold :D
Thanks for using ;)
-------------------------
Alched 585 out of 585 times!
0 Alchs to do :)

ian.

2009-03-22 18:14:43

=X use Mouse not ClickMouse :o!

ClickMouse = Ban :/

keep it up tho ^^

noidea

2009-03-22 18:38:25

Mouse(x, y, randomx, randomy, True/false);
;) just incase u didnt know :)

70s_dollar

2009-03-22 18:45:53

From: 99_
=X use Mouse not ClickMouse :o!

ClickMouse = Ban :/

keep it up tho ^^


Doh! So just Mouse? How would they find the ClickMouse?

Nava2

2009-03-22 18:55:12

Click mouse has not movement in it. It just simulates a click there, while the mouse may actually be somewhere completely different.

Just so you know ;)

P.S. I thought this was some advertisement for a gold farm xD

70s_dollar

2009-03-22 19:13:01

From: Nava2
Click mouse has not movement in it. It just simulates a click there, while the mouse may actually be somewhere completely different.

Just so you know ;)

P.S. I thought this was some advertisement for a gold farm xD


Lol, I got the name from Cash for Gold. Well now when I replace ClickMouse with Mouse it says

Line 48: [Error] (16254:20) : Invalid number of parameters in script

//Items for Gold by 70s_dollar//
//Place the alching item in the 13th inv slot//
//Start on the magic tab,
//select the RS screen and start :)//

program Alcher;

{.include srl/srl.scar}

var alched : integer;

//////////////////SETUP//////////////////

const AlchNumber = 100; //How many much of the item do you want to alch?

procedure alch;

begin
if(not(gametab(7))) then
gametab(7);
wait(1850+random(600));
Mouse(574,354,true);
wait(1500+random(500));
Mouse(579,338,true);
alched:=(alched+1);
end;

begin
setupsrl;
ActivateClient;
Status('Alching ' + inttostr(alchnumber) + ' Items');
begin
if(not(gametab(7))) then
gametab(7);
repeat
alch;
until(alchnumber=alched)
end;
end.

Help? I'm not quite sure what to do.

ian.

2009-03-22 19:45:34

ClickMouse also clicks at like 100th of a second.. which humans can't do ;)

to use Mouse, it's Mouse(x, y, rx ry, Left);

rx, ry is the randomness for x and y, and Left is a Boolean.. True for left click.. False for right click..

so..

Mouse(123, 456, 7, 8, True); will LEFT click anywhere from 116-131 on the x axis, and 448, 464 on the y axis..

reason for randomness is because humans don't click on the exact same pixel every time ;)

We can get pretty close though.. so using about 2, 2 for the randomness should be fine :)

if you want more help, add me on MSN.. [email]panic._@live.com[/email] ;)

70s_dollar

2009-03-22 19:54:32

From: 99_
ClickMouse also clicks at like 100th of a second.. which humans can't do ;)

to use Mouse, it's Mouse(x, y, rx ry, Left);

rx, ry is the randomness for x and y, and Left is a Boolean.. True for left click.. False for right click..

so..

Mouse(123, 456, 7, 8, True); will LEFT click anywhere from 116-131 on the x axis, and 448, 464 on the y axis..

reason for randomness is because humans don't click on the exact same pixel every time ;)

We can get pretty close though.. so using about 2, 2 for the randomness should be fine :)

if you want more help, add me on MSN.. [email]panic._@live.com[/email] ;)


OMG, thank you so much, you just made me understand Variables like a Lion understands to tackle the gazelle. I will go back and re-write with this knowledge, again thank you lol.

ian.

2009-03-22 20:00:18

:D mhmm.. I like helping :p