Behemont Bot

kotiara · August 1, 2011

As to adjust it who will help

Management?

How many kernels should be?

observer · August 4, 2011

With the adjustments of adibebe it works but u have to turn seafigt to romania lenguage.

the only thing now is to find how it will shoot also the big ship and not only the small ones but it is stll a very good script.

many thanks to both of u.

alfredogabber · August 8, 2011

Hello can you post the settings for this script??

doesnt work

krokiet1989 · August 8, 2011

flies but does not select what I do leviathan

anubis75 · August 19, 2011

[/align]]Hello. I have a problem shooting, repair does not work. corrected only at the end when I 15k life. Please advise where I have set you. Thank you

flies but does not select what I do leviathan

Hello. Mark did not want me or Leviathan, but when I rewrote line: 48 FontMode: = 1; exchanged for 0

szak · August 26, 2011

Hello, Bot works for me, but I have a problem, after shooting for few seconds it's reload (F5). How Can I fix this problem? Anyone can help me?

AttackING color not found 7516927 bot shows massage like that. Please help

sp0wn3d · August 26, 2011

Hello, Bot works for me, but I have a problem, after shooting for few seconds it's reload (F5). How Can I fix this problem? Anyone can help me?

AttackING color not found 7516927 bot shows massage like that. Please help

Hello dear,

Can you post one screenshoot with your configurations?

Best Regards

sur5al · August 29, 2011

why i cant downlod scar3.25

ribar74 · September 7, 2011

[scar]program New;

type TMe = record x,y,xOld,yOld,mmx,mmy,Color:integer;end;

type TMyTime = record Wait,OldTime : extended;end;

type TMyLive = record Color : array[1..6] of integer;ColorCount : integer; end;

type TMyCom = record x,y,ColorYes,ColorNo,ToleranceYes,ToleranceNo : integer; end;

var SearchMode,mmPlayers,BmpBigBug,ExperienceOld,OldQuarter,FontMode,LeviaMask,NpcColor,bossBmp,Mbehe,map,target,ShopTest,EPmask,exp,expOld,BuyOkBmp,i,buy2BMP,BuyBMP,buy3BMP,ManageAmunition,elite,x4,y4,WaveX,MaskH,MaxHP,RunHP,HollowX,HollowY,BugY,BugX,BugXX,BugYY,

BmpBug,chp,MinHP,HPx,HPy,Arubastar,Range,dist,DistStart,OutBMP,Hollow1,Hollow2,c1,c2,c3,c4,x, y,

x2, y2,x3,y3,reppwait, hochVB, runterVB, linksVB, rechtsVB, angrifffVB, reparierenVB,

zielVB, vkordiVB, moveclickwait, MMrandommove, soundmodus, quarter, moveshipcheckwait,

bonuskarte,xx, yy, xxx, yyy,a, b, mpx, mpy, obenx, obeny, untenx, unteny, linksx, linksy,

rechtsx, rechtsy, glitzimap, reparierend, npcminimap,npcminimap2, mousedelay, outdrive,pixeldistance : Integer;

var logout, waitt,look,quart,beatbool,Restart1,LongBook,Boss,players : boolean;

var enemy,enemy1,enemy2,ComXY : TpointArray;

var MiniMap,SEA,ValidateBox : TBox; // EnemyBox

var ComColor,ComTol : TIntegerArray;

var Me : TMe;

var CroudTime,DistanceTime,GetCloseTime,BugTime,TargetTime,QuarterTime,LifeCheckTime,testTime,nofire : TMyTime;

var dump,MiniShip,BonusMap,LogOff,EP : Tpoint;

var Com1,Com2,Com4,Com10 : TMyCom;

var Live : TMyLive;

const whiteColor = 16777215;

ocr = 5;

procedure Loadvariable;

begin

/////////////////////Behemod///////////////////////////////////////

//operating sistem settings: 16 bit colors, turn off ClearType

//US login,

// dont forget!!!! in first box put hollow, insecond box put footbal, third box put repair.

// script will not work if you have more then 1M amunution

// command set must be horizontal!!!

ShopTest := 0; // SHOP TEST: if "1" the script will shop 4x and shut down.(you don't have to be in behemod map)

// Pleas test and report!

MaxHP := 298500;

RunHP := 30000;

BugTime.Wait := 3300; //repair time betwen two shots

nofire.Wait := 4000; // no fire bug time

FontMode := 1; //if never find target switch to 0;

SearchMode := 1; // 0 - search image, 1 -search image mask (for behemode must be 1)

GetCloseTime.Wait := 15000;

///////////////////////////////////////////////////////////////////

Range:= 5;

NpcColor := 12428870;

map := 18;

MMplayers := 255;

DistStart := range;

CroudTime.Wait := 40000;

GetCloseTime.Wait := 3000;

DistanceTime.Wait := 2000;

TargetTime.Wait := 100;

QuarterTime.Wait := 1000;

LifeCheckTime.Wait := 1000;

pixeldistance:= 200;

MinHP := round((RunHP+1000)*180/MaxHP);

//writeln('minhp = '+inttostr(MinHP));

logout := false;

dist := DistStart;

waitt := false;

look := false;

beatbool := false;

Restart1 := false;

LongBook := false;

hochVB:=87;

runterVB:=83;

linksVB:=65;

rechtsVB:=68;

angrifffVB:=70;

reparierenVB:=81;

zielVB:=78;

vkordiVB:=86;

soundmodus:=0;

SetLength(ComColor,6);

SetLength(ComTol,6);

SetLength(ComXY,6);

Com1.ColorYes := 14600377 ;

Com1.ToleranceYes :=100 ;

Com1.ColorNo := 8424592;

com1.ToleranceNo := 10;

Com2.ColorYes := 7845631;

Com2.ToleranceYes := 6;

Com2.ColorNo := 5665168;

com2.ToleranceNo := 7;

live.Color[1] := 4120;

live.Color[2] := 528408;

live.Color[3] := 529432;

live.Color[4] := 530465;

live.ColorCount := 4;

reppwait:=600;

moveclickwait:=100;

MMrandommove:=1;

npcminimap:=39679;

npcminimap2 :=10278911

Me.Color:=5177166;

mousedelay:=100;

moveshipcheckwait:=90;

outdrive:= 70;

end;

////////////////////////////////////////////////////////////////

Procedure LoadBMP;

begin

bossbmp := BitmapFromString(8, 8, 'beNoljaEOgzAURSsQyIq' +

'JWpKZJZglM7P7DOw+gSCWZa6ZWCqRBDGBWFLZuU4iQZAUQVKDqKy' +

'YqEC8PTJ7z73nRiRhZLeN+e1seu2mFsACOAhun1LGiLjndtC8yNp' +

'36SYN3mDTuy6OyOnARJHJ+uoGFeYOvgaHdpCUEBYTccn0q3SjxjD' +

'4DrVooNGKqke+TryBxdhR+UmrJ0eUbIhqBCw2uNbPuvtUquF4jei' +

'YUtOrP7K9xL6sOXroDwYhclk=');

if fontmode = 1 then begin

Mbehe := BitmapFromString(29, 11, 'beNpjYKAd+I8KCCom3ljiNVLF' +

'WEwvQNiY/sKlEpOLVQ2yXmJU4reOoAn4BQlaR7zDiAkE4r1AdtiSF' +

'AtY0y2RAY5VJfUBAIEI8g4=');

LeviaMask := BitmapFromString(30, 11, 'beNpjYKAp+P//P430UmIyefb+' +

'hwFMZbgEkdXjMhlTAX6TCdqLx2T8VmDVi0sWGRBjMi71xAQ+McFC9' +

'dBAZqCxscYsmgimMzDV0zQZgwAAr17RLw==');

target := BitmapFromString(52, 9, 'beNptVDGOxDAITO' +

'lvuKTbSC72JDc+aZt95hVb5A/52zEMYCd3UmQRgmEYhnzO759ze8r' +

'2qH72Xc8ydn3lCY+e/lVK38vrC19fu96NGNmaZWiRp1Vk1tdHfX9O' +

'z98qPW6kp9WZZyAz7LHjYrfSTaKKOBiFocBuRdXTxa9kwmfEdLaJc' +

'u/jTJD/5LnZScVAfm1fESo2d+ajvHX49XFWu6AFNIgA2Le+LGDGt0' +

'qbt1AiEpKEAv5lxkRp2vQD24ET8JqNL6t39xB8FBW30R3ukkMHaTw' +

'EgEpg5SkJcg5aw/Ruc7rM9rurnZqhisib5zd4lhZ+jiaTbwYS2uCI' +

'Hy4kh2Hxf/UWmVeRyMo29NAdA16H8dZD9gbACT/msrBTL22RpIut3' +

'eOvektdhfa8WcZf2hk+X/fbgLRE6QQZQurLtja72GXKY4YJ554guQ' +

'uAsQx3VVQIWMjJKoMUv8831gTbYSVuMUtRyfhpE9vLL5rysbkXNli' +

'iT5tT4DJe8ox91dt6QnX2B5sesppDXP4wxiQXP0YQWi2hGT91Kezv' +

'5HSFzfycyGUo+vUX/H5feg==');

end else begin

Mbehe := BitmapFromString(32, 11, 'beNpjYCAD/P//n1T1cEAj80nS' +

'S0XzsXoNwsbqZTzqibEL2RCs4njU47eXSHNIFcdqNRXVExO/1FJPr' +

'XAgKT1gJgmSshKlAAA0RwcI');

LeviaMask := BitmapFromString(33, 11, 'beNq9UcsOACAI8v9/2m7O+WSW' +

'cXImgkT0BMx8OfDBw54EK4TDUptmzcqa2bbW5EBC6tYkImEASoQs5' +

'Ar/hCQ2DgpfpfvZdT4l5KcK4goO3qXgIA==');

target := BitmapFromString(33, 11, 'beNptUzGKAzEMdKkyZc' +

'ozpFjDFl5w4UCaBNLkmVdccX/Yv0XSSLJDFswi5NFIM9bWnC5nWs' +

'Y38XfJtJa05lRLqjk1/fbCAd03CRDfPK759bcbBnjcNrtl5sfvLv' +

'w/zt83IW/aBd8qB5x0c4aaB0biHHkS2CbzaBdadQZG4qBQ57RaH+' +

'zjaEehAk8ke/kG88ys4ihfOM/d5fzvyPCXY+PpEp+eV+7FGOo2D/' +

'CoNRWM9Hh2Xvp2mxaFpM5z/nQ3lyR+XqUvGDi5nN03fyN1T95i4r' +

'dp/RaiBANm7QKNs165WvPhnJAZPthRaXyGV6HUu39nQB748Aoqkt' +

'sbjwv/zaspD0WgYsdYmr2F6h3b27x1nxybNbbxFsPVOnYYXWKjTI' +

'V3/3Db2WIHEGPb53y8u62NYwJpV76HUTvke+3YB0+S/84H+aiaa8' +

'NzgN8R8+Rp');

end;

EPmask := BitmapFromString(14, 9, 'beNpjYCAJVKICrCLIKjH14mcTo' +

'5IYc3CZSao7ifE7A3kAABePRBE=');

BMPbug := BitmapFromString(1, 1, 'beNpjYGAAAAADAAE=');

BmpBigBug := BitmapFromString(1, 1, 'beNpjYGAAAAADAAE=');

MaskH := BitmapFromString(19, 9, 'beNpjYKAE/AcDTO5/VECqRqxqy' +

'NCIKYjpMCI10siPWBWTrZEcAACzIMI+');

Hollow1 := BitmapFromString(4, 7, 'beNqr9Xp+e8qcaclLZ2Xfuz6' +

'FgYUBCIpzve6d7jm3ryU71ak41encruq9q7KzE52SIy33riveOi85' +

'OdQQyF47LRmiHgRYGOY0Bc2p9JpT6zUHAE5IIgs=');

Hollow2 := BitmapFromString(4, 7, 'beNqr9bp3fQoDCwMQPL8' +

'9B8IAkteOt5zbVQ3mMJzb1XJsXTFEfO+q4rWzkiHKts5LhqsHgjm' +

'1XiBU6TUHABQkF50=');

BuyBMP := BitmapFromString(20, 5, 'beNp1j7EKwCAMRB0dOtz' +

'Q4YYOFbr4r9Kh+MFNSEylpSBykXeXkxlLamfrV4+ba5ZjunDSG4x' +

'RgFlJJLdAc1xzYFBvWF7hsVfEF5NdoesOqTE3NK+NTywxOkPs8S7' +

'amjuGFPUK8VfP/i7GetCZG7xBaAo=');

buy2BMP := BitmapFromString(20, 8, 'beNplUTEOxCAM68hwQw' +

'YGDx3KeO9i7MNv6NAntEkcAtJJCBnjYCfUAtlQy/Prz33afnXd2y' +

'5GDiwSGFhxaXB8dRUrjhI/Eqh4JSf/cVN1HDyWp1YcGogx96nAvH' +

'Zh1PDNSLWsUUOjwFtrh4bfsq/vISxn7xYVcw7x1JiJDQRivrPfee' +

'TtDJmdemC/dT1CzysWcmXLf9h9fbamROHXcFGcMwmvOjTKvzxpsl' +

'c=');

buy3bmp := BitmapFromString(9, 6, 'beNpTEZCQ4FCUEZAQ4QA' +

'iDh4OCQkwWwKEFCWg4gICHFO6ioEkhAsSByvg4GBoKfU6d3jpnL5' +

'qIBtkDlCXggBQZXas5dpJUffObz13eE52rBNQBCgO1BvlawgUXzs' +

'tCkwmA0knG02gLk0VAU0FAU0NCSDDEEwC2UAtmgAScyHj');

BuyOkBmp := BitmapFromString(14, 2, 'beNpbt3brprWKCgKKM' +

'gKaChK42EASyN26be3WdWv3btsKYUtICCgCpSQEkNmKMhJbAdcIH' +

'Fg=');

OutBMP := BitmapFromString(7, 8, 'beNpzVcyONUwO1UwGkpGacDaQ' +

'8f21V3YiiAFCiSBUnAoSLE61hLDBJIgNUQkTtwQrtvz+3AmqPdESY' +

'kJyJEglkIQgkF2RhlGBmiDBUBADgoDsIFdFoCDQBDgZBACGmUKE');

Arubastar := BitmapFromString(50, 5, 'beNpF0i1o5EAUB/AVFREr' +

'RlSMqNiBih1YcQMVDZy5hYoNVFzgxC2sKKEq6hgqjqFmCRUl6ggVR' +

'zhRmBMLW1FIRWHXLKRiIScKWVFIRcWIihERIyJyb7b38ebxGEb9+L' +

'9pWw1nW2VTzBuZNjF0XIvwLhieuvQDIe8wG1Fod0TpISED7Ow6aNd' +

'h8A49gEZ0HwUTD+0i1KO4z8h7j34M3FNRPKvwxzy8zvKmlc86fqiS' +

'dZU+qnSj/EsZXOfhvearlq9bsWnFi70kGyNuc9UoIJnGVG2Zmbls0' +

'qSOkybm69CbeuyY4T7u7HQcx0F7yKr6GGHkoA6QaB+5BwRIrI+tCt' +

'4xARU+GNLjgE14+aLkRhW1YSfc+yKGp3YG3yQI+SwPZyVfGfHU8k0' +

'bqTZ6bcWyAJL3NdaN1kaBrTJl0eSyBlWUmiipxfjW96ZDOiJO1+lA' +

'ga3bwT0g2azoAL3FBTaAhSe+zWqPoH1KDofkaOxOuHyqqtoMz2LvL' +

'PLP4+BKQm4wARZcZZCVWGm+NvzBAI/fWJJ/mSbrUtdKmQpgptaqrh' +

'YmkyZJdBQpHqx878IlR8Qm1XVs7Thb298NDrDNqo/Yvs0KY7xVbbM' +

'ajdknHi+L4PscluVP03hVzpWB9SW/VLyu3rYZLUt+s4At89kiui9g' +

'ilmmm1ZppXQFnuq1LF6KbCPlYyKW4XjmueeMjijqIRsC+j8hK4z//' +

'CtQMZsVDif/smLk0LOqzxy+ljdN/QsJ7U2TudIg2WIKcV+Iu9xe7n' +

'KICGxw5z8zyFb9Bm+3Xp8=');

// repp := BitmapFromString(1, 21, 'beNoBPwDA/yAlNj4hOEAjOEAkN' +

// 'j4jNDshMjkgNDwhOkEmQEcqSE0sT1IuQkUnKykYLCIWyMXC9fX17O' +

// 'zs6enpy4eLmyAlmwbPFro=');

// reparierend := BitmapFromString(28, 1, 'beNqTEdDUkVDUEVAEkY' +

// 'oSGhICEhyKIhyaPBxeAhxRHAzVIhItEopzVAznaBjO0TGcoqLZoqC' +

// 'YLSJgycGhCEQCQCQgIQACEgqKEgoShgoCmgAjOwyX');

glitzimap := BitmapFromString(14, 16, 'beNoNjulP2nAAQH+ZW5x' +

'OjcNriegcQycih1wFFFBUVKBYSqGllKMwcHig8yREEXV4IocMZYho' +

'MrM4TZYl7ojJ/N9G8r695OXVPSFg6DAaWJgad5MSmpJQNpHd0ufEI' +

'LdV6SVUJAItBy2xsB8Zk6/MIEGX1o1Jpr0qv0eOm3kr8zBNKOyImE' +

'SkTos8QA2HfPD2mp+2Kb0Y5HfIbSYOgXBJlH9/e3CWCFn1fNwotBk' +

'EtLXfqOXA2l6XRYrruwN2yGMTUxZR5CP6+Ct3f5Pwk+oyAYeGgAU+' +

'YqDcD9FDU3YZNclzIKKyuilu/7lNP9xl9iMen1VpN/Df2xV+UklMC' +

'uc86vWQIbFJfc1FrvOxv3fZfz/zjz/Ovhd2rk7Cl5nleITcWEIIE3' +

'fWPRAgxKVMqJBYvMxunCfWHm5zv79lSqnw9en66f7M6cFU0N0foOT' +

'YGNtp5ho1zEJyOX8UvkhvXmW3S8loKRMtpSJbq2RHM2C9AhC/0mkR' +

'eHAhomNpodazRLiQjJ6ndorJ+HkyfpGOtdSAmgrQVAvM+g7aLnWgX' +

'EzfNR+YuPwcLZ18KqZ280fxYmrvy/EW8yVgMYHPJZ/299MEhMOcWa' +

'9mfQm7yEay+6uH0cXjWHljr5TbFbxjIBO9oQ8jpE2IGXrNuq4grdr' +

'doLKHc6ZhQf1T8KapisYN6b3w+CDXrOeTVqkZ7sFgIWWReHBZeMGo' +

'lDCqK8CLCsCoAs8BYLdWK8UdAzKmm1ShsNA4ynVhCp9T5bD2NdeDx' +

'log5TV7iFE7OtjZXlMJgELcRhEateJtD7tOLXtdLhOoUK1sgse7bY' +

'jMS+locgxH1JN6CBK164b4PezG9pZn/K4GFdRmmuAQWJ/NLMZRqZc' +

'awVE1YRk06MTDKl4nq4HxH0L14uw=');

bonuskarte := BitmapFromString(12, 14, 'beNolkCFo5EAUhkdURF' +

'RExo4cODNQ0YGaDURsoKIDEQlEhCFiGSrK41SoKcOJI2pZVpSwopC' +

'KwsqtO3Vw507eiRMVK1asiFgRcWL6pzc8mGH4+Pnfl4jgjIXnjJ2x' +

'IGA4YTjd+IlCxkMWBiw6Z7YuTKnptrBVahfa5CneVMe2UrZUtNB6r' +

'rq12z61/ZNzD6Zb0+657R+b3YvrH6lfU7dsbKVNpoob8TE8nYV6Ht' +

'lcFtfcZPiRei7Vp4imTGFL3n1NV1/iYh6Ym4hqaUtpcpnOeHwJnts' +

'8smXY3ovDn6ZfAmNUC1pMfUyudCJNFumEYXbP8fCXhjdgSs+YrRCF' +

'GogS7rMc3tpx7/zQ+IHGPY0H1y2xTmQyCSa+4u5uYvzRjQcCA3LYA' +

'97uXhpUKjKZXon2PvbHzv/r/MmNR/IY34HpNxaK0CdNRHOrfv90v7' +

'5bNPFD60/IXG03BVRQrf6vDw8m51TxH6/WD70/9f1aUyXQeVKUTX3' +

'iC+yFevCj/fht9ZBCDgb5wOAWitQF14korsV207i7lKoY60whEFup' +

'qfM7vhrP6A==');

{ neulogin := BitmapFromString(60, 9, 'beNrVkjEOgCAMRc/E6MrIL' +

'RwYjCOHZnBwZNRqoSBFU3UiIeSnfVBavtfODs4qWPOo+tHKTUMU3W' +

'gUPe0ogtepi3N/qbfVfD77rMNieBx9ElNd+fmYM/MPTK+KQ2uw0lQ' +

'vcboHmaYP+VnOVwxpjKf3FF9QeIYiJ9aO0C5hJDcLq9/5mWDyKjHc' +

'YxImT5UxuUEBA7Xu/By/G1JeVwymSv4nI6mVmR24Z4LT');

schliessen := BitmapFromString(1, 9, 'beNpLNM5NxIEAfi0JCg==' +

''); }

end;

procedure FreeBMP;

begin

freebitmap(MaskH);

freebitmap(Hollow1);

freebitmap(Hollow2);

//freebitmap(OutBMP);

freebitmap(Arubastar);

freebitmap(glitzimap);

end;

//################ Time function ############################################

function TimeH(time : extended) : integer; begin result := Floor(DecRet(time)*24) end;

function TimeM(time : extended) : integer; begin result := Floor(DecRet(time*24)*60) end;

function TimeS(time : extended) : integer; begin result := Floor(DecRet(time*24*60)*60) end;

function TimeMs(time : extended) : integer; begin result := Floor(DecRet(time*24*60*1000)*1000) end;

function TimeStr : string;

var v : extended;

begin

v := now;

result :=inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+' ' ;

//result :=' ' + inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+ ':'+ inttostr(TimeMs(v));

end;

function TimeStrX(vv: extended) : string;

var v : extended;

begin

v := vv;

// result :=inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+' ' ;

result :=' ' + inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+ ':'+ inttostr(TimeMs(v));

end;

function TimePass(var t : TMyTime) : boolean; // time in miliseconds

begin

if (t.OldTime = 0) then begin

result := true;

t.OldTime := now;

exit;

end;

result := false;

if (t.Wait < (now - t.OldTime)*86400000) then Begin

result := true ;

t.OldTime := now;

end;

//################ end Casovne funkcije #######################################

function lifeOld : integer;

var i : integer;

begin

for i := (MinHP - 5) to 200 do begin

CHP := getcolor(HPx+i,HPy)

if CHP = c1 then begin

result := i;

exit;

end;

if CHP = c2 then begin

result := i;

exit;

end;

if CHP = c3 then begin

result := i;

exit;

end;

if CHP = c4 then begin

result := i;

exit;

end;

result := 180;

end;//###################################################

Function Life : Integer;

var i,ii : integer;

begin

for i := 1 to 200 do begin

CHP := getcolor(HPx+i,HPy);

for ii := 1 to live.ColorCount do begin

if CHP = Live.Color[ii] then begin

result := i;

exit;

end;

result := 180;

end;//###########################################

Function GetMeX : boolean;

begin

result:= False;

if (Findcolortolerance(Me.x,Me.y,Me.Color, Me.xOld-2, Me.yOld-2,Me.xOld+2, Me.yOld+2, 111)=true)then begin

Me.mmx:=Me.x - MiniMap.x1;

Me.mmy:=Me.y - MiniMap.y1;

Me.xOld := Me.x;

Me.yOld := Me.y;

result := true;

end;

end;//

//###########################################

Procedure Key1;

begin

KeyDown(49);

Wait(20 + Random(10));

KeyUp(49);

wait(50+random(10));

BugY := BugYY;

end;

Procedure Key2;

begin

KeyDown(50);

Wait(20 + Random(10));

KeyUp(50);

wait(50+random(10));

BugY := BugYY + 42;

end;

Procedure Key6;

begin

KeyDown(54);

Wait(20 + Random(10));

KeyUp(54);

wait(50+random(10));

end;

Function GetMe : boolean;

var i : integer;

begin

result := True

if(GetMeX = True) then exit;

result := False

i := 1;

while ((result = false)and (i < 4)) do begin

if (Findcolortolerance(Me.x,Me.y,Me.Color, Minimap.x1, Minimap.y1, Minimap.x2, Minimap.y2, 111)=true)then begin

Me.mmx:=Me.x - MiniMap.x1;

Me.mmy:=Me.y - MiniMap.y1;

Me.xOld := Me.x;

Me.yOld := Me.y;

result := true;

break;

end;

writeln('Me not found!! ' + inttostr(i));

KeyDown(vkordiVB);

Wait(30 + Random(10));

KeyUp(vkordiVB);

wait(500);

i := i + 1;

end;//while

if (result = False) then writeln ('Me not FOUND - Big ERROR');

end; //end GetMe

///////##################################################

function Attack : boolean;

var ColorAttack: integer;

var NoColor : boolean;

begin

result := false;

nocolor := true;

ColorAttack := GetColor(Com1.x, Com1.y)

if ColorAttack = -1 then begin

SetDesktopAsClient;

ColorAttack := GetColor(Com1.x, Com1.y)

end;

if (SimilarColors(ColorAttack,Com1.ColorYes,Com1.ToleranceYes) = true) then begin

result := true;

noColor := false;

end;

if (SimilarColors(ColorAttack,Com1.ColorNo,Com1.ToleranceNo) = true) then begin

noColor := false;

end;

if (NoColor = true) then begin

writeln(TimeStr + 'Attack color not found '+ inttostr(ColorAttack));

SetDesktopAsClient;

//Restart1 := true;

end;

end; //

//############## Attacking #############################

function Attacking : boolean;

var ColorAttacking: integer;

var NoColor : boolean;

begin

NoColor := true;

result := false;

ColorAttacking := GetColor(Com2.x, Com2.y)

if ColorAttacking = -1 then begin

SetDesktopAsClient;

ColorAttacking := GetColor(Com2.x, Com2.y)

end;

if (SimilarColors(ColorAttacking,Com2.ColorYes,Com2.ToleranceYes) = true) then begin

result := true;

noColor := false;

end;

if (SimilarColors(ColorAttacking,Com2.ColorNo,Com2.ToleranceNo) = true) then begin

NoColor := false;

end;

if (NoColor = true) then begin

writeln(TimeStr + 'AttackING color not found '+ inttostr(ColorAttacking));

SetDesktopAsClient;

//Restart1 := true;

end;

//##########################

procedure mouse(var x,y:Integer);

begin

if IntInBox(x,y,ValidateBox) = false then begin

writeln(TimeStr+'ERROR Click Mouse(' + inttostr(x)+ ' , '+ inttostr(y)+')');

//terminatescript;

end;

MoveMouse(x, y);

wait(mousedelay+random(10));

ClickMouse(x,y,True);

wait(mousedelay+random(10));

end;

procedure mouseMM(var x,y:Integer);

begin

if IntInBox(x,y,ValidateBox) = false then begin

writeln(TimeStr+'ERROR Click MouseMM(' + inttostr(x)+ ', '+ inttostr(y)+')');

//terminatescript;

end;

wait(mousedelay+random(10));

HoldMouse(x,y,true);

MoveMouseSmooth(x,y);

wait(mousedelay+random(10));

ReleaseMouse(x,y,true);

wait(mousedelay+random(10));

end;

Procedure space;

begin

KeyDown(32);

Wait(20 + Random(10));

KeyUp(32);

wait(50+random(10));

end;

Function OCR_Number(x,y:integer): integer ;

begin

if getcolor(x+5,y+5) = whiteColor then begin result := 4; exit; end;

if getcolor(x+2,y+6) = whiteColor then begin result := 7; exit; end;

if getcolor(x+2,y+2) = whiteColor then begin result := 1; exit; end;

if getcolor(x+2,y+5) = whiteColor then begin result := 2; exit; end;

if getcolor(x+4,y+1) = whiteColor then begin result := 5; exit; end;

if getcolor(x+1,y+1) = whiteColor then begin result := 3; exit; end;

if getcolor(x+2,y+4) <> whiteColor then begin result := 0; exit; end;

if getcolor(x+1,y+5) <> whiteColor then begin result := 9; exit; end;

if getcolor(x+4,y+2) = whiteColor then begin result := 8; exit; end;

//findcolor(dump.x,dump.y,x+1,y+1,x+5,y+7) = true then result ne tukaj!

Result := 6;

end;

Function OCR_String(x : integer) : integer;

var expE : extended;

var eep :tpoint;

begin

eep :=EP

if findcolor(eep.x,eep.y,whiteColor,eep.x,eep.y,eep.x+70,eep.y) = true then begin

EeP.X := EeP.X -11;

for i :=1 to x do begin

expE := (expE + ocr_number(EeP.x,EeP.y))/10;

EeP.X := EeP.X - 5;

end;

result := round(expE * pow(10,x));

end;

//###################################################3

Function GetVariable:integer;

begin

result := 0;

if (FindBitmaptolerance(Arubastar, x, y, 35)=true) then begin

result := result + 1;

//writeln('arubastar found ' + inttostr(x) +','+ inttostr(y));

com1.x := x -260 ;

com1.y := y;

com2.x := x - 220;

com2.y := y;

com4.x := x - 126;

com4.y :=y;

com10.x := x +118 ;

com10.y := y -2 ;

BugX := x -125 ;

BugY := y +17;

BugXX := BugX;

BugYY := BugY;

// CopyClientToBitmap(BMPbug,BugX, BugY, BugX+14, BugY+2);

end else writeln('Aruba Star not Found! - posible soluttion: Komand buttons must be horizontal!');

GetClientDimensions(x,y);

x := x-1;

y:= y-1;

ValidateBox.x1 := 0;

ValidateBox.y1 := 0;

ValidateBox.x2 := x;

ValidateBox.y2 := y;

if(FindBitmapMaskTolerance(maskH, HPx,HPy,0,0,x,y,0, 2) = true) then begin //client height, wi

result := result + 1;

//writeln ('Found HP BOX at '+ inttostr(HPx)+',' + inttostr(HPy));

HPx := HPx - 40;

end else writeln('HP not found! Turn off in win "clear tipe effect"');

if(FindBitmapMaskTolerance(EPmask,EP.X, EP.Y,0,0,x,y,0, 2) = true) then begin

result := result + 1;

ExpOld := ocr_string(OCR);

writeln('start exp: '+ inttostr(expold));

//writeln(expold);

end else writeln('EP not found! Turn off in win "clear tipe effect"');

if (FindBitmaptolerance(glitzimap,a, b,35)=True)then begin

result := result + 1;

//writeln('Found minimap at ' + inttostr(a) + ', '+ inttostr(b));

MiniMap.x1:= a- 38-1;

MiniMap.x2:= a +51+1;

MiniMap.y1:= b- 100-1;

MiniMap.y2:= b- 13+1;

Miniship.x := a + 72;

MiniShip.y := b-55;

end else writeln('Minimap not Found! - minimap must be in NPC wiew mode');

//inc me.old

if (Findcolortolerance(Me.xOld,Me.yOld,Me.Color, Minimap.x1, Minimap.y1, Minimap.x2, Minimap.y2, 111)=true)then

begin

result := result + 1;

end else writeln('Green Dot not Found! - move your ship a bit away from the edge of map');

//za balls1

if FindBitmapTolerance(Hollow1, HollowX, HollowY, 45)= true then

begin

result := result + 1;

// writeln('hollow1 detectet');

//writeln('box1 detected at'+ inttostr(HollowX)+ inttostr(HollowY));

end else begin

if FindBitmapTolerance(Hollow2, HollowX, HollowY, 45)= true then

begin

result := result + 1;

// writeln('hollow2 detectet');

end else writeln('BOX1 not found');

end;

{if (FindBitmapTolerance(bonuskarte, BonusMap.x, BonusMap.y, 40)=true) then begin

result := result + 1;

//writeln('Bonusmap found ' + inttostr(BonusMap.x) + ',' + inttostr(BonusMap.y));

end else writeln('Not on Bonus chart');}

if (FindBitmapTolerance( OutBMP, LogOff.x, LogOff.y, 20)=true) then begin

result := result + 1;

//writeln('outbmp ' + inttostr(x) + ',' + inttostr(y));

// x => -513 y => +38

sea.x1:=LogOff.x - 743;

sea.y1:=LogOff.y + 13;

sea.x2:=LogOff.x + 59;

sea.y2:=LogOff.y + 615;

mpx:= LogOff.x - 349;

mpy:= LogOff.y + 317;

end else writeln('Logof button not found switch game in US(english)');

end; // ################################################################

Function FireBug :boolean;

var xs,ys: integer;

begin;

result := false;

if (FindBitmapToleranceIn(BmpBug, xs, ys, BugX, BugY, BugX+14, BugY+2, 25)=True) then begin

result := true;

end else // CopyClientToBitmap(BMPbug,BugX, BugY, BugX+14, BugY+2);

end;

Function BigBug :boolean;

var xs,ys : integer;

begin;

result := false;

if (FindBitmapToleranceIn(BmpBigBug, xs, ys, BugX, BugY , BugX+14, BugY+2, 25)=True) then begin

result := true;

end;

CopyClientToBitmap(BmpBigBug,BugX, BugY , BugX+14, BugY+2);

//

end;

Procedure e;

begin

KeyDown(69);

Wait(20 + Random(10));

KeyUp(69);

wait(50+random(10));

end;

Procedure v;

begin

KeyDown(vkordiVB);

Wait(20 + Random(10));

KeyUp(vkordiVB);

wait(50+random(10));

end;

Procedure q;

begin

KeyDown(reparierenVB);

Wait(20 + Random(10));

KeyUp(reparierenVB);

wait(50+random(10));

end;

Procedure fx;

begin

KeyDown(angrifffVB);

Wait(20 + Random(10));

KeyUp(angrifffVB);

wait(50+random(10));

end;

Procedure n;

begin

if TimePass(TargetTime) = true then begin

if (attack = false)then begin

KeyDown(zielVB);

Wait(20 + Random(10));

KeyUp(zielVB);

wait(50+random(10));

end;

Procedure ww;

begin

KeyDown(hochVB);

Wait(20 + Random(10));

KeyUp(hochVB);

wait(50+random(10));

end;

Procedure aa;

begin

KeyDown(linksVB);

Wait(20 + Random(10));

KeyUp(linksVB);

wait(50+random(10));

end;

Procedure ss;

begin

KeyDown(runterVB);

Wait(10 + Random(5));

KeyUp(runterVB);

wait(50+random(10));

end;

Procedure dd;

begin

KeyDown(rechtsVB);

Wait(20 + Random(10));

KeyUp(rechtsVB);

wait(50+random(10));

end;

Function shoping : boolean; //še omejiti èas nakupa!!

begin

mouse(com4.x,com4.y);

repeat

until (FindBitmapTolerance(buyBMP,x,y,20)= true);

x:= x - 23;

y:= y + 20;

mouse(x,y);

repeat

until(FindBitmapTolerance(buy2BMP,x,y,20)= true )

x:= x - 50;

y:= y + 18;

mouse(x,y);

repeat

until(FindBitmapTolerance(buy3BMP,x,y,20)= true)

x:= x + 5;

y:= y + 5;

for i :=1 to 7 do begin

mouse(x,y);

end;

x:= x - 142;

y:= y + 56;

mouse(x,y);

repeat

until(FindBitmapTolerance(BuyOkBmp,x,y,20)= true)

x:= x + 111;

y:= y + 130;

mouse(x,y);

end;///////////////////////

Procedure moveup;

begin

obenx:= mpx - random(pixeldistance) + random (pixeldistance) + outdrive;

obeny:= mpy - pixeldistance - random(10);

mouse(obenx,obeny);

wait(moveclickwait);

end;

Procedure movedown;

begin

untenx:= mpx - random(pixeldistance)+ random(pixeldistance) - outdrive;

unteny:= mpy + pixeldistance + random(10);

mouse(untenx,unteny);

wait(moveclickwait);

end;

Procedure moveleft;

begin

linksx:= mpx - pixeldistance - random(10);

linksy:= mpy - random(pixeldistance) + random(pixeldistance) - outdrive;

mouse(linksx,linksy);

wait(moveclickwait);

end;

Procedure moveright;

begin

rechtsx:= mpx + pixeldistance + random(10);

rechtsy:= mpy - random(pixeldistance) + random(pixeldistance) + outdrive;

mouse(rechtsx,rechtsy);

wait(moveclickwait);

end;

Procedure Vmoveupleft;

begin

xxx:= MiniMap.x1+1 ;//+ 4 + random(2);

yyy:= MiniMap.y1+1 + map; //+ 4 + random(MMrandommove);

mouseMM(xxx,yyy);

xxx := sea.x1 +20;

yyy := sea.y1 + 20;

mouse(xxx,yyy);

//v;

end;

Procedure Vmovedownleft;

begin

xxx:= MiniMap.x1 + 1+ map;

yyy:= MiniMap.y2 - 1;

mouseMM(xxx,yyy);

xxx := sea.x1 +20

yyy := sea.y2 -20

mouse(xxx,yyy);

// v;

end;

Procedure Vmoveupright;

begin

xxx:= MiniMap.x2 - 1- map;// - 1 - random(MMrandommove);

yyy:= MiniMap.y1 + 1;// + 2 + random(2);

mouseMM(xxx,yyy);

xxx := sea.x2-20;

yyy := sea.y1+20;

mouse(xxx,yyy);

//v;

end;

Procedure Vmovedownright;

begin

xxx:= MiniMap.x2-1;// - 4 - random(2);

yyy:= MiniMap.y2-1- map; //- 2 - random(MMrandommove);

mouseMM(xxx,yyy);

xxx:= sea.x2 - 20;

yyy:= sea.y2 - 20;

mouse(xxx,yyy);

//v;

end;

function checkmove:boolean;

Begin

result:=false;

if (GetMe=true)then begin

a:=Me.x; b := Me.y;

wait (1600);

end;

GetMe;

if (a = Me.x) and (b = Me.y) then begin

result:=true;

end;

procedure middlequarter;

begin

if (Me.mmx<=45) then begin

if (Me.mmy<=45) then begin

quarter:=2;

end;

if (Me.mmx>45) then begin

if (Me.mmy<=45) then begin

quarter:=3;

end;

if (Me.mmx>45) then begin

if (Me.mmy>45) then begin

quarter:=1;

end;

if (Me.mmx<=45) then begin

if (Me.mmy>45) then begin

quarter:=4;

end;

procedure getquarterold;

begin

//if(TimePass(QuarterTime) = false) then exit; *** za stestirat

//writeln('getquarter started');

GetMe;

quart := false;

if (Me.mmx>10) then begin

if (Me.mmy<10) then begin

quarter:=3;

if(Me.mmx>35)then quart := true;

end;

if (Me.mmx>80) then begin

if (Me.mmy>10) then begin

quarter:=1;

if(Me.mmy>35)then quart := true;

end;

if (Me.mmx<80) then begin

if (Me.mmy>80) then begin

quarter:=4;

if(Me.mmx<55)then quart := true;

end;

if (Me.mmx<10) then begin

if (Me.mmy<80) then begin

quarter:=2;

if(Me.mmy<55)then quart := true;

end;

if (Me.mmy>10)and (Me.mmy<80) then begin

if (Me.mmx>10)and (Me.mmx<80) then begin

if (quarter = 0)then middlequarter;

end;

//###################################

procedure getquarter;

begin

GetMe;

if (Me.mmx> map) then begin

if (Me.mmy<map) then begin

quarter:=3;

end;

if (Me.mmx > 90 - map) then begin

if (Me.mmy > map) then begin

quarter:=1;

end;

if (Me.mmx<90-map) then begin

if (Me.mmy>90-map) then begin

quarter:=4;

end;

if (Me.mmx<map) then begin

if (Me.mmy<90-map) then begin

quarter:=2;

end;

if (Me.mmy>map)and (Me.mmy<90-map) then begin

if (Me.mmx>map)and (Me.mmx<90-map) then begin

if (quarter = 0)then middlequarter;

end;

//##########################npc distance

function Npcdistance:integer;

var d1,nn, dt : integer;

begin

dt := 12;

result := 130; //max distance

GetMe;

xx:=Me.x;

yy:=Me.y;

if (FindColorsTolerance(enemy1, npcminimap,xx-dt, yy-dt, xx+dt, yy+dt,25) = true)then begin

if (FindColorsTolerance(enemy2, npcminimap2,xx-dt, yy-dt, xx+dt, yy+dt,9) = true)then begin

enemy := combineTPA(enemy1,enemy2);

end else begin

enemy := enemy1;

end;

x:=GetArrayLength(enemy);

getquarter;

//if (quarter = 1)then yy := yy + 1;

//if (quarter = 3)then xx:= xx + 1;

for nn:=0 to x-1 do

begin

d1 := round(sqrt(sqr(enemy[nn].x-xx)+sqr(enemy[nn].y-yy)));

if (d1 = 0) then begin

result := 1;

x2:=me.x;

y2:=me.y;

x3:=me.x;

y3:=me.y;

x4 := me.x;

y4 := me.y;

exit;

end;

if (d1 < result) then

begin

result := d1;

x2 := enemy[nn].x ;

y2 := enemy[nn].y ;

//x3 := round((enemy[nn].x-xx)*0.6) + xx ;

//y3 := round((enemy[nn].y-yy)*0.6) + yy ;

end;

x3 := round(((me.x -x2)/result)*dist +x2);

y3 := round(((me.y -y2)/result)*dist +y2);

x4 := round(((me.x -x2)/result)+ x2);

y4 := round(((me.y -y2)/result)+ y2);

end else result := -1; //ce ne najde barv!!npcminimap

end;//###########end npc distance###########

function ReppState : string;

var color : integer;

{repair: 262812, 5

full 3489342, 7

damage 1585709, 5 }

begin

color := GetColor(com10.x,com10.y);

result := 'not found'

repeat

if (SimilarColors(color,262812,10) = true) then begin

result := 'repp';

break;

end;

if (SimilarColors(color,3489342,10) = true) then begin

result := 'full';

break;

end;

if (SimilarColors(color,1585709,10) = true) then result := 'damage';

until(true);

if (result = 'not found') then begin

setdesktopasclient;

writeln('not found reppstate! Color: '+ inttostr(color));

end;

// writeln('reppstate = ' + result +' color: '+ inttostr(color)) ;

end;

procedure PLogout;

begin

if(FindBitmapTolerance(OutBMP, x, y, 22)=true) then begin

x:=x+19+random(2);

y:=y+2+random(2);

mouse(x,y);

writeln('time to sleep '+ timestr)

wait(11000);

end;

TerminateScript;

end;

procedure reppen;

begin

q;

wait(reppwait + random(10));

repeat

if (reppstate = 'damage')then q;

wait (reppwait);

///writeln(Life)

until(reppstate = 'full');

//if reppstate = 'repp'then q;

if (timeh(now) = 4 )and (timem(now) > 40) then plogout;

end;

function drive : boolean;

begin

// writeln ('repdrive');

result:=false;

getquarter;

OldQuarter :=quarter;

if (quarter=1) then vmoveupright; //else vmoveupleft;

if (quarter=2) then vmovedownleft; //else vmovedownright;

if (quarter=3) then vmoveupleft; // else vmovedownleft;

if (quarter=4) then vmovedownright; //else vmoveupright;

end;

//Function gamemessages : Boolean;

//begin

//result:=false;

//mapcheck;

//if (FindBitmapTolerance(neulogin, xx, yy, 20)=false) then begin

//if (FindBitmapToleranceIN(schliessen, xx, yy, sea.x1+100, sea.y1 + 200, sea.x2-100, sea.y2-200, 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

// wait (2000);

// mouse(xx,yy);

// wait (20000);

// sound;

// SetDesktopAsClient;

// getvariable;

//end;

Function reppcheck : Boolean;

begin

result:=false;

if (TimePass(LifeCheckTime) = false) then exit;

//writeln(life);

if (life < MinHP) then result := true;

if (result=true) then begin

writeln(TimeStr + 'Repairing' );

reppen;

end;

// gamemessages;

end;

//###################ooooooooooo###############

procedure Move; begin //// premakne mapo

getquarter;

if (quarter=1) then ww;

if (quarter=2) then ss;

if (quarter=3) then aa;

if (quarter=4) then dd;

end;

procedure Moveback; begin //// premakne mapo nazaj

//getquarter;

if (quarter=1) then ss;

if (quarter=2) then ww;

if (quarter=3) then dd;

if (quarter=4) then aa;

end; //# end moveback ##################################################

procedure MoveOut; begin //// premakne mapo

getquarter;

if (quarter=1) then dd;

if (quarter=2) then aa;

if (quarter=3) then ww;

if (quarter=4) then ss;

end;

//####################

procedure StopShip;

begin

space;

move;

//moveback;

//MoveOut;

v;

end; //stopship

procedure LookBack;

begin //// premakne mapo nazaj z miško

GetMe;

xx:=me.x;

yy:=me.y;

getquarter;

if (quarter=1) then begin

xx:= xx;

yy:= yy + 3;

end;

if (quarter=2) then begin

xx:= xx;

yy:= yy - 1 ; // mogoee malo prevee pogleda -0

end;

if (quarter=3) then begin //*

xx:= xx + 2;

yy:= yy;

end;

if (quarter=4) then begin

xx:= xx - 2;

yy:= yy;

end;

mouseMM(xx,yy);

end; //# end LookBack ##################################################

//#############procedure croud ######################

{function Croud : boolean;

begin

result := false;

if (Findcolortolerance(xx,yy,meinschiff, MiniMap.x1, MiniMap.y1, MiniMap.x2, MiniMap.y2, 111)=true)then begin

getquarter;

if (quarter = 1)then yy := yy + 1;

if (quarter = 3)then xx:= xx + 1;

end;

if (FindColorsTolerance(enemy1, npcminimap,xx-4, yy-4, xx+4, yy+4,25) = true)then begin

result := true;

if (FindColorsTolerance(enemy2, npcminimap2,xx-4, yy-4, xx+4, yy+4,9) = true)then begin

//writeln('border enemy found');

//x:=GetArrayLength(enemy1);

//writeln(x);

//x:=GetArrayLength(enemy2);

//writeln(x);

enemy := combineTPA(enemy1,enemy2);

end else begin

enemy := enemy1;

end;

EnemyBox := GetTPABounds(enemy);

//writeln(enemybox.x1);

if(IntInBox(xx,yy,EnemyBox) = True)then begin //function IntInBox(x, y: Integer; Box: TBox): Boolean;

if(quarter = 1) then begin

xx := MiniMap.x2-2;

yy := MiniMap.y1+2;

end;

if(quarter = 2) then begin

xx := MiniMap.x1+2;

yy := MiniMap.y2-2;

end;

if(quarter = 3) then begin

xx := MiniMap.x1+2;

yy := MiniMap.y1+2;

end;

if(quarter = 4) then begin

xx := MiniMap.x2-2;

yy := MiniMap.y2-2;

end;

mouseMM(xx,yy); //popraviti da klikne na rob in potem z npcdistance kontrolirati oddaljenost!!!

v; // ee procedura dokler se giblje iz infinity mogoee??

space;

end;

end;} //############# end procedure croud ######################

//##################################################

//

//########## DISTANCE ###############################

function distance : boolean;

begin

result:=false;

// writeln('distance started');

//beat2;

if (Attacking = true) then begin

///

if (TimePass(bugtime) = true) then begin

//writeln('Bug check');

if (firebug = true) then begin

e;

//writeln(' bug detected !!!!');

exit;

end;

if (npcdistance <= Range)then result:=true;

if (result = false) then begin

if(look = false)then begin

StopShip;

lookback;

look := true;

n;

fx;

DistanceTime.OldTime := 0;

end;

if ((result = true)and (TimePass(DistanceTime)= true)) then begin

// if (result = true) then begin

look := false;

n;

fx;

space;

getquarter;

if (quarter=1) then begin

ww;

moveup;

end;

if (quarter=2) then begin

ss;

movedown;

end;

if (quarter=3) then begin

aa;

moveleft;

end;

if (quarter=4) then begin

dd;

moveright;

end;

//######end distance #########################################

//########## ** ###############################

procedure gofight2;

var B,dx,dy : integer;

var i,ix,iy : extended;

begin

writeln(npcdistance);

dx := x2-xx;

dy := y2-yy;

if (dx = 0) then dx:= 1;

if (dy = 0) then dy:= 1;

writeln(dx);

writeln(dy);

if (dx > 0) then B := MiniMap.x2 else B := MiniMap.x1;

ix := (B-xx)/dx;

if (dy > 0) then B := MiniMap.y2 else B := MiniMap.y1;

iy := (B-yy)/dy;

i := MinE(ix,iy);

x := trunc(xx + (i*dx));

y := trunc(yy + (i*dy));

mouseMM(x,y);

v;

end; //##################################

procedure GoFight; begin // rabi x2,y2,x3,y3 od npcdistamce !!!

x2 :=x2 ;

y2 := y2+1;

mouseMM(x2,y2);

if findcolor(dump.X,dump.y,MMplayers,x2-5,y2-5,x2+5,y2+5) = true then players := true else players := false;

end; //end gofight

//#################

procedure BM ;

begin

//FindBitmapToleranceIn(Bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; tolerance: Integer): Boolean;

if(FindBitmapToleranceIn(bonuskarte, xx, yy,bonusmap.x , bonusmap.y ,bonusmap.x + 12 , bonusmap.y + 14, 50)=false) then begin

// if (FindBitmapTolerance(bonuskarte, xx, yy, 50)=false) then begin

//logout := true;

if(FindBitmapTolerance(OutBMP, x, y, 22)=true) then begin

x:=x+19+random(2);

y:=y+2+random(2);

mouse(x,y);

wait(11000);

end;

TerminateScript;

end;

////////////////////////////////////////////////////////////////////////////////

procedure GetClose;

//var nn : integer;

begin

dist := DistStart;

if (reppcheck = false) then

if (npcdistance > 20)then begin

gofight;

wait (5000);

end;

//timeold := now;

while (npcdistance > (range + 4)) do

begin

n;

fx;

if (Attacking = false) then begin

if TimePass(GetCloseTime) then begin

dump.x := npcdistance;

gofight;

if (Attacking = true) then exit;

end;

end else exit;

if(reppcheck = true) then exit;

end;

dist:=dist-1;

while (Attacking = false ) do //???

begin

if (TimePass(GetCloseTime) = True) then begin

dump.x := npcdistance;

gofight;

dist := dist - 1;

end;

n;

if attack = true then begin

fx;

exit;

end;

if(reppcheck = true) then exit;

if (dist < 1) then exit;

//writeln('closing');

end;

//reppcheck;

// stopship;

//dist := DistStart;

end; //end getclose

//#####################################################################

Function experience : integer;

begin

exp := ocr_string(OCR);

if exp = expold then exit;

//writeln( 'exp = ' + inttostr(exp));

wait(100);

exp := ocr_string(OCR);

if (exp < expold) then begin

if abs(exp-expold)< 100 then begin

//writeln('wrong OCR');

exp := expold+1;

end else begin

// writeln('corecting expold : ' + inttostr(expold));

expold := expold - round(intpow(10,ocr));

// writeln ('to : ' + inttostr(expold));

end;

//writeln( 'diference = ' + inttostr(exp - ExpOld));

if (exp - ExpOld) > 100 then begin

ExpOld := ocr_string(OCR);

end else expold := exp;

//writeln('exp = '+inttostr(exp)) ;

end;//

////////////////////////////////////////////////////////////////

function FindColorMask(var x,y,mask :integer ; color, tol1,tol2,tol3 : integer; box : tbox) : boolean;

var xc,yc,i,c,scr,w,h,www,hhh : integer;

var TColors : Tpointarray;

begin

result := false;

scr := BitmapFromString(1,1,'');

GetBitmapSize(mask,w,h);

box.y1 := box.y1 + 50;

copyclienttobitmap(scr,box.x1,box.y1,box.x2,box.y2);

GetBitmapSize(scr,www,hhh);

settargetbitmap(scr);

if (FindColorsTolerance(TColors,Color,0,0,www-1,hhh-1,tol1) = true)then begin

c:=GetArrayLength(Tcolors);

for i := 0 to c -1 do begin

if(FindBitmapMaskTolerance(mask,x,y,TColors.x-1, TColors.y-1,TColors.x+w-1, TColors.y+h-1 ,tol2, tol3)= true) then begin

if findcolor(dump.X,dump.Y,whitecolor,TColors.x-5, TColors.y-5,TColors.x+(2*w), TColors.y+(2*h)) = false then begin

x := x + box.x1;

y := y + box.y1;

result := true;

freebitmap(scr);

SetDesktopAsClient;

exit;

end else writeln('Player near NPC!,aborting attack.');

end;

freebitmap(scr);

SetDesktopAsClient;

end;

///////////////////////////////////////////////////////////////

function LockTarget : boolean;

begin

result := false;

if (SearchMode = 1) then begin

if (FindBitmapTolerance(BossBmp, xx, yy, 25)=true) then begin

boss := true;

if findcolormask(xx,yy,Mbehe,npccolor,6,12,30,sea) = true then begin

writeln('FIND BOSS ! '+ timestr);

xx:= xx+28;

yy:= yy-48;

mouse(xx,yy);

result := true;

key2;

exit;

end;

// end;

end else begin

boss := false;

if (FindBitmapTolerance(target, xx, yy, 50)=true) then begin

xx:= xx+28;

yy:= yy-48;

mouse(xx,yy);

result := true;

key1;

end;

end else begin

if (FindBitmapTolerance(target, xx, yy, 50)=true) then begin

xx:= xx+28;

yy:= yy-48;

mouse(xx,yy);

result := true;

key1;

end;

//#####################################################################

//####################################################################

procedure reloadpage;

begin

writeln('Reload Page '+ timestr);

KeyDown(116);

Wait(20 + Random(10));

KeyUp(116);

wait(15000);

repeat

wait(500);

until(GetMe = true);

end;

Function DriveBreak : boolean;

begin

result := false;

getquarter;

if((OldQuarter = 1) and (quarter = 3)) then result := true;

if((OldQuarter = 2) and (quarter = 4)) then result := true;

if((OldQuarter = 3) and (quarter = 2)) then result := true;

if((OldQuarter = 4) and (quarter = 1)) then result := true;

end;

Function ShotAndRep : boolean;

begin

result := false;

//experienceold := experience;

CopyClientToBitmap(BMPbug,BugX, BugY, BugX+14, BugY+2);

repeat

if attacking = false then begin

exit;

writeln('exit shotandrepp : attacking false at start' +timestr);

end;

until (firebug = false); //zihr ustrelil - uvod!

repeat //main

if reppstate = 'full' then begin

writeln('exit shotandrepp : full '+timestr);

exit;

end;

timepass(bugtime); // popravljanje bugtime= cas popravljanja

q;

repeat

if reppstate = 'damage' then q;

until(timepass(bugtime)); //konec popravljanaja

q;

CopyClientToBitmap(BMPbug,BugX, BugY, BugX+14, BugY+2);

fx;

if reppstate = 'repp' then begin

q;

fx;

end;

timepass(nofire);

bigbug;

repeat //fire

reppcheck;

if (attacking = false) then fx;

if attacking = false then begin

writeln('exit shotandrepp : attacking false at middle '+timestr);

exit;

end;

if timepass(nofire) = true then begin

if BigBug = true then begin

writeln('exit shotandrepp : nofire '+timestr);

exit;

end;

until(firebug =false);

until(false);

end;

//################################################################

function MAINLOOP : boolean;

var nx : integer;

begin

result:=false;

if reppstate = 'repp' then q;

reppcheck;

if attacking = true then begin

shotandrep;

if ((reppstate = 'damage')and(boss = false)) then reppen;

end;

drive;

repeat

if (npcdistance <> -1 )then begin

gofight;

if locktarget = true then begin

result := true;

v;

break;

end;

until ((checkmove = true) or(DriveBreak = true)) ;

if (result = false) then exit;

if (checkmove = true) then begin

x2 := x2-1+random(2);

y2 := y2-1+random(2);

mouseMM(x2,y2);

end;

getclosetime.OldTime := now;

repeat

fx;

if attacking = true then break;

until(timepass(GetCloseTime));

if attacking = false then begin

reloadpage;

exit;

end;

if players = true then begin

stopship;

writeln('players near');

end else begin

repeat

until(checkmove = true);

end;

repeat

reppcheck;

if (reppstate ='damage') then shotandrep;

if (boss = false)and (SearchMode = 1) then begin

if (FindBitmapTolerance(BossBmp, xx, yy, 25)=true) then begin

e;

exit;

end;

until (attacking = false);

//if (life < 170)and(boss = false) then reppen;

if ((reppstate = 'damage')and(boss = false)) then reppen;

end;

Procedure key3; //press '3'

begin

KeyDown(51);

Wait(50 + Random(10));

KeyUp(51);

wait(50+random(10));

end;

Procedure balls1;//1.000

var bx,by :integer;

begin

if findcolor(bx,by,16777215,HollowX-17,HollowY+30,HollowX-13,HollowY+37)=false then

begin

writeln(TimeStr + ' Less then 1.000 hollow! Going out.');

//writeln(HollowX-17) ;

//writeln(HollowY+30) ;

//writeln(HollowX-13) ;

//writeln(HollowY+37); //

//key2;

{if (ManageAmunition = 0) then begin

waitt := true;

key3;

end else key2;

BugTime.Wait := 30000;}

reppen;

plogout;

end;

end; //################################

procedure teamviewer;

var x,y : integer;

begin

wait(500);

x:= 680;

y:= 430;

mouse(x,y);

wait(5000);

mouse(x,y);

wait(300);

mouse(x,y);

end;

function findhp1 : boolean;

begin

GetClientDimensions(x,y);

x := x-1;

y:= y-1;

//if(FindBitmapMaskTolerance(maskH, HPx,HPy,0,0,x,y,0, 2) = true) then result := true;

if findcolormask(HPx,HPy,maskh,whitecolor,0,0,2,validatebox) = true then result := true;

end;

//######## MAIN PROG. #############

begin

// teamviewer;

cleardebug;

writeln('Script Started at' + TimeStr)

SetDesktopAsClient;

LoadVariable;

LoadBMP;

//

if shoptest = 1 then begin

getvariable;

writeln(findhp1);

testtime.OldTime := now;

//for i := 1 to 10 do begin

findhp1;

//end;

testtime.Wait := now- testtime.OldTime;

writeln('testtime = '+ timestrx(testtime.Wait));

terminatescript;

end;

if(getvariable < 7)then

begin

// writeln('Not Found basic images! Terminate Script');

terminatescript;

end;

// teamviewer;

FreeBMP;

repeat

// if (restart1 = true) then break;

//experience;

//BM;

mainloop;

//shipmm;

balls1;

until (waitt);

repeat // paisve mode!!

drive;

until(false);

end.[/scar]

If a script is not working change FontMode: = 2;

16 bit

w

s

a

d

f

e

n

v

del

space

q

Perle82 · September 7, 2011

Script Started at17:38:10

HP not found! Turn off in win "clear tipe effect"

EP not found! Turn off in win "clear tipe effect"

BOX1 not found

Logof button not found switch game in US(english)

Successfully executed

doesn´t work

i tryed both solutions 32bit and 16 bit and changed FontMod: =2;

damagex · September 8, 2011

program New;

type TMe = record x,y,xOld,yOld,mmx,mmy,Color:integer;end;
type TMyTime = record Wait,OldTime : extended;end;
type TMyLive = record Color  : array[1..6] of  integer;ColorCount : integer; end;
type TMyCom = record x,y,ColorYes,ColorNo,ToleranceYes,ToleranceNo : integer; end;


var SearchMode,mmPlayers,BmpBigBug,ExperienceOld,OldQuarter,FontMode,LeviaMask,NpcColor,bossBmp,Mbehe,map,target,ShopTest,EPmask,exp,expOld,BuyOkBmp,i,buy2BMP,BuyBMP,buy3BMP,ManageAmunition,elite,x4,y4,WaveX,MaskH,MaxHP,RunHP,HollowX,HollowY,BugY,BugX,BugXX,BugYY,
BmpBug,chp,MinHP,HPx,HPy,Arubastar,Range,dist,DistStart,OutBMP,Hollow1,Hollow2,c1,c2,c3,c4,x, y,
x2, y2,x3,y3,reppwait, hochVB, runterVB, linksVB, rechtsVB, angrifffVB, reparierenVB,
zielVB, vkordiVB, moveclickwait, MMrandommove, soundmodus, quarter, moveshipcheckwait,
bonuskarte,xx, yy, xxx, yyy,a, b, mpx, mpy, obenx, obeny, untenx, unteny, linksx, linksy,
rechtsx, rechtsy, glitzimap, reparierend, npcminimap,npcminimap2, mousedelay, outdrive,pixeldistance : Integer;
var logout, waitt,look,quart,beatbool,Restart1,LongBook,Boss,players : boolean;
var enemy,enemy1,enemy2,ComXY : TpointArray;
var MiniMap,SEA,ValidateBox : TBox;  //  EnemyBox
var ComColor,ComTol : TIntegerArray;
var Me : TMe;
var CroudTime,DistanceTime,GetCloseTime,BugTime,TargetTime,QuarterTime,LifeCheckTime,testTime,nofire : TMyTime;
var dump,MiniShip,BonusMap,LogOff,EP : Tpoint;
var Com1,Com2,Com4,Com10 : TMyCom;
var Live : TMyLive;

const whiteColor = 16777215;
     ocr = 5;

procedure Loadvariable;
begin
/////////////////////Behemod///////////////////////////////////////
//operating sistem settings: 16 bit colors, turn off ClearType
//US login,
// dont forget!!!! in first box put hollow, insecond box put footbal, third box put repair.
// script will not work if you have more then 1M amunution
// command set must be horizontal!!!

ShopTest := 0;  // SHOP TEST: if "1" the script will shop 4x and shut down.(you don't have to be in behemod map)
               // Pleas test and report!
MaxHP := 298500;
RunHP := 30000;
BugTime.Wait := 3300;  //repair time betwen two shots
nofire.Wait := 4000;   // no fire bug time
FontMode := 1;      //if never find target switch to 0;
SearchMode := 1; // 0 - search image, 1 -search image mask (for behemode must be 1)
GetCloseTime.Wait := 15000;
///////////////////////////////////////////////////////////////////


Range:= 5;
NpcColor := 12428870;
map := 18;
MMplayers := 255;
DistStart := range;
CroudTime.Wait := 40000;
GetCloseTime.Wait := 3000;
DistanceTime.Wait := 2000;
TargetTime.Wait := 100;
QuarterTime.Wait := 1000;
LifeCheckTime.Wait := 1000;


pixeldistance:= 200;
MinHP := round((RunHP+1000)*180/MaxHP);
//writeln('minhp = '+inttostr(MinHP));

logout := false;
dist := DistStart;
waitt := false;
look := false;
beatbool := false;
Restart1 := false;
LongBook := false;


hochVB:=87;
runterVB:=83;
linksVB:=65;
rechtsVB:=68;
angrifffVB:=70;
reparierenVB:=81;
zielVB:=78;
vkordiVB:=86;
soundmodus:=0;

SetLength(ComColor,6);
SetLength(ComTol,6);
SetLength(ComXY,6);

Com1.ColorYes := 14600377 ;
Com1.ToleranceYes :=100 ;
Com1.ColorNo :=   8424592;
com1.ToleranceNo := 10;

Com2.ColorYes :=  7845631;
Com2.ToleranceYes := 6;
Com2.ColorNo :=  5665168;
com2.ToleranceNo := 7;

live.Color[1] := 4120;
live.Color[2] := 528408;
live.Color[3] := 529432;
live.Color[4] := 530465;
live.ColorCount := 4;

reppwait:=600;
moveclickwait:=100;
MMrandommove:=1;
npcminimap:=39679;
npcminimap2 :=10278911
Me.Color:=5177166;
mousedelay:=100;
moveshipcheckwait:=90;
outdrive:= 70;

end;

////////////////////////////////////////////////////////////////

Procedure LoadBMP;
begin

       bossbmp := BitmapFromString(8, 8, 'beNoljaEOgzAURSsQyIq' +
   'JWpKZJZglM7P7DOw+gSCWZa6ZWCqRBDGBWFLZuU4iQZAUQVKDqKy' +
   'YqEC8PTJ7z73nRiRhZLeN+e1seu2mFsACOAhun1LGiLjndtC8yNp' +
   '36SYN3mDTuy6OyOnARJHJ+uoGFeYOvgaHdpCUEBYTccn0q3SjxjD' +
   '4DrVooNGKqke+TryBxdhR+UmrJ0eUbIhqBCw2uNbPuvtUquF4jei' +
   'YUtOrP7K9xL6sOXroDwYhclk=');



       if fontmode = 1 then begin
         Mbehe := BitmapFromString(29, 11, 'beNpjYKAd+I8KCCom3ljiNVLF' +
      'WEwvQNiY/sKlEpOLVQ2yXmJU4reOoAn4BQlaR7zDiAkE4r1AdtiSF' +
      'AtY0y2RAY5VJfUBAIEI8g4=');
        LeviaMask := BitmapFromString(30, 11, 'beNpjYKAp+P//P430UmIyefb+' +
      'hwFMZbgEkdXjMhlTAX6TCdqLx2T8VmDVi0sWGRBjMi71xAQ+McFC9' +
      'dBAZqCxscYsmgimMzDV0zQZgwAAr17RLw==');
       target := BitmapFromString(52, 9, 'beNptVDGOxDAITO' +
      'lvuKTbSC72JDc+aZt95hVb5A/52zEMYCd3UmQRgmEYhnzO759ze8r' +
      '2qH72Xc8ydn3lCY+e/lVK38vrC19fu96NGNmaZWiRp1Vk1tdHfX9O' +
      'z98qPW6kp9WZZyAz7LHjYrfSTaKKOBiFocBuRdXTxa9kwmfEdLaJc' +
      'u/jTJD/5LnZScVAfm1fESo2d+ajvHX49XFWu6AFNIgA2Le+LGDGt0' +
      'qbt1AiEpKEAv5lxkRp2vQD24ET8JqNL6t39xB8FBW30R3ukkMHaTw' +
      'EgEpg5SkJcg5aw/Ruc7rM9rurnZqhisib5zd4lhZ+jiaTbwYS2uCI' +
      'Hy4kh2Hxf/UWmVeRyMo29NAdA16H8dZD9gbACT/msrBTL22RpIut3' +
      'eOvektdhfa8WcZf2hk+X/fbgLRE6QQZQurLtja72GXKY4YJ554guQ' +
      'uAsQx3VVQIWMjJKoMUv8831gTbYSVuMUtRyfhpE9vLL5rysbkXNli' +
      'iT5tT4DJe8ox91dt6QnX2B5sesppDXP4wxiQXP0YQWi2hGT91Kezv' +
      '5HSFzfycyGUo+vUX/H5feg==');
     end else begin
     Mbehe := BitmapFromString(32, 11, 'beNpjYCAD/P//n1T1cEAj80nS' +
      'S0XzsXoNwsbqZTzqibEL2RCs4njU47eXSHNIFcdqNRXVExO/1FJPr' +
      'XAgKT1gJgmSshKlAAA0RwcI');
     LeviaMask := BitmapFromString(33, 11, 'beNq9UcsOACAI8v9/2m7O+WSW' +
      'cXImgkT0BMx8OfDBw54EK4TDUptmzcqa2bbW5EBC6tYkImEASoQs5' +
      'Ar/hCQ2DgpfpfvZdT4l5KcK4goO3qXgIA==');

      target := BitmapFromString(33, 11, 'beNptUzGKAzEMdKkyZc' +
   'ozpFjDFl5w4UCaBNLkmVdccX/Yv0XSSLJDFswi5NFIM9bWnC5nWs' +
   'Y38XfJtJa05lRLqjk1/fbCAd03CRDfPK759bcbBnjcNrtl5sfvLv' +
   'w/zt83IW/aBd8qB5x0c4aaB0biHHkS2CbzaBdadQZG4qBQ57RaH+' +
   'zjaEehAk8ke/kG88ys4ihfOM/d5fzvyPCXY+PpEp+eV+7FGOo2D/' +
   'CoNRWM9Hh2Xvp2mxaFpM5z/nQ3lyR+XqUvGDi5nN03fyN1T95i4r' +
   'dp/RaiBANm7QKNs165WvPhnJAZPthRaXyGV6HUu39nQB748Aoqkt' +
   'sbjwv/zaspD0WgYsdYmr2F6h3b27x1nxybNbbxFsPVOnYYXWKjTI' +
   'V3/3Db2WIHEGPb53y8u62NYwJpV76HUTvke+3YB0+S/84H+aiaa8' +
   'NzgN8R8+Rp');

     end;


       EPmask := BitmapFromString(14, 9, 'beNpjYCAJVKICrCLIKjH14mcTo' +
      '5IYc3CZSao7ifE7A3kAABePRBE=');
       BMPbug := BitmapFromString(1, 1, 'beNpjYGAAAAADAAE=');
       BmpBigBug := BitmapFromString(1, 1, 'beNpjYGAAAAADAAE=');
       MaskH := BitmapFromString(19, 9, 'beNpjYKAE/AcDTO5/VECqRqxqy' +
          'NCIKYjpMCI10siPWBWTrZEcAACzIMI+');

       Hollow1 := BitmapFromString(4, 7, 'beNqr9Xp+e8qcaclLZ2Xfuz6' +
          'FgYUBCIpzve6d7jm3ryU71ak41encruq9q7KzE52SIy33riveOi85' +
          'OdQQyF47LRmiHgRYGOY0Bc2p9JpT6zUHAE5IIgs=');

       Hollow2 := BitmapFromString(4, 7, 'beNqr9bp3fQoDCwMQPL8' +
       '9B8IAkteOt5zbVQ3mMJzb1XJsXTFEfO+q4rWzkiHKts5LhqsHgjm' +
       '1XiBU6TUHABQkF50=');
       BuyBMP := BitmapFromString(20, 5, 'beNp1j7EKwCAMRB0dOtz' +
       'Q4YYOFbr4r9Kh+MFNSEylpSBykXeXkxlLamfrV4+ba5ZjunDSG4x' +
       'RgFlJJLdAc1xzYFBvWF7hsVfEF5NdoesOqTE3NK+NTywxOkPs8S7' +
       'amjuGFPUK8VfP/i7GetCZG7xBaAo=');

       buy2BMP := BitmapFromString(20, 8, 'beNplUTEOxCAM68hwQw' +
      'YGDx3KeO9i7MNv6NAntEkcAtJJCBnjYCfUAtlQy/Prz33afnXd2y' +
      '5GDiwSGFhxaXB8dRUrjhI/Eqh4JSf/cVN1HDyWp1YcGogx96nAvH' +
      'Zh1PDNSLWsUUOjwFtrh4bfsq/vISxn7xYVcw7x1JiJDQRivrPfee' +
      'TtDJmdemC/dT1CzysWcmXLf9h9fbamROHXcFGcMwmvOjTKvzxpsl' +
      'c=');


       buy3bmp := BitmapFromString(9, 6, 'beNpTEZCQ4FCUEZAQ4QA' +
       'iDh4OCQkwWwKEFCWg4gICHFO6ioEkhAsSByvg4GBoKfU6d3jpnL5' +
      'qIBtkDlCXggBQZXas5dpJUffObz13eE52rBNQBCgO1BvlawgUXzs' +
      'tCkwmA0knG02gLk0VAU0FAU0NCSDDEEwC2UAtmgAScyHj');

      BuyOkBmp := BitmapFromString(14, 2, 'beNpbt3brprWKCgKKM' +
       'gKaChK42EASyN26be3WdWv3btsKYUtICCgCpSQEkNmKMhJbAdcIH' +
       'Fg=');

      OutBMP := BitmapFromString(7, 8, 'beNpzVcyONUwO1UwGkpGacDaQ' +
      '8f21V3YiiAFCiSBUnAoSLE61hLDBJIgNUQkTtwQrtvz+3AmqPdESY' +
      'kJyJEglkIQgkF2RhlGBmiDBUBADgoDsIFdFoCDQBDgZBACGmUKE');

     Arubastar := BitmapFromString(50, 5, 'beNpF0i1o5EAUB/AVFREr' +
      'RlSMqNiBih1YcQMVDZy5hYoNVFzgxC2sKKEq6hgqjqFmCRUl6ggVR' +
      'zhRmBMLW1FIRWHXLKRiIScKWVFIRcWIihERIyJyb7b38ebxGEb9+L' +
      '9pWw1nW2VTzBuZNjF0XIvwLhieuvQDIe8wG1Fod0TpISED7Ow6aNd' +
      'h8A49gEZ0HwUTD+0i1KO4z8h7j34M3FNRPKvwxzy8zvKmlc86fqiS' +
      'dZU+qnSj/EsZXOfhvearlq9bsWnFi70kGyNuc9UoIJnGVG2Zmbls0' +
      'qSOkybm69CbeuyY4T7u7HQcx0F7yKr6GGHkoA6QaB+5BwRIrI+tCt' +
      '4xARU+GNLjgE14+aLkRhW1YSfc+yKGp3YG3yQI+SwPZyVfGfHU8k0' +
      'bqTZ6bcWyAJL3NdaN1kaBrTJl0eSyBlWUmiipxfjW96ZDOiJO1+lA' +
      'ga3bwT0g2azoAL3FBTaAhSe+zWqPoH1KDofkaOxOuHyqqtoMz2LvL' +
      'PLP4+BKQm4wARZcZZCVWGm+NvzBAI/fWJJ/mSbrUtdKmQpgptaqrh' +
      'YmkyZJdBQpHqx878IlR8Qm1XVs7Thb298NDrDNqo/Yvs0KY7xVbbM' +
      'ajdknHi+L4PscluVP03hVzpWB9SW/VLyu3rYZLUt+s4At89kiui9g' +
      'ilmmm1ZppXQFnuq1LF6KbCPlYyKW4XjmueeMjijqIRsC+j8hK4z//' +
      'CtQMZsVDif/smLk0LOqzxy+ljdN/QsJ7U2TudIg2WIKcV+Iu9xe7n' +
      'KICGxw5z8zyFb9Bm+3Xp8=');

     // repp := BitmapFromString(1, 21, 'beNoBPwDA/yAlNj4hOEAjOEAkN' +
     // 'j4jNDshMjkgNDwhOkEmQEcqSE0sT1IuQkUnKykYLCIWyMXC9fX17O' +
     // 'zs6enpy4eLmyAlmwbPFro=');

     // reparierend := BitmapFromString(28, 1, 'beNqTEdDUkVDUEVAEkY' +
     // 'oSGhICEhyKIhyaPBxeAhxRHAzVIhItEopzVAznaBjO0TGcoqLZoqC' +
     // 'YLSJgycGhCEQCQCQgIQACEgqKEgoShgoCmgAjOwyX');

      glitzimap := BitmapFromString(14, 16, 'beNoNjulP2nAAQH+ZW5x' +
      'OjcNriegcQycih1wFFFBUVKBYSqGllKMwcHig8yREEXV4IocMZYho' +
      'MrM4TZYl7ojJ/N9G8r695OXVPSFg6DAaWJgad5MSmpJQNpHd0ufEI' +
      'LdV6SVUJAItBy2xsB8Zk6/MIEGX1o1Jpr0qv0eOm3kr8zBNKOyImE' +
      'SkTos8QA2HfPD2mp+2Kb0Y5HfIbSYOgXBJlH9/e3CWCFn1fNwotBk' +
      'EtLXfqOXA2l6XRYrruwN2yGMTUxZR5CP6+Ct3f5Pwk+oyAYeGgAU+' +
      'YqDcD9FDU3YZNclzIKKyuilu/7lNP9xl9iMen1VpN/Df2xV+UklMC' +
      'uc86vWQIbFJfc1FrvOxv3fZfz/zjz/Ovhd2rk7Cl5nleITcWEIIE3' +
      'fWPRAgxKVMqJBYvMxunCfWHm5zv79lSqnw9en66f7M6cFU0N0foOT' +
      'YGNtp5ho1zEJyOX8UvkhvXmW3S8loKRMtpSJbq2RHM2C9AhC/0mkR' +
      'eHAhomNpodazRLiQjJ6ndorJ+HkyfpGOtdSAmgrQVAvM+g7aLnWgX' +
      'EzfNR+YuPwcLZ18KqZ280fxYmrvy/EW8yVgMYHPJZ/299MEhMOcWa' +
      '9mfQm7yEay+6uH0cXjWHljr5TbFbxjIBO9oQ8jpE2IGXrNuq4grdr' +
      'doLKHc6ZhQf1T8KapisYN6b3w+CDXrOeTVqkZ7sFgIWWReHBZeMGo' +
      'lDCqK8CLCsCoAs8BYLdWK8UdAzKmm1ShsNA4ynVhCp9T5bD2NdeDx' +
      'log5TV7iFE7OtjZXlMJgELcRhEateJtD7tOLXtdLhOoUK1sgse7bY' +
      'jMS+locgxH1JN6CBK164b4PezG9pZn/K4GFdRmmuAQWJ/NLMZRqZc' +
      'awVE1YRk06MTDKl4nq4HxH0L14uw=');

      bonuskarte := BitmapFromString(12, 14, 'beNolkCFo5EAUhkdURF' +
      'RExo4cODNQ0YGaDURsoKIDEQlEhCFiGSrK41SoKcOJI2pZVpSwopC' +
      'KwsqtO3Vw507eiRMVK1asiFgRcWL6pzc8mGH4+Pnfl4jgjIXnjJ2x' +
      'IGA4YTjd+IlCxkMWBiw6Z7YuTKnptrBVahfa5CneVMe2UrZUtNB6r' +
      'rq12z61/ZNzD6Zb0+657R+b3YvrH6lfU7dsbKVNpoob8TE8nYV6Ht' +
      'lcFtfcZPiRei7Vp4imTGFL3n1NV1/iYh6Ym4hqaUtpcpnOeHwJnts' +
      '8smXY3ovDn6ZfAmNUC1pMfUyudCJNFumEYXbP8fCXhjdgSs+YrRCF' +
      'GogS7rMc3tpx7/zQ+IHGPY0H1y2xTmQyCSa+4u5uYvzRjQcCA3LYA' +
      '97uXhpUKjKZXon2PvbHzv/r/MmNR/IY34HpNxaK0CdNRHOrfv90v7' +
      '5bNPFD60/IXG03BVRQrf6vDw8m51TxH6/WD70/9f1aUyXQeVKUTX3' +
      'iC+yFevCj/fht9ZBCDgb5wOAWitQF14korsV207i7lKoY60whEFup' +
      'qfM7vhrP6A==');

     { neulogin := BitmapFromString(60, 9, 'beNrVkjEOgCAMRc/E6MrIL' +
      'RwYjCOHZnBwZNRqoSBFU3UiIeSnfVBavtfODs4qWPOo+tHKTUMU3W' +
      'gUPe0ogtepi3N/qbfVfD77rMNieBx9ElNd+fmYM/MPTK+KQ2uw0lQ' +
      'vcboHmaYP+VnOVwxpjKf3FF9QeIYiJ9aO0C5hJDcLq9/5mWDyKjHc' +
      'YxImT5UxuUEBA7Xu/By/G1JeVwymSv4nI6mVmR24Z4LT');

      schliessen := BitmapFromString(1, 9, 'beNpLNM5NxIEAfi0JCg==' +
      ''); }
end;
procedure FreeBMP;
begin

freebitmap(MaskH);
freebitmap(Hollow1);
freebitmap(Hollow2);
//freebitmap(OutBMP);
freebitmap(Arubastar);
freebitmap(glitzimap);

end;


//################ Time function ############################################
function TimeH(time : extended) : integer; begin result := Floor(DecRet(time)*24) end;
function TimeM(time : extended) : integer; begin result := Floor(DecRet(time*24)*60) end;
function TimeS(time : extended) : integer; begin result := Floor(DecRet(time*24*60)*60) end;
function TimeMs(time : extended) : integer; begin result := Floor(DecRet(time*24*60*1000)*1000) end;
function TimeStr : string;
var v : extended;
begin
    v := now;
     result :=inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+' '  ;
    //result :=' ' + inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+ ':'+ inttostr(TimeMs(v));
end;
function TimeStrX(vv: extended) : string;
var v : extended;
begin
    v := vv;
    // result :=inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+' '  ;
    result :=' ' + inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+ ':'+ inttostr(TimeMs(v));
end;
function TimePass(var t : TMyTime) : boolean; // time in miliseconds
begin
    if (t.OldTime = 0) then begin
       result := true;
       t.OldTime := now;
        exit;
    end;
    result := false;
    if (t.Wait < (now - t.OldTime)*86400000) then Begin
       result := true ;
       t.OldTime := now;
    end;

end;
//################ end Casovne funkcije #######################################
function  lifeOld : integer;
var i : integer;
begin

for i := (MinHP - 5) to 200 do begin
CHP := getcolor(HPx+i,HPy)
if CHP = c1 then begin
result := i;
exit;
end;
if CHP = c2 then begin
result := i;
exit;
end;
if CHP = c3 then begin
result := i;
exit;
end;
if CHP = c4 then begin
result := i;
exit;
end;

end;
result := 180;
end;//###################################################
Function Life : Integer;
var i,ii : integer;
begin
for i := 1 to 200 do begin
CHP := getcolor(HPx+i,HPy);
   for ii := 1 to live.ColorCount do begin
       if CHP = Live.Color[ii] then begin
       result := i;
       exit;
       end;
   end;

end;
result := 180;



end;//###########################################
Function GetMeX : boolean;
begin
result:= False;
if (Findcolortolerance(Me.x,Me.y,Me.Color, Me.xOld-2, Me.yOld-2,Me.xOld+2, Me.yOld+2, 111)=true)then begin
Me.mmx:=Me.x - MiniMap.x1;
Me.mmy:=Me.y - MiniMap.y1;
Me.xOld := Me.x;
Me.yOld := Me.y;
result := true;
end;

end;//

//###########################################
Procedure Key1;
begin
 KeyDown(49);
 Wait(20 + Random(10));
 KeyUp(49);
 wait(50+random(10));
 BugY := BugYY;
end;


Procedure Key2;
begin
 KeyDown(50);
 Wait(20 + Random(10));
 KeyUp(50);
 wait(50+random(10));
 BugY := BugYY + 42;
end;
Procedure Key6;
begin
 KeyDown(54);
 Wait(20 + Random(10));
 KeyUp(54);
 wait(50+random(10));
end;
Function GetMe : boolean;
var i : integer;
begin
result := True
if(GetMeX = True) then exit;
result := False
i := 1;
while ((result = false)and (i < 4)) do begin
if (Findcolortolerance(Me.x,Me.y,Me.Color, Minimap.x1, Minimap.y1, Minimap.x2, Minimap.y2, 111)=true)then begin
Me.mmx:=Me.x - MiniMap.x1;
Me.mmy:=Me.y - MiniMap.y1;
Me.xOld := Me.x;
Me.yOld := Me.y;
result := true;
break;
end;
writeln('Me not found!! ' + inttostr(i));
KeyDown(vkordiVB);
 Wait(30 + Random(10));
 KeyUp(vkordiVB);
wait(500);
i := i + 1;
end;//while
if (result = False) then writeln ('Me not FOUND - Big ERROR');
end; //end GetMe
///////##################################################

function Attack : boolean;
var  ColorAttack: integer;
var NoColor : boolean;
begin
result := false;
nocolor := true;
ColorAttack := GetColor(Com1.x, Com1.y)
if ColorAttack = -1 then begin
SetDesktopAsClient;
ColorAttack := GetColor(Com1.x, Com1.y)
end;
if (SimilarColors(ColorAttack,Com1.ColorYes,Com1.ToleranceYes) = true) then begin
result := true;
noColor := false;
end;

if (SimilarColors(ColorAttack,Com1.ColorNo,Com1.ToleranceNo) = true) then begin
noColor := false;
end;

if (NoColor = true) then begin
 writeln(TimeStr + 'Attack color not found '+ inttostr(ColorAttack));
SetDesktopAsClient;
//Restart1 := true;
end;

end;  //
//############## Attacking   #############################
function Attacking : boolean;
var  ColorAttacking: integer;
var NoColor : boolean;
begin
NoColor := true;
result := false;
ColorAttacking := GetColor(Com2.x, Com2.y)
if ColorAttacking = -1 then begin
SetDesktopAsClient;
ColorAttacking := GetColor(Com2.x, Com2.y)
end;
if (SimilarColors(ColorAttacking,Com2.ColorYes,Com2.ToleranceYes) = true) then begin
result := true;
noColor := false;
end;

 if (SimilarColors(ColorAttacking,Com2.ColorNo,Com2.ToleranceNo) = true) then begin
NoColor := false;
end;
if (NoColor = true) then begin
 writeln(TimeStr + 'AttackING color not found '+ inttostr(ColorAttacking));
SetDesktopAsClient;
//Restart1 := true;
end;

end;
//##########################


procedure mouse(var x,y:Integer);
begin
if IntInBox(x,y,ValidateBox) = false then begin
writeln(TimeStr+'ERROR Click Mouse(' + inttostr(x)+ ' , '+ inttostr(y)+')');
//terminatescript;
end;

MoveMouse(x, y);
wait(mousedelay+random(10));
ClickMouse(x,y,True);
wait(mousedelay+random(10));
end;

procedure mouseMM(var x,y:Integer);
begin
if IntInBox(x,y,ValidateBox) = false then begin
writeln(TimeStr+'ERROR Click MouseMM(' + inttostr(x)+ ', '+ inttostr(y)+')');
//terminatescript;
end;
wait(mousedelay+random(10));
HoldMouse(x,y,true);
MoveMouseSmooth(x,y);
wait(mousedelay+random(10));
ReleaseMouse(x,y,true);
wait(mousedelay+random(10));
end;

Procedure space;
begin
 KeyDown(32);
 Wait(20 + Random(10));
 KeyUp(32);
 wait(50+random(10));
end;
Function OCR_Number(x,y:integer): integer ;
begin
if getcolor(x+5,y+5) = whiteColor then  begin result := 4; exit;  end;
if getcolor(x+2,y+6) = whiteColor then  begin result := 7; exit; end;
if getcolor(x+2,y+2) = whiteColor then  begin result := 1; exit; end;
if getcolor(x+2,y+5) = whiteColor then  begin result := 2; exit; end;
if getcolor(x+4,y+1) = whiteColor then  begin result := 5; exit; end;
if getcolor(x+1,y+1) = whiteColor then  begin result := 3; exit; end;
if getcolor(x+2,y+4) <> whiteColor then begin result := 0;  exit; end;
if getcolor(x+1,y+5) <> whiteColor then begin result := 9; exit; end;
if getcolor(x+4,y+2) = whiteColor then  begin result := 8; exit; end;
//findcolor(dump.x,dump.y,x+1,y+1,x+5,y+7) = true then result  ne tukaj!
Result := 6;
end;

Function OCR_String(x : integer) : integer;
var expE : extended;
var eep :tpoint;
begin
eep :=EP
if findcolor(eep.x,eep.y,whiteColor,eep.x,eep.y,eep.x+70,eep.y) = true then begin
EeP.X := EeP.X -11;

for i :=1 to x do begin
expE := (expE + ocr_number(EeP.x,EeP.y))/10;
EeP.X := EeP.X - 5;
end;
result := round(expE * pow(10,x));
end;
end;

//###################################################3
Function GetVariable:integer;
begin
result := 0;
if (FindBitmaptolerance(Arubastar, x, y, 35)=true) then begin
 result := result + 1;
//writeln('arubastar found ' + inttostr(x) +','+ inttostr(y));


com1.x := x -260 ;
com1.y := y;
com2.x := x - 220;
com2.y := y;
com4.x := x - 126;
com4.y :=y;
com10.x := x +118 ;
com10.y := y -2 ;


BugX := x -125 ;
BugY := y +17;
BugXX := BugX;
BugYY := BugY;
// CopyClientToBitmap(BMPbug,BugX, BugY, BugX+14, BugY+2);

end else writeln('Aruba Star not Found! - posible soluttion: Komand buttons must be horizontal!');

GetClientDimensions(x,y);
x := x-1;
y:= y-1;
ValidateBox.x1 := 0;
ValidateBox.y1 := 0;
ValidateBox.x2 := x;
ValidateBox.y2 := y;
if(FindBitmapMaskTolerance(maskH, HPx,HPy,0,0,x,y,0, 2) = true) then begin  //client height, wi
result := result + 1;
//writeln ('Found HP BOX at '+ inttostr(HPx)+',' + inttostr(HPy));
HPx :=  HPx - 40;


end else writeln('HP not found! Turn off in win "clear tipe effect"');

if(FindBitmapMaskTolerance(EPmask,EP.X, EP.Y,0,0,x,y,0, 2) = true) then begin
result := result + 1;
ExpOld := ocr_string(OCR);
writeln('start exp: '+ inttostr(expold));
//writeln(expold);
end else writeln('EP not found! Turn off in win "clear tipe effect"');
if (FindBitmaptolerance(glitzimap,a, b,35)=True)then begin
    result := result + 1;
    //writeln('Found minimap at ' + inttostr(a) + ', '+ inttostr(b));

    MiniMap.x1:= a- 38-1;
    MiniMap.x2:= a +51+1;
    MiniMap.y1:= b- 100-1;
    MiniMap.y2:= b- 13+1;
    Miniship.x := a + 72;
    MiniShip.y := b-55;

end else writeln('Minimap not Found! - minimap must be in NPC wiew mode');
//inc me.old
if (Findcolortolerance(Me.xOld,Me.yOld,Me.Color, Minimap.x1, Minimap.y1, Minimap.x2, Minimap.y2, 111)=true)then
begin
   result := result + 1;

end else writeln('Green Dot not Found! - move your ship a bit away from the edge of map');

                //za balls1
if FindBitmapTolerance(Hollow1, HollowX, HollowY, 45)= true then
    begin
    result := result + 1;
    // writeln('hollow1 detectet');
    //writeln('box1 detected at'+ inttostr(HollowX)+ inttostr(HollowY));
end else begin
if FindBitmapTolerance(Hollow2, HollowX, HollowY, 45)= true then
    begin
    result := result + 1;
    // writeln('hollow2 detectet');
     end else writeln('BOX1 not found');

end;

{if (FindBitmapTolerance(bonuskarte, BonusMap.x, BonusMap.y, 40)=true) then begin
result := result + 1;
//writeln('Bonusmap found  ' + inttostr(BonusMap.x) + ',' + inttostr(BonusMap.y));

end else writeln('Not on Bonus chart');}

if (FindBitmapTolerance( OutBMP, LogOff.x, LogOff.y, 20)=true) then begin
result := result + 1;
//writeln('outbmp ' + inttostr(x) + ',' + inttostr(y));
//   x => -513   y => +38
sea.x1:=LogOff.x - 743;
sea.y1:=LogOff.y + 13;
sea.x2:=LogOff.x + 59;
sea.y2:=LogOff.y + 615;
mpx:= LogOff.x - 349;
mpy:= LogOff.y + 317;
end else writeln('Logof button not found switch game in US(english)');

end; // ################################################################

Function FireBug :boolean;
var xs,ys: integer;
begin;

result := false;

if (FindBitmapToleranceIn(BmpBug, xs, ys,  BugX, BugY, BugX+14, BugY+2, 25)=True) then begin
result := true;
end else // CopyClientToBitmap(BMPbug,BugX, BugY, BugX+14, BugY+2);

end;
Function BigBug :boolean;
var xs,ys : integer;
begin;

result := false;

if (FindBitmapToleranceIn(BmpBigBug, xs, ys,  BugX, BugY , BugX+14, BugY+2, 25)=True) then begin
result := true;
end;
CopyClientToBitmap(BmpBigBug,BugX, BugY , BugX+14, BugY+2);

//
end;
Procedure e;

begin
 KeyDown(69);
 Wait(20 + Random(10));
 KeyUp(69);
 wait(50+random(10));
end;

Procedure v;

begin
 KeyDown(vkordiVB);
 Wait(20 + Random(10));
 KeyUp(vkordiVB);
 wait(50+random(10));
end;

Procedure q;
begin

 KeyDown(reparierenVB);
 Wait(20 + Random(10));
 KeyUp(reparierenVB);
 wait(50+random(10));

end;

Procedure fx;
begin

   KeyDown(angrifffVB);
    Wait(20 + Random(10));
    KeyUp(angrifffVB);
    wait(50+random(10));





end;

Procedure n;
begin
if TimePass(TargetTime) = true then begin
if (attack = false)then begin
 KeyDown(zielVB);
 Wait(20 + Random(10));
 KeyUp(zielVB);
 wait(50+random(10));
end;
end;
end;

Procedure ww;

begin

 KeyDown(hochVB);
 Wait(20 + Random(10));
 KeyUp(hochVB);
 wait(50+random(10));

end;

Procedure aa;
begin

 KeyDown(linksVB);
 Wait(20 + Random(10));
 KeyUp(linksVB);
 wait(50+random(10));

end;

Procedure ss;
begin

 KeyDown(runterVB);
 Wait(10 + Random(5));
 KeyUp(runterVB);
 wait(50+random(10));

end;

Procedure dd;

begin

 KeyDown(rechtsVB);
 Wait(20 + Random(10));
 KeyUp(rechtsVB);
 wait(50+random(10));

end;
Function shoping : boolean; //še omejiti èas nakupa!!

begin
mouse(com4.x,com4.y);
repeat
until (FindBitmapTolerance(buyBMP,x,y,20)= true);
x:= x - 23;
y:= y + 20;
mouse(x,y);

repeat
until(FindBitmapTolerance(buy2BMP,x,y,20)= true )
x:= x - 50;
y:= y + 18;
mouse(x,y);
repeat
until(FindBitmapTolerance(buy3BMP,x,y,20)= true)
x:= x + 5;
y:= y + 5;

for i :=1 to 7 do begin
mouse(x,y);
end;
x:= x - 142;
y:= y + 56;
mouse(x,y);

repeat
until(FindBitmapTolerance(BuyOkBmp,x,y,20)= true)
x:= x + 111;
y:= y + 130;

mouse(x,y);

end;///////////////////////

Procedure moveup;
begin

   obenx:= mpx - random(pixeldistance) + random (pixeldistance) + outdrive;
   obeny:= mpy - pixeldistance - random(10);
   mouse(obenx,obeny);
   wait(moveclickwait);
end;

Procedure movedown;
begin

   untenx:= mpx - random(pixeldistance)+ random(pixeldistance) - outdrive;
   unteny:= mpy + pixeldistance + random(10);
   mouse(untenx,unteny);
   wait(moveclickwait);
end;

Procedure moveleft;
begin

   linksx:= mpx - pixeldistance - random(10);
   linksy:= mpy - random(pixeldistance) + random(pixeldistance) - outdrive;
   mouse(linksx,linksy);
   wait(moveclickwait);
end;

Procedure moveright;
begin

   rechtsx:= mpx + pixeldistance + random(10);
   rechtsy:= mpy - random(pixeldistance) + random(pixeldistance) + outdrive;
   mouse(rechtsx,rechtsy);
   wait(moveclickwait);
end;

Procedure Vmoveupleft;
begin

          xxx:= MiniMap.x1+1 ;//+ 4 + random(2);
          yyy:= MiniMap.y1+1 + map; //+ 4 + random(MMrandommove);
          mouseMM(xxx,yyy);
          xxx := sea.x1 +20;
          yyy := sea.y1 + 20;
          mouse(xxx,yyy);
          //v;
end;

Procedure Vmovedownleft;
begin


          xxx:= MiniMap.x1 + 1+ map;
          yyy:= MiniMap.y2 - 1;
          mouseMM(xxx,yyy);
          xxx := sea.x1 +20
          yyy := sea.y2 -20
          mouse(xxx,yyy);
         // v;
end;

Procedure Vmoveupright;
begin


          xxx:= MiniMap.x2 - 1- map;// - 1 - random(MMrandommove);
          yyy:= MiniMap.y1 + 1;// + 2 + random(2);
          mouseMM(xxx,yyy);

          xxx := sea.x2-20;
          yyy := sea.y1+20;

           mouse(xxx,yyy);
          //v;
end;

Procedure Vmovedownright;
begin


          xxx:= MiniMap.x2-1;// - 4 - random(2);
          yyy:= MiniMap.y2-1- map; //- 2 - random(MMrandommove);
          mouseMM(xxx,yyy);
          xxx:= sea.x2 - 20;
          yyy:= sea.y2 - 20;
          mouse(xxx,yyy);


          //v;
end;

function checkmove:boolean;
Begin
result:=false;
if (GetMe=true)then begin
a:=Me.x; b := Me.y;
wait (1600);
end;
GetMe;
if (a = Me.x) and (b = Me.y) then begin
result:=true;
end;
end;

procedure middlequarter;
begin
  if (Me.mmx<=45) then begin
  if (Me.mmy<=45) then begin
  quarter:=2;
  end;
  end;
  if (Me.mmx>45) then begin
  if (Me.mmy<=45) then begin
  quarter:=3;
  end;
  end;
  if (Me.mmx>45) then begin
  if (Me.mmy>45) then begin
  quarter:=1;
  end;
  end;
  if (Me.mmx<=45) then begin
  if (Me.mmy>45) then begin
  quarter:=4;
  end;
  end;
end;


procedure getquarterold;
begin
//if(TimePass(QuarterTime) = false) then exit;    *** za stestirat

//writeln('getquarter started');
GetMe;
quart := false;
  if (Me.mmx>10) then begin
  if (Me.mmy<10) then begin
  quarter:=3;
   if(Me.mmx>35)then quart := true;
  end;
  end;
  if (Me.mmx>80) then begin
  if (Me.mmy>10) then begin
  quarter:=1;
   if(Me.mmy>35)then quart := true;
  end;
  end;
  if (Me.mmx<80) then begin
  if (Me.mmy>80) then begin
  quarter:=4;
  if(Me.mmx<55)then quart := true;
  end;
  end;
  if (Me.mmx<10) then begin
  if (Me.mmy<80) then begin
  quarter:=2;
  if(Me.mmy<55)then quart := true;
  end;
  end;
  if (Me.mmy>10)and (Me.mmy<80) then begin
  if (Me.mmx>10)and (Me.mmx<80) then begin
  if (quarter = 0)then middlequarter;
  end;
  end;
end;
//###################################
procedure getquarter;
begin

GetMe;

  if (Me.mmx> map) then begin
  if (Me.mmy<map) then begin
  quarter:=3;

  end;
  end;
  if (Me.mmx > 90 - map) then begin
  if (Me.mmy > map) then begin
  quarter:=1;

  end;
  end;
  if (Me.mmx<90-map) then begin
  if (Me.mmy>90-map) then begin
  quarter:=4;

  end;
  end;
  if (Me.mmx<map) then begin
  if (Me.mmy<90-map) then begin
  quarter:=2;

  end;
  end;
  if (Me.mmy>map)and (Me.mmy<90-map) then begin
  if (Me.mmx>map)and (Me.mmx<90-map) then begin
  if (quarter = 0)then middlequarter;
  end;
  end;
end;
//##########################npc distance
function Npcdistance:integer;
var d1,nn, dt : integer;

begin

dt := 12;
result := 130; //max distance
     GetMe;
     xx:=Me.x;
     yy:=Me.y;
  if (FindColorsTolerance(enemy1, npcminimap,xx-dt, yy-dt, xx+dt, yy+dt,25) = true)then begin
  if (FindColorsTolerance(enemy2, npcminimap2,xx-dt, yy-dt, xx+dt, yy+dt,9) = true)then begin

     enemy := combineTPA(enemy1,enemy2);
     end else begin
     enemy := enemy1;
     end;
  x:=GetArrayLength(enemy);



    getquarter;
   //if (quarter = 1)then yy := yy + 1;
   //if (quarter = 3)then xx:= xx + 1;

    for nn:=0 to x-1 do
                       begin
                       d1 := round(sqrt(sqr(enemy[nn].x-xx)+sqr(enemy[nn].y-yy)));
                       if (d1 = 0) then begin
                       result := 1;
                       x2:=me.x;
                       y2:=me.y;
                       x3:=me.x;
                       y3:=me.y;
                       x4 := me.x;
                       y4 := me.y;
                       exit;
                       end;
                       if (d1 < result) then
                                      begin
                                     result := d1;
                                      x2 := enemy[nn].x ;
                                      y2 := enemy[nn].y ;
                                      //x3 := round((enemy[nn].x-xx)*0.6) + xx ;
                                      //y3 := round((enemy[nn].y-yy)*0.6) + yy ;

                                      end;
                       end;
x3 := round(((me.x -x2)/result)*dist +x2);
y3 := round(((me.y -y2)/result)*dist +y2);
x4 := round(((me.x -x2)/result)+ x2);
y4 := round(((me.y -y2)/result)+ y2);

end else result := -1;  //ce ne najde barv!!npcminimap

end;//###########end npc distance###########
function ReppState : string;
   var color : integer;
   {repair:	262812,	5
full	3489342,	7
damage	1585709,	5 }
        begin
  color := GetColor(com10.x,com10.y);
  result := 'not found'
  repeat
 if (SimilarColors(color,262812,10) = true) then begin
  result := 'repp';
  break;
  end;
 if (SimilarColors(color,3489342,10) = true) then begin
  result := 'full';
   break;
   end;
 if (SimilarColors(color,1585709,10) = true) then result := 'damage';
   until(true);
   if (result = 'not found') then begin
   setdesktopasclient;
  writeln('not found reppstate! Color: '+ inttostr(color));
  end;
 // writeln('reppstate = ' + result +' color: '+ inttostr(color)) ;
end;
procedure PLogout;
begin
if(FindBitmapTolerance(OutBMP, x, y, 22)=true) then begin
   x:=x+19+random(2);
    y:=y+2+random(2);

    mouse(x,y);
    writeln('time to sleep '+ timestr)
    wait(11000);
    end;
   TerminateScript;
end;
procedure reppen;
begin
q;
wait(reppwait + random(10));

repeat
if (reppstate = 'damage')then q;
wait (reppwait);
///writeln(Life)
until(reppstate = 'full');
//if reppstate = 'repp'then q;
if (timeh(now) = 4 )and (timem(now) > 40) then plogout;
end;



function drive : boolean;
begin
// writeln ('repdrive');
result:=false;

getquarter;
OldQuarter :=quarter;
          if (quarter=1) then vmoveupright; //else vmoveupleft;


          if (quarter=2) then vmovedownleft; //else vmovedownright;


          if (quarter=3) then vmoveupleft; // else vmovedownleft;

          if (quarter=4) then vmovedownright; //else vmoveupright;


end;

//Function gamemessages : Boolean;
//begin
//result:=false;

//mapcheck;

//if (FindBitmapTolerance(neulogin, xx, yy, 20)=false) then begin
//if (FindBitmapToleranceIN(schliessen, xx, yy, sea.x1+100, sea.y1 + 200, sea.x2-100, sea.y2-200, 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
//    wait (2000);
  //  mouse(xx,yy);
 //   wait (20000);
  //  sound;
  //  SetDesktopAsClient;
  //  getvariable;
//end;


//end;


Function reppcheck : Boolean;
begin
result:=false;
if (TimePass(LifeCheckTime) = false) then exit;
//writeln(life);
if (life < MinHP) then result := true;
if (result=true) then begin
writeln(TimeStr + 'Repairing' );
reppen;
end;


// gamemessages;
end;
//###################ooooooooooo###############


procedure Move; begin        //// premakne mapo
getquarter;
if (quarter=1) then ww;
if (quarter=2) then ss;
if (quarter=3) then aa;
if (quarter=4) then dd;
end;

procedure Moveback; begin        //// premakne mapo nazaj
//getquarter;
if (quarter=1) then ss;
if (quarter=2) then ww;
if (quarter=3) then dd;
if (quarter=4) then aa;
end;  //# end moveback ##################################################

procedure MoveOut; begin        //// premakne mapo
getquarter;
if (quarter=1) then dd;
if (quarter=2) then aa;
if (quarter=3) then ww;
if (quarter=4) then ss;
end;

//####################
procedure StopShip;
begin
space;
move;
//moveback;
//MoveOut;
v;
end; //stopship

procedure LookBack;

begin        //// premakne mapo nazaj z miško



GetMe;
xx:=me.x;
yy:=me.y;
getquarter;


if (quarter=1) then begin

     xx:= xx;
     yy:= yy + 3;

  end;
  if (quarter=2) then begin

     xx:= xx;
     yy:= yy - 1 ;             // mogoee malo prevee pogleda -0
  end;
  if (quarter=3) then begin   //*
   xx:= xx + 2;
     yy:= yy;

  end;
  if (quarter=4) then begin
    xx:= xx - 2;
     yy:= yy;

  end;
mouseMM(xx,yy);
end;  //# end LookBack ##################################################


//#############procedure croud ######################
{function Croud : boolean;
begin
result := false;
if (Findcolortolerance(xx,yy,meinschiff, MiniMap.x1, MiniMap.y1, MiniMap.x2, MiniMap.y2, 111)=true)then begin
    getquarter;
    if (quarter = 1)then yy := yy + 1;
    if (quarter = 3)then xx:= xx + 1;
    end;

if (FindColorsTolerance(enemy1, npcminimap,xx-4, yy-4, xx+4, yy+4,25) = true)then begin
  result := true;

  if (FindColorsTolerance(enemy2, npcminimap2,xx-4, yy-4, xx+4, yy+4,9) = true)then begin
   //writeln('border enemy found');
   //x:=GetArrayLength(enemy1);
    //writeln(x);
    //x:=GetArrayLength(enemy2);
    //writeln(x);
  enemy := combineTPA(enemy1,enemy2);
  end else begin
  enemy := enemy1;
  end;

  EnemyBox := GetTPABounds(enemy);
  //writeln(enemybox.x1);

  if(IntInBox(xx,yy,EnemyBox) = True)then begin   //function IntInBox(x, y: Integer; Box: TBox): Boolean;
      if(quarter = 1) then begin
      xx := MiniMap.x2-2;
      yy := MiniMap.y1+2;

      end;
      if(quarter = 2) then begin
      xx := MiniMap.x1+2;
      yy := MiniMap.y2-2;

      end;
      if(quarter = 3) then begin
      xx :=  MiniMap.x1+2;
      yy := MiniMap.y1+2;

      end;
      if(quarter = 4) then begin
      xx := MiniMap.x2-2;
      yy := MiniMap.y2-2;
      end;

  mouseMM(xx,yy);   //popraviti da klikne na rob in potem z npcdistance kontrolirati oddaljenost!!!
  v; // ee procedura dokler se giblje iz infinity mogoee??
  space;
   end;

end;

end;} //############# end procedure croud ######################

//##################################################
//
//########## DISTANCE ###############################
function distance : boolean;
begin
result:=false;
// writeln('distance started');
//beat2;

if (Attacking = true) then begin
///
   if (TimePass(bugtime) = true) then begin
   //writeln('Bug check');
      if (firebug = true) then begin
      e;
      //writeln(' bug detected !!!!');
      exit;
     end;


      end;


      if (npcdistance <= Range)then result:=true;



     if (result = false) then begin

        if(look = false)then begin

         StopShip;
         lookback;
        look := true;
         n;
         fx;
         DistanceTime.OldTime := 0;
        end;



     end;

     if ((result = true)and (TimePass(DistanceTime)= true)) then begin
   //    if (result = true) then begin

look := false;
n;
fx;
space;

getquarter;
if (quarter=1) then begin
     ww;
     moveup;
end;
if (quarter=2) then begin
     ss;
     movedown;
end;

if (quarter=3) then begin
     aa;
     moveleft;
end;

if (quarter=4) then begin
     dd;
     moveright;
end;
end;
end;
end;
//######end distance #########################################
//########## ** ###############################
procedure gofight2;
var B,dx,dy : integer;
var i,ix,iy : extended;
begin


writeln(npcdistance);
dx := x2-xx;
dy := y2-yy;
if (dx = 0) then dx:= 1;
if (dy = 0) then dy:= 1;
writeln(dx);
writeln(dy);

if (dx > 0) then B := MiniMap.x2 else B := MiniMap.x1;
ix := (B-xx)/dx;

if (dy > 0) then B := MiniMap.y2 else B := MiniMap.y1;

iy := (B-yy)/dy;

i := MinE(ix,iy);
x := trunc(xx + (i*dx));
y := trunc(yy + (i*dy));

mouseMM(x,y);
v;




end; //##################################

procedure GoFight; begin  // rabi  x2,y2,x3,y3 od npcdistamce !!!

x2 :=x2 ;
y2 := y2+1;
mouseMM(x2,y2);

if findcolor(dump.X,dump.y,MMplayers,x2-5,y2-5,x2+5,y2+5) = true then players := true else players := false;

end; //end gofight
//#################
procedure BM ;
 begin

//FindBitmapToleranceIn(Bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; tolerance: Integer): Boolean;

  if(FindBitmapToleranceIn(bonuskarte, xx, yy,bonusmap.x , bonusmap.y ,bonusmap.x + 12 , bonusmap.y + 14, 50)=false) then begin
// if (FindBitmapTolerance(bonuskarte, xx, yy, 50)=false) then begin
 //logout := true;
  if(FindBitmapTolerance(OutBMP, x, y, 22)=true) then begin
   x:=x+19+random(2);
    y:=y+2+random(2);

    mouse(x,y);
    wait(11000);
    end;
   TerminateScript;
 end;
 end;
////////////////////////////////////////////////////////////////////////////////
procedure GetClose;
//var nn : integer;

begin
dist := DistStart;
     if (reppcheck = false) then
        if (npcdistance > 20)then begin

       gofight;
       wait (5000);
       end;
       //timeold := now;
    while (npcdistance > (range + 4)) do
    begin
          n;
         fx;
         if (Attacking = false) then begin
            if TimePass(GetCloseTime) then begin
            dump.x := npcdistance;
            gofight;
           if (Attacking = true) then exit;
         end;
         end else exit;


         if(reppcheck = true) then exit;
    end;

    dist:=dist-1;

           while (Attacking = false )  do  //???
      begin
      if (TimePass(GetCloseTime) = True)  then begin
      dump.x := npcdistance;
      gofight;
      dist := dist - 1;


      end;

      n;
      if attack = true then begin
      fx;
      exit;
      end;
      if(reppcheck = true) then exit;
      if (dist < 1) then exit;

      //writeln('closing');


      end;
      //reppcheck;
     // stopship;
      //dist := DistStart;





end; //end getclose
//#####################################################################

Function experience : integer;
begin
exp := ocr_string(OCR);
if exp = expold then exit;
//writeln( 'exp = ' + inttostr(exp));
wait(100);
exp := ocr_string(OCR);
if (exp < expold) then begin
if abs(exp-expold)< 100 then begin
//writeln('wrong OCR');
exp := expold+1;
end else begin
// writeln('corecting expold : ' + inttostr(expold));
expold := expold - round(intpow(10,ocr));
// writeln ('to : ' + inttostr(expold));
end;
end;
//writeln( 'diference = ' + inttostr(exp - ExpOld));
if (exp - ExpOld) > 100 then begin
ExpOld := ocr_string(OCR);
end else expold := exp;

//writeln('exp = '+inttostr(exp)) ;
end;//
////////////////////////////////////////////////////////////////
function FindColorMask(var x,y,mask :integer ; color, tol1,tol2,tol3 : integer; box : tbox) : boolean;
var xc,yc,i,c,scr,w,h,www,hhh : integer;
var TColors : Tpointarray;
begin
result := false;
  scr := BitmapFromString(1,1,'');
  GetBitmapSize(mask,w,h);
   box.y1 := box.y1 + 50;
  copyclienttobitmap(scr,box.x1,box.y1,box.x2,box.y2);
  GetBitmapSize(scr,www,hhh);
  settargetbitmap(scr);

 if (FindColorsTolerance(TColors,Color,0,0,www-1,hhh-1,tol1) = true)then begin
  c:=GetArrayLength(Tcolors);
  for i := 0 to c -1 do begin
   if(FindBitmapMaskTolerance(mask,x,y,TColors[i].x-1, TColors[i].y-1,TColors[i].x+w-1, TColors[i].y+h-1 ,tol2, tol3)= true) then begin
     if findcolor(dump.X,dump.Y,whitecolor,TColors[i].x-5, TColors[i].y-5,TColors[i].x+(2*w), TColors[i].y+(2*h)) = false then begin

     x := x + box.x1;
     y := y + box.y1;
     result := true;
     freebitmap(scr);
     SetDesktopAsClient;
     exit;
     end else writeln('Player near NPC!,aborting attack.');


   end;
 end;
 end;
freebitmap(scr);
SetDesktopAsClient;
end;

///////////////////////////////////////////////////////////////
function LockTarget : boolean;
begin
result := false;
if (SearchMode = 1) then begin
if (FindBitmapTolerance(BossBmp, xx, yy, 25)=true) then begin
    boss := true;


 if findcolormask(xx,yy,Mbehe,npccolor,6,12,30,sea) = true then begin
    writeln('FIND BOSS ! '+ timestr);
    xx:= xx+28;
    yy:= yy-48;
    mouse(xx,yy);
    result := true;
    key2;

    exit;
    end;
   // end;

    end else begin
    boss := false;
    if (FindBitmapTolerance(target, xx, yy, 50)=true) then begin
       xx:= xx+28;
       yy:= yy-48;
       mouse(xx,yy);
       result := true;
       key1;
    end;
    end;
  end else begin
  if (FindBitmapTolerance(target, xx, yy, 50)=true) then begin
    xx:= xx+28;
    yy:= yy-48;
    mouse(xx,yy);
    result := true;
    key1;
    end;

  end;
end;
//#####################################################################


//####################################################################
procedure reloadpage;
begin
writeln('Reload Page '+ timestr);
 KeyDown(116);
 Wait(20 + Random(10));
 KeyUp(116);
 wait(15000);
 repeat
 wait(500);
   until(GetMe = true);

end;

Function DriveBreak : boolean;
begin
result := false;
getquarter;
if((OldQuarter = 1) and (quarter = 3)) then result := true;
if((OldQuarter = 2) and (quarter = 4)) then result := true;
if((OldQuarter = 3) and (quarter = 2)) then result := true;
if((OldQuarter = 4) and (quarter = 1)) then result := true;
end;


Function ShotAndRep : boolean;
begin
result := false;
//experienceold := experience;

CopyClientToBitmap(BMPbug,BugX, BugY, BugX+14, BugY+2);

 repeat
   if attacking = false then begin
     exit;
     writeln('exit shotandrepp : attacking false at start' +timestr);
   end;
 until (firebug = false); //zihr ustrelil - uvod!

repeat   //main

 if reppstate = 'full' then begin
 writeln('exit shotandrepp : full '+timestr);
 exit;
 end;

 timepass(bugtime);  // popravljanje bugtime= cas popravljanja
 q;
 repeat
   if reppstate = 'damage' then q;
 until(timepass(bugtime)); //konec popravljanaja
 q;

 CopyClientToBitmap(BMPbug,BugX, BugY, BugX+14, BugY+2);
 fx;
 if reppstate = 'repp' then begin
 q;
 fx;
 end;
 timepass(nofire);
 bigbug;
 repeat     //fire
 reppcheck;
 if (attacking = false) then fx;
 if attacking = false then begin
     writeln('exit shotandrepp : attacking false at middle '+timestr);
     exit;
 end;

   if timepass(nofire) = true then begin
     if BigBug = true then begin
       writeln('exit shotandrepp : nofire '+timestr);
       exit;
     end;
   end;

 until(firebug =false);

until(false);

end;
//################################################################
function MAINLOOP : boolean;
var nx : integer;
 begin
 result:=false;
 if reppstate = 'repp' then q;
 reppcheck;
 if attacking = true then begin
    shotandrep;
    if ((reppstate = 'damage')and(boss = false)) then reppen;
 end;
 drive;

 repeat
   if (npcdistance <> -1 )then  begin
   gofight;
   if locktarget = true then  begin
     result := true;
     v;
     break;
   end;
 end;

 until ((checkmove = true) or(DriveBreak = true)) ;

if (result = false) then exit;

  if (checkmove = true) then begin
  x2 := x2-1+random(2);
  y2 := y2-1+random(2);
  mouseMM(x2,y2);
  end;

  getclosetime.OldTime := now;
  repeat
  fx;
  if attacking = true then break;
  until(timepass(GetCloseTime));


  if attacking = false then begin
  reloadpage;
  exit;
  end;
  if players = true then begin
   stopship;
  writeln('players near');
  end else begin
  repeat
  until(checkmove = true);
  end;
   repeat
   reppcheck;
  if (reppstate ='damage') then shotandrep;

   if (boss = false)and (SearchMode = 1) then begin
     if (FindBitmapTolerance(BossBmp, xx, yy, 25)=true) then begin
       e;
       exit;
     end;
   end;
   until (attacking = false);
  //if (life < 170)and(boss = false) then reppen;

   if ((reppstate = 'damage')and(boss = false)) then reppen;

  end;


Procedure key3;    //press '3'
begin
 KeyDown(51);
 Wait(50 + Random(10));
 KeyUp(51);
 wait(50+random(10));
 end;

Procedure balls1;//1.000
var bx,by :integer;
begin

if findcolor(bx,by,16777215,HollowX-17,HollowY+30,HollowX-13,HollowY+37)=false then
   begin
   writeln(TimeStr + ' Less then 1.000 hollow! Going out.');
   //writeln(HollowX-17)   ;
   //writeln(HollowY+30)  ;
   //writeln(HollowX-13) ;
   //writeln(HollowY+37); //
   //key2;
   {if (ManageAmunition = 0) then begin
   waitt := true;
   key3;
   end else key2;

   BugTime.Wait := 30000;}
   reppen;
   plogout;
   end;
end; //################################
procedure teamviewer;
var x,y : integer;
begin
wait(500);
x:= 680;
y:= 430;
mouse(x,y);
wait(5000);
mouse(x,y);
wait(300);
mouse(x,y);
end;

function findhp1 : boolean;
begin
GetClientDimensions(x,y);
x := x-1;
y:= y-1;
//if(FindBitmapMaskTolerance(maskH, HPx,HPy,0,0,x,y,0, 2) = true) then result := true;
if findcolormask(HPx,HPy,maskh,whitecolor,0,0,2,validatebox) = true then result := true;
end;


//######## MAIN PROG. #############
begin
  // teamviewer;
   cleardebug;
    writeln('Script Started at' + TimeStr)

    SetDesktopAsClient;

    LoadVariable;
    LoadBMP;
    //
    if shoptest = 1 then begin
     getvariable;
     writeln(findhp1);
     testtime.OldTime := now;
    //for i := 1 to 10 do begin
    findhp1;
    //end;
     testtime.Wait := now- testtime.OldTime;
     writeln('testtime = '+ timestrx(testtime.Wait));
     terminatescript;
    end;
    if(getvariable < 7)then
    begin
         // writeln('Not Found basic images! Terminate Script');
         terminatescript;
    end;
   // teamviewer;
    FreeBMP;
      repeat
     // if (restart1 = true) then break;

      //experience;
      //BM;


    mainloop;
    //shipmm;
    balls1;

    until (waitt);


    repeat    // paisve mode!!
    drive;
    until(false);

end.

Wow, could you add code tags please?

Perle82 · September 8, 2011

ribar74 what is the meaning of the following status???

start exp: 86727

not found reppstate! Color: 2164917

ribar74 read pm

canatis · November 6, 2011

Script Started at21:19:10

HP not found! Turn off in win "clear tipe effect"

EP not found! Turn off in win "clear tipe effect"

BOX1 not found

Logof button not found switch game in US(english)

Successfully executed

dont work why please help me

solitario267 · November 8, 2011

minhp = 12

HP not found! Turn off in win "clear tipe effect"

EP not found! Turn off in win "clear tipe effect"

BOX1 not found

Logof button not found switch game in US(english)

Not Found basic images! Terminate Script

Stopped execution (2559 ms)

HElp please

Edited November 8, 2011 by solitario267

fjori · November 8, 2011

please help me !!!

HP not found! Turn off in win "clear tipe effect"

EP not found! Turn off in win "clear tipe effect"

BOX1 not found

Coordonate harta:239/221 - 1041/823

Not Found basic images! Terminate Script

Stopped execution (4218 ms)

klasika2 · November 8, 2011

turn off ClearType and change graphic color to from 32bit to 16bit and use UK language in game thats all

canatis · November 9, 2011

me dont work i cleartype off color 16bit all keys the same,but not work not shoot not repaird not drive

klasika2 · November 9, 2011

download this version

and if still not working change 43 line

Behemod_1.16_Boss develop.scar

Edited November 9, 2011 by Freddy

KAMIKAZE · January 4, 2012

I START the bot and it dont play i have windows xp and i start and it do nothing,,what an i do?

klasika2 · January 4, 2012

set seacard manually and open in adobe flash 11 , with this must work

mamba8 · January 4, 2012

hey klasika i have 1.5million hollow kogel but bot say me ;

17:40:18 Script Started at

start exp: 720

17:40:28 Less then 1.000 hollow! Going out.

17:40:29 time to sleep

Stopped execution (13790 ms) what can i do ?

---------- Post added at 03:45 PM ---------- Previous post was at 03:43 PM ----------

and this bot can shoot SunBurst npc in sun map ?

klasika2 · January 4, 2012

with this bot u must have less that 1mil hollow , but use bot from wundertute he has better

mamba8 · January 4, 2012

wundertute's bot 1 shoot and rep always this but why dont work i have 1 mil hollow but 17:40:18 Script Started at

start exp: 720

17:40:28 Less then 1.000 hollow! Going out.

17:40:29 time to sleep and push logout button pls help

---------- Post added at 03:53 PM ---------- Previous post was at 03:52 PM ----------

and im in sun map not behemoth map this bot can shoot mini leviathan ?

klasika2 · January 4, 2012

if u dont want 1 shoot and repair chance 81 line in script (i think ) shootnrepp:=1; // 0 off, 1 repair while attacking if you hp bar is not full green

and i dont have nothing for sun map , maybe wundertute has something

mamba8 · January 4, 2012

klasika i have questions mate what is zentrieren:=32; // center map key (32 -> space) ? which key in seafight confirigation ?

Sign In

Behemont Bot

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation