* shipmate-intrepid
label(start);
%state% {pending};
if ( not(random(0,20)), {goto(boarding);});
if ( not(random(0,20)), {goto(fishing);});
if ( not(random(0,20)), {goto(storm);});
if ( not(random(0,20)), {goto(ghostship);});
if ( not(random(0,20)), {goto(return)});
wait(6);
label(boarding);
%state% {boarding};
wait(101);
do({shout Arr! Ship, ahoy! Blast 'em to the mizenmasts!});
reset(6245);
reset(6246);
reset(6247);
wait(30);
dig(6240,{east},6245);
do({shout Plank is lowered, board the enemy ship!});
wait(1002);
do({shout all aboard the Aelmon, we set sail soon!});
wait(103);
do({shout Plank is raised, anchor's away!});
undig(6240,{east});
wait(100);
goto(start);label(fishing);
%state% {fishing};
wait(10);
recho(6240,{You hear the sound of a mandolin being played in the Crow's Nest.});
recho(6241,{You hear the sound of a mandolin being played in the Crow's Nest.});
recho(6242,{You hear the sound of a mandolin being played in the Crow's Nest.});
recho(6243,{You hear the sound of a mandolin being played in the Crow's Nest.});
wait(20);
do({shout Yo ho ho and a bottle of rum!});
wait(20);
do({shout Yo ho ho and a bottle of rum!});
wait(20);
do({shout Yosh ho hosh and a bottle shof rumshhh..!});
wait(70);
if(random(0,1),{goto(start);},{goto(fishing);});
label(return);
%state% {returning};
wait(40);
do({shout Land ho! Starboard!});
wait(15);
recho(6210,{The ship floats safely into the Marina.});
recho(6211,{The ship floats safely into the Marina.});
recho(6212,{The ship floats safely into the Marina.});
recho(6213,{The ship floats safely into the Marina.});
wait(20);
do({shout Drop anchor!});
wait(30);

do({shout We have returned to port!});
moveall(6241,6200,{look});
moveall(6242,6200,{look});
moveall(6243,6200,{look});
moveall(6240,6200,{look});
goto(start);
label(landfall);wait(10);
do({shout Storm!});
wait(50);
 
recho(6240,{Wind buffets the ship; you hear the mast break!});
recho(6241,{Wind buffets the ship; you hear the mast break!});
recho(6242,{Wind buffets the ship; you hear the mast break!});
recho(6243,{Wind buffets the ship; you hear the mast break!});
wait(50);
do({shout All hands abandon ship!});
recho(6210,{The boat begins to capsize!});
recho(6211,{The boat begins to capsize!});
recho(6212,{The boat begins to capsize!});
recho(6213,{The boat begins to capsize!});
wait(50);
do({shout Abandon ship!});
moveall(6240,6218,{look});
moveall(6241,6218,{look});
moveall(6242,6218,{look});
moveall(6243,6218,{look});
wait(100);
goto(start);
label(ghostship);
do({shout My lord -- Captain Aramus, it's another ghost ship!});
wait(30);
do({shout She's coming about to port!});
wait(30);
do({shout She's coming right for us!!});
recho(6211,{The ship is rocked by the concussion! We're being rammed!});
wait(30);
reset(6249);
dig(6240,{east},6249);
do({shout Plank is lowered, we're being boarded!});
wait(420);
goto(start);
label(storm);
%state% {storm};
if ( cmp(weather(),3),
     { goto(landfall); } );
if ( cmp(weather(),2),
     {  do({shout Batten down the hatches!  Lower the misenmast!});
        wait(100);  } );
goto(start);