Simba Code:
program new;
{$i srl-6/lib/core/mouse2.Simba}
var
a, b, nx, ny, x, y, bmp : integer;
label
start;
function iscatch(): Boolean;
begin
Bmp := BitmapFromString(51, 20, 'meJzNlk9ME0EUxt/VBJSDtAi0Yq' +
'SKJhKMFAtKkbCIwFgDFPtnEda0BYrUYAUsBBotksZ/ETDRNnjYeim' +
'ePVA9KLfGmHiUGyeJJzjtDFdfHSRlVyMn6WTzy+Ttt9/7srszuwP+' +
'YEmpEXJpYJ6B36lKykmjY7kj8N0xpuzjgRkKDfU8G7LURFz3FHeI5' +
'gh1xnp+6wT3cs8kFSeUHCHm4cH6pmjvFM0dukbXeTApTG+G6X+gI0' +
'zhpOzoJP9U8mCeB8xzn2rZNspKquch7wRqig7r66pJ32jqj0qk6z6' +
'FioTLTv7mtkcNJw/mi1DfDFPRMrSpy6vv7Pb4IutYEaep2Z0WXRGt' +
'klOcYVAhi93kj2f3ruHkwQZn2cAsy6Y4y8AUF7uaVXXOYlua38aCP' +
'GipQ80q1uHyys5G1HQKPdekWXa8bQWV+QA1Z82DodQNlJ1KtNmIoS' +
'4BYDQUgGfgsdY/4/Zr+KNsKMqyKUyyY0D84wlVXcVrYQZH7vbYm3E' +
'uRRmcTkhOws/6okzfkhYq9UORVZxbfGv+QJxrLCa9bzKFmjL7qiUP' +
'u6e1zjyYM6Q4Qko2a4eVSiDO0EdVXUto+NjUkHGw4dwk22yE1xtGl' +
'ELwOP2xbL1KU+tXSrDLsKx15sHEGaXnIc3mhXGlFIgYlFV1Tuvt76' +
'XmRwfLcBvU4eUtlzMOXQ/xxZa7rpNdDuO7HPai4dzeLuao9Jxm0z6' +
'HDnG7W1DVkRenaSEI9v6g9GQdK0A+tbdnHBw4PyM7bhCubI7SIvBI' +
'4Xj2tSpNQ4QagUgRWduFB/MuUu9rqqJ5YqMQzB39Hu/iOlbcL6ll5' +
'Kt7KGIJ0wo4411YQk3HwgZUzds6Mw7SawpNyy2CjuulRXpAWG4067' +
'yvvuHcPLbmnY67UVMlu/sJ79L4lB4F4n0qa7tvv/xLbDBJtbzybLP' +
'YGoFDmQVYXKxvbBV9sZQ3Scs9aSwWHAKhVQBhocO57dD+guVX3so8' +
'XKvOv7QmJqmh9S0qcVWet5r9sVRvkkJ1ojdAuF6IsTJcYrGEtjsPF' +
'nhHA+9Y7rA/uf1J6p57f+cTC65s5QgxDw9munR1/MvW2BeWIzScs+' +
'78kp0QbOKbD8HPPyZXt/bxwAzGGqvqJzZ3Bk/1E06S7u0=');
result := FindBitmapIn(bmp, x, y, 654, 446, 1001, 521);
end
function ismap(): Boolean;
begin
result := (getcolor(848, 296) = 4301417);
end
function iscaptcha(): Boolean;
begin
result := (getcolor(892, 523) = 6323957);
end
procedure catch();
begin
(*
getmousepos(a, b);
if (x < a and a < (x + 50)) and (y < b and b < (y + 19)) then // not sure if i can do x < a < (x + 50)
fastclick(MOUSE_LEFT);
goto start;
*)
case random(1000) of
1: begin
nx := x + 1;
mouse(nx, y, 48, 0, MOUSE_MOVE);
fastclick(MOUSE_LEFT);
end;
2: begin
nx := x + 1;
ny := y + 19;
mouse(nx, ny, 48, 0, MOUSE_MOVE);
fastclick(MOUSE_LEFT);
end;
3: begin
ny := y + 1;
mouse(x, ny, 0, 17, MOUSE_MOVE);
fastclick(MOUSE_LEFT);
end;
4: begin
nx := x + 50;
ny := y + 1;
mouse(nx, ny, 0, 17, MOUSE_MOVE);
fastclick(MOUSE_LEFT);
end;
5..754: begin
nx := x + 8;
ny := y + 6;
mouse(nx, ny, 34, 8, MOUSE_MOVE);
fastclick(MOUSE_LEFT);
end;
755..1000: begin
nx := x + 1;
ny := y + 1;
mouse(nx, ny, 48, 17, MOUSE_MOVE);
fastclick(MOUSE_LEFT);
end;
end;
goto start;
end;
//end;
procedure walk();
begin
if random(50) = 1 then
begin
keydown(65);
wait(randomrange(8, 15));
keyup(65);
wait(randomrange(80, 170));
keydown(65);
wait(randomrange(8, 15));
keyup(65);
wait(randomrange(80, 170));
end else
begin
keydown(65);
wait(randomrange(8, 15));
keyup(65);
wait(randomrange(80, 170));
keydown(83);
wait(randomrange(8, 15));
keyup(83);
wait(randomrange(80, 170));
end;
if random(50) = 1 then
begin
keydown(83);
wait(randomrange(8, 15));
keyup(83);
wait(randomrange(80, 170));
keydown(83);
wait(randomrange(8, 15));
keyup(83);
wait(randomrange(80, 170));
end else
begin
keydown(83);
wait(randomrange(8, 15));
keyup(83);
wait(randomrange(80, 170));
keydown(65);
wait(randomrange(8, 15));
keyup(65);
wait(randomrange(80, 170));
end;
end;
begin
start:
repeat
wait(100);
until ismap();
repeat
if iscaptcha() then
break;
if not ismap() then
exit;
walk();
until iscatch();
if iscaptcha() then
begin
playsound('C:\Users\User name\Music\dai - Hope.wav');
wait(3000);
stopsound;
while not iskeydown(13) do
sleep(300);
if gettimerunning >= 10800000 then
begin
mouse(193, 162, 40, 4, MOUSE_MOVE);
fastclick(MOUSE_LEFT);
wait(600000);
playsound('C:\Users\User name\Music\dai - Hope.wav');
wait(3000);
stopsound;
keydown(13);
wait(randomrange(50, 120));
keyup(13);
goto start;
end else
goto start;
end else
catch();
end.