elite*gold: 0 
Join Date: Nov 2011
Posts: 4
Received Thanks: 0
|
program Infinity;
var a, b, mask_7, farbe, workspaceBMP, seacard_x, seacard_y, startsilber, seacard_manuell, startsilber_tolerance, debug, soundmodus, logout, logout_tolerance, lx, ly, resolution_x, resolution_y, nocheckstopp, suchzeit, biggesttime, checkifmaskisglitzi, farbwechsel, ssx, ssy, double_y, double_x, coloratmouse, minigold, jumper, bronzeschweif, Fluchtmodus, gruener_kringel_umschiff_farbe, mitteanfahren, ax, ay, gruener_kringel_searchradius, farbe4, bluewater, bluewater_tolerance, gruener_kringel_umschiff_farbe_tolerance, greenwater, greenwater_tolerance, brownwater, brownwater_tolerance, NPC_blau_Suchradius, oldget, gildencolorsearchradius, searchdistance, xs, ys, xe, ye, nochgelbolor, reloadpageonerror, standartrang_tolerance, minisilber_tolerance, minigold_tolerance, goldschweif_Tolerance, silberschweif_tolerance, bronzeschweif_tolerance, goldmuenze_tolerance, silbermuenze, bronzemuenze_tolerance, silbermuenze_tolerance, nochgelbcolor, safemodus, BMsuche_x1, BMsuche_y1, BMsuche_x2, BMsuche_y2, mapsprungschriftfarbe, mapsprungschriftfarbe_tolerance, NPC_blau_Seekarte, monsterschriftcolor, monsterschriftcolortolerance, calculated_distance, lastminimap_x, lastminimap_y, msx, msy, attackercolortolerance, gildencolortolerance, mask_5, ex1, ey1, ex2, ey2, mask_6, countfind, ContourTolerance, Tolerance, errorwait, get, get2, get3, get4, get5, get6, get7, get8, get9, get10, errorcount, searchx1, searchy1, searchx2, searchy2, mask, zzz, minisilber, meinschifftolerance, targetcolortolerance, glitzialt, GlitziMMtolerance, MMcolorlastclick, nochgelbx, nochgelby, lastx, mapchangewait, minimaltimeonmap, startdirection, direction, lasty, glitzionmap, timeonmap, glitzionothermap, timeonothermap, goldtaler, mapreloadwait, hangengeblieben, checkcollectx1, checkcollecty1, checkcollectx2, checkcollecty2, standartrang, restart, restarttime, restarttime2, restarttime3, restarttime4, wx1, wy1, wx2, wy2, sy2, fastfindcounter, screenshotmodus, angriffe, glitzis_geklaut, badx, bady, time, time3, glitzis_gesammelt, anzeigeglitzis, countercounter, bronzetaler, zentrierenaufklick, collectjackpot, glitzisearch, reppwait, switchtimes, xxxx, yyyy, stoppwait, zx, zy, glitzitoleranz, attackercolor, glitziMMcolor, findlimit, npcblau, targetcolor, gildencolor, meinschiff, mousedelay, movewait, xreppen, sx, sy, zentrieren, yreppen, regatta, regatta2, silberschweif, rangstatus, goldschweif , neulogin, greenhp, t, xsafe, ysafe, reparierend, reppbutton, mskx1, mskx2, msky1, msky2, drivequest, bonuskarte, rose, fahrquest, randdriver, logoutx, logouty, xx, zumschiff, silber, color, x, y, ok, my1, xn, yn, xf, yf, yy, i, lebk, verbinde, checkattackerx1, checkattackery1, checkattackerx2, checkattackery2, quarter, schliessen, test, posix, posiy, chat, countclick, schiffe_inaktiv, counter, glitzimap, skx1, skx2, sky1, sky2, rangskx1, rangskx2, rangsky1, rangsky2, mmx1, mmx2, mmy1, mmy2, wrackmini, minijackpot, miniglitzi_1o : Integer;
var hoch, runter, links, rechts, filename, reparieren, vkordi, feuertaste : string;
var time2, averagesearchtime, erkenne_angreifer, glitziperminute, glitzisperminonmap, glitzisperminlastmap, minimumsuccess :Extended;
procedure Loadvariable;
begin
////////////////////////////////Standarteinstellungen//////////////////////////////////
hoch:= 'w'; // key up
runter:= 's'; // key down
links:= 'a'; // key left
rechts:= 'd'; // key right
vkordi:= 'v'; // key drive
reparieren:= 'q'; // key repair
zentrieren:=32; // center map key (32 -> space)
///////////////////// SEACARD IMPORTANT IF YOU DONT COLLECT
seacard_manuell:=0; // 0 to setup seacard auto, 1 use following coodinates for seacard
seacard_x:= 692; // X value of right down corner
seacard_y:= 566; // Y value of right down corner
///////////////////////////////////////////////////////////////////////////////////////
zentrierenaufklick:=0; // set to1 to center map with mouseclick
erkenne_angreifer:=1; // 0 Attacker detection off, 1 sailaway when under attack
reloadpageonerror:=0; // 1 reload page if glitter is collectet 5 times without success, 0 off
checkattackerx1:=31; // x value left over "attacker" in game configurator
checkattackery1:=651; // y value left over "attacker" in game configurator
checkattackerx2:=127; // x value right below "attacker" in game configurator
checkattackery2:=696; // y value right below "attacker" in game configurator
collectjackpot:=0; // 0 ignore jackpot, 1 collect jackpot
drivequest:=0; // 0 off, 1 do quest with coordinate drive
screenshotmodus:=0; // 0 off, 1 take Screenshot of attacker in Folder: "C:\Bots\" - this folder must exist !!!!!!
minimumsuccess:=1.5; // minimal glitters per minute to dont do mapchange - set to 0.01 to never do mapchange
minimaltimeonmap:=30; // minimal time on map before checking success rate (mapchange)
safemodus:=0; // 0 off, 1 send drive key / vkordi after collect (better for HP collecting)
soundmodus:=0; /// 0 off, 1 sound on
searchdistance:=13; // how many pixels can you look (15 without additional skills)
gildencolorsearchradius:=1; // search guild color radius - make higher if you ship gets clicked instead of glitter
NPC_blau_Suchradius:=150; // search npc color detection radius
gruener_kringel_umschiff_farbe:=52222; // color of green circle arround my ship
gruener_kringel_umschiff_farbe_tolerance:=3; // tolerance for green circle arround my ship
gruener_kringel_searchradius:=120; // radius for green circle (default 140)
Fluchtmodus:=2; // 0 off(dont sail away on detected attack), 1 Mvqapchange, 2 random drive
debug:=0; // 0 aus, 1 debugmodus
////////////////////////////////advanced settings/////////////////////
mapreloadwait:=34000; // wait ms on mapreload
mapchangewait:=6000; // wait for mapchange
mousedelay:=80; // waiting between action of the mouse
movewait:=10; // wait after click in minimap
stoppwait:=100; // wait for detection if ship stands
reppwait:=300; // wait for repair symbol
randdriver:=10; // 5 drive along the sides up to 35 for random drive
mitteanfahren:=30; // how mandy drives in corner before drive to middle
glitzisearch:=3; // how many time glitter scan should be done
errorwait:=8; // how many ms should i check colorchange before scan next "maybe glitter"
//////////////////////// COLORS ////////////////////
silbermuenze_tolerance:=85;
bronzemuenze_tolerance:=75;
goldmuenze_tolerance:=85;
bronzeschweif_tolerance:=65;
silberschweif_tolerance:=75;
goldschweif_Tolerance:=40;
minigold_tolerance:=60;
minisilber_tolerance:=60;
startsilber_tolerance:=60;
standartrang_tolerance:=80;
bluewater:=5454367;
bluewater_tolerance:=30;
greenwater:=4412183;
greenwater_tolerance:=40;
brownwater:=1518633;
brownwater_tolerance:=30;
logout_tolerance:=50;
glitzitoleranz:=80;
anzeigeglitzis:=1;
findlimit:=50;
targetcolor:= 1169115; // color of yellow circle arround a target
targetcolortolerance:= 20; // tolerance for targetcolor
NPC_blau_Seekarte:=12099909; // color of npc blue font on map
mapsprungschriftfarbe:=4580849; // color of mapchange button (yellow)
mapsprungschriftfarbe_tolerance:=10; // tolerance for mapchange color
glitziMMcolor:=61179; // color of glitter on minimap
GlitziMMtolerance:=24; // tolerance for glitter color
gildencolor:=52222; // color of guild logo ( [ABC]shipname )
attackercolor:=16777215; // color of attacker (white)
attackercolortolerance:=2; // tolerance for attackercolor
monsterschriftcolor:=16777215; // color of monster font on map
monsterschriftcolortolerance:=2; // tolerance for monstercolor
meinschiff:= 65280; // color of myship (green) on minimap
meinschifftolerance:=5 // tolerance for myship on minimap
gildencolortolerance:=5; // guild color tolerance
end;
Procedure LoadBMP;
begin
SetDesktopAsClient;
counter:=0;
glitzis_gesammelt:=0;
countercounter:=0;
glitzis_geklaut:=0;
angriffe:=0;
hangengeblieben:=0;
direction:=1; // 1 für mapdown, 2 für mapup
COUNTCLICK:=1;
switchtimes:=0;
farbwechsel:=0;
suchzeit:=0;
checkifmaskisglitzi:=0;
logout := BitmapFromString(9, 10, 'beNpjYKAQfH/thVPquRM5usi' +
'TwmsXFD13wmMCCAAAda0XwQ==');
startsilber:= BitmapFromString(3, 3, 'beNrrmLR+2579R07dffA8t6o' +
'jNDy6sqk/Oas0p6CoDgDrag87');
minigold := BitmapFromString(3, 13, 'beNoBdQCK/xoCalAQ//5u4' +
'sV4z5sf//JD//mL/8cm/9Qd/+5e/8oa/7gL/9EklWYPoV4Bt3YOY0cLu' +
'ngKzIsWNCQEs4ET15ggGBEBfmATk2khDwsCbE8OSTcXCwkBsX YeJSAVW' +
'DkM4K84fGlKNiADoHQZPSoLHxMCqHUZK7KtLc4=');
mask_5 := BitmapFromString(14, 8, 'beNpjYCAV/AcD6qqkJ6Ct+wG' +
'OlRfp');
mask := BitmapFromString(6, 6, 'beNpjYMAF/oMBGhdZEFMEUxcK' +
'AABbcyPd');
mask_6 := BitmapFromString(14, 14, 'beNpjYKAd+A8G1FVJTzAI3T' +
'+ogxQAaSUj3Q==');
mask_7 := BitmapFromString(21, 17, 'beNpjYBgFaOA/GAyU9tEwGe' +
'oBNZy9BwDkmRrm');
bronzeschweif := BitmapFromString(15, 2, 'beNorSVk+vS7O36Ag' +
'0Wnb8rYnFzcG20n35LsHGnKs7c/ODjRZM61+QV9FaohVQpDF5jWzy' +
'tJ8gIqjffQzIq1mtWcu7c8qDtPK9ZOfVulfFGHcXxVfkeYX72 fibq' +
'FYDQDqUSTQ');
glitzialt := BitmapFromString(10, 9, 'beNorCTo6J//MsqoTS6t2' +
'Ts87t3vx0+t7Z1dHLGyM3difuWNK9snFFedWNxxZXLVtZtmXN 3f/f' +
'zi+b2lZf1Hg0tbETROyz6xuubB1yoU9C5/dPvX/86X/j6f9uNm5bX' +
'75qom56/vTTiwt/vFw0f83O/+/XPf/buP/a2n/b+T9v5YKRHtnh22' +
'emLV9asz7w/7/LwTA0bcTfpv77Kvi7bZOzl7UnHB8ecr/W8UQLUB0' +
'fLFfjJNmUZjVnpkFa3ozLu/q+n+vBY7u7ClI8tCrinU4NL90+7SCh' +
'8cnfLu3cMvsvEmVIXeO9n6+M78q3qEj23v/rIJdMwqXtCZ25fqWR9' +
'vnBVvkBpmVRNo0pblPBgAR2qfn');
minisilber := BitmapFromString(3, 12, 'beNoBbACT/xcaq6yu9fb' +
'49vf5zM3P4+Tm7e7w3+Diuru94eLkYmNlZWZoeXp8UlNVfH1/lpeZ' +
'LS4wjo+RhIWHDQ4RaWpsWlteDhIWZGVnIiYrBQsRgYKEEhgfN zk9u' +
'bq8Z2ptHSAkf4CCJyouFBcafn+BFO8/McE=');
neulogin := BitmapFromString(73, 9, 'beNpLNEyONMxONMyOBZHDj' +
'F2caQlkFKeCyeHILk4Fkob0ZH9/7kR7u0Do/3svOBvoX7C9UDayOK' +
'lsPOZ8f+1Fufn42RCfAt0AtAsem8hsGpGQWKOtLZkIv8DiDmx vJsI' +
'NcHFcapDNQdOLLI7VHAgb4VPc6hHhj8MuTHNA4uDkAU8n8FhD E0fO' +
'I3A18LSNRw0x5lBdDWZeg/kdwQaFD1A9ah7BzEdAKbh6NDVw8/GYQ' +
'6oagnZhTfmIEMDIEXARzPyIRwRTF7VEcNoFAFQUGew=');
standartrang := BitmapFromString(2, 9, 'beNo7zfDvNAj9OQlETH' +
'9OMf84zvr7JPPnw2x/TjICuRApiBoEAgBsICAC');
silbermuenze := BitmapFromString(9, 8, 'beNozMTx3+lx2bvaUaV' +
'P+g0FQYFBLW8u9+/e+f/7e0tTi5ekFEf//+z+QGxQa1NPXs3XTVid' +
'HJ0UVRaDw3n179+7aC5TS1NEEyiYnJgMFgVygMiA5Z94coAnH jh+D' +
'mLF23Vqg4uLSYqD4lElTgOja5WtAE+7dvgc0sLiweM6sOcmpy UAEd' +
'ENUZBTQMVu3bRUQEeDg4cjOzK6urQaSlhaWQK6EjATIDQqKhg aGEF' +
'1AXwAdABQByhoCAHnjb/A=');
ok := BitmapFromString(16, 11, 'beNqLNshNNKYb+vjUFYLQBMlj41' +
'KAVRkeSzHV45El0nxS3U9G+BCJ0qMNSEAAABrQzQ==');
schliessen := BitmapFromString(1, 9, 'beNpLNM5NxIEAfi0JCg==' +
'');
//goldschweif := BitmapFromString(16, 2, 'beNoBYACf/9OM3qpS1p' +
// 'Yx1qJK975z/8+MYywAnFUQpV0QzpJCc0UApYIxzqpa1ppKxpJC58u' +
// 'E1tOUzqJC565CvYYxnGkh3qprxopKhEEApVkYvXk5e0kIvZZK rYI5' +
// 'nGUYtYY5vapa1qE1MPc=');
goldschweif := BitmapFromString(1, 11, 'beNoBIQDe/0kY//ec9' +
'+dz/+NC78MpnGkArXUYpV0QpVkYtX1CnHU5a0CJENQ=');
greenhp := BitmapFromString(41, 6, 'beNoLZGAoZWCoZGAoBJN0Zp' +
'fCRAaEPVC2D1RoD6ztiQwMgQwMoWAUSEc2AG6ja9c=');
silberschweif := BitmapFromString(2, 13, 'beNrT0Pz///+58+f' +
'ef/4OZDx//h7IOHb42L3795ITk4srq6srq1uaWqprq+fMm5OdW1xc' +
'WgzkegUGFZdWGxoYBoVGefl6GZoYKiooAhUrAgDyZCpU');
fahrquest := BitmapFromString(23, 17, 'beNo1VC2o60wQtU9WPLE' +
'iogsROxCxAxG7EJNARAMRN1DRQsWlXPFRnqqsjYysjI2sjIyN rKyM' +
'jYyM3O9sHg+GsMzOnvk5Z5Jwk3Abc6+5j+QQ05jbTlOr6Zna2 vAjk' +
'veIHlo2hltDr4T7mHyY4UHTkNjXIatj6i/nwWRDyFNEs6Y5sfMhQ8' +
'xL0ct4/NZwhyx4FfMnsVPMc0yTkp+Ip7yYLtcuz9rU9tpOJnN55i5' +
'nl1jYFCKGRkVjRP1evA1PiV0QcKp8zFfh0myO7ZRm46FoD9lD i1dM' +
'n9Q6mCInhAtg0u3FGspFydXwmrBPURbecDhWrszmMhsT6hKqj axTT' +
'ED0SsyRxCsPAtvtPA5MSQenJhcDx+Ktt69i/SrmUzEebVdyndMtEn' +
'UkOiXG/W4Kdm4v3W+AbObrIRexR4itM9Y3UhbrsZjKbPo+Dz/V68/' +
'5ceCrlnclnvtdL35Ne7GgjN+biQ1BsQs9zqpojcgdCvd9dv9d l5/z' +
'eKpex6L9rh6noorkLZJ1sOtD8QnEEogVxSSZT32o/CEvVmNXsKbZH' +
'dBL5X6u01c1ns7tV9VczvfL+aqgBNko2Qe7GZUAAcFl5YO/r+6EvD' +
'd/QAGgBr3kGWQA1jpFT2PvMV9jvmlq4AnEO9h6wRjBEQpINxYAAo S' +
'Lb8F/y60qzZPiUds25Cbie2JrJdtAjns5C7H6UYhVeLQ5lJDfglco' +
'AGUcK9SwhLSGtARyCfkT8qC4VdSk2XMvB0Uf1IBGwOzfqQYec w7Jz' +
'wH1HLdGNK8Y9V/KAloVfxQN2kv6pXnAE/j/PYfYVgGZ0SeU74gmDO' +
'FUQa4zCEKnG4IThBh4IGbsWh/zZOzib6U3qDQQ4PodyiGUHahPeMA' +
'2Yen2YvK3cuOdnbaYDxatz22f2rexvv1NCWD5HQrsC+TXKPHY rDbU' +
'hKLTgBWT5llBNuzzokfQ/ecKwWCjR01vrLYS+CG8Ytmm/DDyZuQ1o' +
'WtO51jeE1nDj7+BplHz2xuNCUNyz5SfZfaMCVmwQU8t2hwe25 T2Xt' +
'rCyCrnImd8b8fslpK/MvTUEnPoYmpjahJ6/A9SKtbo');
bronzetaler := BitmapFromString(10, 10, 'beNoBLAHT/jYF6phy3' +
'5JoqGU6bj0S//jM3LaHdUwYt4JM355m7aRt86B2z4VYj08fr3pI//' +
'O+/+Gqc0wVjV4mzpJW6Z5ds3dFlmAxZDAA/+Kp/suS2qt1j2Qvaj8' +
'Mm2owuXo3iF0oXTMBSB8A/9Oesn9IuIRSnW08TCAAcEIOhFIV//fD' +
'/96qoXlGpXtLhVYol2Q3bzwP2KV4//bK/+zAq4dXo31Op35Qglguk' +
'2Y9lmU8lmI6xZFqo3NPsYhqdEghVCgDc0cilGQ8dUQceEYhh1 U0bj' +
'whajghtIBrQRUAOxIANQoAbTcRfUMbf0ckWCIGMwMAMgEAWB8 LSCg' +
'AOh0AUy8NwYZeiEAYejUWbjIaTiAQSh8MYzEMWjoLYkYfjmtF dz4T' +
'fj0Vbi8OgEowgVhCWDESaGoseKA=');
miniglitzi_1o := BitmapFromString(9, 9, 'beNoB8wAM/2BRSFszT' +
'F4zTVsrUmAsTl8uRVcwPlMyN0sxMUcyU14rX2YmcHIieHoidH cjZG' +
'wnTl4tPlEwNkoxYm4teXwmjYgdm5IamI8ag4AfZG0oRVYuOkw veYA' +
'zko8ropcZuaYTtqQTl48bcnclTlwrPEssdHknjYohpZkZuqYR uKQR' +
'mY8ZdHYhTl0sPFIzcXUlhIIhl5AbopQVnpQYioYeanEmRVgwO kwvc' +
'HQldnkkgYAfh4QfgoIgcXclV2QsQlc0OVI4d3kkbHInanAldX 0xZG' +
'0nVmIqSFkuPVU3R2FMeHokZm0oYmsnZnM1VmEpTFoqQVMvOVM 5RK6' +
'8UVI=');
verbinde := BitmapFromString(52, 8, 'beNpLNM5NHEUDiT4+daWDL' +
'jT1RGrHVEaMxoFyG53DDchG4yKTWGWxSuFST1JQ47IL0zSqM0 h1G5' +
'pnCbqcJAZ6SAIAU/Tl/A==');
silber := BitmapFromString(2, 12, 'beNo7z/D/PBhdRmLA2cSLAwAt' +
'iit1');
goldtaler := BitmapFromString(8, 11, 'beNoVjSFohFAAhv9wwfii' +
'YcHXZptwYcLKBMMdWA4uTLggYjjkwpAFEdtj6aXjsTBMgmXB5 sLgV' +
'gYWwYWBhgsXFi4aDQtvHnzp+8K3sbIdulw/f1p1ro9Ht36jbanK3r' +
'zwY3W5ygPIMelKI4tx/qCy0cd3vXjEYU+lFPIYsg2qZ7SvpEpJZGP' +
'8juQgZB9xD8JD9oRJLjWMTSJ/+dhEYktW15B/hTyJLDaK1DjsrfrF' +
'8ufoytXQ87b0uzJkD6TLXeGpIlCHr4gF1F8oyZpkO8ocMBvF1 ohsY' +
'mqgM1AgWWDy3CGuBgOwri5Moyo1k/upKuENzBncOfw7UsRLtlaZo4' +
'S3EIHB/wEiRnFZ');
wrackmini := BitmapFromString(1, 10, 'beNoz0heXELS1t3Z1d46' +
'Pj92+ffuOHbt6evrqO/o9I5N0AJ2qC/4=');
minijackpot := BitmapFromString(16, 9, 'beNodkKGLAkEUh/+JC4Yr106' +
'w2G7B4oDBAcMtGG7BcCwGWQyyXJDl6gVZLhxiOJYLwhiE2SCs QZgt' +
'wlwQ1iCMbQyGCRcmGCYY9t74ePH7Pb7fm8T1Wh23sPPkeC8ub jl+3' +
'2U55Vu7ySwm84QuCV1SuiBkTpLvpHJXQU3k97yg78cfUTyJWE 7kic' +
'tTIY6cbTKxL8RBiKNgOZvOpqiBcBu7HYyajvuMgqGXrRKlCqN lWep' +
'sBccJkDznkAqGQb1WxS0bAR+3g6L3QByYMRIi+k8UO5allK0z tmGw' +
'oIQaYG5lwrcgHPnxZ8g2RGvBf6nYM5oSvmWwxa6QJxmOQmhq5 Qd+N' +
'A6Bn35FNJ2CP7SAIFtTrZQ6S30b4KuP1sfKdLHbRdHYB7LYUf CBR5' +
'mL0lqVtzHGJD/Jw30FlMAcFredYOACLE+2ArzIaCUOUESVVxuBCsD' +
'Dff/V83ouPD8cWb68SnXm5iL5NqOLhKZUHgXw8T8OjAa8');
regatta := BitmapFromString(9, 25, 'beNpLUjF3k7L2lrHxl' +
'bHxk7H2lbbylrL2kbH2kgWKu0QoesareCQoeSUp+aQqeycpeS Yquc' +
'cqOYXK+2eqhRZqhpdoRlRoxNRoR1YC2RpBeepAZVHVWokteql d+hl' +
'9BjmTjDP7jYDs+EbdiHKNzF6jtHqdyEytkHj14GjNuEyDqCzl xGqt' +
'tG6DqAT7yBAvJ2tjA3U5IDLXU40N8a6rzswpdSkrzA7z91SSF jbRV' +
'jLUkDfTVTHWUmxvKFsws7+usriruTbUz83TwTw5KrAgPS4zIX zb+q' +
'V7t60pyk3fuGrJhpUL50/rvXB8362LJ57euXzz0okzR3d3NNcunjN' +
'tx8aVrx/d/P/3CxD9+/rmxsXjl88cAkrNmNi9avFsoOIvrx/9/PD8' +
'/6+Pf76+njW509PFzsvZdkJn46mDOx5cP/fh+b0f75/dunyyKDtRW' +
'U7CQFM5JtR3wfS+w7s2Xj518OGN8zMndSRFB+prqVgZ61oZa6 fFhi' +
'yZPWnTygVAlBoX4mxjpKUqb2duaGGoGebrsnzeVKD49nVLgf5 ytDK' +
'QEuXXUpa1NdMryU4Cun96X+uU7qb+jjovZ0sDbVWgXa52ZrUl 2c1V' +
'hU2VBRX5afUVeUBnONmaezhaA0PD38023M8VGCAJ4X7xEX4Jk f5Au' +
'2xM9d0dLHxdrIGyQOTjbOXhaO5iaywlLqQiLw1UYKiloq4gAS QNtZ' +
'Q0lGWN9dXERIXlZKUV5GUFBfh4eTg42Fk52Jm5ONnFRAUdQpX lVEX' +
'5BfnY2NhYWVlZWFg4uVmlVXi9UzVSOvTTugxDy9S90pQ8kpQC 8tQi' +
'q7Uzeo1SOwzCStVj67QTm3VTOvVTu/VTOvUSmnVjanUiSjWBacw/S' +
'zUoTy20WD2sWB1IBuerB2SpewEAp575dw==');
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');
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==');
reppbutton := BitmapFromString(26, 27, 'beNptla9rM0kYxyMqVl' +
'SMqBhRkYEVGYjYgRU7EJOBFVlYkYGILESEpaIsFWWpKMuZYzl RQkV' +
'ZKo6og7ziIOag8l7ZEwc5V3n/wImKExWvyH2fmc1LxZWH6WRm5zPf' +
'58fMzK0IGR8yMWLoyDFHp28jLsauH9Isvwz4JVqmE2UXmV1ak xo91' +
'SpWMpKcMzF033jImKmYy4hJarlKBFr0MS7GHJ+JkJuZaX5o6t s6m2' +
'dyJMVQAMIvMcvFkLML2g4oMhBiriZCJUARh+Ax99r0RJXrsrq ushl' +
'xGGNBMIDhPyDE4b31SmKup4IMQFjcbyHHApzuuatuKg4pWH8e EIyd' +
'IHDQcfBTDplyyz3KzEDjairIwZFDXZfgQJLnEApiPCR0sUWEf VQ5K' +
'xJyrVeVSg8kT6FqJMCBMJ1oeOdQAwZ1lwHJPoXF6adoAFVOpe M4++' +
'5pxF3utIqUCIVd2PanNsuzPs4RcbC1mUm0FO2I6xFr5go0P+V RNBU' +
'LOZYQA++oBhJd39XNfQOdUAv3EWSTKzNX2VxpLI8FbR2ybCwg T/dx' +
'ky6D5F2xKqCkWFrKPud2btsfW1h9W8kI3tHuhJqREipU1AkL1 JCZE' +
'VUCqUpoX5KUZyqSNO2yhnDBWfAhb/OwqW5KGZ+ylkqUok1EncpyIj' +
'PX9zn1NKDKq9LHB+UKQ+7wEwGEZgARQGimyDszsdiudbfSzUJ XuYJ' +
'5N33xnw5X/zFiQgeBKoohjDgF5O99bVJkmetYtCuzucratWlWuprr' +
'eqH7FKQE9FFVifi+BQFDolEAlwUysnncVLdVkesGqGvbXNlmn TUkz' +
'5QpZdnklO5soShZM191kmhT4VND5/0CvgscLgI+dd1D2wK1ysgWen' +
'Nl2qWuZyrLKdfZHEzqnIBST0inmUo7lUWqbCKROxdAKhgobO8 qyIN' +
'35O/abFa6BieXdkmtTnsjyMRBZqpa6Gap/SoT4dLgKEIEsL6jFLdw' +
'c0m0doWW4mbgaUpKEH8VCcQ2S8jKVBFtrsucmNSZaTWiywepR 4prq' +
'pkWBOwFJjpF6iA4dyHHlyrkmaehfhJhp6qYSsKmssqpBsDHRS FRgc' +
'gIFKJm7msswVo94hVoIUFUyGB6zM3J8A2qkWwiELdiqkovdab o+0i' +
'hMsvrCjVjJnowGIgLhuNw+OP18NeB2j/J3tBHe+qjs/+yRQwBKV19' +
'YhekIwgCMzX+CsWFjDMYnA1QSMdvx4+Pj+Px+Pa8/fvLnuzX/eFxg' +
'xEa/3Z8/fpiJ9KgnnEucL+dB1AyOMPdG+AIE/CmguH+QyG9v79//P' +
'sB2+d2N1b7WO8itZsYP4jZl9/27t7uIZ9bdsEQQJxiFCFeH9T5++n' +
'vZVXuRnIXkr3kth/95333ZUfLPcGjPvURQNAgEkCk+/DcvT12r/fN' +
'74uCaLChfJlbjLw9dYeHze6X3Wc9/nEhqW4E8vAOksIFZXm/LrdDA' +
'T3/3+YWT0zg9CBi/BxPCdfIKZ483O0eyBhKGi8sRO6WRb9w9Aly6u' +
'9m2fbnjp1TAUgeoKgM3WPS4oq+ZEBROM8G/q4GELRuKGD9cmfob0N' +
'Jg2nWPW2wELUESQ4lCtR2JEhbEPiHDEwE0P4HDTQbMA==');
reparierend := BitmapFromString(28, 1, 'beNqTEdDUkVDUEVAEkY' +
'oSGhICEhyKIhyaPBxeAhxRHAzVIhItEopzVAznaBjO0TGcoqL ZoqC' +
'YLSJgycGhCEQCQCQgIQACEgqKEgoShgoCmgAjOwyX');
test:=1;
skx1:=400;
sky1:= 400;
skx2:=400;
sky2:=400
end;
//Function getcolorXY(x,y: integer): integer;
//begin
//workspaceBMP := BitmapFromString(1, 1, 'beNpjYGAAAAADAAE=');
//CopyClientToBitmap(workspaceBMP,x,y,x+2,y+2);
//farbe := FastGetPixel(workspaceBMP,1,1);
//FreeBitmap(workspaceBMP);
//end;
function getcolorXY(x, y: Integer): Integer;
begin
workspaceBMP := BitmapFromString(1, 1, '');
CopyClientToBitmap(workspaceBMP, x, y, x, y);
farbe := FastGetPixel(workspaceBMP, 0, 0);
FreeBitmap(workspaceBMP);
end;
procedure reloadpage;
begin
KeyDown(116);
Wait(20 + Random(50));
KeyUp(116);
end;
Procedure v;
begin
// s:='v'; // Hier v kordi taste im rosa Bereich einstellen
// sendkeys(s);
wait(15+random(10));
typekeys(vkordi);
wait(15+random(10));
end;
Procedure ss;
begin
// s:='s'; // Hier unten taste im rosa Bereich einstellen
// sendkeys(s);
typekeys(runter);
wait(25 + random(25));
end;
Procedure ww;
begin
// s:='w'; // Hier rauf taste im rosa Bereich einstellen
// sendkeys(s);
typekeys(hoch);
wait(25 + random(25));
end;
Procedure dd;
begin
// s:='d'; // Hier rechts taste im rosa Bereich einstellen
// sendkeys(s);
typekeys(rechts);
wait(25 + random(25));
end;
Procedure aa;
begin
// s:='a'; // Hier links taste im rosa Bereich einstellen
// sendkeys(s);
typekeys(links);
wait(25 + random(25));
end;
Procedure feuer;
//var s: string;
begin
//s:='f'; // Hier feuer taste
//sendkeys(s);
typekeys(feuertaste);
wait(25 + random(25));
end;
Procedure q;
//var s: string;
begin
//s:='q'; // Hier Repariertaste
//sendkeys(s);
typekeys(reparieren);
wait(25 + random(25));
end;
Procedure space;
begin
KeyDown(32);
wait(15 + random(15));
KeyUp(32);
wait(215 + random(15));
end;
Procedure return;
begin
KeyDown(13);
wait(15 + random(25));
KeyUp(13);
end;
procedure sound;
begin
// WriteLn(IntToStr(GetSoundDuration('C:\WINDOWS\Medi a\ding.wav')));
if (soundmodus=1) then begin
PlaySound('C:\WINDOWS\Media\ding.wav');
end;
end;
procedure mouse(var x,y:Integer);
begin
if (x>0) then begin
if (y>0)then begin
MoveMouse(x, y);
wait(mousedelay+random(20));
ClickMouse(x,y,True);
wait(mousedelay+random(20));
end;
end;
end;
procedure zuschiff(var x,y:Integer);
begin
if (zentrierenaufklick=0) then begin
space;
end;
if (zentrierenaufklick=1) then begin
if (debug=1) then writeln('zuschiff mouse');
mouse(zx,zy);
end;
wait(movewait + random(50));
end;
Procedure drive_obenlinks;
begin
if (debug=1) then writeln('drive_obenlinks');
x:= mmx1 +5+ random(75);
y:= mmy1 +5 + random(75);
wait(33 + random(50));
mouse(x,y);
wait(movewait+random(10));
v;
end;
function rangerkennung:boolean;
begin
result:=false;
rangstatus:=0;
zuschiff(x,y);
if (FindBitmapToleranceIn(standartrang, xx, yy, skx1, sky1, skx2, sky2, standartrang_tolerance)=True)then begin
result:=true;
writeln('Gildenlogo Standart erkannt');
rangstatus:=4;
end else writeln(' --------------------- ERROR : STANDARTRANG NICHT ERKANNT !!!!!!!!!!!!!!!!');
if (result=false) then begin
if (debug=1) then writeln('Bitte zentrieren einstellungen überprüfen!');
if (debug=1) then writeln('Bitte Position von zumschiff überprüfen - muss unten rechts neben der seekarte sein');
if (debug=1) then writeln('Bitte movewait einstellungen überprüfen!');
sound;
if (FindBitmapTolerance(neulogin, xx, yy, 20)=false) then begin
if (FindBitmapTolerance(verbinde, xx, yy, 20)=false) then begin
if (FindBitmapToleranceIN(schliessen, xx, yy, skx1, sky1 + 40, skx2, sky2, 5)=True) then begin
xx:=xx+2; yy:=yy+2;
mouse(xx,yy);
end;
end;
end;
if (FindBitmapTolerance(verbinde, xx, yy, 20)=true) then begin
xx:=xx+2; yy:=yy+2;
wait(20000 + random(2500));
mouse(xx,yy);
wait(25000 + random(2005));
end;
if (FindBitmapTolerance(neulogin, xx, yy, 20)=True) then begin
wait(20000 + random(2500));
mouse(xx,yy);
wait(25000 + random(2005));
end;
end;
result:=false;
if (FindBitmapToleranceIn(goldschweif, xf, yf, rangskx1, rangsky1, rangskx2, rangsky2, goldschweif_Tolerance)=true) then begin
rangstatus:=1;
result:=true;
writeln('Goldschweif erkannt');
end;
if (result=false) then begin
if (FindBitmapToleranceIn(silberschweif, xf, yf, rangskx1, rangsky1, rangskx2, rangsky2, silberschweif_tolerance)=true) then begin
rangstatus:=2;
result:=true;
writeln('Silberschweif erkannt');
end;
end;
if (result=false) then begin
if (FindBitmapToleranceIn(bronzetaler, xf, yf, rangskx1, rangsky1, rangskx2, rangsky2, bronzemuenze_tolerance)=true) then begin
rangstatus:=3;
result:=true;
writeln('Bronzemünze erkannt');
end;
end;
if (result=false) then begin
if (FindBitmapToleranceIn(goldtaler, xf, yf, rangskx1, rangsky1, rangskx2, rangsky2, goldmuenze_tolerance)=true) then begin
rangstatus:=5;
result:=true;
writeln('Goldmünze erkannt');
end;
end;
if (result=false) then begin
if (FindBitmapToleranceIn(minisilber, xf, yf, rangskx1, rangsky1, rangskx2, rangsky2, minisilber_tolerance)=true) then begin
rangstatus:=6;
result:=true;
writeln('minisilber erkannt');
end;
end;
if (result=false) then begin
if (FindBitmapToleranceIn(silbermuenze, xf, yf, rangskx1, rangsky1, rangskx2, rangsky2, silbermuenze_tolerance)=true) then begin
rangstatus:=7;
result:=true;
writeln('silbermünze erkannt');
end;
end;
if (result=false) then begin
if (FindBitmapToleranceIn(bronzeschweif, xf, yf, rangskx1, rangsky1, rangskx2, rangsky2, bronzeschweif_tolerance)=true) then begin
rangstatus:=8;
result:=true;
writeln('bronzeschweif erkannt');
end;
end;
if (result=false) then begin
if (FindBitmapToleranceIn(minigold, xf, yf, rangskx1, rangsky1, rangskx2, rangsky2, minigold_tolerance)=true) then begin
rangstatus:=9;
result:=true;
writeln('minigold erkannt');
end;
end;
if (result=false) then begin
if (FindBitmapToleranceIn(startsilber, xf, yf, rangskx1, rangsky1, rangskx2, rangsky2, startsilber_tolerance)=true) then begin
rangstatus:=10;
result:=true;
writeln('startsilber erkannt');
end;
end;
if (result=false) then begin
sound;
end;
end;
function getvariable:Boolean;
begin
result:=false;
GetClientDimensions(resolution_x, resolution_y);
Writeln('Bildschirmauflösung: '+inttostr(resolution_x)+'x '+inttostr(resolution_y));
resolution_x:=resolution_x - 30; resolution_y:=resolution_y - 30;
loadvariable;
if (FindBitmaptolerance(schiffe_inaktiv, a, b, 35)=true) then begin
a:= a + 4
b:= b + 5
mouse (a, b);
wait(200 + random(50));
result:=true;
//writeln('Schiffemap gefunden');
end;
if (result=false) then begin
if (debug=1) then writeln('Schiffemap nicht gefunden - war Glitzimap schon an ?');
end;
result:=false;
if (FindBitmaptolerance(glitzimap,a, b,35)=True)then begin
mouse (a, b);
mmx1:= a- 39;
mmx2:= a +51;
mmy1:= b- 102;
mmy2:= b- 12;
result:=true;
writeln('Glitzimap gefunden');
writeln ('mmx1:');
writeln (mmx1);
writeln ('mmy1:');
writeln (mmy1);
writeln ('mmx2:');
writeln (mmx2);
writeln ('mmy2;');
writeln (mmy2);
end;
if (result=false) then begin
if (debug=1) then writeln('Glitzimap nicht gefunden!');
sound;
reloadpage;
wait(20000 + random(2500));
end;
result:=false;
if (FindTransparentBitmapTolerance(logout, lx, ly, 0, 1, 1, resolution_x, resolution_y, logout_tolerance)=true) then begin
sound;
result:=true;
writeln('logout gefunden - lx: '+inttostr(lx)+' ly: '+inttostr(ly)+' - definiere seekarte und glitzisuchbox');
skx2:= lx + 60;
sky2:= ly + 492;
end;
if (seacard_manuell=1) then begin
result:=true;
skx2:= seacard_x;
sky2:= seacard_y;
end;
skx1:= skx2 - 640;
sky1:= sky2 - 479;
logoutx:= lx +5;
logouty:= ly +5;
ex1:=skx1+100;
ey1:=sky1;
ex2:=skx2-5;
ey2:=sky2-60;
writeln ('skx1:');
writeln (skx1);
writeln ('sky1;');
writeln (sky1);
writeln ('skx2:');
writeln (skx2);
writeln ('sky2;');
writeln (sky2);
xreppen:= skx1 + 228; // Xwert vom reparieren button bei blubb
yreppen:= sky1 + 283; // Ywert vom reparieren button bei blubb
BMsuche_x1:= skx2-508;
BMsuche_y1:= sky2-469;
BMsuche_x2:= skx2-316;
BMsuche_y2:= sky2-400;
checkcollectx1:=skx1 + 150;
checkcollecty1:= sky1 + 30;
checkcollectx2:= skx2 - 150;
checkcollecty2:=sky1 + 135;
if (result=false) then begin
Writeln('Logout graphic not found - please setup map manually - script terminated');
terminatescript;
end;
if (FindBitmaptolerance(zumschiff,zx, zy,35)=true)then
writeln('zumschiff: '+inttostr(zx)+'/'+inttostr(zy)) else
begin
writeln('Zum Schiff nicht gefunden - zentrieren nicht durch klick möglich - setze zentrierenaufklick:=0; Leertaste muss für zentrieren in den Spieloptionen eingestellt werden !');
zentrierenaufklick:=0;
sound;
end;
rangerkennung;
end;
procedure mouseMM(var x,y:Integer);
begin
wait(25+random(25));
if(x>0) then begin
if (y>0) then begin
HoldMouse(x,y,true);
MoveMouseSmooth(x,y);
wait(mousedelay+random(10));
ReleaseMouse(x,y,true);
wait(movewait+random(20));
end;
end;
end;
procedure MMerror(var x,y:Integer);
begin
t:=0;
getcolorXY(x,y);
farbe4:= farbe;
if (debug=1) then writeln(' starte MMerror');
lastx:=x;
lasty:=y;
repeat
if (debug=1) then getcolorXY(x,y); farbe4:= farbe; Writeln(' Farbwert auf Minimap bei Klick - Farbe4= ' + inttostr(farbe4)+' Koordinate: x='+inttostr(x)+' y= '+inttostr(y));
zzz:=0;
t:=t+1; // Sicherheitsvariable für loop
if (SimilarColors(bluewater, farbe4, bluewater_tolerance)=true) then begin
if (debug=1) then writeln(' Bluewater erkannt! ');
zzz:=1;
end;
if (SimilarColors(greenwater, farbe4, greenwater_tolerance)=true) then begin
if (debug=1) then writeln(' Greenwater erkannt! ');
zzz:=1;
end;
if (SimilarColors(brownwater, farbe4, brownwater_tolerance)=true) then begin
if (debug=1) then writeln(' Brownwater erkannt! ');
zzz:=1;
end;
if (SimilarColors(GlitziMMcolor, farbe4, GlitziMMtolerance)=true) then begin
if (debug=1) then writeln(' Glitzifarbe erkannt! ');
zzz:=1;
end;
if (zzz=0) then begin
if (debug=1) then writeln(' MMerror: --------------------- changing minimap coordinate-----------------');
x:= lastx+ random(10); y:= lasty+ random (10);
if (x>mmx2) then begin
x:=x - 5 - random(5);
end;
if (y>mmy2) then begin
y:= y -5 - random (5);
end;
//sound;
end;
until(zzz=1) or (t>10);
mouseMM(x,y);
end;
procedure reppen;
begin
q;
wait(reppwait + random(50));
if (FindBitmapTolerance(reparierend, xx, yy, 44)=True)then begin
repeat
wait (reppwait + random(50));
until (FindBitmapTolerance(reparierend, xx, yy, 44)=false);
end;
end;
function setdirection:boolean;
begin
result:=false;
if (direction=1) then begin
direction:=2;
result:=true;
end;
if (result=false) then begin
if (direction=2) then begin
direction:=1;
result:=true;
end;
end;
end;
function mapup:boolean;
begin
result:=false;
x:= mmx1 + random(75);
y:= mmy1 + 1;
mouseMM(x,y);
wait(100 + random(50));
ww;
ww;
ww;
xn:= skx1 + 200 + random(75);
yn:= sky1 + 60+ random(5);
mouse(xn,yn);
end;
function mapdown:boolean;
begin
result:=false;
x:= mmx1 + random(75);
y:= mmy2 - 1;
mouseMM(x,y);
wait(100 + random(50));
ss;
dd;
ss;
xn:= skx1 + 200+ random(75);
yn:= sky2 - 60 - random(5);
mouse(xn,yn);
end;
function mapchange:boolean;
begin
if (direction=1) then begin
if (debug=1) then writeln('direction 1 detected - starting mapdown');
mapdown;
end;
if (direction=2) then begin
if (debug=1) then writeln('direction 2 detected - starting mapup');
mapup;
end;
npcblau:=0;
wait(5000 + random(1000));
mskx1:= skx1 + 113;
msky1:= sky1 + 5;
mskx2:= skx2 - 155;
msky2:= sky1 + 152;
repeat
npcblau:=npcblau+1;
if (FindBitmapTolerance(bonuskarte, xx, yy, 150)=true) then begin
return;
result:=true;
timeonothermap:=time3;
glitzionothermap:=glitzis_gesammelt;
glitzisperminlastmap:=glitziperminute;
wait(mapchangewait + random(500));
end;
if (result=false) then begin
if (FindcolorTolerance(xx,yy,mapsprungschriftfarbe, BMsuche_x1, BMsuche_y1, BMsuche_x2, BMsuche_y2, mapsprungschriftfarbe_tolerance)=true) then begin
if (debug=1) then writeln('"mapsprungschriftfarbe" erkannt auf Koordinate xx:'+inttostr(xx)+'/ yy:'+inttostr(yy)+' - befinde mich am kartenrand! ');
return;
result:=true;
timeonothermap:=time3;
glitzionothermap:=glitzis_gesammelt;
glitzisperminlastmap:=glitziperminute;
wait(mapchangewait + random(500));
STARTDIRECTION:=0;
end;
end;
wait(600 + random(100));
until (result=true)or (npcblau>160) ;
if (result=false) then begin
if (debug=1) then writeln('------Mapchange failed ------ starte Mapchange in die andere Richtung');
setdirection;
if (direction=1) then begin
if (debug=1) then writeln('direction 1 detected - starting mapdown');
mapdown;
end;
if (direction=2) then begin
if (debug=1) then writeln('direction 2 detected - starting mapup');
mapup;
end;
npcblau:=0;
wait(5000 + random(1000));
mskx1:= skx1 + 113;
msky1:= sky1 + 5;
mskx2:= skx2 - 155;
msky2:= sky1 + 152;
repeat
npcblau:=npcblau+1;
if (FindBitmapTolerance(bonuskarte, xx, yy, 150)=true) then begin
return;
//mouse(xx,yy);
result:=true;
timeonothermap:=time3;
glitzionothermap:=glitzis_gesammelt;
glitzisperminlastmap:=glitziperminute;
wait(mapchangewait + random(1000));
end;
if (result=false) then begin
if (FindcolorTolerance(xx,yy,mapsprungschriftfarbe, BMsuche_x1, BMsuche_y1, BMsuche_x2, BMsuche_y2, mapsprungschriftfarbe_tolerance)=true) then begin
if (debug=1) then writeln('"mapsprungschriftfarbe" erkannt auf Koordinate xx:'+inttostr(xx)+'/ yy:'+inttostr(yy)+' - befinde mich am kartenrand! ');
return;
//mouse(xx,yy);
result:=true;
timeonothermap:=time3;
glitzionothermap:=glitzis_gesammelt;
glitzisperminlastmap:=glitziperminute;
wait(mapchangewait + random(1000));
end;
end;
wait(600 + random(100));
until (result=true)or (npcblau>160) ;
end;
result:=true;
end;
function logoutship:boolean;
begin
result:=false;
writeln('logout started');
mouse(logoutx,logouty);
wait(11000 + random (3000));
restart:=0;
end;
function gamemessage:boolean;
begin
result:=false;
if (FindBitmaptolerance(glitzimap,a, b,35)=True)then begin
mouse (a, b);
wait(500+random(100));
end;
if (FindBitmapTolerance(verbinde, xx, yy, 20)=True) then begin
writeln('connection to the server has been broken - server restart ?');
wait (5000+random(1000));
restarttime:=GetTimeRunning;
restarttime2:=Time div 60000; // Zeit in Minuten
restarttime3:=Ceil(time2); // rundet auf ganze minuten
restarttime4:=restarttime3 + 20;
restart:=1;
//repeat
reloadpage;
writeln('Verbinde...');
wait (mapreloadwait + random(1000));
sound;
SetDesktopAsClient;
//until (getvariable=true);
end;
if (FindBitmapTolerance(neulogin, xx, yy, 20)=false) then begin
if (FindBitmapToleranceIN(schliessen, xx, yy, skx1, sky1 + 40, skx2, sky2, 5)=True) then begin
xx:=xx+2; yy:=yy+2;
mouse(xx,yy);
SetDesktopAsClient;
//getvariable;
end;
end;
if (FindBitmapTolerance(neulogin, xx, yy, 20)=True) then begin
Writeln('neulogin gefunden -warte 20 Sekunden für reconnect');
wait (20000 + random(3000));
mouse(xx,yy);
wait (20000 + random(3000));
if (FindBitmapTolerance(neulogin, xx, yy, 20)=false) then begin
if (FindBitmapToleranceIN(schliessen, xx, yy, skx1, sky1 + 40, skx2, sky2, 5)=True) then begin
Writeln('Reconnect: neulogin nicht gefunden, aber schliessen gefunden - Gamemessage schließen wird geschlossen');
xx:=xx+2+random(4); yy:=yy+2 + random(2);
mouse(xx,yy);
SetDesktopAsClient;
//getvariable;
//logoutship;
my1:=0;
//repeat
Writeln('Warte 15 Minuten für Rangabzeichen !!!!!!!!!!!!!!!!!!!!');
//wait(60000)
my1:=my1+1;
//until (my1>15);
end;
end;
sound;
SetDesktopAsClient;
//getvariable;
end;
if (FindBitmapTolerance(ok, xx, yy, 20)=True) then begin
mouse(xx,yy);
wait (200 + random(100));
writeln('OK...');
sound;
SetDesktopAsClient;
//getvariable;
end;
if (FindBitmaptolerance(greenhp,x, y,35)=false)then begin
q;
i:=0;
repeat
i:= i+1;
wait(1000 + random(100));
until (FindBitmapTolerance(reparierend, xx, yy, 44)=false) or (i>240);
if (FindBitmapTolerance(greenhp, xx, yy, 44)=false)then begin
mouse(xreppen,yreppen);
wait(1000 + random(200));
q;
reloadpage;
wait (20000 + random(1000));
writeln('reloading map');
SetDesktopAsClient;
//getvariable;
end;
end;
end;
function fuckoff:Boolean;
begin
result:=false;
//sound;;
if (FindBitmaptolerance(schiffe_inaktiv, a, b, 35)=true) then begin
if (erkenne_angreifer=1) then begin
if (FindColor(ax, ay, attackercolor, checkattackerx1, checkattackery1, checkattackerx2, checkattackery2)=true)then begin
result:=true;
angriffe:=angriffe+1;
writeln('Angreifer erkannt');
sound;
if (screenshotmodus=1) then begin
filename:='C:\bots\screenshot'+inttostr(time)+'.bm p'
SaveScreenshot(filename); end;
if (Fluchtmodus=1) then begin
writeln('Fluchtmodus=1 - starte Mapchange');
mapchange;
wait(3000 + random(1000)); end;
if (Fluchtmodus=2) then begin
writeln('Fluchtmodus=2 - starte Flucht ohne Mapchange');
drive_obenlinks;
wait(3000 + random(1000)); end;
if (Fluchtmodus=3) then begin
writeln('Fluchtmodus=3 - starte Inselflucht');
drive_obenlinks;
wait(3000 + random(1000)); end;
result:=false;
end;
if (FindColortolerance(ax, ay, attackercolor, checkattackerx1, checkattackery1, checkattackerx2, checkattackery2, attackercolortolerance)=true)then begin
result:=true; end;
end;
end;
if (result=false) then begin
gamemessage;
end;
end;
function checkdeck:Boolean;
begin
result:=false;
if (rangstatus=0) then begin
repeat
wait(200 + random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(silber, xf, yf, skx1, sky1, skx2, sky2, standartrang_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(silber, xx, yy, skx1, sky1, skx2, sky2, standartrang_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=1) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(goldschweif, xf, yf, skx1, sky1, skx2, sky2, goldschweif_Tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(goldschweif, xx, yy, skx1, sky1, skx2, sky2, goldschweif_Tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=2) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(silberschweif, xf, yf, skx1, sky1, skx2, sky2, silberschweif_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(silberschweif, xx, yy, skx1, sky1, skx2, sky2, silberschweif_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=3) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(bronzetaler, xf, yf, skx1, sky1, skx2, sky2, bronzemuenze_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(bronzetaler, xx, yy, skx1, sky1, skx2, sky2, bronzemuenze_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=4) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(standartrang, xf, yf, skx1, sky1, skx2, sky2, standartrang_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(standartrang, xx, yy, skx1, sky1, skx2, sky2, standartrang_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=5) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(goldtaler, xf, yf, skx1, sky1, skx2, sky2, goldmuenze_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(goldtaler, xx, yy, skx1, sky1, skx2, sky2, goldmuenze_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=6) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(minisilber, xf, yf, skx1, sky1, skx2, sky2, minisilber_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(minisilber, xx, yy, skx1, sky1, skx2, sky2, minisilber_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=7) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(silbermuenze, xf, yf, skx1, sky1, skx2, sky2, silbermuenze_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(silbermuenze, xx, yy, skx1, sky1, skx2, sky2, silbermuenze_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=8) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(bronzeschweif, xf, yf, skx1, sky1, skx2, sky2, bronzeschweif_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(bronzeschweif, xx, yy, skx1, sky1, skx2, sky2, bronzeschweif_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=9) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(minigold, xf, yf, skx1, sky1, skx2, sky2, minigold_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(minigold, xx, yy, skx1, sky1, skx2, sky2, minigold_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (rangstatus=10) then begin
repeat
wait(200+ random (20));
counter:= counter+1;
until (Findcolortolerance(xf,yf,gildencolor,skx1,sky1,sk x2,sky2,10)=true) or (counter>10);
if (FindBitmapToleranceIn(startsilber, xf, yf, skx1, sky1, skx2, sky2, minigold_tolerance)=True) then begin
wait(stoppwait+ random (20));
if (FindBitmapToleranceIn(startsilber, xx, yy, skx1, sky1, skx2, sky2, minigold_tolerance)=True)then begin
if (xf=xx) and (yf=yy)
then result:=true;
end;
end;
end;
if (result=true) then begin
if (debug=1) then writeln('---------------Checkdeck = true-------------');
end;
end;
function checkmove:boolean;
Begin
test:=0;
result:=false;
if (checkdeck=true) then begin
result:=true;
end;
if (result=false) then begin
if (Findcolortolerance(xx,yy,meinschiff, mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
wait (1850+ random (20));
end;
Findcolortolerance(a,b,meinschiff, mmx1, mmy1, mmx2, mmy2, 30);
if (a=xx) and (b=yy) then begin
result:=true;
test:=1;
end;
if (Findcolortolerance(a,b,meinschiff, mmx1, mmy1, mmx2, mmy2, 30)=false) then begin
result:=true;
end;
end;
end;
function checkrang:Boolean;
begin
result:=false;
repeat
zuschiff(x,y);
wait(100+ random (20));
if (rangstatus=0) then begin
if (FindBitmapToleranceIn(silber, xx, yy, skx1, sky1, skx2, sky2, standartrang_tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=1) then begin
if (FindBitmapToleranceIn(goldschweif, xx, yy, skx1, sky1, skx2, sky2, goldschweif_Tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=2) then begin
if (FindBitmapToleranceIn(silberschweif, xx, yy, skx1, sky1, skx2, sky2, silberschweif_tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=3) then begin
if (FindBitmapToleranceIn(bronzetaler, xx, yy, skx1, sky1, skx2, sky2, bronzemuenze_tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=4) then begin
if (FindBitmapToleranceIn(standartrang , xx, yy, skx1, sky1, skx2, sky2, standartrang_tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=5) then begin
if (FindBitmapToleranceIn(goldtaler , xx, yy, skx1, sky1, skx2, sky2, goldmuenze_tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=6) then begin
if (FindBitmapToleranceIn(minisilber, xx, yy, skx1, sky1, skx2, sky2, minisilber_tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=7) then begin
if (FindBitmapToleranceIn(silbermuenze, xx, yy, skx1, sky1, skx2, sky2, silbermuenze_tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=8) then begin
if (FindBitmapToleranceIn(bronzeschweif, xx, yy, skx1, sky1, skx2, sky2, bronzeschweif_tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=9) then begin
if (FindBitmapToleranceIn(minigold, xx, yy, skx1, sky1, skx2, sky2, minigold_tolerance)=True)then begin
result:=true;
end;
end;
if (rangstatus=10) then begin
if (FindBitmapToleranceIn(startsilber, xx, yy, skx1, sky1, skx2, sky2, startsilber_tolerance)=True)then begin
result:=true;
end;
end;
if (result=false) then begin
drive_obenlinks;
if (debug=1) then writeln('Rangerkennung fehlgeschlagen - versuche es noch einmal');
//getvariable;
gamemessage;
end;
until (result=true);
end;
Function checkstopp:Boolean;
begin
test:=0;
result:=false;
zuschiff(x,y);
//rose:=random(4);
//if (rose=0) then begin aa; end;
//if (rose=1) then begin ss; end;
//if (rose=2) then begin dd; end;
//if (rose=3) then begin ww; end;
aa;
//wait(mousedelay+ random (20));
if (checkdeck=true) then begin
result:=true;
end;
if (result=false) then begin
checkrang;
end;
end;
function drive:boolean;
var xxx,yyy :Integer;
begin
result:=false;
if (debug=1) then writeln('drive started');
if (quarter=2) then begin
xxx:= mmx1 + random(randdriver) + 15;
yyy:= mmy2 - random(4) - 8;
end;
if (quarter=3) then begin
xxx:= mmx1 + random(4) + 8;
yyy:= mmy1 + random(randdriver) + 15;
end;
if (quarter=4) then begin
xxx:= mmx2 - random(4) - 8;
yyy:= mmy2 - random(randdriver) - 15 ;
end;
if (quarter=1) then begin
xxx:= mmx2 - random(randdriver) - 15;
yyy:= mmy1 + random(4) + 8;
end;
COUNTCLICK :=COUNTCLICK +1
if (COUNTCLICK>mitteanfahren) then begin
/// hier noch einfügen !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
/// getquarter
// nextquarter nach mitte definieren
// weiter unten wenn result true dann nextquarter !
result:=true;
xxxx:= mmx1 + 45;
yyyy:= mmy1 + 45;
if (findcolorcircletolerance(msx,msy,meinschiff, xxxx, yyyy, 12, meinschifftolerance)=false) then begin
if (debug=1) then writeln('(COUNTCLICK>30) --> starte Fahrt in die Mitte');
xxx:= mmx1 + random(randdriver) + 44;
yyy:= mmy1 + random(randdriver) + 44;
switchtimes:=switchtimes+1;
result:=false;
end;
if (switchtimes>10) then begin
COUNTCLICK:=1;
switchtimes:=1;
end;
if (result=true) then begin
COUNTCLICK:=1;
switchtimes:=1;
// wenn result true dann nextquarter ! noch einbauen !!!!!!!!
end;
end;
MMerror(xxx,yyy);
wait(stoppwait + random(360));
v;
end;
Procedure Statistik;
begin
//ClearDebug;
time:=GetTimeRunning;
time2:=Time/60000; // Zeit in Minuten
time3:=Ceil(time2); // rundet auf ganze minuten
timeonmap:= time3 - timeonothermap;
glitzionmap:= glitzis_gesammelt - glitzionothermap;
writeln('Time running Script: '+ inttostr(time3)+' minutes');
writeln('Time running Script on current map: '+ inttostr(timeonmap)+' Minuten');
writeln('collected glitters total:'+ inttostr(glitzis_gesammelt));
writeln('collected glitters on current map:'+ inttostr(glitzionmap));
//timeonothermap:=time3;
//glitzionothermap:=glitzis_gesammelt;
//glitzisperminlastmap:=glitziperminute;
if (time2>0) then begin
glitziperminute:= glitzis_gesammelt/time2;
writeln('average glitters per minute total: '+ FloatToStr(glitziperminute));
end;
if (timeonmap>0) then begin
glitzisperminonmap:= glitzionmap/timeonmap;
writeln('average glitters per minute on current map: '+ FloatToStr(glitzisperminonmap));
end;
//writeln('stolen glitters or graphical error: '+ inttostr(glitzis_geklaut));
writeln('attacks: '+ inttostr(angriffe));
if (timeonmap>minimaltimeonmap) then begin
if (glitzisperminonmap< minimumsuccess) then begin
mapchange;
end;
end;
end;
function colorchange:Boolean;
var gethardcore1, gethardcore2, gethardcore3, gethardcore4, gethardcore5, gethardcore6, gethardcore7, gethardcore8, gethardcore9, gethardcore10, gethardcore11, gethardcore12, gethardcore13, gethardcore14, gethardcore15, gethardcore16 : Integer;
begin
result:=false;
errorcount:=0;
repeat
errorcount:=errorcount+1;
getcolorXY(xx + 3, yy + 3);
get:= farbe;
getcolorXY(xx + 2, yy + 2);
get3:= farbe;
getcolorXY(xx + 2, yy + 4);
get5:= farbe;
getcolorXY(xx + 4, yy + 1);
get7:= farbe;
getcolorXY(xx + 4, yy + 4);
get9:= farbe;
getcolorXY(xx + 1, yy + 1);
gethardcore1:= farbe;
getcolorXY(xx + 1, yy + 2);
gethardcore2:= farbe;
getcolorXY(xx + 1, yy + 3);
gethardcore3:= farbe;
getcolorXY(xx + 1, yy + 4);
gethardcore4:= farbe;
getcolorXY(xx + 1, yy + 5);
gethardcore5:= farbe;
getcolorXY(xx + 1, yy + 6);
gethardcore6:= farbe;
getcolorXY(xx + 1, yy + 7);
gethardcore7:= farbe;
getcolorXY(xx + 1, yy + 8);
gethardcore8:= farbe;
wait(1);
getcolorXY(xx + 3, yy + 3);
get2:=farbe;
getcolorXY(xx + 2, yy + 2);
get4:= farbe;
getcolorXY(xx + 2, yy + 4);
get6:= farbe;
getcolorXY(xx + 4, yy + 1);
get8:= farbe;
getcolorXY(xx + 4, yy + 4);
get10:= farbe;
getcolorXY(xx + 1, yy + 1);
gethardcore9:= farbe;
getcolorXY(xx + 1, yy + 2);
gethardcore10:= farbe;
getcolorXY(xx + 1, yy + 3);
gethardcore11:= farbe;
getcolorXY(xx + 1, yy + 4);
gethardcore12:= farbe;
getcolorXY(xx + 1, yy + 5);
gethardcore13:= farbe;
getcolorXY(xx + 1, yy + 6);
gethardcore14:= farbe;
getcolorXY(xx + 1, yy + 7);
gethardcore15:= farbe;
getcolorXY(xx + 1, yy + 8);
gethardcore16:= farbe;
if (SameValue(get, get2)=false) then begin result:=true; end;
if (SameValue(get3, get4)=false) then begin result:=true; end;
if (SameValue(get5, get6)=false) then begin result:=true; end;
if (SameValue(get7, get8)=false) then begin result:=true; end;
if (SameValue(get9, get10)=false) then begin result:=true; end;
if (SameValue(gethardcore1, gethardcore9)=false) then begin result:=true; end;
if (SameValue(gethardcore2, gethardcore10)=false) then begin result:=true; end;
if (SameValue(gethardcore3, gethardcore11)=false) then begin result:=true; end;
if (SameValue(gethardcore4, gethardcore12)=false) then begin result:=true; end;
if (SameValue(gethardcore5, gethardcore13)=false) then begin result:=true; end;
if (SameValue(gethardcore6, gethardcore14)=false) then begin result:=true; end;
if (SameValue(gethardcore7, gethardcore15)=false) then begin result:=true; end;
if (SameValue(gethardcore8, gethardcore16)=false) then begin result:=true; end;
until (result=true) or (errorcount>errorwait);
Inc(checkifmaskisglitzi);
if (result=true) then begin
if (errorcount>biggesttime) then biggesttime:=errorcount;
Inc(farbwechsel); // anzahl an farbwechseln insgesammt
suchzeit:=suchzeit+errorcount;
if(farbwechsel>0) then begin
averagesearchtime:=suchzeit/farbwechsel;
writeln('letzte Suchzeit: '+inttostr(errorcount)+ 'ms, höchste erfolgreiche Suchzeit: '+inttostr(biggesttime));
writeln('durchschnittliche Suchzeit: '+FloatToStr(averagesearchtime)+ ' ms bei '+inttostr(farbwechsel)+ ' erfolgreichen Suchen und '+inttostr(checkifmaskisglitzi)+' Insgesammtsuchen');
end;
end;
if (result=false) then begin
if (debug=1) then writeln('colorchange - Result=false - Suchzeit: '+inttostr(errorcount)+ 'ms (errorcount) > ' + inttostr(errorwait)+' errorwait'); end;
end;
function findmask:boolean;
begin
result:=false;
Tolerance:=50; ContourTolerance:=8;
jumper:=1;
countfind:=0;
writeln('starte findmask');
repeat
repeat
regatta2:=0;
Inc(countfind);
if (FindBitmapMaskTolerance(mask, xx, yy, ex1, ey1, ex2, ey2, Tolerance, ContourTolerance)=true) then begin
// MoveMouse(xx, yy);
// writeln('mask potentielles Glizzie ' + inttostr(xx) + ' xx / ' + inttostr(yy) + 'yy - jumper= '+inttostr(jumper));
result:=true;
regatta2:=1;
if (FindColorCircleTolerance(XSAFE, YSAFE, gruener_kringel_umschiff_farbe, xx, yy, gruener_kringel_searchradius, gruener_kringel_umschiff_farbe_tolerance)=true) then begin
result:=false; end;
if(result=true) then begin
if (FindColorCircleTolerance(XSAFE, YSAFE, NPC_blau_Seekarte, xx, yy+60, NPC_blau_Suchradius, 1)=true) then begin
writeln('NPCBLAU unter glitzi - result=false - npc schiff für glitzi gehalten...');
result:=false; end; end;
if (result=true) then begin
result:=false;
if (colorchange=true) then begin
result:=true; end; end;
if (result=false) then begin
searchy1:=yy + random(20); //writeln('searchy1:=xx + random (20)');
if (searchy1>=searchy2) then begin
regatta2:=0; /// beendet Suche im jumper
searchy1:=searchy2-25; writeln('searchy1>=searchy2 - Suchbereich bis zum Boden reduziert - suche im nächsten Jumper'); end; end;
end; /// Ende Schleife Maske gefunden
if (debug=1) then writeln('countfind= ' + inttostr(countfind)+ ' jumper= '+inttostr(jumper));
if (regatta2=0) then begin Tolerance:=Tolerance+40; ContourTolerance:=ContourTolerance-2; jumper:=1;
//writeln('--------------------------Increasing tolerances in function findmask---------------------------------------------"');
end;
until (result=true) or (regatta2=0);
if (ContourTolerance<3) then begin ContourTolerance:=3; end;
if (Tolerance>150) then begin Tolerance:=50; end;
until (result=true) or (countfind>glitzisearch);
end;
function fastFind:Boolean;
begin
result:=false;
countfind:=0;
lebk:=1;
if (debug=1) then writeln('starte fastfind');
if (FindcolorTolerance(x,y,targetcolor,skx1,sky1,skx2 ,sky2,targetcolortolerance)=false)then begin
// if (FindColorCircleTolerance(xx, yy, glitziMMcolor, lastminimap_x, lastminimap_y, 3, GlitziMMtolerance)=true) then begin
if (result=false) then begin
if (drivequest=1) then begin
if (FindBitmapToleranceIn(fahrquest, xx, yy, ex1, ey1, ex2, ey2, 42)=True) then begin
result:=true; xx:=xx+3; yy:=yy+12; xn:=3;
end;end;end;
if (result=false) then begin
if (collectjackpot=1) then begin
if (FindBitmapToleranceIn(minijackpot , xx, yy, ex1, ey1, ex2, ey2, 80)=True) then begin
result:=true; xx:=xx+random(4); yy:=yy+2 + random(8); xn:=1; end; end; end;
if (result=false) then begin
if (findmask=true) then begin
ssx:=xx; ssy:=yy; writeln('ssx: '+inttostr(ssx)+' ssy: '+inttostr(ssy));
result:=true; xx:=xx+4; yy:=yy+3;
end; end;
//ex1:=xx-130; ey1:=yy; ex2:=xx; ey2:=yy+150; end;
//end;
end;
if (result=false) then begin
if (debug=1) then writeln('fastfind false');
end;
end;
function predetect:boolean;
begin
result:=false;
if (FindColor(xf, yf, attackercolor, checkcollectx1, checkcollecty1, checkcollectx2, checkcollecty2)=false)then begin
if (debug=1) then writeln('predetect - suche schonmal nächstes glitzi');
result:=true;
sound;
end;
end;
procedure calibrate(var x,y:Integer);
begin
end;
function collect:boolean;
begin
result:=false;
if (debug=1) then writeln('collect mouse');
// calibrate;
mouse(xx,yy);
fuckoff;
statistik;
//predetect;
if (result=false) then begin
wait(10+ random (20));
if (Findcolortolerance(x,y,targetcolor,skx1,sky1,skx2 ,sky2,targetcolortolerance)=false)then begin
//sx:= skx1 + 180; sy:= sky2 - 90;
//if (xx<sx) then begin aa; end;
//if(yy>sy) then begin ss; end;
color:=0;
fastfindcounter:=0;
oldget:=0; // counter für rang neu laden falls checkdeck nicht anschlägt oldget>findlimit
repeat
color:= color + 1;
result:=false;
oldget:=oldget+1; // counter für rang neu laden falls checkdeck nicht anschlägt oldget>findlimit
if (checkdeck=true)then begin
oldget:=0; // counter für rang neu laden falls checkdeck nicht anschlägt oldget>findlimit
color:= findlimit + 1;
glitzis_gesammelt:=glitzis_gesammelt+1;
countercounter:=countercounter+1;
if (countercounter>anzeigeglitzis) then begin
countercounter:=0;
statistik;
end;
end;
////////////////////gelberpixelxheck
if (FindColorCircleTolerance(badx, bady, meinschiff, lastminimap_x, lastminimap_y, 3, meinschifftolerance)=false) then begin
if (FindColorCircleTolerance(badx, bady, glitziMMcolor, lastminimap_x, lastminimap_y, 2,GlitziMMtolerance)=false) then begin
wait(300+ random (20));
if (FindColorCircleTolerance(badx, bady, meinschiff, lastminimap_x, lastminimap_y, 3, meinschifftolerance)=false) then begin
GetColorXY(lastminimap_x, lastminimap_y);
nochgelbcolor:= farbe;
if (SameValue(nochgelbcolor, meinschiff)=false) then begin
if (debug=1) then writeln('gelber pixel ist weg - pixelkoordinatebfarbe ist nicht meinschiff - glizzi wurde fremdgesammelt');
color:= findlimit + 1;
glitzis_geklaut:=glitzis_geklaut+1;
end;
end;
end;
end;
////////////////////////////////////
until(color>findlimit);
if (oldget>findlimit) then begin
rangerkennung;
if (debug=1) then writeln('starte Rangerkennung - oldget>findlimit');
end;
if (FindColor(xf, yf, attackercolor, checkcollectx1, checkcollecty1, checkcollectx2, checkcollecty2)=false)then begin
hangengeblieben:=hangengeblieben + 1;
end;
if (reloadpageonerror=1) then begin
if (hangengeblieben>4)then begin
writeln('drive#1 started');
drive;
reloadpage;
wait(mapreloadwait+ random (2000));
glitzis_gesammelt:=glitzis_gesammelt-1;
glitzis_geklaut:=glitzis_geklaut+1;
//getvariable;
hangengeblieben:=0;
end;
end;
if (FindColor(xf, yf, attackercolor, checkcollectx1, checkcollecty1, checkcollectx2, checkcollecty2)=true)then begin
hangengeblieben:=0;
end;
end;
end;
end;
procedure getposi;
begin
nochgelbcolor:=0;
if (Findcolortolerance(xx,yy,meinschiff, mmx1, mmy1, mmx2, mmy2, meinschifftolerance)=true)then begin
posix:=xx - mmx1;
posiy:=yy - mmy1;
nochgelbcolor:=1;
end;
if (nochgelbcolor=0) then begin
drive_obenlinks;
end;
end;
procedure middlequarter;
begin
if (posix<=45) then begin
if (posiy<=45) then begin
quarter:=2;
end;
end;
if (posix>45) then begin
if (posiy<=45) then begin
quarter:=3;
end;
end;
if (posix>45) then begin
if (posiy>45) then begin
quarter:=1;
end;
end;
if (posix<=45) then begin
if (posiy>45) then begin
quarter:=4;
end;
end;
end;
procedure getquarter;
begin
getposi;
if (posix>20) then begin
if (posiy<20) then begin
quarter:=3;
end;
end;
if (posix>70) then begin
if (posiy>20) then begin
quarter:=1;
end;
end;
if (posix<70) then begin
if (posiy>70) then begin
quarter:=4;
end;
end;
if (posix<20) then begin
if (posiy<70) then begin
quarter:=2;
end;
end;
if (posiy>20)and (posiy<70) then begin
if (posix>20)and (posix<70) then begin
middlequarter;
end;
end;
end;
function minimap :boolean;
var
gelberpunkt : tpointarray;
colors1 : TPointArray;
colors2 : TIntegerArray;
begin
if (debug=1) then writeln('starte minimap');
result:=false;
if (Findcolortolerance(x,y,meinschiff,mmx1,mmy1,mmx2, mmy2,meinschifftolerance)=true)then
FindColorsSpiralTolerance(x, y, colors1, glitziMMcolor, mmx1,mmy1,mmx2,mmy2, GlitziMMtolerance);
for i := 0 to High(Colors1) do
begin
result:=true;
double_x:=High(Colors1);
if (debug=1) then writeln('double_x:=High(Colors1): '+inttostr(double_x)+' i: '+inttostr(i));
lastminimap_x:=Colors1[i].x;
lastminimap_y:=Colors1[i].y;
GetColorXY(lastminimap_x, lastminimap_y);
coloratmouse:= farbe;
if (FindColorCircleTolerance(XSAFE, YSAFE, meinschiff, lastminimap_x,lastminimap_y, searchdistance, meinschifftolerance)=false) then begin
if (debug=0) then writeln('meinschiff ist weitweg... ignoriere suchergebnis');
//sound;
break;
end;
if (debug=0) then writeln('----coloratmouse: '+inttostr(coloratmouse));
if (SimilarColors(coloratmouse, glitziMMcolor, GlitziMMtolerance)=true) or (coloratmouse=0) then begin
//mousemm(Colors1[i].x, Colors1[i].y);
//lastminimap_x:=Colors1[i].x;
//lastminimap_y:=Colors1[i].y;
lastminimap_y:=lastminimap_y+1;
mousemm(lastminimap_x,lastminimap_y);
if (fastfind=true) then begin
collect;
if (safemodus=1) then begin v; end;
end;
end;
end;
if (checkstopp=true) then begin
getquarter;
if (debug=1) then writeln('GlitziMM: drive started - checkstopp=true');
if (debug=1) then writeln('drive#4 started');
drive;
end;
fuckoff;
end;
begin
LoadBMP;
repeat
wait(1+ random (20));
until (getvariable=true);
Repeat
minimap;
Until(False);
end.
nur wichtig 640x 480 so läuft dat dingen und er ist nicht von mir geschrieben ahja ihr braucht scar und er sammelt
hä hab dat nur einmal gepostet sorry für spam
|
![[Info]Seafight Bot [Shadow992]](https://www.elitepvpers.com/forum/iconimages/seafight/info-seafight-bot-shadow992_ltr.gif){kind=small}
