Jump to content
azizos

a bot to update

Recommended Posts

i found a bot on the net that work and fast but it don't collect all glitters and if someone fixe this and make that it click on F5 when the ship is destroyed and when the server restart and it wil be perfect! thanks

 

[scar]program Infinity;

var a, b, t, xx, x, y, my1, yy, i, conectando, stop, verbinde, ok, quarter, brilhoroxo3, brilhoroxo2, azulobs, brilhoverde, brilhoverde2, brilhoroxo, schliessen, brilhoroxo1, test, posix, posiy, chat, countclick, schiffe_inaktiv, counter, glitzimap, counter2, skx1, skx2, sky1, sky2, mmx1, mmx2, mmy1, mmy2, wrackmini, minijackpot, farbea, farbeb, BrilhoNormal : Integer;

 

Procedure LoadBMP;

begin

SetDesktopAsClient;

farbea:= 4598791;// 2568961 f?r gr?n, 4598791 f?r blau

farbeb:= 7630438; // 7172198 f?r gr?n 7630438 f?r blau

counter:=0;

SetDesktopAsClient;

//////////////////////////////////////////////////////////////////////////////////////////////////

// Hier die Werte der Seekarte eintragen

// skx1,sky1 entspricht links oben

// skx1, skx2 entspricht links unten

// in den tools findet ihr die pick color funktion mit der ihr einen mauswert auslesen kfnnt

 

skx1:= 190;

skx2:= 832;

sky1:= 180;

sky2:= 668;

// bitte noch in Zeile 172 einen X und Y Wert in der Funktion close

// eintragen

//

//////////////////////////////////////////////////////////////////////////////////////////////////

 

 

schliessen := BitmapFromString(1, 9, 'beNpLNM5NxIEAfi0JCg==' +

'');

 

BrilhoNormal := BitmapFromString(9, 9, 'beNoB8wAM/2BRSFszT' +

'F4zTVsrUmAsTl8uRVcwPlMyN0sxMUcyU14rX2YmcHIieHoidHcjZG' +

'wnTl4tPlEwNkoxYm4teXwmjYgdm5IamI8ag4AfZG0oRVYuOkwveYA' +

'zko8ropcZuaYTtqQTl48bcnclTlwrPEssdHknjYohpZkZuqYRuKQR' +

'mY8ZdHYhTl0sPFIzcXUlhIIhl5AbopQVnpQYioYeanEmRVgwOkwvc' +

'HQldnkkgYAfh4QfgoIgcXclV2QsQlc0OVI4d3kkbHInanAldX0xZG' +

'0nVmIqSFkuPVU3R2FMeHokZm0oYmsnZnM1VmEpTFoqQVMvOVM5RK6' +

'8UVI=');

 

conectando := BitmapFromString(29, 20, 'beNpLCwz2duivS6' +

'c66qlOlRbmjAp0Ton2zIz3yU70pQrqKE+UFuGODrKdPbF88YzqZX' +

'NqqYJaimOlRblNdcV8nZTCvNWjA7SoguryIuXEeW2MpYBmJobppk' +

'cbUAVVZATLS/Lam0kDrQBycxONqYKKkvxoYWxOjAepxt444/jxqS' +

'scTWg2x1STGuZEkrEQo+BcoJnIXDiKC7Al3lhchgDR5uU2EBuBDC' +

'A3wsucKsbCxSGMIBcjyo1FFoeEtq+9LlXCFs21HtaaVEkJaGHrYq' +

'5Gi3TraKJMi8zrYKxIi6LG3khRmJ9dWoxHQZpPRU5ATUGQKijY1Y' +

'ibg4Wfm02Ij11YgINayMXWqDQtkMoIANdGQ9I=');

 

 

brilhoroxo3 := BitmapFromString(5, 13, 'beNrTbfPRmR2it9RPb5a9fr' +

'OFSXma4c4SvaOpuhv9tPoczKrzDA426V7K1dsWrD3J0agiVm9Nuu' +

'7mBN2lQfr9Tnrl7rqTA/Wm++v0exk2u+qV2+i0OOm0uuk0u+nWee' +

'hXWuk0O+m2ueq0uOvWA7nWeq0grm6rh16Du16lpV6rp96EYL2pIX' +

'r9nro1jnr9kbqLM3TXpeguCdHpcdGdnKK7sV73dInuzmjt6Y46fT' +

'E6a4t0D+TobgnTmWqoVeOuPTVYZ2GQzixnAMsiRgs=');

 

ok := BitmapFromString(16, 11, 'beNqLNshNNKYb+vjUFYLQBMlj41' +

'KAVRkeSzHV45El0nxS3U9G+BCJ0qMNSEAAABrQzQ==');

 

azulobs := BitmapFromString(5, 13, 'beNoBwwA8/5t7D3t0EZiCEa' +

'CEEJR5DXxlD49+FLSTF8qdFbaNEJJxEpiDFr+ZGt6oFr+REZhzFZ' +

'F/Fq6MFbiOE6yBEJNtEHtuEI92EZh4EZRwDoRhC3NnDX1qDoJoDo' +

'JjDoBdD3hsDoBsDYNpDoJkDoFeC3JmDHtoDYBnDoNkDoJgCmpgDH' +

'VkD4tuEZdyEZZvCm1mD4dyEqWCFbeKFbCCC2llDot3FLWOGtehF8' +

'iSCWJhDYNyE6qIF8aZFr2PCGBiCm5nD413EZ6AERqTR+s=');

 

Brilhoverde := BitmapFromString(7, 7, 'beNqrs1IONlKPMjLONjAvMDD' +

'JMtKKN1OPMVcP1bcq1PPq1A6YqO3dqWNfaWCYbWmYqufeph2zUCN' +

'tg3rcYi3fXn2bclPTXEOfHt3EFRolB9VS1moHTzNwbDQzzDB2azU' +

'Im6WTsFwnapGB/xRTxyYb3URjyyJD1xYD334jn34T13ZL+1pL7Rg' +

'j/WQj02wjmzIT2ypzuzorewA05i6W');

 

brilhoverde2 := BitmapFromString(8, 16, 'beNoVj1tLAkEA' +

'hV8rdXdnLzO6ZheNHupJ19mZnZ3dxKiMxCXtQmpe8p5BZRRUD0VE' +

'EUS9RO9BP7Tp5cA5Bz7O8T1p15crLqgy9ZCDXRcEOVBaB8VNteaY' +

'EzdxS8xLqtawXKZS4MpBLjomi6/28reVfMWxcwyqVNl3BCE2YakP' +

'vPqbXvrMzt4Qo+WqdQaOODrz5h9p8g3PP+HYZdboEL1FtaYLjv3o' +

'mWtOSOyCwL4Nexh2sNEmoOaLVm9TNKBoRNCYwgGBPQLqa1rD00/+' +

'LTq10VioIwhaI6+3fL2JYRejbhqNbDQkaMSVA09v+mhom1c4PrHQ' +

'2IYCOORiKuzzxB1OvlkLz1b8Ghs9B3a5VMnBAVt8wSs/GfEucW+J' +

'XGv+50aHzj1kl78yqfdM/NrSGhQcskiRK3uOWCIIpvjVxkqZyAEL' +

'bXFRyWWmHjlKJSsFLFygoQ13ejMf3s5FdrhU4uGCLRW9mTyb+gO1' +

'Blm+');

 

Brilhoroxo := BitmapFromString(8, 7, 'beNqzDTA2SbG2yHIzSwu0yPS' +

'xSPK0TnS1jnKyDrM2TQ+wLc13balxbyt2ro62TfexiHA1D3a0zst' +

'0aZ4QMGtZ8JJJPn1FTsVBZqHeJn4BHtVFnp2zAuftilw/J2BqpWt' +

'ZmGWYv5lfkHd1lmdzm3fPNL9J3V5tRS75sTaRIVYBrna5QXZ5WS4' +

'V5a5VRc6FKQ5J8baRkdZBTqapAeYZ0Xa5SfZZqfbpQPFE26gEAJU' +

'lPDs=');

 

 

BrilhoRoxo1 := BitmapFromString(12, 12, 'beNoFwVtvmlAAAOD/0+xhp' +

'p2tEgFBLudwRBQOSh0KiDfkIgcqSrs2i63dku6Sps/L+rws2cOS7' +

'SfsYf9hf2XfR7OV+oBrOioIsBrrygJKLsviBqXW67BaFSpV7kWVa' +

'zBjrEQzYxcNrgK8sTshEoc8rdENRNWk0xpfOWVBy/d6xXa4P3gPl' +

'69vApwOoCMxGs8glhLpOked0UiczfDuZvTucf5459yuzWyoOKCpw' +

'SZSaB7RDUDVZGHiG5vi/O2te7i2r1OcOsgzJMMUYJ9jLY7CzCux5' +

'draOumXxfBNcb6N9MhBjguxD+BEZCbcyYSrAMEzldW0l0XmRWySZ' +

'Xc5V71Fux8qSiLTRDxOWkdI8K126OskMPMIp4kRR71Z0rEIQjlgC' +

'vl4Kx51pLmtxku8SQdlZm3yPiF4RbqjTO3mkCfSWSy81OTFWEtDs' +

'9x7959nD5/8w87KM91PO/0IgoXEONxJFwSOll2ND8/rL7/Kbz/y5' +

'6fp+xSvAtWegs5IFHpMvS0ubI0c/I8/y+//Pvz5u//9NXy6GBBPd' +

'S1Z7/JQ+A/r5pwK');

 

brilhoroxo2 := BitmapFromString(7, 7, 'beNpTszdSc7FRd3dT8whSdYt' +

'XdYtQcw5WdbBQc3NV94jT8G5S85uo7tem7pWl5myj5uap7lGtGbB' +

'CI/SgZvhqTf9WdTdbNTdfdY8mjYAtmuE3taK3awb1arhZqbp6q7u' +

'XavrO1QzYoBm4WN27VdXZQh2o0j1B3b1G3atb3atVzaVUzc5Kw8N' +

'X3S1O1TVL3b1I3aVMzakUABJPKtk=');

 

 

verbinde := BitmapFromString(64, 16, 'beNrllj0KhDAQhS+' +

'iAck1bANewT5dOkFkywUrYY/haexs0+wdPIA7EJDHZmKxa1iGfdX' +

'kieM3P0icK4piGIZxHKdpeghUWZZ936/r6r1/CpRSqq7rtm2ttU6' +

'gqqoyxhB813U3gdJaN01DhVB8F6g/59+2bQfN8yyIPzAfR4LH47V' +

'KZf6Y/4R2WZZQGgVYKdaLg0s5Oyf06ZUc/AhwBGG14kdxNqIKheN' +

'Cst8i83J+9E+wjxkRLR7RxPwY46Ry7D/b/1Qbg8N2I8WP2XL8f9j' +

'9j2mx1W+p2P7H+/89/88l/f4g+/72AgM7sVU=');

 

 

 

chat := BitmapFromString(36, 8, 'beNrz04rwIw19fOpKqhY4SgjXw' +

'4OAJkMQsgh+LXhQaowhLgQ0FpONLEiMRmSUEW+SkWCEiYDqcYlDEK' +

'YgmgJMEzITTDMTjTFJoEr84iAGqixcBJfe1BhjsAfRSVg44BQHM4z' +

'hbAjCrzcuVA8XAmrBZJPEQEMRftr4UzgEYaZ5NEFMZei5AwD71D6r' +

'');

 

wrackmini := BitmapFromString(1, 10, 'beNoz0heXELS1t3Z1d46' +

'Pj92+ffuOHbt6evrqO/o9I5N0AJ2qC/4=');

 

minijackpot := BitmapFromString(17, 18, 'beNoBlgNp/EVZKyYtK' +

'iUsKiUpMS0sHRoTNzUoj45829rIjIp7dXNndXJtgn5/ioiLdnR1Z2' +

'dnWlpaBQUFHBceHhkgQz5CNjIxR0Q9YmBTmZiG7+7avLupeHZqq6i' +

'jrqqrrauupaOkoKCggICAS0tLKyYsSURKOzc4WVVSQ0A3ZGJTubik' +

'wcCrvbyolpSHoJ2WqaWkpaOkpqSln5+fmJiYYmJiGhUZQDs/Yl5fY' +

'19ciIV8h4Z0vbyn19bB3NvH0tDBvruyysbD0c/Q0tDRvr6+kJCQra' +

'2tPTg8TUhMSUVERkM+TUs/bGtXrKyU5+fP6+rV/fvsq6mdq6ijuLe' +

'1wL6/ysrKbm5utra2LiorR0NES0dGVVJLTEo9enllzs628fHZ4ODI' +

'5+bUyMa6rKmktLOxuri5t7e3nJycn5+fOzc4XFhZZ2NgdHFobmxdi' +

'4p1t7ed6+vRvr6mzs25q6mcwr+4u7q2ysnH2NjYbW1tsLCwPDg3Xl' +

'pZbWpld3Rrc3Fijo14rKyS2Ni8vLyit7aiuLap5OHa4uHd6unn7Oz' +

'sampqpqamKiYjSUVCVlNMVlRIUlE/eXlhuLicyMmq4eHFvbyn6+na' +

'7+zj///7///98PDwn5+fiYmJHBgVPTk2T0xFSkg8SEc1aGhQxsaq1' +

'9i58fHV3NvG7+3ezsvC6Ofi+Pf1////tbW1lJSUGxcURkM+YV5XXF' +

'pNYF9Lb29Vxcan9fbW29y98fHZwL+tpaOXp6ah1tXT////iIiIxcX' +

'FHBkUSEVAZ2RdXlxPZGNPgoJowMGi/P3d0tO05OTMrKuZqKaamZmR' +

'xMPB3NzcWFhY4ODgFhURPzs4WFdSSkg8TE09j456vb+p7u7W4OLMy' +

'8q4vr+xxsO6urm0xsbEk5OTTU1NxczSGBgWNDMxMDAuWFdTc3RurK' +

'umy8zE7e3l8/TsqKei///77Ovnnp6cq6urgYGBn5+fR15tMzMzKSk' +

'pR0dHTU1NW1tbpqamq6urzMzM2trakpKStbW1xMTEzc3Nrq6uOzs7' +

'ycnJDjFHQFdlFxcXODg4SEhIQkJCdnZ2paWl19fXv7+/lpaWqKios' +

'bGxsLCwgYGBSEhIbYGOJEFVAB4zCQ4SIyMjUVFROTk5ZmZmsLCw5e' +

'XlrKysrq6uurq6qampe3t7S0tLY2dqFzVKJ0RZSl5tUWFwCAgICAg' +

'IJiYmb29vo6Oj0dHRmZmZoaGhk5OThISEa2trPDw8KUhcJkVZJsdx' +

'7ug=');

 

glitzimap := BitmapFromString(14, 16, 'beNoNjulP2nAAQH+ZW5x' +

'OjcNriegcQycih1wFFFBUVKBYSqGllKMwcHig8yREEXV4IocMZYho' +

'MrM4TZYl7ojJ/N9G8r695OXVPSFg6DAaWJgad5MSmpJQNpHd0ufEI' +

'LdV6SVUJAItBy2xsB8Zk6/MIEGX1o1Jpr0qv0eOm3kr8zBNKOyImE' +

'SkTos8QA2HfPD2mp+2Kb0Y5HfIbSYOgXBJlH9/e3CWCFn1fNwotBk' +

'EtLXfqOXA2l6XRYrruwN2yGMTUxZR5CP6+Ct3f5Pwk+oyAYeGgAU+' +

'YqDcD9FDU3YZNclzIKKyuilu/7lNP9xl9iMen1VpN/Df2xV+UklMC' +

'uc86vWQIbFJfc1FrvOxv3fZfz/zjz/Ovhd2rk7Cl5nleITcWEIIE3' +

'fWPRAgxKVMqJBYvMxunCfWHm5zv79lSqnw9en66f7M6cFU0N0foOT' +

'YGNtp5ho1zEJyOX8UvkhvXmW3S8loKRMtpSJbq2RHM2C9AhC/0mkR' +

'eHAhomNpodazRLiQjJ6ndorJ+HkyfpGOtdSAmgrQVAvM+g7aLnWgX' +

'EzfNR+YuPwcLZ18KqZ280fxYmrvy/EW8yVgMYHPJZ/299MEhMOcWa' +

'9mfQm7yEay+6uH0cXjWHljr5TbFbxjIBO9oQ8jpE2IGXrNuq4grdr' +

'doLKHc6ZhQf1T8KapisYN6b3w+CDXrOeTVqkZ7sFgIWWReHBZeMGo' +

'lDCqK8CLCsCoAs8BYLdWK8UdAzKmm1ShsNA4ynVhCp9T5bD2NdeDx' +

'log5TV7iFE7OtjZXlMJgELcRhEateJtD7tOLXtdLhOoUK1sgse7bY' +

'jMS+locgxH1JN6CBK164b4PezG9pZn/K4GFdRmmuAQWJ/NLMZRqZc' +

'awVE1YRk06MTDKl4nq4HxH0L14uw=');

 

 

 

schiffe_inaktiv := BitmapFromString(18, 16, 'beNotkulTUlEYx' +

'g+hopCpqbRoCZalF0VAFoktXLuxb/fWZQ3EWDS11HAqs91RURaJRW' +

'OopskclMSMqawPzfR/dVpmng9n3jnP8/7O+55qioDDCPpwpL1Or+Y' +

'GfehkUIPpeHq004YJnXjP2IjCgfEGJKdNmq6pgPaWT2/W9irEHd4b' +

'FsYZqkjQPOZTBbyD1009hJnntkmvm7rdhGBmfMiBdQc9cr9H6XP3T' +

'fi0gRG1gN0sv8TmsE6OulH7NcmQkukiem/ekPldil/fU7j24qidH/' +

'CIPVa+zcwZVrbo0S4XcRnXyxinqbxOut+DQircwB21S62m7sL7J1/' +

'2wpDQgXGL289hDiwa1YgdF+1sLdtxGXL+2KD8vMMsthuFTgPfS0iL' +

'718EXLLS7lolCXwtbhzsrl8zCWEgZuzeL6x8ePcYM3DZ7bXqvou4m' +

'jPuHAhalfnsI79V7rPLfhykDj+99jrU+/k0rRw4Cem30rrbIc5mZi' +

'rIgIM02CySKa8qFNDt5p5Nea7AjrXl4PNOpBKACR/289sWhQQK2yt' +

'GLctpFb7Jzp2ig67247heOEIodl6/yGef7L1dLOUj+9vLhwep0sdX' +

'X4q5z4XNYn79sJQpbC8loreS8UnYC2mrM6sFI4TSjcn99v5qErAZB' +

'F6bzGYRV5EBJBwfNUFC3CigVQCXVTY1pqUfB22tNauLt5OR2fRqKL' +

'M6uxkJvU3Pp6LTych0KnY/m3waD99NRudymYXoykRuYz6TCK0tT55' +

'tohquimJLd17F5nOJh9n4g2R4OhWdScVC2dTj6BK03IOKh2egMbI0' +

'+TIS0qI9Jxor4JapZLARX4gvTm9GHyTCs9CSjN5NrM2lYw/TMOevE' +

'QrmQFrKEVBTDZhNNLmo7SgZ0MgAzg2qmgIqywAcXeURAF8HD38E/g' +

'tWWlrqW5pqOi/Q+ySsqr+WOiqoIP0RtPy7Ty0DR8sB5IF7ryIBdns' +

'zi8WsoYGmRkov55zyEmLRXB6Us806KWFRWnRi3CCGn1w7zFcN8NA+' +

'nkKE9CBMxqk6JrOez7vQUFtGry1DWhv7JWzVoEghZek0vQa1UIdyN' +

'cNcPSo0qsRDcm4H48SxctDwG0JHD88=');

 

test:=1;

end;

 

procedure mousesafe(var x,y:Integer);

begin

MoveMouse(396, 383);

wait(100+random(10));

ClickMouse(396, 383,True);

wait(100+random(10));

end;

 

 

procedure mouse(var x,y:Integer);

begin

MoveMouse(x, y);

wait(100+random(10));

ClickMouse(x,y,True);

wait(200+random(10));

end;

 

 

Procedure getvariable;

begin

 

if (FindBitmaptolerance(schiffe_inaktiv, a, b, 35)=true) then begin

a:= a + 4

b:= b + 5

mouse (a, b);

wait (200)

end;

 

if (FindBitmaptolerance(glitzimap,a, b,35)=True)then begin

mouse (a, b);

mmx1:= a- 38;

mmx2:= a +51;

mmy1:= b- 100;

mmy2:= b- 13;

 

end;

 

 

end;

 

procedure close;

begin

if (FindBitmapToleranceIN(schliessen, xx, yy, skx1, sky1 + 40, skx2, sky2, 5)=True) then

 

///////////////////////////////////////////////////////////////////////////////

// Hier die X und Y Koordinaten von Seite aktualisieren eintragen ///

begin

wait (40000);

xx:=150; yy:=87;

mouse(xx,yy);

wait (12000);

SetDesktopAsClient;

getvariable;

end;

end;

///////////////////////////////////////////////////////////////////////////////

 

 

procedure mouseMM(var x,y:Integer);

begin

wait(150+random(10));

HoldMouse(x,y,true);

MoveMouseSmooth(x,y);

wait(150+random(10));

ReleaseMouse(x,y,true);

wait(150+random(10));

end;

 

 

Function checkstopp:Boolean;

var xn,yn:integer;

begin

Findcolortolerance(xn,yn,65535 , mmx1, mmy1, mmx2, mmy2, 30);

wait(10);

Findcolortolerance(xx,yy,65535 , mmx1, mmy1, mmx2, mmy2, 30);

if (xn=xx) then begin if (yn=yy) then begin result:=True; end;

end else result:=False;

end;

 

function checkmove:boolean;

Begin

test:=0;

result:=false;

if (Findcolortolerance(xx,yy,65280, mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;

wait (850);

end;

Findcolortolerance(a,b,65280, mmx1, mmy1, mmx2, mmy2, 30);

if (a=xx) and (b=yy) then begin

result:=true;

test:=1;

end;

end;

 

 

 

function Find:Boolean;

begin

result:=false;

 

if (FindBitmapTolerance(verbinde, xx, yy, 20)=true) then begin

result:=true;

xx:=xx+2; yy:=yy+2;

end;

 

if (FindBitmapTolerance(conectando, xx, yy, 20)=true) then begin

result:=true;

xx:=xx+2; yy:=yy+2;

end;

 

if (FindBitmapToleranceIn(minijackpot , xx, yy, skx1, sky1, skx2, sky2, 62)=True) then begin

result:=true;

// wait (50);

xx:=xx+2; yy:=yy+10;

end;

 

if (FindBitmapToleranceIn(brilhonormal, xx, yy, skx1, sky1, skx2, sky2, 79)=True) then begin

result:=true;

xx:=xx+0; yy:=yy+0;

end;

 

if (FindBitmapToleranceIn(brilhoroxo3, xx, yy, skx1, sky1, skx2, sky2, 79)=True) then begin

result:=true;

xx:=xx+0; yy:=yy+0;

end;

 

 

if (FindBitmapToleranceIn(azulobs, xx, yy, skx1, sky1, skx2, sky2, 79)=True) then begin

result:=true;

xx:=xx+0; yy:=yy+0;

end;

 

if (FindBitmapToleranceIn(brilhoroxo1, xx, yy, skx1, sky1, skx2, sky2, 79)=True) then begin

result:=true;

xx:=xx+0; yy:=yy+0;

end;

 

if (FindBitmapToleranceIn(brilhoverde, xx, yy, skx1, sky1, skx2, sky2, 79)=True) then begin

result:=true;

xx:=xx+0; yy:=yy+0;

end;

 

if (FindBitmapToleranceIn(brilhoverde2, xx, yy, skx1, sky1, skx2, sky2, 79)=True) then begin

result:=true;

xx:=xx+0; yy:=yy+0;

end;

 

if (FindBitmapToleranceIn(brilhoroxo, xx, yy, skx1, sky1, skx2, sky2, 79)=True) then begin

result:=true;

xx:=xx+0; yy:=yy+0;

end;

 

if (FindBitmapToleranceIn(brilhoroxo2, xx, yy, skx1, sky1, skx2, sky2, 79)=True) then begin

result:=true;

xx:=xx+0; yy:=yy+0;

end;

 

if (FindBitmapToleranceIn(wrackmini, xx, yy, skx1, sky1, skx2, sky2, 42)=True) then begin

result:=true;

xx:=xx+3; yy:=yy+12;

end;

 

if (FindBitmapTolerance(ok, xx, yy, 20)=True) then begin

writeln('mouse ok gamemessage');

mouse(xx,yy);

wait (200 + random(100));

writeln('OK...');

end;

 

if (result=true) then begin

mouse(xx,yy);

repeat

counter:=0;

until (checkmove=true);

counter:=11;

end;

result:=false;

end;

 

 

 

 

 

procedure getposi;

begin

if (Findcolortolerance(xx,yy,65280, mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;

posix:=xx - mmx1;

posiy:=yy - mmy1;

end;

 

end;

 

procedure getquarter;

 

begin

getposi;

//quarter:=1;

 

if (posix<50) then begin

if (posiy<39) then begin

quarter:=1;

end;

end;

if (posix>50) then begin

if (posiy<50) then begin

quarter:=2;

end;

end;

if (posix>39) then begin

if (posiy>50) then begin

quarter:=4;

end;

end;

if (posix<39) then begin

if (posiy>39) then begin

quarter:=3;

end;

end;

if (posiy>38)and (posiy<50) then begin

if (posix>38)and (posix<50) then begin

quarter:=2;

end;

end;

 

end;

 

 

function glitziMM:boolean;

var xf,yf:integer; finding:boolean; a1,a2:extended;

Begin

result:=false;

t:=0;

counter:=counter+1;

if (Findcolortolerance(xx,yy,61179 ,mmx1,mmy1,mmx2,mmy2,24)=true)then begin

result:=true;

if (Findcolortolerance(x,y,65280,mmx1,mmy1,mmx2,mmy2,5)=true)then begin

i:=1;

end;

 

repeat

i:=i+1;

until FindColorCircleTolerance(xx, yy, 61179, x, y, i, 24) or (i>10);

end;

 

if (result=true)then begin

xf:=xx; yf:=yy; my1:=yy;

xf:=xf+1;yf:=yf+1;

mouseMM(xf,yf);

end;

 

repeat

if (find=false) then begin

wait(1);

t:=t+1;

end;

if (t>1) then

result:=false;

until(t>1);

end;

 

 

 

procedure randomdrive;

var xxx,yyy :Integer;

begin

countclick:= 0;

begin

glitziMM;

if (glitziMM=false) then begin

getquarter;

if (quarter=1) then begin

xxx:= mmx2 - 6 - random(5);

yyy:= mmy1 + random(20) + 6;

mouseMM(xxx,yyy);

end;

 

if (quarter=2) then begin

xxx:= mmx2 - random(20) - 6;

yyy:= mmy2 - random(5) - 6;

mouseMM(xxx,yyy);

end;

 

if (quarter=3) then begin

xxx:= mmx1 + random(20) + 6;

yyy:= mmy1 + random(5) + 6;

end;

 

if (quarter=4) then begin

xxx:= mmx1 + random(5) + 6;

yyy:= mmy2 - random(20) -6;

end;

 

if (quarter=5) then begin

xxx:= mmx2 - random(88);

yyy:= mmy2 - random(88);

end;

 

if (checkmove=true) then begin

mouseMM(xxx,yyy);

mousesafe(xx,yy);

glitziMM;

wait(50+random(5));

end;

end;

end;

end;

 

 

 

 

 

begin

LoadBMP;

getvariable;

Repeat

close;

randomdrive;

repeat

glitziMM;

until (glitziMM=false);

if (counter>10) then begin

counter:=0;

randomdrive;

end;

Until(False);

end.[/scar]

Edited by azizos
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...