Hey Guys,
I'm encountering many problems:
And all these problems are in this part of the script.
I am looking for good scripters that can edit and feedback on this part of the script. I am sure there are many problems to this part.
Please be detailed and specific.
ALL help WILL be REPPED and credited( depending on how much you help)![]()
Here is the part of the script:
SCAR Code:procedure ClickRock;
begin
Replylaugh;
Mouse(x, y, 1, 1, True);
Makesurepick;
FindGas;
Leveled;
Myrandom;
end;
procedure MinedaRock;
var MiningTime : integer;
begin
MakeCompass('N');
SetAngle(True);
repeat
if Not(LoggedIn) then exit;
if FindObjCustom(x, y, ['ocks', 'ine'], [2832989], 8)then
ClickRock;
MarkTime(MiningTime);
repeat
Wait(250);
until FindBlackChatMessage('anage') or FindBlackChatMessage('vailable') or (timefrommark(MiningTime) > (WaitperRock +random(250)));
until InvFull;
if InvFull then
begin
writeln( 'Inventory Full walking to bank.' );
end;
end;






Reply With Quote




TPointArrays please






yours look sexyer'r and my function works with new rocks too(TPAtoATPAEx(ATPA, 3, 3)
).


