Bot glitter seafight

[Jackkk]

Does anyone have any working bots searching glitter?

[finikao]

i have a bot i make it with autoitbot its a bot for the new glitter! works great

[Skiros90]

@finikao. Can u upload the bot for us?

[resident]

[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 April 20, 2012 by Freddy

[opiumhautopium1]

i have a bot i make it with autoitbot its a bot for the new glitter! works great

i think he want money... and if i am right then there are a lot of better bots u can pay for

[мíηí-мí&#]

Freddy, is the post of residen teh SCAR-DIVI code for seafight glitterbot

I cant copy it wel, only the first rule ... Do I have to copy 528 rules apart ??? o.0

My second question is: Can you make a Screen-Shot of the settings in seafight..

You will help me a lot with it

 

I hope you understand me, my enlish isn't very good

Grtzz SF-player

 

 

So, I copied in word Microsoft office word 2007, I copyed from word and pasted in SCAR-DIVI

What do I have to do now ??

Edited April 22, 2012 by мíηí-мíηí-тяαв
Questionz

[GORGRAEL]

give me a screen shot of command please

[RebeL]

http://forums.scar-divi.com/showthread.php?1409-Seafight-bot-2-51&highlight=seafight << BOT glitter , BOT gold , BOT BM