hello what you can end someone who knows more programming and end the bot agrederia them much
1)use masks for detectiond NPC (seperate then in kategories depentig the map so it sersh only 3 masks)
procedure newmap1;
begin
if FindBitmapMaskTolerance(Masks1, x, y, skx1, sky1, skx2, sky2, masktol, maskisetol) or
FindBitmapMaskTolerance(Masks2, x, y, skx1, sky1, skx2, sky2, masktol, maskisetol) or
FindBitmapMaskTolerance(Masks3, x, y, skx1, sky1, skx2, sky2, masktol, maskisetol)then begin
// writeln('NPC found at'+inttostr(x)+'/'+inttostr(y)+TimeToStr(Time));
atackaction;
end;
end;
procedure atackaction;
begin
HMouse(x,y);
HMouse(x-3,y);
HMouse(x-1,y-3);
wait(25+Random(Waitrandom));
toship;
shoot;
HHMouse(x,y);
shoot; // procedure to fire key
toship; // procedure to find you ship
wait(1000);
HHMouse(x,y); // mouse klik but with distance so to target the NPC
//HHMouse(x,y);
end;
2)use the minmap cordi (A1 A0 F4 ) for driving in map
procedure randomdrive;
//var i:integer;
begin
if FindBitmapTol(plx, ply, upleft, skx1, sky1, skx2, sky2, 27) or // a bitmap to detect that it is up leff
FindBitmapTol(plx, ply, downleftt, skx1, sky1, skx2, sky2, 27) then begin // to detect tthat is down left
writeln('I AM IN LEFT SIDE (PN1/PN3) I CHANGE DRIVE MODULE TO (PN2/PN4) ;')
ni:=2;
end;
if FindBitmapTol(plx, ply, downright, skx1, sky1, skx2, sky2, 27) or // same for right side
FindBitmapTol(plx, ply, uprightt, skx1, sky1, skx2, sky2, 27) then begin
writeln('I AM IN RIGHT SIDE (PN2/PN4) I CHANGE DRIVE MODULE TO (PN1/PN3) ;')
ni:=1;
end;
if FindBitmapTol(plx, ply, pp3, skx1, sky1, skx2, sky2, 27) then begin // to be down left
writeln('change fyll ;')
PN; // go up
PN;// go up
PN; // go up
panwaristera; //mouse clik
panwde3ia; //mouse clik
katwde3ia; //mouse clik
toship;
wait(3000);
ni:=2; // varible that is use to change the drive (mouse klik)
end;
newmap1; //searsh for NPC
if (ni=1) then begin // ni=1 so drive to up left
Mouse(moveskx1,movesky1);
Mouse(moveskx1+random(50),movesky1+random(50));
toship;
end;
if (ni=2) then begin // ni =2 drive to down reght
Mouse(moveskx2,movesky2);
Mouse(moveskx2+random(50),movesky2+random(50));
toship;
end;
writeln('ni:='+inttostr(ni)+';');
end;
3)to rejoin after sunk may usesomething like tis this >
procedure restart;
var wer,weq,deathx,deathy :integer;
begin
if FindBitmapTol(ax, ay, sunk,skx1, sky1, skx2, sky2, 50) then begin
if (fuckyou=1) then SaveScreenshot2(ScreenPath + 'sunk'); // save screenshot
writeln('I am dead=true > 3 sendnds wait! ');
wait(3000+Random(Waitrandom)+Random(Waitrandom)+Ra ndom(Waitrandom));
if FindBitmapTol(ax, ay, mee,skx1, sky1, skx2, sky2, 50) then begin
deathx:=ax;
deathy:=ay+30;
end else begin
deathx:=569;
deathy:=484;
end;
Mouse(deathx,deathy);
contor:=contor+1
wait(1300+Random(Waitrandom));
wer:=901;
weq:=568;
Mouse(wer,weq);
repair;
wait(60000+Random(Waitrandom));
Mouse(leavex,leavey);
drivemodule:=contor;
writeln(' TIMES I SUNK > '+inttostr(contor)+' TIME I SUNK > '+TimeToStr(Time));
if ((drivemodule mod 4=0)=true) then drive1;// procedure for drive up left corner
if ((drivemodule mod 4=1)=true) then drive2;// procedure for drive up right corner l
if ((drivemodule mod 4=2)=true) then drive3;// procedure for drive down left
if ((drivemodule mod 4=3)=true) then drive4;// procedure for drive down right
wer:=541;
weq:=505;
Mouse(wer,weq);
Writeln('I save that f in screenshoot >>go scar divi >AScreenshots');
end;
end;
by matter of time but I can not go there I leave a contribution to continue