Code:
function CheckBank: Boolean;
var
mouseX,mouseY,tryT,i,j,colorSpot:integer;
begin
Result:=true;
for i:=0 to 6 do
begin
if i=0 then j:=1
else j:=0;
for j:=0 to 3 do
begin
mouseX:=580+j*40;
mouseY:=228+i*35;
tryT:=0;
if i=0 then begin j:=1; break; end;
case mouseX of
580: begin
case mouseY of
228: begin
if not(GetColor(mouseX,mouseY)= 3358791) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+150)=2432009 then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(50,90));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(50,90));
end;
end;
end;
263: begin
if not((GetColor(mouseX,mouseY)= 3358535) or (GetColor(mouseX,mouseY)=3424328)) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+150)=2432009 then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
298: begin
if not((GetColor(mouseX,mouseY)= 3358535) or (GetColor(mouseX,mouseY)=3424328)) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+150)=2432009 then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
333: begin
if not(GetColor(mouseX,mouseY)= 3358535) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+150)=2432009 then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
368: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+134)=2432009 then
begin
MouseBox(mouseX-60,mouseY+89,mouseX,mouseY+97,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
403: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+99)=2432009 then
begin
MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
438: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+99)=2432009 then
begin
MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
end
end;
620: begin
case mouseY of
228: begin
if not(GetColor(mouseX,mouseY)= 3358535) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+150)=2432009 then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
263: begin
if not(GetColor(mouseX,mouseY)= 3358535) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+150)=2432009 then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
298: begin
if not(GetColor(mouseX,mouseY)= 3358535) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+150)=2432009 then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
333: begin
if not((GetColor(mouseX,mouseY)= 3160642) or (GetColor(mouseX,mouseY)=3226434)) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if GetColor(mouseX,mouseY+150)=2432009 then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
368: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+134)=2432009) then
begin
MouseBox(mouseX-60,mouseY+89,mouseX,mouseY+97,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
403: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+99)=2432009) then
begin
MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
438: begin
if not((GetColor(mouseX,mouseY)= 2963520) or (GetColor(mouseX,mouseY)=3029313)) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+99)=2432009) then
begin
MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
end
end;
660: begin
case mouseY of
228: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+150)=2432009) then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
263: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+150)=2432009) then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
298: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+150)=2432009) then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
333: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+150)=2432009) then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
368: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+134)=2432009) then
begin
MouseBox(mouseX-60,mouseY+89,mouseX,mouseY+97,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
403: begin
if not((GetColor(mouseX,mouseY)= 3160642) or (GetColor(mouseX,mouseY)= 2963520)) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+99)=2432009) then
begin
MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
438: begin
if not((GetColor(mouseX,mouseY)= 2897215) or (GetColor(mouseX,mouseY)=2963008))then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+99)=2432009) then
begin
MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
end
end;
700: begin
case mouseY of
228: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+150)=2432009) then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
263: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+150)=2432009) then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
298: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+150)=2432009) then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
333: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+150)=2432009) then
begin
MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
368: begin
if not(GetColor(mouseX,mouseY)= 3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+134)=2432009) then
begin
MouseBox(mouseX-60,mouseY+89,mouseX,mouseY+97,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
403: begin
if not(GetColor(mouseX,mouseY)=3160642) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+99)=2432009) then
begin
MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
438: begin
if not(GetColor(mouseX,mouseY)=2963520) then
begin
tryT:=0;
Result:=false;
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(180,200));
if (GetColor(mouseX,mouseY+99)=2432009) then
begin
MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
wait(randomRange(180,250));
end
else
begin
MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
wait(randomRange(180,250));
end;
end;
end;
end
end;
end
end;
end;
end;