blr
2007-09-30 03:43:53
{My first Script, be kind :(}
program questiconclicker;
var
x,y: Integer;
i: Integer;
const
questiconcolor = 16031889;
backpackiconcolor = 6471395;
attackiconcolor = 3852287;
procedure getquestlog;
begin
FindColor(x,y,questiconcolor,593,169,621,201)
Wait(1000);
MoveMouseSmooth(x,y);
wait(1000);
ClickMouse(x,y,true);
end;
procedure getinventory;
begin
FindColor(x,y,backpackiconcolor,634,174,657,196);
MoveMouseSmooth(x,y);
Wait(1000);
ClickMouse(x,y,true);
end;
procedure getfightmode;
begin
FindColor(x,y,attackiconcolor,531,183,551,197);
MoveMouseSmooth(x,y);
Wait(2000);
ClickMouse(x,y,true);
end;
procedure selectfightmode;
begin
MoveMouseSmooth(685,271);
Wait(1000);
ClickMouse(685,271,true);
end;
procedure edison;
begin
SendKeys('I am the coolest' +chr (13));{You can change ' i am the coolest'
to whatever you want}
end;
begin
i:= 0;
repeat
i:= i+1;
getquestlog;
wait(1034+random(100));
getinventory;
wait(1000);
getfightmode;
wait(1000);
selectfightmode;
wait(1000);
edison;
until(i >= 10);
end.
Ive been scripting in SCAR for about, let's say an hour now. What do you guys think. I'm wondering how i could improve the script and my skills.
Thanks;