Nothing special. Just a very simple first script that notify s you with a message when Sand Crabs lose their aggression. It will not reset your player for you, this is only for people who like to afk. Let me know if you find any bugs .
V1
Code:
program Sandy_Crabs;
var
x, y, Counter: Integer
begin
if (FindColor(x, y, 65280, 248, 118, 463, 332) and (x > 150)) then
Counter := 0;
repeat
Counter := Counter + 1;
begin
WriteLn('Running for ' + IntToStr(GetTimeRunning) + 'Ms');
Writeln('Sandy Crabs are agressive');
Writeln(x, ' ', y);
Writeln('A First script written by Fidget ');
Writeln('https://villavu.com/forum/showthread.php?t=117952&p=1389707#post1389707');
sleep(2000);
ClearDebug;
end;
if (not (FindColor(x, y, 65280, 248, 118, 463, 332) and (x > 150))) then
begin
ShowMessage('Reset Sandy Crabs');
sleep(3000);
end;
until (Counter < 0);
end.
v2 With sound
Code:
program Sandy_Crabs;
var
x, y, Counter: Integer
begin
if (FindColor(x, y, 65280, 248, 118, 463, 332) and (x > 150)) then
Counter := 0;
repeat
Counter := Counter + 1;
begin
WriteLn('Running for ' + IntToStr(GetTimeRunning) + 'Ms');
Writeln('Sandy Crabs are agressive');
Writeln(x, ' ', y);
Writeln('A First script written by Fidget ');
Writeln('https://villavu.com/forum/showthread.php?t=117952&p=1389707#post1389707');
sleep(2000);
ClearDebug;
end;
if (not (FindColor(x, y, 65280, 248, 118, 463, 332) and (x > 150))) then
begin
writeln(#7);
ShowMessage('Reset Sandy Crabs');
sleep(3000);
Stopsound;
end;
until (Counter < 0);
end.
Note: This won't work in full screen.