![Script for Behemot [ASK for Rebel_Indo]](https://www.elitepvpers.com/forum/iconimages/seafight/script-behemot-ask-rebel_indo_ltr.gif){kind=small}
Script for Behemot [ASK for Rebel_Indo]
I managed to find a script for Behemoth the problem is that it does not repair.
Is there anyone who is able to set him in the corner riparazionea 80,000 hp map?
If you can you can copy it down here and make it available to all as I did ... thanks
Set the zoom to 70%
Script:
program mappaRaid;
//Requisiti:
//Risoluzione 800x600, dettagli bassi, tutti gli effetti disattivati, chat disattivata
//FUOCO: F
//RIPARA: Q
//ALLA NAVE: O
//ROTTA: V
//MAPPA BEHEMOT: 0
var i, num, seconds, randshiprange1, randshiprange2, shiprange, waitstart, closegruppo, messaggio, login, login1, MMrandommove, mousedelay, posix, posiy, quarter, yellowPoint, greenPoint, orangePoint, icobehemot, hplow, hplow1, hplow2, hplow3, hplow4, leviatan, leviatan1, leviatan2, leviatan3, leviatan4, leviatan5, leviatan6, leviatan7, leviatan8, leviatan9, leviatan10, attacking, repair1, repair2, repared, repared1, repared2, navetta, xx, yy, x1, y1, x2, y2, x3, y3, x4, y4, a, b, mmx1, mmx2, mmy1, mmy2, xxx, yyy : Integer;
var fuoco, ripara, allanave, rotta, entraraid : string;
procedure variables;
begin
waitstart:=0; //timer in minuti
fuoco := 'f';
ripara := 'q';
allanave := 'o';
rotta := 'v';
entraraid := '0';
shiprange :=3;
seconds := 50; //tempo di naviagazione della nave
randshiprange1:=-2;
randshiprange2:=2;
mousedelay := 100;
MMrandommove:=15;
greenPoint := 65280;
orangePoint := 39423;
yellowPoint := 65535;
y4:=0;
x4:=0;
repair1 := BitmapFromString(25, 25, 'beNp9lSGT5CAQhUeORGKRyJ' +
'ZYJBKJRUZGxiKRyNjIkSPXRo7cv3Dy5Nl73Z1kZ2vrrusVxTD w0d0' +
'0xN49WQouRBY6+MlicymlGGMIYZqmeZ7rVJ13zsv85GMiCKsw 31lD' +
'zijqEGGmw8KcMzhorbXGGHSWZWmt4S9PPC1ERXmsct4AZc39H eVA9' +
'piTiLwxdxUMwFIKHAOt1sK0MxDvbSI7R18kIqIT5S0iKrWAAH esM4' +
'CjhWELDRM0uAyCpMIFcqOEXsKSw8XhRHnreLkF85zMfdBAxi5 gIVI' +
'AQyBMAKeV2GpaSpxLOF31mvafwtaAi58WSVPHOJ8pLMqpGZ3l QCE/' +
'rHQcir90oLzVxAJaawWt9z7aIpA0Qzm0EuCMQFjx64gPDsKPw efIS' +
'sTeEdGRtN6XeZoRGnNirygbQWUC6ssZ5DO4FB0IUw6YjCXoRH JH0s' +
'4jWCpcoiNAsuyYxoLyk2RiSQqu4IgT1RQulUiBg7WoOqGh2BZ sBA7' +
'k9bAgZ1Gx2FY5SVp4VQ6BycqRMBNJQ6UxDaU7T5hJPGg8Szkm OIt9' +
'oSgCMAeRpAuoSXzDEpRxFUN54HLdbjd4uO8fOxvaj9e+/9RjHeqeO' +
'ga+lVvA9VyK0lAq67r+Oe01xue6fW6sV+/X+P7xRAgI3PONBOOmhh' +
'6SpjQEu67j92lbShuRaqVwjT+27Q3wzfSya97GGL9Oe5a6Oq9 6pHy' +
'Nb9t2+7d5T0DBvTH6Psar9X1enjlfqGfKGEGYe+tIwvtauCep up+O' +
'3UMM8A1XYCtlde6CfJfbeLtxEfhdsnzQaO1Juxs+gt7b/1GroN4h0' +
'btMTu/Rmf8bKg3FsMI364ZjnczjJ4/HNHrXJ1c4XGxFatiIV2g0XD' +
'w/rZRMVInmN9RsHUYwvmCj1vw7SmhcW1IP13s7TXUTezweDTVwoh o' +
'O8fHQv/DYnaiDJh6xJwyx/OSihUdNDMcE1GKdCigeEUMFenu/HNNi' +
'v10uCQrCQ72I4ShnFBvugmiWbOtftRRFKU1zxCkyB0qFW4nPH QQmP' +
'CyHoSNfsBjlW8gBOaG5s+412+ai/QVFnP2/');
repair2 := BitmapFromString(27, 29, 'beNp91ttvE+kVAHByMb479' +
'vgyvszYM57xfTxje3wZO747jmPiONjgJLaTkGASAoEQShJIsr CAIV' +
'y3QLqwFbANsNl2C1KltlKf+sK1LFTdp7Z/ApUq8VSe0y+xWlWV2qM' +
'jy/qO5ufzzfF89taW1aWxMzqnT+8OGALdxmDM6A0Z6DBKsTqLS2Nx ' +
'wVaXqT5av7N+pzHVUGs0EqlULBaJRLslMn4XJFTBEpVOqtZKN LAIg' +
'oRbW1sOWsuEEF/ExHabQilzNI2FYqg3YrS6YROpdFLk5MGJubm5TE' +
'9W1iUTCPhSmUgqF6i1Ur1RbiQgwqnGbBozCaGoTAWJAOhmUU/IGIj' +
'hoaQ5kMAjaTyewb0hhHBo7E7LzMzM5OQk62cdTodQIBCKeKAr 2CAD' +
'VYo1MBzq4YyEE6bdsNHYdSCMA5D2o2zEBLRwmvTHzP6oyR9BK UarR' +
'1R+v99Nu82kuVQqnT17ti+f64JEOlQO7oMvgnX3WBM5ezBBur 06t1' +
'sTtqjO5J0ApLwIG8FDCYJLkWw3TrEI5UFclM1qJXO5XDwe5zj uxIk' +
'TS0tL04enLDYMs6qZkCnWa88W6WyRCSYs4NNRROo3QVnKCECn 1+Dj' +
'sEDMHIgSdMBEWk2zs7NDQ5VCsb9c3mtA9EqlslwuryyvNC80j x2bc' +
'TEY7Td2Z+yZAh3PORgOI60qs1qKQCKXXr4NevSeINg15g2ZUL PS5X' +
'Jle3tp2tmlEMkUQqlcKJLwDYhufHxsaWHxyuXLh6bH3Szm5Ux ckgz' +
'GLTZK3+9DTvY4akFznkZbIB1AfWGMCZpIB5zNpsYmRhVKMWzo 0psg' +
'1KzSoQqFUkpRLjAgsPFm82Jpf7+dMjgZg8ODRj3GL0dDN+vdy 5XgV' +
'K+nNRSg+bvBZE1Wlw4jVJhFjVthm1tvYwx2xkA6tMDUaKFUOn Vifv' +
'7cuXOnFk5GYqzNCnM+vFlPXDmQOzuePVWLHB0IA9AbwriEJZK yhuK' +
'kP4L7IwQTBN1i/ijBxggvh7m8KGbRKFRirR4ulcuLi4uX1taOz81W' +
'eiOr9cylQ4XVRulMrWelFlvYGwGgP2KOZR3JnDOVc+QG6J4BT 6THw' +
'SWtkYw9nLH7IjjlM5I2rQmBYEhsIfCJicmFxdNXb1xfXzu32h hcHs' +
'svVPuWKt3N0WhzOARALk6m+xy5gis/4MwU3Ol+GmQ06wSmlzMzPmM' +
'mZhtMOoaS7kKAxGEZw3gOzxw5tbi4dvXa2ZMzp0eS8+XI+Wri xoFE' +
'c2gHjOLZvLNYonv7XeGUjUvauITN68diYWIgYSkl7UfK3GIlf Lqam' +
'B0MpT24QaNMpdJHj87OLyxdubz2WWNgqcyeqyY+r3afr3IA9A SQaJ' +
'JM9djYCOF0IwyljwXwTMBcCJvrSedoLzNVDB0qBA8WQ9NFbjT LBh0' +
'Iqof7BwYOHzmysLS8dnF1oRJbHo6ujMTmin4A2pyww6V12rVu C0xj' +
'Sr8F7vHihRDRGyD2hCx7487hlLuWcIxl6EN97HQhsD9FOzG1G TONV' +
'KtHZ2d/dGblwuJcfxBnCG23XQdAk1Fhw1Uus5oBGq4MWnRRuz7mQp' +
'IUknIj/Sw+GCLKEctQ3FlJUBM570yRq6cZF6ZiGKrRaEwcbKyuno1' +
'GuF27dhnk26fNhQurb149f/v6xdvXz79//fzdmxfv3rx8/4eXf9zJ' +
'P719+cP3r3756F457hzJuBt72Ebel2PNBkgkFOwGT/rY2Fjj4BQwN' +
'Vrt7s52AD569OAfO/Hp06cf7n7150dP/rr587988+37G1+AlVbpxe' +
'9/V+DIJGO0IgqlTCDid3a0tYGWhEJhvpAfHx+fnp6ePXZMLOIB8P 6' +
'De3/fiY8fP36b639Cs5uM/xua/ToQBiut0tPvfiET8gDTvuP8Z4Cj' +
'Y2hoqF6vHz9+PMwFAXjvp+sfPnz42078tn5gg3T8DLeC/FVhb2sRV' +
'B8/frzrf4fLRVertWKxOD8/D8Av7/747e31d2vXXp1e+U1p/4bF2Q' +
'J/PVB6sXjm/bWbr9euPnz48N+Xt7fvEnS2dwl3S/i8VsNSqSQWj1X' +
'2VSqlCgC/uHXtu9r4fczScv4rH2CWJ3uK9+7dBZfyOtqlfJ5WJrLr' +
'oZAZdhtUaomwZUqkkkw2UywXAXjtenNzuPZ/wI1c/0/u3IbAqQiJb' +
'bA0RKizbrTEmos+0qzpAre1s7ONx2snCCKfz29/bS6u3i9XbiD4bd' +
'T8lZH4ekcGr+D9HdR8E8HvZnpv37xOaqQ0qggT6owLGfBi1bB lD4P' +
'Jwbw724SiTqGYxxd2UhQFwJXVhfNj4xXa0/CySyh2HyNb4Gk9OuXz' +
'76OZ5fK+G2tNyqBgMWWE1CTs+l4KKXowUiPndbaJxDyZQiBXi mRyg' +
'VgiAODR2SkwxM3NzadPn17ysvf/1eF50vbs2TOwDqpnFk46dF0eoy' +
'KEq6KkNm3XM6hKzOfx+R3gN1oJizV6mUorkXZtg7V6pbkTYJR Nhv1' +
'Mh7byPGHb2NholaYnD1jVku0mTaowofGb1K3NiiU8BbQNwohU Y5DK' +
'ldv/HEr7iss7cevWrYVSeTSZru/k/J7+9fX1VmmiPmJVix2w1G2Q+' +
'1AIVYh4HW27+e0SGU8O8SGNSKUXgw7lyu0OfSzVl+8BOVgq1O pD9d' +
'GRam14eGSoNjy0b3CgrycNMh5icUhEqiUOWIZD4Anr6OhoA/sFHXY' +
'p+AqVAFKLFGqRVMHf+idddJiO');
repared := BitmapFromString(13, 9, 'beNqNkDEOgEAIBCm33JKWkm' +
'9YWl7pN/x/4nI2ajzPZEJBhoVAI554r7AL6iw30GGaB8JJoEak7kP' +
'kO0vhpybOTMw09kDxR1PgZGkio06z9sbWo5oFLVxLB9paP5GT cmBx' +
'AI5LJSQ=');
repared1 := BitmapFromString(11, 10, 'beNp9zL0OgjAUhuGvUEqBF' +
'rAoPxIwEiMYFRPi4Ca4uhh3r8L7TwRHf0jenOn5joQ0EFjwGT wDim' +
'PmEMWJrcEEBCUWJbLTZEfclsgWznlIVTRc8Tz0AsEkp3jiZ6K jkWs' +
'y4B/oi3NepMEIcC/9E2MU6HNljoB0zcpsghs+e7zndz1XWpHY34Bc' +
'oXZYTFGldixQZ9gm2ETDPSyMpuBN4RxL/7SP6qUbvwDu0yRI');
repared2 := BitmapFromString(13, 9, 'beNp1zM1LwzAAhvF3TZrGp' +
'k277KON3Tpa3Ber2yweCgPthKlTGMOLMPDqQbyJB/976y6KTniOPx' +
'6fy7LmlhCXX6kRbZ/wuO01HOZyKjjpJ/HdesVME2/4lbOkgbQY4Nm' +
'UEayvl/l88pdVhTFPo8aRCSloR6tFcXaQyatqaAY+84TRCb3d4+Yf' +
'Ro6VlWgpLbQk/Xh/OciiARt2644BXWeVf33eYYvvnvarBxIrI9V2p' +
'IhnYTrQ29vFT1a7h8rQa2IU2aGDbpP4Fm7KedZvjQNMNGY9M0 95no' +
'rzoV+cBtNEhi4EQTGLVxdZ8AmMByna');
leviatan2 := BitmapFromString(14, 9, 'beNptkLENxSAMRFNSZgVKSpduK' +
'SmzQkbICn+ErMAI2S8Hh4m/EslCZ/G4s6lXrteiqZWgotXQ7VZiyE' +
'rxBqgnELJATDjuO1sUNFL0rGw9uZZiT8xKPz1daJ+ZPo7UQSr JJ66' +
'RKrT6IyWtW+k++niCVOkieRIrpOPHdK4Gw/FLnjSfuTjGwBls/ZZ4' +
'A+rJbNs=');
leviatan := BitmapFromString(22, 10, 'beNpdkmtugzAQhNdQVeoVQigh' +
'gHmkvCGvSpX6owfNLXK8zngpjSKtkL3e/Tw75nb/ud3laOVceNfKv' +
'1QyptLGYjeSbbwi9OzWuBAbaJL1ecAot1JHUu9kzjTMpZTZyp BIt2' +
'exDUwVgYAWoCRXSEBCu2dNj8rYO+YUMGAby5hIj6OY32bH6BJ TxyQ' +
'cIilDXlqGJKB3yqi2iVDMzJSyfUywXoO3DOljxiUJhM7/TP3OK+DA' +
'54FT4HaE4yNvxszrU9eSuuliJTgZVGtmq9vXr+btuweEwoYEe T3y5' +
'1wJQOnRohmLv3gk4DmeNL8cCyUABeaqjQuNj3CRdMrxFlxo2Z T5p2' +
'Kxot0vYuC5m1FHwBY1CmTmXADifoycBGeFijddshiCIzeI+gl Jnit' +
'WAjxUM5+mUB/wrGtG/aGlE5nc/gKKqJpw');
leviatan1 := BitmapFromString(17, 10, 'beNpdkOtuwjAMhd0b0JV' +
'N2n7u1wa90Qs0aeiNAtXQpEl7St6Cx9tJXSE06Siyk/PZjq+37+uN' +
'ik8SK5Lr6Sx9UoFVx7MuhexmQyKw63TW5pD2w8BmCCxiFZhV5 LTJo' +
's+h0RPBDIr2m7FFQPmK0o/p3K5p5y+P8v13eDkrEiE8T0dhVAlAo0' +
'mRakqEsIHllPV2aYA83mhnnXBgqY1ZxhBa4ORUFz8UXi8QYKR 5Xyz' +
'O0ul3jMBgyAjiqRjnUm6nPXabm3VqdTmoqV0ZYSfQ/zHKyGky3e5c' +
'Ot3WbLP5SfCToWKS+psW/ihDjPE8KE4Z8QYFuUPpfe0Z4b66rAxJx' +
'Yjtcf9Wk2FRCNDCPcnlpXr9OTCCFL/jnT+KF0uFf7/RyB/5kIO/');
leviatan3 := BitmapFromString(15, 8, 'beNrzd3RduINBV4lBW4F' +
'BTxmIuK30JT1seW2NGHSVWQ3VQLJaCvzODkAGo74KAxAZqALV Mxqp' +
'MxlrcFjqCTlb8NmbsFvoigb6ANWwWegK+XuDdJmA9ALVAM3Ur +sEs' +
'iHIqKGH28YQzhUN8QeS+g3dIPON1OUSUyG6gIjfwxXI5rTSFw YbyG' +
'SuLRgAYhg29YLMN1RlMFZn0FNiNNHgsNZnNtMCCgr5eUGcwWq lJ+D' +
'vBWRwOBpDFAMVMBipwe2FKBYL8gUyuB1MxEIDgAxBLxuQYmN1 ueR0' +
'IEPAz5PFUhdoFJDN7+sB5ILcY2ckER4EZEgFg5zHYKqpX9PuO Hs9x' +
'DEQn/J7uzEYqEDcLBLsB2SIAQBpd2pq');
leviatan4 := BitmapFromString(15, 8, 'beNp9jtENACEMQm8URmE' +
'UR+koN8qNdirVEj9MSEPsK0Ly/R6wRIJjyueWhq2VhG3aZOaLjGaH' +
'EdF9KkIrSVcCZkga6QgUzDDGmoycS43F1NcOtzz3GrjWqNvdB +YP+' +
'Afpr28B');
leviatan5 := BitmapFromString(14, 11, 'beNpNkcsOwVAQhutudyy' +
'sm9C61CVo1X2DlmiReARxewos8Qp2XsDa4/mnUyeSyck/c778c2aO' +
'XYz3DIRi6RSmhjPWLaeGtUS/orQLFK280inF+hX39cEVMVyHMLWIT' +
'Q7JQRW3SMV6TkIC7QIAEs0cfKKdUnbjEWDpTIawpTcud04R0C jK9J' +
'9U90duBJ1ZzUKrxYSEXRRBhQH0QmvqHviTz9JFQER7hvAdSdK Apib' +
'bEek7wptCRLpl4bshaenqdke33pTXxZpJrIjN+Z2N8238fLMz jwYf' +
'PCl8549EhYtycDqvD+yfK+rhxBi+A0HjoHWwXqTYfHpU5wHp/ALXo' +
'n4E');
leviatan6 := BitmapFromString(17, 9, 'beNpdUVtuwjAQXDuKqt6' +
'iQPzIoyQktmOCygeCg3ILjtdZx0BVaWStNzs748n9cbs/KDbkDTlN' +
'kyZvyddAueyL2AFybskZBj45g/nPayjOg1g6CpYpwKip35GzdFA4e' +
'WdaJY8dzQ2uHxcnf3p5+gbQYWAYlKFiyqgzBSqhFrHFdTUGlf I8rN' +
'fcPCgRmr8dbnqbi7HCHtbF5smUscNb0nLYq9IARDfUfwFPrmF pWJr' +
'wTCt9ve4nr8BKhWaA+KIgsUT5byNgbItCzFbGmlnD5k1J6XGe SBiJ' +
'rcZmk1WcomD4HHfPbRZpJAP8RwQSm0xW8YoLPASAMaduv5d/bY0=');
leviatan7 := BitmapFromString(15, 9, 'beNplkGsSwiAMhOlLvYbS' +
'0od/aAtU/d+D9hY9npsuMjrO7DAJ+bIJbLvyZt12NWnlmswbKg9t+' +
'ehPrztOqboGgATeSDzXol++eg6EkaLK4HCuoWxuEFNIC9+mNH eGIx' +
'KMAADEEnrZjpSNhHGpRk03KDEMcH47JzjNhcrQReazYbZ03Bw vim5' +
'WF5OULsug7C3+hr3+wzJxjP7n0GOcOIRWjUcXmQNOzydfOVke ywiG' +
'r3sDOtJqFw==');
leviatan8 := BitmapFromString(14, 9, 'beNpNUFsSgjAMLKCiB5FH' +
'AXljy0v88KDcguO5MUxwZj82yTbbzbp91u085q5NvT67TIVjE iKvk' +
'oGpMhpNIk2EEThr1FMD7pCdptxfKgicPlWWlCTGtAkBLn+dGJ AS4r' +
'3fRqoOiFR31cX8RDUBfInYBBbHTogFrGzDXWm0KBGHE4kdr2J TSiT' +
'uXczpkN2fS5yCDjIX13cN4o2PI9HhSO6SgldBCfwnwmYub0vN pnSB' +
'jh7SP79J0GoN');
leviatan9 := BitmapFromString(15, 9, 'beNpV0G0OgjAMBuAC4iGM' +
'yteGolFhwAjiXw7KLTieb9dFYrIsJTy0b1lWGi7zsu4/D+o0mYLan' +
'F4Jnyanx5nuJ7yl8kDVkYt3BU+dYgkAbDIyedTrsFM7W7J5pn iFIp' +
'hu/FinglHLARMph1olnfm2JWJw0XGSoC1Qo3nsQrqJG46mezBcqS9 ' +
'Dq9kbHoEbSTx2rSRGMFaCf3N9tiZzXxWhdSPGK9+99jGwYJOC/eFW' +
'RYNjVnvstnMy8Z2bTMIDx+Ntw1iQf7IS5o3hTan2SeYvJSFo7 g==');
leviatan10 := BitmapFromString(16, 10, 'beNpdUVtSwkAQ3CSUvw' +
'McgJIkG6TEwjwpS36CRhaXiJ7Bxy3kV8/gnxfw2+PZk0kFyqqprd5' +
'JT29Px1bV9y/ZW5WGXJmWcosJgzT0FmcMYl8lAa5kKwZSHT/2nTxi' +
'kATDnWFBUwqH+YsJyrs+P1leCEdl+DRW8dhJA9qUrQE8AX3TX B8NR' +
'ub7T+Cu6H7l5fq40zRv+HwyKtfq8pTFWcef7z/Q7xXRsOYF+/Vdq2' +
'8r0XeupqqIOj9kV8IfbJkweFgLH4PC7y1nWOHf624WwtVBP9M YFD/' +
'gM4BOHrmFFn2V+O2CTYwIudXfrUlyk3jh/539IyIsBTB6fpF/QY09' +
'qjnV0etb56T8+hF9jBznRn8pPHzM');
hplow := BitmapFromString(23, 7, 'beNplkCESxCAMRSsrkVgkMrLX' +
'WFlbiazcK1RWYvcqK5F7HfYnKWlmyvxhfn+TB6SsOQWIZFf13 lv7q' +
'q/ngU/L/cr5bqE0Uw7EyaxeIfBIFKLe8r2s8LUemnNXCgohuY+DMH' +
'9A+JdBaACVhn3JEdKyJcHE/lgO0mD2sknvZkYIF0SNFRPP5PQQW8h' +
'Hi5yecYHhRaj5CQT+UxnCNeOZy6i04bzLStdkbl1vj5ObicvT xIqs' +
'vbz4OX8YK88M');
hplow1 := BitmapFromString(27, 7, 'beNptkAlvgkAQhdNqPKhcrlq' +
'baAX28oCFZQFt0vT//yv67C4mbTqZvHzzmBkG+l7JSPG4EOFdeZzT' +
'EKo4udAwp3H/E+CCLaG2BPe/o2ARNkBzHlSnhRa+kl7FF6X0FfWgW' +
'gQ58xR9sf3gki0udG7Lh3/OZuh3O8UcnPNZc4oaGdYyMCIwx1Az3x' +
'zhRBX3wbbZ8mPPwy+yeTWYuMdCK9ctI7fz9qvYdcfN5wW6bei qZqu' +
'Ob/r/QifuV2hKTEYsG+4AsyZdQm/iFU9v4q2hmzohOiFNth56nONm' +
'09WfV7Q4IF3WSXzfIOMrCxvqQ1sWfAjS8bjNwNGVuUtuksCBb 0v0u' +
'D0s6miEqY4GJnOf3GRTk07K/bM+jMF1MtWHCdSkM+RwgKd2I/jDhc' +
'4v9+PqfYRUuyfk3foGo3jygQ==');
hplow2 := BitmapFromString(24, 7, 'beNplkNtOwkAQhmNIBCz0QAvR' +
'hGi7h9KEHmh3WTTxIU1Q8cZCjBJfCkPhQfCni9w4mUy+fJ2Zd KecJ' +
'9yJqYWacndMrZg64EMdCevBVNsfzWd/jiS0EmbH3ETNRt2UXqHmoR' +
'mzq5QaYN2Wsc6YtqvtBgyfcEN79H8s54BdtQHHvJUxQ0RWzro isuX' +
'InvCuZt0Pxviu3gPGV+0n1MC45s/ls64qGjyOhyq6ltQrmKf4QPD+' +
'4V/kvpMFp3cJ4q5XbwDUdbk4QrmAvA9vJB0Uvpv7riT9IvB0vzb7+ ' +
'j4i8M5eB3wR9ArfwQZJ3CkzH0JXcWdKrCmzZ8xRf/eEAe+r4x70zM' +
'Ke9oramFLUFKSzLl9gvlevkjQLv5nfXaKKoIWUpH2657ABv68 29f+' +
'00HC6z20DmQ4vkF/vT8d3/QI3veed');
hplow3 := BitmapFromString(23, 8, 'beNplkOtKw0AQRpHSJL3lu' +
'glqU02yu2mgSdpcmir4kIKK/pBWpPStKk37IPGzW4vgsHwcTmYGMk' +
'0zJO2hKQ2J7FrytSX95RFRwDCCXVsR3rXamBoRaeTISNeWEm7 EVEO' +
'm3JpQLaYGuDlWwkyYevcl+OzPlYRawvSYq9PxIKVdZBaqMeum tAcW' +
'PVPWn9BOvduC4RPeEx79n6snwL7egmOuFJGWsUER6eVYn/GBYNEMx' +
'uz+uASMr8LPaA+zgterZ2QVOQ8Tt4ouS0pyRiruFNxu/lXmGVP/9D' +
'tFYG0+3gDIzfJVmLvwqqRO7lmZZ5WBnftENAtzON6k8MnZi4L PfTP' +
'3DGyYM/U+tCpuzANtzvQFM6rfA8KAD/XPEvQsQlP4iuqYqqhaBP3N' +
'8gWmDOTck7NbCVn4Cl4ZdE4HdFvw4ibwaDjd5KaFl7oXeOv3x +Ybp' +
'X3j2Q==');
hplow4 := BitmapFromString(20, 9, 'beNplkOtqwkAQRo1iEi+57iq' +
'lxjbJ7kZBE83FSN+49AZFabXPJtivjs2Pdhg+Dmd22E3eH4eG Zuva' +
'n3SMtmW2wUhi5MW3LLPlmprTbyMn3AiYccv0ia83POUmGIY4G JnkA' +
'9ad8O6U69OxgUyVlym2EM5SeODzpVLpw5xOJ+LGN5UmTird1c zKE3' +
'sp+5kYgGm0ksOF6NEufKoG5DPR/9g/ATACl3O3mrlrZeXSAtMZMFZ' +
'oF4wp+bUYYIX4sHuu5zeV4IXktRqXanT+V3noraLrm8uYHfdv AORx' +
'91qJcRGyPGRVPCoiTmfI0L1lxBtPBV9EfhF6tfI2sbOR7lb+M E1hw' +
'LT7kLBt4pOvhbuRdi3sMh5+7V7ye70IjTIy0VXcu/6ToAP/e6+JA9' +
'fvveugs0BDf34D5rXWjA==');
attacking := BitmapFromString(25, 25, 'beNotlCFoJEkUhku0eK' +
'LEEy2eGDEFI1IQkYKINIxJw4prWLENZ9oOK5bmxNJEhHZHs+J oIpY' +
'hIgwnFmbFwJlAVhzkZE4cjDnIioMxK0asGLFixIq6/3XvzEtRZLq+' +
'fu/9f72ZP1z3h7f1Hy9D/O8p7reH9/Xz6+LhRfn4tvOJ4cSYYRWsx' +
'oghRxwSXpB0VpZW+oQ6Yzri1rq4eYi3XfxrHY+7eNwefit2v+ RPb2' +
'pvfnCMkDtxHjEVZ8kZs2DuU7ck5SyZO6LWcs0u/trG9138tI5fn+P' +
'nP+JNcbytvAWEjCGTcHhVuJeZnDmZkCdwqBPpLSOZfuBg3zKX JPFj' +
'FzfLeL+Kt83+Kt9dhW5ODBSzsc7Py/CqdC8yPmWXmiI1DVCEisChd' +
'qSlUiWabbxbxH8f4j/r3bvieFPsb6vcIhugxF+Ui6ulvyzcmfdCVc' +
'qNpQ4EMm0CGi0t91YWROiGJBQ/NTE+x29Px011/FA+3VQydImsVG+' +
'6+noZzrIM700FDdG2AGJ/oHqWmnjgGBGON1X8tlXU/WK/qVZXhXK0' +
'Ple8qouf62zi69R3kGwUKxnqgmQkleVgCPmwZRbeXkr8e3W47/YbV' +
'No/3rU8ZpWQP83cxFeT0CQQSzpDAw0r0pManUxIWGTi3UnA7nBVxY ' +
'/t7l25u13Ez+vt752ocoYIP7JPGEfqhBscN6AxmD25hXU5uzDz7 jT' +
'z57lDnPnd9eII7e6a/X2/v1893y3dmJUxeGlhAZHGaDkN8iHXJQ7w' +
'zEo4CeEiDy/KcFn5i8Kdh8NmefhzHb/t4lfE/vDpASZHYi4xZUKNd' +
'eAgJXBaMK0roSyRmzp3FrKfyvxllV1WGTxzkccvT/HLNn7fx++Hx9' +
'vl+qppLnPQCgMLDfkk3JqhOYmU0GsonGdOzjN3noV5Ec6LfF6 iscf' +
'77rjpDh+6x7dVNw9lOvpHQKgTqg2BVlspiB2UghVTEXEIKOJm QWMa' +
'JHXYHN4tdtfV4+uim7sFG1yBjqUlVsiAqlnQMTgHH0I+MqDY4 bgCp' +
'17E637itq/L5Zk0MlSU6oWC4o0xrTYcveICZiZiKJoydDUWKytqpA' +
'GdiroqlW7m6pQrnGXMDXQGDlRL1yBbxhDwjFzInUL3wBMHSyK Ghjm' +
'xAwf+TIUsbjTliVmMxhsCKakPiZqUS2skJY87eJGp9PNCTjLD DhND' +
'y0Xh+FqtG3/BGHQVtulJHQil2tHVeEtidGoJCSbV6dDkk8yd5v4sl' +
'2lAlbgRrB8iixZwKdCLe51jY0qAKBlzA28Ra/TFkH6qGskEkmUyy3' +
'BTUCzq0tloCYYmnVpoNfW45sNtBbPFTBjvO6YNGzfRhqhqEy+ zwKn' +
'Xjei9A58nYpg0MFEtLROD6MEBOZUy4eHuQDKiCTv0d5RJcFDt 9EN9' +
'wGceXiWlYU7yKjFrAI1ZYhaBYwcOae14hpAOeotIVW4ENk59p QZQA' +
'hwi+tiA4pWhFexkeaxr5PDU6Zoqyqlzhv5aVU27jS826UgTBP ZLg4' +
'a7ll015IM5ps+IQ4h1PAwkdeAg1LgT/Q/D3tr5qaeprii/J9+moUh' +
'knKs8oiA0Tlg1oVaaDvkAlXJ+keWXeTgfeo7XTdW6Gv8Dup2K qA==' +
'');
navetta := BitmapFromString(17, 10, 'beNoB/gEB/gUALScUbGhKXlk0' +
'TUghZmA7YFo3YFY6///iX1cuYVktZ2I1XFcsY102W1YxTUcoYFtAV' +
'1I6NCwYYVo5WFIrWFAmZl03YFU0++/U//jdWk8uY1gz//fRbWQ+WV' +
'EoTEQaWlUr+PLNXlc+RTohX1QvYVMpYVQnb2E58OG/alpA//vnDwA' +
'A//3p//fhX08zWUwkW1Ad//q/7uWzSkAkU0cqWUwkalsrZlUk9OK1' +
'b184d2VI9+TP//vrZFBC//fkEwEAZFcq//7DZFwX8OmtEgYAW1Exb' +
'GAziHpE/fC2cWMtXU4eEAAA///fDwAAdGRK//TYEAEA///PX1UVZl' +
'4W2tSVDAAAW1Iscmc039WX8OWh9uqp//i+//bD///U///Y//7X//r' +
'S///R+O2y7+eh3teM3NaVFAsAT0cbamAmcmkhcmgbFAoAY1kPaF4c' +
'XFIUDwQAa18oal8oDgUAcmokFA0AZF4NaWQeCwMAy8WQy8Z/0st20' +
'8xv1M1u4Nt73NZ75d+I4dqH4NqJ492M1c984NqFycdt1dN54d +S2t' +
'amS0oF19V91dFp5OJu3dxj19Zb19Zb0NBZ09Je0M9c09Jh19h p0dJ' +
'l3t903994zs12TUoSOzgACwgA3tmC1M9u19Nt2tdv19Ru3d14 3dl4' +
'2tl42tl42tl62NZ81NR71tV+DAwACHWwAYY=');
closegruppo := BitmapFromString(12, 13, 'beNoB1AEr/kYdl5Fyo' +
'JZ4oZV2sqOFopNzq5x6pphwpptopp5on5hppZ94nJV7UEYqVE sdYF' +
'UbVUkMaFggYU4mYU4mZVcjYFUaXFIXUksYS0ElYE8+69+o//+tw7p' +
'SfW8Sb1omZ1AptKJt//Kvp51Rgnk5YVI2Xk05cmIqraJG//+GqZsl' +
'XUkAloFH///ArJpVbV4YHhEALh8AZVExZlEfe2kYr6Ek7+JbtaQ1/' +
'/CRw65adGAcHAcAIQ0AaFUvYU0ncFspe2cbh3cD8uNd//97va0xjn' +
'saLhkALBMAa1M2X0sjYU0lb1skc14WfmsM5tVe//xltKcWaVcAHQg' +
'AYEgfcFg7Z1MuYU4mcl0rfmoowaxW//+Tu64nsKMcqZgqXEsAb1om' +
'b1s2WUUnZlgualcvno5S//+or584V0UAgnIVvrFBlIgdalwTYlMnY' +
'E85V0seiXxP//e/q55PZFQCHAkAYU8KqqE5sak/eXAgX1QhY1M/a2' +
'QzqqNolIlPdGQ7KRYAKBcAXlANc2oahn8qf3gqZmElUEUsW1g oVE8' +
'TJx8AEgMADwAAZFYve249a2EmPDYAEg8ACQcAGhQAQEAXTkod UUwf' +
'XFQrZlo7V0Y3UkUwW1MnWlcdV1YYVFQbRifJrno=');
login := BitmapFromString(33, 14, 'beNpTEEyPNqA1yk00HkWkoo9' +
'PXSe0mJOhi9ZWUOiLLcttgIJABGRARG6edYSIwBXDfQEXx+Mv TCuQ' +
'tcNtRFOMR4SgFUA2mnagF4AIjxUEY4dyXxBjBVp4YsYFsgIir SC7W' +
'ACaQ6TK6AAtkhDcC6vnWxCpRU1BkLYIAOxa+II=');
login1 := BitmapFromString(25, 8, 'beNpLNM5NpCb6+NSVWrrIM4o' +
'k89HEISJwQWQGXBzTKKzqCTIGs1HIiIywAjEA2PT7dQ==');
messaggio := BitmapFromString(28, 9, 'beNp76pqbaExP9PGpK4W6gGwIw' +
'mMmMbbA1WA1ihJ34tKLx+W4HANXj8dMshm0MJNgeFJiFNmhhy ICAJ' +
'2UPgo=');
icobehemot := BitmapFromString(11, 11, 'beNoBawGU/i0THBgAJSMHe' +
'HZb08243te+//za//za+fPei4V0HBkDIR8ENTAVFhQAi4Zu18y0hH' +
'VZu7CL5dq39ejR//bh0MWsJRsAfXhe6uXLCQIARDUZgXFTrp993M2' +
'r8eHH8ODJ//zgjn9h9u/V//zb1c+qDAEAGAoAgnNXt6iO5NW559i6' +
'9+nJ//jX//rd8+3I///WwLWQDgAAFQUAkoJs3s+z9+nJ7eK///zb9' +
'e/S+vTR3dSu4te0sKGDDwIAIRQAraGE6+C/+e7L//XW+PLV7+nG5t' +
'25x7yZrJ1/gnVdDAAAOCwP69/A//jX/fPT0cqw+/TT7eTC18yrraG' +
'CpZiAlYhwDwUAV00t//bW7uTGYFk///rb+fLR7+XF08eqlIdvq6CH' +
'yb+jCwEAeW9Rh4BjIRoAl5Bx//jZ8efJ7ePH0seujIFo6d/D9e7RG' +
'hMAMCkMMSoQIhsAY1w/zMKm4da9uK2UfnZcYFg+S0MpKCAGNGCV1v' +
'w=');
end;
procedure mouseMM(var x,y:Integer);
begin
MoveMouse(xx, yy);
wait(mousedelay+random(10));
wait(mousedelay+random(10));
HoldMouse(x,y,true);
MoveMouseSmooth(x,y);
wait(mousedelay+random(10));
ReleaseMouse(x,y,true);
wait(mousedelay+random(10));
end;
function checkRepair: boolean;
begin
//writeln('checkRepair START');
result:=false;
if (FindBitmapTolerance(repair1, xx, yy, 42)=true) or
(FindBitmapTolerance(repair2, xx, yy, 42)=true) then begin
writeln('trovata repair1: '+IntToStr(xx)+' / '+IntToStr(yy));
result:=true;
end;
end;
function checkRepared: boolean;
begin
//writeln('checkRepared START');
result:=false;
if (FindBitmapTolerance(repared, xx, yy, 42)=true) or
(FindBitmapTolerance(repared1, xx, yy, 42)=true) or
(FindBitmapTolerance(repared2, xx, yy, 42)=true)
then begin
writeln('trovata repared: '+IntToStr(xx)+' / '+IntToStr(yy));
result:=true;
end;
end;
function checkLeviatan: boolean;
begin
//writeln('checkLeviatan START');
result:=false;
if (result=false) then begin
if (FindBitmapTolerance(leviatan, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan1, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan2, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan3, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan4, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan5, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan6, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan7, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan8, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan9, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(leviatan10, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=true) then begin
writeln('trovata Leviatan: '+IntToStr(xx)+' / '+IntToStr(yy));
end;
end;
function checkIcoBehemot: boolean;
begin
//writeln('checkIcoBehemot START');
result:=false;
if (FindBitmapTolerance(icobehemot, xx, yy, 42)=true) then begin
writeln('trovata Icona Behemot: '+IntToStr(xx)+' / '+IntToStr(yy));
result:=true;
end;
end;
function checkHp: boolean;
begin
//writeln('checkHp START');
result:=false;
if (result=false) then begin
if (FindBitmapTolerance(hplow, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(hplow1, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(hplow2, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(hplow3, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=false) then begin
if (FindBitmapTolerance(hplow4, xx, yy, 42)=true) then begin
result:=true;
end;
end;
if (result=true) then begin
writeln('trovata hp low: '+IntToStr(xx)+' / '+IntToStr(yy));
end;
end;
function checkAttacking: boolean;
begin
//writeln('checkAttacking START');
result:=false;
//controlla se sta attaccando
if (FindBitmapTolerance(attacking, xx, yy, 42)=true) then begin
//writeln('trovata attacking: '+IntToStr(xx)+' / '+IntToStr(yy));
result:=true;
end;
//controlla se è troppo basso di hp
if (checkHp=true) then begin
//writeln('trovata hp low: '+IntToStr(xx)+' / '+IntToStr(yy));
result:=false;
end;
end;
function checkGruppo: boolean;
begin
//writeln('checkGruppo START');
result:=false;
if (FindBitmapTolerance(closegruppo, xx, yy, 42)=true) then begin
writeln('trovata gruppo: '+IntToStr(xx)+' / '+IntToStr(yy));
result:=true;
end;
end;
function checkOrangePoint: boolean;
begin
//writeln('checkOrangePoint START');
result:=false;
if (Findcolortolerance(xx,yy,orangePoint ,mmx1,mmy1,mmx2,mmy2,24)=true) then begin
writeln('trovato orangePoint: '+IntToStr(xx)+' / '+IntToStr(yy));
result:=true;
end;
end;
function checkMove:boolean;
Begin
result:=false;
if (Findcolortolerance(xx,yy,greenPoint, mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
wait (2000+random(15));
end;
Findcolortolerance(a,b,greenPoint, mmx1, mmy1, mmx2, mmy2, 30);
if (a=xx) and (b=yy) then begin
result:=true;
end;
end;
function checkMessage: boolean;
begin
//writeln('checkMessage START');
result:=false;
if (FindBitmapTolerance(messaggio, xx, yy, 42)=true) then begin
writeln('trovato messaggio: '+IntToStr(xx)+' / '+IntToStr(yy));
result:=true;
end;
end;
function checkMap: boolean;
begin
//writeln('checkMap START');
result:=false;
if (FindBitmapTolerance(navetta, a, b, 42)=true) then begin
//writeln('trovata navetta: '+IntToStr(a)+' / '+IntToStr(b));
mmx1:= a - 101;
mmx2:= a - 19;
mmy1:= b - 32;
mmy2:= b + 49;
//writeln('mappa x1/y1: '+IntToStr(mmx1)+' / '+IntToStr(mmy1));
//writeln('mappa x2/y2: '+IntToStr(mmx2)+' / '+IntToStr(mmy2));
writeln('mappa trovata');
result:=true;
end;
if (result=false) then begin
writeln('mappa NON trovata!!!');
end;
end;
function checkShipClose: boolean;
begin
//writeln('checkShipClose START');
result:=false;
if (Findcolortolerance(x2,y2,greenPoint ,mmx1,mmy1,mmx2,mmy2,24)=true)then begin
writeln('myShip trovata: '+IntToStr(x2)+' / '+IntToStr(y2));
x3:=x2-x1;
y3:=y2-y1;
end;
if (x3<0) then begin
x3:=-x3;
end;
if (y3<0) then begin
y3:=-y3;
end;
if (x3<shiprange) or (y3<shiprange) then begin
writeln('nave in posizione!!: '+IntToStr(x3)+' / '+IntToStr(y3));
result:=true;
end;
if (x4=x3) and (y4=y3) then begin
writeln('la nave non si muove e esco');
result:=true;
end;
y4:=y3;
x4:=x3;
end;
procedure getposi;
begin
writeln('getposi start');
if (Findcolortolerance(xx,yy,greenPoint, mmx1, mmy1, mmx2, mmy2, 40)=true)then begin
writeln('greenPoint trovata: '+IntToStr(xx)+' / '+IntToStr(yy));
posix:=xx - mmx1;
posiy:=yy - mmy1;
writeln('posix/posiy: '+IntToStr(posix)+' / '+IntToStr(posiy));
end;
end;
procedure getquarter;
begin
//writeln('getquarter started');
getposi;
quarter:=0;
if (posix<42) and (posiy<42) then begin
quarter:=3;
end;
if (posix>42) and (posiy<42) then begin
quarter:=1;
end;
if (posix>42) and (posiy>42) then begin
quarter:=4;
end;
if (posix<42) and (posiy>42) then begin
quarter:=2;
end;
if (quarter=0) then begin
quarter:=random(5);
end;
end;
Procedure Vmoveupleft;
begin
writeln('Vmoveupleft start - quarter: '+IntToStr(quarter));
//xxx:= mmx1 + 4 + random(2);
//yyy:= mmy1 + 4 + random(MMrandommove);
xxx:= mmx1 + 10 + random(2);
yyy:= mmy1 + 10 + random(MMrandommove);
mouseMM(xxx,yyy);
typekeys(rotta);
end;
Procedure Vmovedownleft;
begin
writeln('Vmovedownleft start - quarter: '+IntToStr(quarter));
//xxx:= mmx1 + 4 + random(MMrandommove);
//yyy:= mmy2 - 4 - random(2);
xxx:= mmx1 + 6 + random(MMrandommove);
yyy:= mmy2 - 6 - random(2);
mouseMM(xxx,yyy);
typekeys(rotta);
end;
Procedure Vmoveupright;
begin
writeln('Vmoveupright start - quarter: '+IntToStr(quarter));
xxx:= mmx2 - 1 - random(MMrandommove);
yyy:= mmy1 + 2 + random(2);
mouseMM(xxx,yyy);
typekeys(rotta);
end;
Procedure Vmovedownright;
begin
writeln('Vmovedownright start - quarter: '+IntToStr(quarter));
//xxx:= mmx2 - 4 - random(2);
//yyy:= mmy2 - 2 - random(MMrandommove);
xxx:= mmx2 - 10 - random(2);
yyy:= mmy2 - 6 - random(MMrandommove);
mouseMM(xxx,yyy);
typekeys(rotta);
end;
procedure drive(action: Integer);
begin
writeln('drive START');
getquarter;
num:=random(3);
writeln('quarter:'+IntToStr(quarter)+'; num: '+IntToStr(num));
//alto dx
if (quarter=1) then begin
if (num=0) then begin
vmoveupleft;
end;
if (num=1) then begin
vmovedownleft;
end;
if (num=2) then begin
vmovedownright;
end;
end;
//basso sx
if (quarter=2) then begin
if (num=0) then begin
vmovedownright;
end;
if (num=1) then begin
vmoveupright;
end;
if (num=2) then begin
vmoveupleft;
end;
end;
//alto sx
if (quarter=3) then begin
if (num=0) then begin
vmovedownleft;
end;
if (num=1) then begin
vmoveupright;
end;
if (num=2) then begin
vmovedownright;
end;
end;
//basso dx
if (quarter=4) then begin
if (num=0) then begin
vmoveupright;
end;
if (num=1) then begin
vmoveupleft;
end;
if (num=2) then begin
vmovedownleft;
end;
end;
if (action=0) then begin
i:=0;
repeat
i:=i+1;
//writeln('conta i:'+IntToStr(i));
wait(1000);
if (checkOrangePoint=true) then begin
i:=seconds;
end;
until (i=seconds);
end;
if (action=1) then begin
repeat
wait(100+random(15));
until (checkMove=true);
end;
end;
procedure repair;
begin
writeln('repair START');
if (checkRepair=true)then begin
if (checkIcoBehemot=true)then begin
drive(1);
end;
typekeys(ripara);
typekeys(allanave);
repeat
if (checkRepair=true)then begin
if (checkIcoBehemot=true)then begin
drive(1);
end;
typekeys(ripara);
end;
writeln('aspetta sto riparando...');
wait(1000+random(10));
until (checkRepared=true);
end;
end;
function randomNum : Integer;
begin
i := RandomRange(randshiprange1,randshiprange2);
if (i=0) then begin
i:=random(2)+1;
end;
writeln('valore i: '+IntToStr(i));
result:=i;
end;
procedure movecloser;
begin
writeln('movecloser START');
if (Findcolortolerance(x1,y1,orangePoint ,mmx1,mmy1,mmx2,mmy2,24)=true)then begin
writeln('leviatan trovata in minimappa: '+IntToStr(x1)+' / '+IntToStr(y1));
//ClickMouse(x1, y1, True);
x1:=x1+randomNum;
y1:=y1+randomNum;
mouseMM(x1,y1);
typekeys(rotta);
repeat
writeln('aspetta mi avvicino alla leviatan...');
wait(2000+random(10));
until (checkShipClose=true);
writeln('sono vicino alla nave!!!');
end;
end;
procedure attack;
begin
writeln('attack START');
yy:=yy-40;
xx:=xx+10;
//ClickMouse(xx, yy, True);
mouseMM(xx, yy);
wait(50+random(10));
typekeys(fuoco);
if (checkAttacking=true) then begin
typekeys(allanave);
end;
repeat
writeln('aspetta sto attaccando...');
wait(1000+random(10));
until (checkAttacking=false);
typekeys(allanave);
end;
procedure enterRaid;
begin
writeln('enterRaid start');
if (waitstart >0) then begin
waitstart:=waitstart*60*1000;
writeln('waitstart= '+IntToStr(waitstart));
wait(waitstart+random(10));
// clicca sul tasto login
if (FindBitmapTolerance(login, xx, yy, 42)=true) or
(FindBitmapTolerance(login1, xx, yy, 42)=true)
then begin
writeln('loginFound');
mouseMM(xx,yy);
wait(20+random(10));
end;
wait(15000+random(10));
if (checkMessage=true) then begin
mouseMM(xx,yy);
wait(20+random(10));
end;
writeln('entro in Mappa');
typekeys(entraraid);
wait(25000+random(10));
end;
end;
begin
wait(10000);
variables;
enterRaid;
if (checkMap=true)then begin
repeat
if (checkHp=true) then begin
repair;
end;
if (checkGruppo=true) or (checkMessage=true) then begin
mouseMM(xx,yy);
wait(20+random(10));
end;
if (checkLeviatan=true) then begin
attack;
end else begin
if (checkOrangePoint=true) then begin
movecloser;
end else begin
drive(0);
end;
end;
until (false);
end;
end.
 |
