* seacaptain-list
label(start);
wait(10);
%astr% word(%astr%,1);
if ( cmp(%astr%,{Aelmon}),    
  {
       if ( cmp(dayofweek(),1), 
          {
              do({'Old Aelmon's in port now.  Come right this way, %name%.});
              move(%name%,6210); 
              goto({end});
          },
          {
              do({'The Aelmon is not in the harbor.});
              goto({end});
          } );
  });
if ( cmp(%astr%,{Cock-Eyed}), 
  {
       if ( cmp(dayofweek(),2), 
          {
              do({'Shiver me timbers, the Cock-Eyed Wench is right this way, %name%.});
              move(%name%,6220); 
              goto({end});
          },
          {
              do({'The Cock-Eyed Wench is not in the harbor.});
              goto({end});
          } );
  });
if ( or ( cmp(%astr%,{Cockral}), cmp(%astr%,{Spanniker}) ), 
  {
       if ( cmp(dayofweek(),3), 
          {
              do({'Blast me harty, the Cockral Spanniker is just around the corner, %name%.});
              move(%name%,6230); 
              goto({end});
          },
          {
              do({'The Cockral Spanniker has not yet returned.});
              goto({end});
          } );
  });
 
 
if ( or( cmp(%astr%,{Intrepid}), cmp(%astr%,{Aramus}) ),  
  {
       if ( cmp(dayofweek(),4), 
          {
              do({'%name%, step right this way...});
              move(%name%,6240); 
              goto({end});
          },
          {
              do({'The Cockral Spanniker has not yet returned.});
              goto({end});
          } );
  });
  
if ( cmp(%astr%,{Moniker}),  
  {
       if ( cmp(dayofweek(),5), 
          {
              do({'%name%, step right this way...});
              move(%name%,6250); 
              goto({end});
          },
          {
              do({'The Moniker has not yet returned from its voyage.});
              goto({end});
          } );
  });
if ( cmp(%astr%,{Ilvan}),     
  {
       if ( cmp(dayofweek(),6), 
          {
              do({'%name%, step right this way...});
              move(%name%,6260); 
              goto({end});
          },
          {
              do({'Arrr, the blasted crew of the Ilvan are out on the open waters.});
              goto({end});
          } );
  });
label(list-ships);
do({'I'm not as old as I look.});
wait(10);
do({'Believe me, I know what's going on around here better than ol' Cock-Eye himself.});
wait(10);
do({'Isn't that right, cock-eye?});
wait(10);
do({grin bartender});
wait(10);
if ( cmp(dayofweek(),0),
   {
   do({'There are no privateers in port today, try back later.});
   });
if ( cmp(dayofweek(),1),
   {
   do({'The Aelmon is leaving port soon.});
   });
if ( cmp(dayofweek(),2),
   {
   do({'The Cock-Eyed Wench is ready to set sail. });
   });
if ( cmp(dayofweek(),3),
   {
   do({'Word has it, the Cockral Spanniker is heading to uncharted waters. });
   });
if ( cmp(dayofweek(),4),
   {
   do({'The doggedly pirate Aramus will be leaving soon on the Intrepid. });
   });
if ( cmp(dayofweek(),5),
   {
   do({'The Moniker will be leaving port soon.});
   });
if ( cmp(dayofweek(),6),
   {
   do({'The dangerous crew of the Ilvan is heading toward the Broken Coast.});
   });      
wait(50); do({'If you say the name of the ship you want, I can take you to it.});
 
label(end);