azizos Posted March 29, 2012 Share Posted March 29, 2012 (edited) 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 March 30, 2012 by azizos Quote Link to comment Share on other sites More sharing options...
RebeL Posted March 29, 2012 Share Posted March 29, 2012 thx friend Quote Link to comment Share on other sites More sharing options...
xaxaxa Posted March 29, 2012 Share Posted March 29, 2012 thx friend why not kill me when ticking F5 ??? Quote Link to comment Share on other sites More sharing options...
resident Posted April 23, 2012 Share Posted April 23, 2012 hello guys can someone post the bot for gliter collection when it get sunked to repair and continua collecting plzzzzz and if it continuas and when server is restarted it will be good Quote Link to comment Share on other sites More sharing options...