XabdullahX
2009-06-14 21:27:26
Yup, it did it well :)
Got me from 50 to 64 prayer (buries bones)
AND 93 to 99 str :D
The script is here:
Got me from 50 to 64 prayer (buries bones)
AND 93 to 99 str :D
The script is here:
program New;
{.Include SRL/SRL.Scar}
var x,y, spec: Integer;
Procedure DoSpec;
Begin
Mouse(542,183,3,3,True);
Wait(500);
Mouse(622,447,4,50,True);
Wait(1000);
Mouse(642,180,2,2,True);
spec := 0;
End;
Procedure LogMeInzPlz;
Begin
Repeat
Mouse(304,322,2,2,True);
Wait(300);
Until not(GetColor(580,55)=11592183);
End;
Procedure CheckLoggedOut;
Begin
If (GetColor(580,55)=11592183) then
LogMeInzPlz;
End;
Procedure TakeBonesAndBury;
Begin
If (FindObjCustom(x,y,['ake'],[13619157],10)) then
Mouse(x,y,1,1,True);
Wait(3500);
MMouse(584,227,1,1);
If (IsUpText('ury')) then
begin
GetMousePos(x,y);
Mouse(x,y,1,1,True);
end else
Wait(300);
End;
begin
SetupSRL;
Repeat
CheckLoggedOut;
If (Spec = 5) then
DoSpec;
FindObjCustom(x,y,['rat'],[7225921, 6382468],10);
Mouse(x,y,2,2,True);
CheckLoggedOut;
Wait(5000);
TakeBonesAndBury;
CheckLoggedOut;
Inc(Spec);
Until (false);
end.