Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal
ricco

Pirate Storm

Recommended Posts

Description of the game, links to screenshots and a description of what the script should do are necessary. Especially the latter one :)

Share this post


Link to post
Share on other sites

i would like a bot that could locate NPCs and shoot them down and collect the boxes. kind of like this

Share this post


Link to post
Share on other sites
i would like a bot that could locate NPCs and shoot them down and collect the boxes. kind of like this

 

Bacisally i had create one bot for this game but it didn't collect the boxes it just shoot all NPC in one map (you set it inside) ..its easy to create one but you really believe that Pirate Storm should be play with bots.?I mean its free and cheap game no good to destroy it like seafight

*I personally stop it using it once i finish my quest (for the moon protactios ) then its just a good gold bot and ex shooter.

 

 

If you want a small help the way to create a bot is this(my opionion)

THIS IS A PART and nothing more just some procedure that might help and not the whole sript

1)use masks for detectiond NPC (seperate then in kategories depentig the map so it sersh only 3 masks)

 

[scar]

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;

[/scar]

 

2)use the minmap cordi (A1 A0 F4 ) for driving in map

 

[scar]

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; [/scar]

 

3)to rejoin after sunk may usesomething like tis this >

[scar]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)+Random(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;

[/scar]

 

*You can also and funtions that will detect enemy ships and play like human (i mean to shoot back ships if it get shooted)

 

**I am not selling or giving the bot cause i don't believe that game is expensive enought to use bots to play (so as longs it stay in normal price from my side no bots will be used )

Happy Sailings :)

*** You are intresting for gold bot /bonnus bot or also for others kinds ?

Edited by seafight17
  • Confused 1

Share this post


Link to post
Share on other sites
Can you please make a BOT
Hey aa231,

 

You can always try and start learning to script yourself, then you could make most of those scripts, that you need, yourself. Learning SCAR scripting really aint all that hard. :)

 

-Jani

Share this post


Link to post
Share on other sites

This isn't likely to generate much interest among the scripters when they see a request from someone who's only posts are requests for scripts for a game they don't play themselves. I sure everyone on here would be happy to help you develop your own scripts.

Share this post


Link to post
Share on other sites

its hard to me lol. and now everyone is starting to use scripts

 

- - - Updated - - -

 

would someone please make me one? i cant learn this stuff i am script illiterate.

Share this post


Link to post
Share on other sites
Erm...what..uh...is the script supposed to do? I have never even heard of this game.

 

Pirate storms is like sea fight and its another big point game/ her is a link of someone that bots http://www.youtube.com/watch?v=4uOZsduX1H8. this is an old bot and the paler is Der Basti. the Bot should detect NPCs, shoot them collect boxes then repair and loop. if you could help that would be great/ thank you

Share this post


Link to post
Share on other sites

Please make a full script that i can copy and after paste in SCAR. I really need a full script. Who can help please put the script complete. Thank you in advance!

Share this post


Link to post
Share on other sites

I know asking someone to put time into a script for free is a bit too much, are we allowed to offer payment? I am willing to pay for "help" with a pirate storm script, not for personal use, but release it to the public, however, pay the person who is working on one.

Share this post


Link to post
Share on other sites

can someone help me make a script for pirate storm i dont know anything about it but i will give it my all!

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...