@program #2542
1 1000 d
i
$include $lib/rp
$include $lib/alynna
lvar ship
lvar target
: ship-speak
ship @ str ": (" me @ "): " target @ cat force
;
: ship-control
str "You control the ship: " target @ cat "ShipControl" pretty tellme
ship @ target @ force
;
: ship-action
ship @ str ":" target @ cat force
;
: main ( s -- )
strip target !
command @ "{north|n|east|e|west|w|south|s|southeast|se|southwest|sw|northeast|ne|northwest|nw|up|u|fly|land|dock}" smatch if command @ target ! then
target @ not if "Type +sc (command for the ship to perform)" .tell exit then
me @ location "ship" getstatint dbref ship !
ship @ thing? not if "You are not in a ship to steer" .tell exit then
me @ ship @ controls
me @ ship @ "captain" getstatint dbref dbcmp
me @ "ship" getstatint dbref ship @ dbcmp
or or if
 command @ "ss" stringcmp not if ship-speak then
 command @ "+ss" stringcmp not if ship-speak then
 command @ "sc" stringcmp not if ship-control then
 command @ "+sc" stringcmp not if ship-control then
 command @ "sa" stringcmp not if ship-action then
 command @ "+sa" stringcmp not if ship-action then
 command @ "{north|n|east|e|west|w|south|s|southeast|se|southwest|sw|northeast|ne|northwest|nw|up|u|fly|land|down|d}" smatch if ship-control exit then
 exit
then
"You don't control this ship." "ShipControl" pretty tellme
;
.
c
q