Simba Code:
program CatsLummyAgilitySctipt;
{$I SRL-6/SRL.simba}
var
a,c,d,e,f,g,h,i,j,k,l:integer;
b:tbox ;
procedure clicker;
var
T,x,y:integer;
begin
b := intToBox(I,J,K,L);
T := Random(12);
case T Of
1..2:begin
WriteLn('antiban 1');
Wait(randomRange(700,2000));
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
end;
3..4:begin
WriteLn('antiban 2');
Wait(randomRange(1500,2500));
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
end;
5..6:begin
WriteLn('antiban 3');
Wait(randomRange(1500,2500));
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
end;
7..8:begin
WriteLn('antiban 4');
Wait(randomRange(700,2000));
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Wait(randomRange(1500,2500));
Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
end;
9..10:begin
WriteLn('antiban 5');
Wait(randomRange(700,2000));
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
end;
11..12:begin
WriteLn('antiban 6');
Wait(randomRange(700,2000));
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
FastClick(MOUSE_LEFT);
Wait(randomRange(1500,2500));
end;
end;
end;
end;
procedure colourfinder;
var
x,y:integer;
begin
Wait(randomRange(1500,3500));
b := intToBox(I,J,K,L);
repeat
clicker;
Wait(randomRange(1500,3500));
until findColorTolerance(x, y, 1041926, b, 10);
end;
procedure mainloop
var
x,y:integer;
begin
WriteLn('Please place your mouse in the top left corner of your minigames tab');
Wait(4000);
GetMousePos(I, J);
WriteLn('Now the bottom right corner');
Wait(4000);
GetMousePos(K, L);
WriteLn('Next place your mouse in the centre of the Happy button');
Wait(4000);
GetMousePos(C, D);
WriteLn('Now the centre of the Excited button');
Wait(4000);
GetMousePos(E, F);
WriteLn('Finally, the Proud button');
Wait(4000);
GetMousePos(G, H);
b := intToBox(I,J,K,L);
repeat
Wait(randomRange(700,2000));
if findColorTolerance(x, y, 1708972, b, 20) then
begin
Wait(randomRange(700,2000));
colourfinder;
Inc (A);
end else
begin
MouseOffClient(OFF_CLIENT_RANDOM, randomRange(1000, 18000));
WriteLn('still green');
end;
until A>100000;
end;
begin
mainloop;
end.