Ich habe ein Problem und zwar der folgende Bot spielt Bonusmap bei 35k fährt er zum repariern in eine Ecke nur er reppt nur 3-4 Sekunden und fährt in die nächste Ecke, kann mir da einer helfen? ich stelle euch das script hier rein
Quote:
program Infinity;
var a, b, t, xx, xxx, yyy, greenhp, bonuskarte, mpx, mpy, pixeldistance, obenx, obeny, rechtsx, rechtsy, untenx, unteny, linksx, linksy, x, y, needrepp, mayrepp, aktx, akty, tab1x, tab1y, tab2x, tab2y, reparierend, my1, hpx1, hpy1, hpx2, hpy2, hp_weissbraun, dist, yy, zx, zy, x1, x2, y1, y2, i, ok, scholle, attack, attacking, stop, zumschiff, verbinde, quarter, schliessen, test, posix, posiy, chat, countclick, schiffe_inaktiv, counter, glitzimap, counter2, skx1, skx2, sky1, sky2, mmx1, mmx2, mmy1, mmy2, wrackmini, minijackpot, farbea, farbeb, miniglitzi_1o : Integer;
Procedure q;
var s: string;
begin
s:='r'; // Hier Repariertaste im rosa Bereich einstellen
sendkeys(s);
end;
Procedure f;
var s: string;
begin
s:='p'; // Hier Angriffstaste im rosa Bereich einstellen
sendkeys(s);
end;
Procedure n;
var s: string;
begin
s:='n'; // Hier Gegner durchschalten im rosa Bereich einstellen
sendkeys(s);
end;
Procedure v;
var s: string;
begin
s:='c'; // Hier v kordi taste im rosa Bereich einstellen
sendkeys(s);
end;
Procedure LoadBMP;
begin
SetDesktopAsClient;
//////////////////////////////////////////////////////////////////////////////////////////////////
// Hier die Werte der Seekarte eintragen
// in den tools findet ihr die pick color funktion mit der ihr einen mauswert auslesen könnt
skx1:= 465; //x-oben links
skx2:= 254; //y-oben links
sky1:= 1210; //x-unten rechts
sky2:= 800; //y unten rechts
//die Werte vom HP balken eintragen
hpx1:=424; //x-oben links
hpy1:=850; //y-oben links
hpx2:=610; //x-unten rechts
hpy2:=868; //y-unten rechts
//die Werte des aktualisieren buttons
aktx:= 837; //x-oben links
akty:= 850; //x-rechts
//den Mittelpunkt eures Schiffes ausmessen und einstellen, pixeldistance nur bei schlechter distanz verändern
mpx:= 838; //x-oben links
mpy:= 525; //y-unten rechts
pixeldistance:= 160;
//////////////////////////////////////////////////////////////////////////////////////////////////
//
// Unterhalb dieses Streifens braucht nichts mehr eingestellt werden
//
//////////////////////////////////////////////////////////////////////////////////////////////////
obenx:= mpx - 200 + random (400);
obeny:= mpy - pixeldistance;
rechtsx:= mpx + pixeldistance;
rechtsy:= mpy - 200 + random (400);
untenx:= mpx - 200 + random (400);
unteny:= mpy + pixeldistance;
linksx:= mpx - pixeldistance;
linksy:= mpy - 200 + random (400);
bonuskarte := BitmapFromString(12, 14, 'beNolkCFo5EAUhkdURF' +
'RExo4cODNQ0YGaDURsoKIDEQlEhCFiGSrK41SoKcOJI2pZVpS wopC' +
'KwsqtO3Vw507eiRMVK1asiFgRcWL6pzc8mGH4+Pnfl4jgjIXn jJ2x' +
'IGA4YTjd+IlCxkMWBiw6Z7YuTKnptrBVahfa5CneVMe2UrZUt NB6r' +
'rq12z61/ZNzD6Zb0+657R+b3YvrH6lfU7dsbKVNpoob8TE8nYV6Ht' +
'lcFtfcZPiRei7Vp4imTGFL3n1NV1/iYh6Ym4hqaUtpcpnOeHwJnts' +
'8smXY3ovDn6ZfAmNUC1pMfUyudCJNFumEYXbP8fCXhjdgSs+Y rRCF' +
'GogS7rMc3tpx7/zQ+IHGPY0H1y2xTmQyCSa+4u5uYvzRjQcCA3LYA' +
'97uXhpUKjKZXon2PvbHzv/r/MmNR/IY34HpNxaK0CdNRHOrfv90v7' +
'5bNPFD60/IXG03BVRQrf6vDw8m51TxH6/WD70/9f1aUyXQeVKUTX3' +
'iC+yFevCj/fht9ZBCDgb5wOAWitQF14korsV207i7lKoY60whEFup' +
'qfM7vhrP6A==');
greenhp := BitmapFromString(41, 6, 'beNoLZGAoZWCoZGAoBJN0Zp' +
'fCRAaEPVC2D1RoD6ztiQwMgQwMoWAUSEc2AG6ja9c=');
reparierend := BitmapFromString(28, 1, 'beNqTEdDUkVDUEVAEkY' +
'oSGhICEhyKIhyaPBxeAhxRHAzVIhItEopzVAznaBjO0TGcoqL ZoqC' +
'YLSJgycGhCEQCQCQgIQACEgqKEgoShgoCmgAjOwyX');
ok := BitmapFromString(16, 11, 'beNqLNshNNKYb+vjUFYLQBMlj41' +
'KAVRkeSzHV45El0nxS3U9G+BCJ0qMNSEAAABrQzQ==');
hp_weissbraun := BitmapFromString(1, 1, 'beNrj4RAAAABHACU=');
attacking := BitmapFromString(26, 23, 'beNodlIlTVIcdx3+7++7' +
'77e7bt2/f7r69D2BxkduiqCCBBERuDEXFiAwJiAsChmM5lssoorE0' +
'qR3bhJLaaZumZnrYjJ3E2naIpc1YM84kmTg2ptZkUmpsp5k20 76u/' +
'Qc+8/3+fp/5Ulj7Js8WWa2O5bZuzql0yXUB9y6znChuTGx5slKOHY' +
'yXLNTUvnSg42TNV88cGhxpT1QX1QXVXKeSLckh0e4RKM4Dxlo TP4r' +
'Y58DSX+rZSbGtonY6O346Fuq0C+UAI1lbFstbK1jP1O6Wn0+O fvDK' +
'N1+dTH1/7MQ3eqaW9o31VHWVFlarrgyeEIJAtAKbQtWTiDQG6Gpb0' +
'Ug0fiq69bsZGecjrstHO9YXkzdH+lcqHttn9b/Q1nXl5MxyosMGoI' +
'GhhNXqtKLGrPKdeWU+SctC+GZSmSe1ryPKc0Zu1sD/umXLHw70/vn' +
'Ywv2+rotV8f+896b+p2v3T3Xe7Kj60a6GX/QkQwAsAmAEFkAGgxnA' +
'DriG0DlGph2VJijXScI+C9QEGKdJ8xtF7n+NTesXL+mLk/ovV/TP3' +
'9U/f/vjqcoPn972Vld3GsXBI5TRRvvC3nBAy/A6vSTqB9hLCXNmbR' +
'GT5hDmBM3PEMQIya89Frnb2fJwdEB/flb/8QX9kxv6je/99/TujbO' +
'tsUegdCwGjFx+fY23Il/erNlkNEpAG0umZDlF0DMmfJ5mp3FyjmLG' +
'RPl6VfQfg/X66tyX31nSXzv/8EzvnaHy9xPxua0EjQFYZMDVrJKGe' +
'HWNr6JIDJtDVqhk4ZiZnECN07hxjiImTOgsy89a7c2ArlWFbj Qo/1' +
'5u19959Z9rqx/OVH46X/bRmdatJFAGAEoOFTYcGDgb217hzfRnWMk' +
'nLWw/g4/RplEEnkVgCseWcHGetrXjVAzges2mX5WA/nq//sXv9Y2r' +
'f7/Y9uBC7VtzzeqjhoDSatNTycPD52KxwkKro0WwjrDmFEqMGmAcg ' +
'xGjIYlSC4Kz0yRkASgA7+6tWi8i9BP1+oM1/a9XHlzquPNK0wtDNe' +
'mbUQAi63y8vmvXnkMlzsxuITRDuscBnwJkwoCOgfEEak6SSjM mxg2' +
'kYqTMrHi1sebNXPNamV2/en7j9ck7q236zdM/WR6SjI9oHM5HInle' +
'Ndpkiw6j2ixI08COAzIL7LRRTBHOw4RjE8LZWcnpjCi+6Gx+w WpB8' +
'N7Rev3lZ2/NNN5a3q+/8/LvXkwp/89GICYHZw6b2GcYz2EQjgA7Ad' +
'IUiAsgzWO+g6RrJ+/O1KLeaF4wZ0cwd1u9JIwEpFvH93+y1HP3xcR' +
'HP1y4/dry+rnnPOmaADSAHww1tHQUpF6wJIyWI0BOI86kSesi3CWM' +
'IyeQHS8qy96+O297cySvfKWn/jepZ+6unPrs8oq+8Z7+6fv6xx/85' +
'ac/iz5yHtwAexCuh1QTICaAHgB6GKxDvG8PJWUSnNvt8ebm5+6qLa ' +
'1uL97a/JWSuvWv9X157SX9zjX99pr+xT394f3Ly2cvJI4e27kjDFB' +
'lQntpex8I/cAfB/Mo4ujFlPRiZBGMleMEv9cWz/Hnl8aKq/JznyjO' +
'r14fb7z3rSN/+8HYxur4Z99OXelrTxZl1VrSXvGDrK0f6G7AeoDuA' +
'/EQaS/Hea8BE1HcIdpUm1O1+zVXhssbc3vjHle2LPl/2115e2zvvZ' +
'mOPw40vfFUZarIv18wDdDMlGAbwrkeQJ8GvBuILlaupC3pJUk bjXC' +
'8IKk2q6aIHtXic9gCqhJyKWHJ4r60t+x6R/Xb+x4/F3cdsRiqAPo4' +
'YoG2JAEdBGwAo/tQsofkqmgugKAiQZp4HggGCBElJSvrcoo+RXQro' +
'lM2KxazfXBzdCkvZz4Y6OLZFoDjtDjD2IYBGzfQiTQZoJ9gOn khRJ' +
'okgfFEI75YLil7gFbAZCEoRWBUO6sqvCzSvMCJxQzeZLHWGfE ygA4' +
'gkyYpCfy4SRgAZNJAjZjIhGiuoRDZgvuyApGCguyCHfkl1Uqg ABgn' +
'GNISMQwm2HmrwNCiyEd4IkwZ4wAHMXGccMyg9mT6d0bxONATQ CUZ6' +
'xMAEQDBRkkehyMY9gfz/IGiQOa2QFapTcvGGDuKMDTJcByDEagTgb' +
'SoNWZmkLHMotaF9JwCNwR0kpLHKaUFkLgBFBwkVbS7nQ4t6NE 2ubV' +
'ch5brDhY6AzmSM0TxEiCoATchFBY2QIMJRgUqRWKLBLkA2DTg Kcw6' +
'zKoNJi7tsIUEzox4bJJbcig2TVEjsitTskXsclh1RDy+bMUXZ ux2R' +
'GDgf7LHv1M=');
schliessen := BitmapFromString(1, 9, 'beNpLNM5NxIEAfi0JCg==' +
'');
attack := BitmapFromString(1, 24, 'beNoBSAC3/xMAmklJxl9P2Vw' +
'z4DsQ5UAX5UYc5VEm5Vsp4W9JwGZofj9RjzIt4IJX46Jv3pVf 1IBL' +
'dEIsGQ4MCwQDWx4OlioNxyoAihwAWUDwGzs=');
glitzimap := BitmapFromString(14, 16, 'beNoNjulP2nAAQH+ZW5x' +
'OjcNriegcQycih1wFFFBUVKBYSqGllKMwcHig8yREEXV4IocM ZYho' +
'MrM4TZYl7ojJ/N9G8r695OXVPSFg6DAaWJgad5MSmpJQNpHd0ufEI' +
'LdV6SVUJAItBy2xsB8Zk6/MIEGX1o1Jpr0qv0eOm3kr8zBNKOyImE' +
'SkTos8QA2HfPD2mp+2Kb0Y5HfIbSYOgXBJlH9/e3CWCFn1fNwotBk' +
'EtLXfqOXA2l6XRYrruwN2yGMTUxZR5CP6+Ct3f5Pwk+oyAYeG gAU+' +
'YqDcD9FDU3YZNclzIKKyuilu/7lNP9xl9iMen1VpN/Df2xV+UklMC' +
'uc86vWQIbFJfc1FrvOxv3fZfz/zjz/Ovhd2rk7Cl5nleITcWEIIE3' +
'fWPRAgxKVMqJBYvMxunCfWHm5zv79lSqnw9en66f7M6cFU0N0 foOT' +
'YGNtp5ho1zEJyOX8UvkhvXmW3S8loKRMtpSJbq2RHM2C9AhC/0mkR' +
'eHAhomNpodazRLiQjJ6ndorJ+HkyfpGOtdSAmgrQVAvM+g7aL nWgX' +
'EzfNR+YuPwcLZ18KqZ280fxYmrvy/EW8yVgMYHPJZ/299MEhMOcWa' +
'9mfQm7yEay+6uH0cXjWHljr5TbFbxjIBO9oQ8jpE2IGXrNuq4 grdr' +
'doLKHc6ZhQf1T8KapisYN6b3w+CDXrOeTVqkZ7sFgIWWReHBZ eMGo' +
'lDCqK8CLCsCoAs8BYLdWK8UdAzKmm1ShsNA4ynVhCp9T5bD2N deDx' +
'log5TV7iFE7OtjZXlMJgELcRhEateJtD7tOLXtdLhOoUK1sgs e7bY' +
'jMS+locgxH1JN6CBK164b4PezG9pZn/K4GFdRmmuAQWJ/NLMZRqZc' +
'awVE1YRk06MTDKl4nq4HxH0L14uw=');
schiffe_inaktiv := BitmapFromString(18, 16, 'beNotkulTUlEYx' +
'g+hopCpqbRoCZalF0VAFoktXLuxb/fWZQ3EWDS11HAqs91RURaJRW' +
'OopskclMSMqawPzfR/dVpmng9n3jnP8/7O+55qioDDCPpwpL1Or+Y' +
'GfehkUIPpeHq004YJnXjP2IjCgfEGJKdNmq6pgPaWT2/W9irEHd4b' +
'FsYZqkjQPOZTBbyD1009hJnntkmvm7rdhGBmfMiBdQc9cr9H6 XP3T' +
'fi0gRG1gN0sv8TmsE6OulH7NcmQkukiem/ekPldil/fU7j24qidH/' +
'CIPVa+zcwZVrbo0S4XcRnXyxinqbxOut+DQircwB21S62m7sL 7J1/' +
'2wpDQgXGL289hDiwa1YgdF+1sLdtxGXL+2KD8vMMsthuFTgPf S0iL' +
'718EXLLS7lolCXwtbhzsrl8zCWEgZuzeL6x8ePcYM3DZ7bXqv ou4m' +
'jPuHAhalfnsI79V7rPLfhykDj+99jrU+/k0rRw4Cem30rrbIc5mZi' +
'rIgIM02CySKa8qFNDt5p5Nea7AjrXl4PNOpBKACR/289sWhQQK2yt' +
'GLctpFb7Jzp2ig67247heOEIodl6/yGef7L1dLOUj+9vLhwep0sdX' +
'X4q5z4XNYn79sJQpbC8loreS8UnYC2mrM6sFI4TSjcn99v5qE rAZB' +
'F6bzGYRV5EBJBwfNUFC3CigVQCXVTY1pqUfB22tNauLt5OR2f RqKL' +
'M6uxkJvU3Pp6LTych0KnY/m3waD99NRudymYXoykRuYz6TCK0tT55' +
'tohquimJLd17F5nOJh9n4g2R4OhWdScVC2dTj6BK03IOKh2eg MbI0' +
'+TIS0qI9Jxor4JapZLARX4gvTm9GHyTCs9CSjN5NrM2lYw/TMOevE' +
'QrmQFrKEVBTDZhNNLmo7SgZ0MgAzg2qmgIqywAcXeURAF8HD3 8E/g' +
'tWWlrqW5pqOi/Q+ySsqr+WOiqoIP0RtPy7Ty0DR8sB5IF7ryIBdns' +
'zi8WsoYGmRkov55zyEmLRXB6Us806KWFRWnRi3CCGn1w7zFcN 8NA+' +
'nkKE9CBMxqk6JrOez7vQUFtGry1DWhv7JWzVoEghZek0vQa1U IdyN' +
'cNcPSo0qsRDcm4H48SxctDwG0JHD88=');
zumschiff := BitmapFromString(23, 21, 'beNoVlFlQU3cUhy+rbCY' +
'kJJCbPTchuSF7LlkgIQQSQMIiIgIqCKgFWkSK1gUVAZdBBxdQ KOK+' +
'IYXqiDiIywNiXUpbF6YWrcUiIiCCgBYBAfn3+nbOw/nmd858c3wgJ' +
'eqlRKlKMaxEGX58mM+kmAJV9bXHY2yWpYkLVSoxinIXLDAvWx Z/7E' +
'iFWiFk00ksmMBnknkMolzIEHHIEgFZI6P5S33Ukq8QlOfDhUk b8rP' +
'HhnuvXb24s7ggMTE2MjIkKWkhjgq3GE8eq6QQXYUIfLqmIjrM 4Mej' +
'4VM4xIAxtXJYp2Rr5GwBm6wU80p3bomOCPk2M6P9ftvnqf+ib GEBe' +
'ix3TZbFbMhfm0X1dKOSXEw6BZgb733REROmVwipGpm31eirVT ARhn' +
'tqUtSD29dqKg9kpCSmLE3I/e4bq8VkbweZgw1LEuJiIsNxjkGr9iF' +
'7MKlEMUIHk2Pjwz3TH7stRgSTUNQSGh6mqCCnsf5U9aF9nR0P L9Vf' +
'WJWWkpy02BJq8nB3pcPUQC2GQ3IyV5aX7Sa5OXJonulJcc8e3 wVzQ' +
'8F6tknHUvpR+Ew3mQjuefFkZLAXzE3PTI7/8+zpoYr99++1iYQCnO' +
'NkB3GZ8KZ1eaePVTfWn/PxdENgcntr8+4t2eYAljmAg0PECLHhfOX' +
'1K3UPf73TerPl5NGasydPpK1IcXZySE9LxQuNSkl0dxHy2BGh prrT' +
'RyfH3lkNWrNWhqHeUVYUk5L95d5hJsnsRH9yfDgmR3MyVxn1O oNOq' +
'/FXOzna8xGuXCbBWx2mDtSo686eOn+8pqWxQStDOVQPP878UAMn 1M' +
'ALwBgClltqcljnk7t7d23fXVxYUrjtRM2RyIgFdhCklCtMxiA 8CY3' +
'ihbDo/T3/auUSPoPG9CKIWBQTxgsPRgxamkpCYsMOJVtzwdzHmdmR' +
'iYnhz1PjYA4YAox2kL1cqoiKtGWvXnWksgKPER8TiTvp5WYnY nlZd' +
'CIF3zUjNbCoMMlf5Umn2W3dtObAgR0oRg2yyVdmpyxPWbEoLr mhrp' +
'HsSXWf50yY74og9KpDZSoZQnCG/BBiEEY3Y16Febb8HEN/T8Ozpzj' +
'flzgPcnGC7NwgeyIEOUKOznYMBksikVG8SAajVqWWOjlD+HZf tWe4' +
'6KQeOWmK5+3lXX+U52bAzx8VgJlaMNP0oLl0cRhqDZYKRTDCJ yECo' +
'lqD8AQkvVFiCMF4IhZkDzGZTBmKhGi5927sBVP14MuJjpvLXr TnTf' +
'QVfurdBEb2g7FaMNRUvmN5iB4WcuzFfFelhMpmuQpE3nwR7Ow KzSe' +
'46DXy6oPbwORDMNkERveBwfWTf6eC4T0T3XlgIB8M/jD7Mh8M7QLj' +
'h0e7DlYVxcXqeTadKj40zBpo8BMIYAqpYH1Wz/NbYPZ3MHkR9JaCg' +
'W3jjxZPP7WAtyVgcMP0q6yprrQv3Vmgf/P7zs0v7xdXbU+IVHNDZd' +
'JwTVCgzF8hFKukaMW+gtnxx18+tMwMVoOhUvB6PXifA15ZO24 lvv0' +
'zfaYvFwyuG/0rs+P66v0FiXI2iU2ABDQ3EdNbxGHitgt8WVIlh+fr' +
'IZMTyvak9nWfGe0rn3q/ZaQroavNL9oI3bka+/FNwUDn2guHNTY9x' +
'CU7sSlU/FHg8mStDB0auNvb25aWbgoK4WI6bzbPkS+wDzZ5nj+38n' +
'XPrqkPRbcvyWxm+9aWtTeaVi+KhFAOJOFDagUhQE+3mum3mkv AbBO' +
'YawCgHoDmyz+ts4WyYiJkgVqGBHWSSx2WJAgu/7zmSl38QptgdTom' +
'QCA+D1JIHYKNJKtlfnFR8Oyny2D8LJiumurfOPE6H7wrAR/OgKGLZ' +
'VttK+LEsVauHHVR+nnKUefcTLVCDHNgVwbNyR9jm83C6CjOb7 9sAN' +
'M/gsm9c335oDsH9H0PXuEX2wje5IHBQjBU3lq7PMPmvSSEGawgSF g' +
'Q939QRyzU');
farbea:= 4598791;// 2568961 für grün, 4598791 für blau
farbeb:= 7630438; // 7172198 für grün 7630438 für blau
counter:=0;
test:=1;
end;
function checktarget:Boolean;
begin
result:=false
if (Findcolor(x,y,65535,skx1,sky1,skx2,sky2)=true)the n begin
result:=true;
n;
f;
end;
end;
procedure mouse(var x,y:Integer);
begin
MoveMouse(x, y);
wait(100+random(10));
ClickMouse(x,y,True);
wait(50+random(10));
end;
procedure mousesafe(var x,y:Integer);
begin
MoveMouse(480, 432);
wait(100+random(10));
ClickMouse(480, 432,True);
wait(50+random(10));
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;
procedure zuschiff(var x,y:Integer);
begin
MoveMouse(zx, zy);
wait(100+random(10));
ClickMouse(zx,zy,True);
wait(20+random(10));
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;
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 checkmove:boolean;
Begin
test:=0;
result:=false;
if (Findcolortolerance(xx,yy,65280, mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
wait (2350);
end;
Findcolortolerance(a,b,65280, mmx1, mmy1, mmx2, mmy2, 30);
if (a=xx) and (b=yy) then begin
result:=true;
test:=1;
end;
end;
procedure reppen;
begin
wait(100+random(10));
q;
wait(300+random(10));
if (FindBitmapTolerance(reparierend, xx, yy, 44)=True)then begin
repeat
wait (300);
until (FindBitmapTolerance(reparierend, xx, yy, 44)=false);
end;
end;
procedure reppdrive;
begin
getquarter;
if (quarter=1) then begin
xxx:= mmx2 - 1 ;
yyy:= mmy1 + 2 + random(2);
mouseMM(xxx,yyy);
end;
if (quarter=2) then begin
xxx:= mmx2 - 4 - random(2);
yyy:= mmy2 - 2 - random(2);
mouseMM(xxx,yyy);
end;
if (quarter=3) then begin
xxx:= mmx1 + 4 + random(2);
yyy:= mmy1 + 4 + random(2);
//xxx:= mmx2 - 4 - random(2);
//yyy:= mmy1 + 4 + random(2);
mouseMM(xxx,yyy);
end;
if (quarter=4) then begin
xxx:= mmx1 + 4 + random(2);
yyy:= mmy2 - 4 - random(2);
mouseMM(xxx,yyy);
end;
if (quarter=5) then begin
xxx:= mmx2 - random(2);
yyy:= mmy2 - random(2);
mouseMM(xxx,yyy);
end;
mouseMM(xxx,yyy);
mousesafe(xx,yy);
zuschiff(zx,zy);
repeat
wait(100+random(5));
until (checkmove=true);
reppen;
end;
function findhp:Boolean;
begin
result:=false;
writeln('suche HP Balken');
if (FindBitmapTolerance(greenhp, xx, yy, 22)=true) then begin
result:=true;
hpx1:=xx;
hpy1:=yy;
hpx2:=xx + 30;
hpy2:=yy + 5;
writeln('Hp Balken erkannt')
writeln(xx);
writeln(yy);
end;
if (result=false) then begin
writeln('HP balken nicht gefunden - brauche Reparatur oder Fehler');
end;
end;
function findSK:Boolean;
begin
result:=false;
writeln('suche Bonuskarte');
if (FindBitmapTolerance(bonuskarte, xx, yy, 40)=true) then begin
result:=true;
skx1:=xx - 230;
sky1:=yy - 25;
skx2:=xx + 572;
sky2:=yy + 577;
mpx:= xx + 164;
mpy:= yy + 279;
writeln('Bonuskarte erkannt - definiere Seekarte')
writeln(xx);
writeln(yy);
end;
if (result=false) then begin
writeln('Bonuskarte nicht erkannt');
end;
end;
function distance:boolean;
begin
result:=false;
if (FindBitmapTolerance(attacking, xx, yy, 42)=true) then begin
zuschiff(x,y);
if (Findcolortolerance(xx,yy,65280, mmx1, mmy1, mmx2, mmy2, 30)=true) then begin
i:=3;
xx:= xx+1; yy:= yy+1;
if (FindColorCircleTolerance(x2, y2, 40703, xx, yy, i, 30)=true) then begin
result:=true;
end;
if (FindColor(xxx, yyy, 13018698, skx1, sky1, skx2, sky2)=true)then begin
result:=true;
end;
if (FindColor(xxx, yyy, 13019730, skx1, sky1, skx2, sky2)=true)then begin
result:=true;
end;
if (FindColor(xxx, yyy, 13020754, skx1, sky1, skx2, sky2)=true)then begin
result:=true;
end;
if (FindColor(xxx, yyy, 12427842, skx1, sky1, skx2, sky2)=true)then begin
result:=true;
end;
if (FindColor(xxx, yyy, 13019730, skx1, sky1, skx2, sky2)=true)then begin
result:=true;
end;
end;
end;
if (result=true) then begin
getquarter;
obenx:= mpx - 200 + random (400);
obeny:= mpy - pixeldistance;
rechtsx:= mpx + pixeldistance;
rechtsy:= mpy - 200 + random (400);
untenx:= mpx - 200 + random (400);
unteny:= mpy + pixeldistance;
linksx:= mpx - pixeldistance;
linksy:= mpy - 200 + random (400);
if (quarter=1) then begin
mouse(rechtsx,rechtsy);
end;
if (quarter=2) then begin
mouse(untenx,unteny);
end;
if (quarter=3) then begin
mouse(obenx,obeny);
end;
if (quarter=4) then begin
mouse(linksx,linksy);
end;
wait(50+random(10));
n;
f;
if (FindBitmapTolerance(attacking, xx, yy, 42)=true) then begin
f;
end;
end;
end;
Function reppcheck : Boolean;
begin
result:=false;
mayrepp:=0;
needrepp:=0;
if (Findcolortolerance(xx,yy,8390, hpx1, hpy1, hpx2, hpy2, 15)=true) then begin
result:=true;
needrepp:=1;
reppdrive;
end;
if (Findcolortolerance(xx,yy,10413, hpx1, hpy1, hpx2, hpy2, 15)=true) then begin
result:=true;
needrepp:=1;
reppdrive;
end;
if (Findcolortolerance(xx,yy,12453, hpx1, hpy1, hpx2, hpy2, 15)=true) then begin
result:=true;
needrepp:=1;
reppdrive;
end;
if (result=false) then begin
distance;
end;
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
mmx1:= a- 38;
mmx2:= a +51;
mmy1:= b- 100;
mmy2:= b- 13;
writeln('Minimap erkannt');
end;
FindBitmaptolerance(zumschiff,zx, zy,35);
end;
procedure refresh;
begin
if (FindBitmapTolerance(ok, xx, yy, 20)=True) then
begin
mouse(aktx,akty);
wait (20000);
SetDesktopAsClient;
getvariable;
end;
end;
function shipnear:boolean;
begin
result:=false;
Findcolortolerance(x1,y1,65280, mmx1, mmy1, mmx2, mmy2, 30);
if (FindColorCircleTolerance(x2, y2, 1279, x1, y1, 10, 6)=true)then begin
result:=true;
end;
end;
function angriff:boolean;
Begin
result:=false;
t:=0;
t:= t + 1;
if (FindBitmapTolerance(attack, xx, yy, 42)=True)then begin
f;
result:=true;
mouse(xx,yy);
end;
wait(10);
reppcheck;
//refresh;
if (FindBitmapTolerance(attacking, xx, yy, 42)=false) then
begin
result:=false;
end;
end;
function Find:Boolean;
begin
result:=false;
refresh ;
if (FindBitmapTolerance(attacking, xx, yy, 42)=false) then begin
if(checktarget=false) then begin
n;
end;
if(checktarget=false) then begin
if (FindColor(xxx, yyy, 13018698, skx1, sky1 + 90, skx2, sky2)=true)then begin
mouse(xxx,yyy);
xxx:= xxx + 35; yyy:= yyy - 40;
mouse(xxx,yyy);
result:=true;
v;
wait (400);
angriff;
end;
if (result=false) then begin
if (FindColor(xxx, yyy, 13019730, skx1, sky1 + 90, skx2, sky2)=true)then begin
mouse(xxx,yyy);
xxx:= xxx + 35; yyy:= yyy - 40;
mouse(xxx,yyy);
result:=true;
wait (400);
angriff;
end;
end;
if (result=false) then begin
if (FindColor(xxx, yyy, 13020754, skx1, sky1 + 90, skx2, sky2)=true)then begin
mouse(xxx,yyy);
xxx:= xxx + 35; yyy:= yyy - 40;
mouse(xxx,yyy);
result:=true;
v;
wait (400);
angriff;
end;
end;
if (result=false) then begin
if (FindColor(xxx, yyy, 12427842, skx1, sky1 + 90, skx2, sky2)=true)then begin
mouse(xxx,yyy);
xxx:= xxx + 35; yyy:= yyy - 40;
mouse(xxx,yyy);
result:=true;
v;
wait (400);
angriff;
end;
end;
if (result=false) then begin
if (FindColor(xxx, yyy, 12429898 , skx1, sky1 + 90, skx2, sky2)=true)then begin
mouse(xxx,yyy);
xxx:= xxx + 35; yyy:= yyy - 40;
mouse(xxx,yyy);
result:=true;
v;
wait (400);
angriff;
end;
end;
if (result=false) then begin
if (FindColor(xxx, yyy, 12428874, skx1, sky1 + 90, skx2, sky2)=true)then begin
mouse(xxx,yyy);
xxx:= xxx + 35; yyy:= yyy - 40;
mouse(xxx,yyy);
result:=true;
v;
wait (400);
angriff;
end;
end;
if (result=false) then begin
if (FindColor(xxx, yyy, 12428874, skx1, sky1 + 90, skx2, sky2)=true)then begin
mouse(xxx,yyy);
xxx:= xxx + 35; yyy:= yyy - 40;
mouse(xxx,yyy);
result:=true;
v;
wait (400);
angriff;
end;
end;
end;
v;
end;
end;
function shipMM:boolean;
begin
result:=false;
reppcheck;
if (reppcheck=false) then begin
if (FindBitmapTolerance(attacking, xx, yy, 42)=false) then begin
if (angriff=false) then begin
if (Findcolortolerance(xx,yy,65280, mmx1, mmy1, mmx2, mmy2, 30)=true) then begin
i:=1;
repeat
i:=i+1;
if (FindColorCircleTolerance(x2, y2, 40703, xx, yy, i, 24)=true) then begin
result:=true;
end;
until FindColorCircleTolerance(x2, y2, 40703, xx, yy, i, 24) or (i>14);
if (result=false) then begin
if (Findcolortolerance(x2,y2,40703, mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
result:=true;
end;
end;
if (result=true) then begin
x2:= x2 + 2; y2:= y2 + 2;
mouseMM(x2,y2);
end;
end;
if (find=true) then begin
angriff;
end;
end;
end;
end;
end;
procedure randomdrive;
var xxx,yyy :Integer;
begin
countclick:= 0;
if (reppcheck=false) then begin
if (FindBitmapTolerance(attacking, xx, yy, 42)=false) then
begin
if (find=false) then begin
getquarter;
if (quarter=1) then begin
x:= mmx2 - 4 - random(12);
y:= mmy1 + 10 + random(12);
mouseMM(x,y);
end;
if (quarter=2) then begin
x:= mmx2 - 4 - random(12);
y:= mmy2 - 10 - random(12);
mouseMM(x,y);
end;
if (quarter=3) then begin
x:= mmx1 + 4 + random(12);
y:= mmy1 + 10 + random(12);
mouseMM(x,y);
end;
if (quarter=4) then begin
x:= mmx1 + 4 + random(12);
y:= mmy2 - 10 - random(12);
mouseMM(x,y);
end;
if (quarter=5) then begin
x:= mmx2 - random(88);
y:= mmy2 - random(88);
mouseMM(x,y);
end;
mousesafe(xx,yy);
zuschiff(zx,zy);
wait(50+random(5));
end;
end;
end;
end;
begin
LoadBMP;
getvariable;
repeat
if (findhp=false) then begin
reppdrive;
end;
until (findhp=true);
repeat
writeln('suche Seekarte');
until (findSK=true);
Repeat
repeat
if (findsk=true) then begin
shipMM;
end;
until (checkmove=true);
repeat
wait(100);
until (findSK=true);
Until(False);
end.
