Jump to content
Jackkk

Bot glitter seafight

Recommended Posts

[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 Freddy
Link to comment
Share on other sites

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 by мíηí-мíηí-тяαв
Questionz
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...