pacmanpwns
03-21-2007, 11:50 PM
So this script is my first, real, script, just a thing for a private server (I built it for practice).
What it does: Finds color, clicks it, waits 2.5-2.9 secs, clicks again, re-auto login if im disconnected and has a progress report.
Give feedback (Also, I know the functions I used are outdated and dectable and will be using SRL functions for my first runescape script.)
Program StrengthTraining;
const
TimesTo = 0; //Times To Train Strength, 0 is infinate.
var
x,y: Integer;
i: Integer;
Exp: Integer;
Procedure Login;
begin
Wait(1000);
MoveMouseSmooth(456,316);
Wait(500);
ClickMouse(456,316,true);
wait(500);
MoveMouseSmooth(286,352);
wait(200);
ClickMouse(286,352,true);
end;
Procedure Strength;
begin
FindColor(x,y,4764399,4,24,766,521);
wait(200);
MoveMouseSmooth(x,y);
wait(1250);
ClickMouse(x,y,true);
wait(2500+random(550));
If(not(FindColor(x,y,4764399,4,24,766,521)))then
Login;
end;
Procedure Progress;
begin
i:= i + 1;
Exp:= i * 420;
ClearDebug;
Writeln('++++++++++++++++++++++++++++++++++');
Writeln('+++++++++PROGRESS REPORT++++++++++');
Writeln('++Attacked '+ IntToStr(i)+' Times+');
Writeln('++Gained '+ IntToStr(Exp)+' Exp+++');
Writeln('++++++++++++++++++++++++++++++++++');
end;
begin
i:= 0;
repeat Strength; Progress;
i:= i + 1;
until (i >= TimesTo);
if (TimesTo=0) then repeat strength; Progress;
Until(False);
end.
What it does: Finds color, clicks it, waits 2.5-2.9 secs, clicks again, re-auto login if im disconnected and has a progress report.
Give feedback (Also, I know the functions I used are outdated and dectable and will be using SRL functions for my first runescape script.)
Program StrengthTraining;
const
TimesTo = 0; //Times To Train Strength, 0 is infinate.
var
x,y: Integer;
i: Integer;
Exp: Integer;
Procedure Login;
begin
Wait(1000);
MoveMouseSmooth(456,316);
Wait(500);
ClickMouse(456,316,true);
wait(500);
MoveMouseSmooth(286,352);
wait(200);
ClickMouse(286,352,true);
end;
Procedure Strength;
begin
FindColor(x,y,4764399,4,24,766,521);
wait(200);
MoveMouseSmooth(x,y);
wait(1250);
ClickMouse(x,y,true);
wait(2500+random(550));
If(not(FindColor(x,y,4764399,4,24,766,521)))then
Login;
end;
Procedure Progress;
begin
i:= i + 1;
Exp:= i * 420;
ClearDebug;
Writeln('++++++++++++++++++++++++++++++++++');
Writeln('+++++++++PROGRESS REPORT++++++++++');
Writeln('++Attacked '+ IntToStr(i)+' Times+');
Writeln('++Gained '+ IntToStr(Exp)+' Exp+++');
Writeln('++++++++++++++++++++++++++++++++++');
end;
begin
i:= 0;
repeat Strength; Progress;
i:= i + 1;
until (i >= TimesTo);
if (TimesTo=0) then repeat strength; Progress;
Until(False);
end.