a bot to update

[azizos]

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

[RebeL]

thx friend

[xaxaxa]

thx friend

 

why not kill me when ticking F5 ???

[resident]

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

[MiltonSmure]

Гидроизоляция это ключевой элемент в строительстве, обеспечивающий защиту объектов от воздействия влаги и воды. В большой зависимости от условий эксплуатации и материала конструкции, выбирается определенный тип гидроизоляции. Рассмотрим главные разновидности и их применения.

1. Рулонные материалы

Рулонные гидроизоляционные материалы применяются для защиты кровель и фундаментов. Они посещают на основе битума и полимеров.
- Битумные рулоны модны благодаря своей доступности и безопасности. Употребляются на плоских крышах и в основании построек.
- Полимерные рулоны имеют более высокую прочность и долговечность, то что надо для сложных погодных критерий.

2. Жидкая гидроизоляция

Жидкие гидроизоляторы используются для творенья бесшовного покрытия. Они бывают на основе:
- Полимеров просто наносятся и образуют крепкую мембрану.
- Цемента совершенно то что надо для ванной и кухни, владеют превосходными гидрофобными свойствами.

3. Проникающая гидроизоляция

Этот тип просачивается в структуру бетона и заполняет микротрещины, обеспечивая надежную защиту. Применяется в большей степени для фундаментов и подвалов. Проникающая гидроизоляция отлично справляется с постоянным воздействием влаги.

4. Мембранная гидроизоляция

Мембранные системы часто используются для крыши и находящийся под землей конструкций. Такой метод обеспечивает надежную защиту от осадков и грунтовых вод.
- ЭПДМ и ТПО мембраны имеют высокую устойчивость к ультрафиолету и механическим повреждениям https://gidroizolyaciya-dlya-vsekh.ru

5. Гидрофобные добавки

Гидрофобные добавки в бетон или раствор помогают предотвратить проникновение воды. Они идеально то что надо для творенья водонепроницаемых конструкций, в том числе бассейны и резервуары.

Выбор типа гидроизоляции

В момент выбора гидроизоляции главно учесть:
- Правила использования влажность, температура, возможные нагрузки.
- Материалы конструкции для каждого типа материала существует Свой лучший вариант гидроизоляции.
- Бюджет некоторые способы более затратные, но обеспечивают огромную долговечность.

В заключение, выбор гидроизоляции зависит от множества причин. Правильное решение поможет продлить срок службы строительных объектов и избежать серьезных проблем с влажностью.

[PhillipWoutT]

Как выбрать девушку-эскорт в городе москва: Полезные советы

Столичный рынок эскорт-услуг предлагает множество вариантов, и выбор подходящей девицы может стать непростой задачей. Ежели вы желаете, чтобы познакомиться с эскортницей для приятного времяпрепровождения, деловых встреч либо особенных мероприятий, вот немного хороших ответов, помогающие сделать правильный выбор.

1. Определите свои цели

Перед тем как начать поиск, верно обусловьте, для каких целей вам нужна эскортница. Будет ли это деловая встреча, ужин, вечеринка или просто компания на вечер? Разные ситуации требуют различных качеств и стилей общения, поэтому понимание своих целей поможет выбрать подходящую девушку.

2. Исследуйте разные агентства

Существует множество эскорт-агентств в городе москва, потому похлопочите про то, чтоб выучить их предложения. Направьте внимание на надежность и репутацию агентств. Изучите их веб-сайты, удостоверьтесь, что они делают отличное предложение разнообразие моделей и имеют хорошую контактную информацию.

3. Читайте отзывы

Отзывы клиентов могут являться полезным источником инфы. Постарайтесь найти мнения о конкретных агентствах и эскортницах. Превосходнее всего доверять отзывам из самостоятельных источников, чтоб получить объективную оценку услуг. Это поможет избежать досадных ситуаций и сделать осознанный выбор.

4. Оцените профессионализм девушки

В момент выбора эскортницы направьте свой взгляд не только на ее внешность, а также на профессионализм. Хорошая эскортница должна быть не только привлекательной, да и уметь поддерживать беседу на различные темы. Уверенность и умение общаться могут сыграть не последнюю роль в том, чтобы ваше время вкупе прошло комфортно и приятно.

5. Уточняйте цена услуг

Разные агентства имеют разные цены, потому принципиально уточнить стоимость услуг заранее. Убедитесь, что в указанную стоимость не включены скрытые платежи. Сравните цены различных агентств, чтоб избрать оптимальный вариант по цене и качеству.

6. Обратите внимание на безопасность и конфиденциальность

Безопасность и конфиденциальность принципиальные аспекты при выборе эскортницы. Удостоверьтесь, что выбранное вами агентство предпринимает меры для высокой защиты личной информации клиентов и своих моделей. Надежные агентства гарантируют безопасность и анонимность.

7. Общение с представителем агентства

Не стесняйтесь задавать вопросы представителям агентства. Общение поможет вам лучше понять их услуги, условия работы и уровень профессионализма. Превосходные агентства всегда готовы ко взаимодействию и предоставлению необходимой инфы http://mea.rocks/donec-porta-diam-eu-massa/aliquam-congue-fermentum-nisl/?unapproved=107222&moderation-hash=bc5a10cd165f9526e4f3733be6611a43#comment-107222

8. Удостоверьтесь имеется в наличии соглашения

До заключения соглашения с агентством или эскортницей ознакомьтесь с критериями. Это может включать детали, касающиеся вашего взаимодействия, а также условия отмены и оплаты. Прозрачные условия помогут избежать недоразумений.

Заключение

Выбор девицы-эскорт в городе москва требует внимательности и тщательно обдуманного подхода. Определив свои цели, исследуя агентства и учитывая профессионализм моделей, у вас есть возможность отыскать подходящую компанию для любого мероприятия. Возлагаем надежды, что эти советы помогут для вас сделать осознанный выбор и получить наслаждение от общения!