Ok im making the script (look in sig for name) and I need to mine clay... the one we (A G E N T 83 and I) made but it some times works or not at all...when it does work it will move the mouse to the corrnor of the screen then find the rock and click it ( but only sometimes...)
*Note* made two
Here is one of them:
SCAR Code:
Procedure MineClay;
Var Dx,Dy,Ex,Ey:Integer;
Begin
If FindMSColor(x,y,Claycolor) Then
Begin
if(FindObjOre2(x, y, 'Mine', GetClayColor , OreTol, MinCount))then
Begin
MarkTime(FailSafeTime);
Mouse(x, y, 0, 0, False);
ChooseOption(Ex, Ey, 'ine');
repeat
if TimeFromMark(FailSafeTime) > 30000 then Exit
if not LoggedIn then Exit;
DoMiningRandoms;
Wait(200)
until InChat('manage')
End;
End;
End else
Begin
Writeln('Clay not found.')
NextPlayer(false)
End;
End;
And the secound one:
SCAR Code:
Procedure MineClay;
Var Dx,Dy,Ex,Ey:Integer;
Begin
If FindMSColor(x,y,Claycolor) Then
Begin
If Random (9) < 7 Then Mouse(x, y, 0, 0, True)
Else
Begin
MarkTime(FailSafeTime);
repeat
if TimeFromMark(FailSafeTime) > 30000 then Exit
if not LoggedIn then Exit;
Mouse(x, y, 0, 0, False);
ChooseOption(Ex, Ey, 'ine');
DoMiningRandoms;
until InChat('manage')
End;
End;
End else
Begin
Writeln('Clay not found.')
NextPlayer(false)
End;
End;
Thanks for taking you time to read this and please help if you can befor our heads explode...