Here is some boat code that Lars also did for Laney. It's in raw form, so you need to know some mush code to get the thing to work. I'm not even sure it does work, but here it is.

------------------------------------------------------------------------------------------
Mush Code

Boat Code

CMD-COVER: $+cover:@emit %N covers the [name(me)] with bushes.;@set me=dark;@Listen Boat=
CMD-UNCOVER: $+uncover:@emit %N pulls a camo-tarp off of the [name(me)].;@set me=!dark;@Listen Boat=*
Enter: You climb into [name(me)]
Oenter: climbs into the [name(me)]
Oxenter: climbs into the [name(me)]
Leave: steps off the [name(me)]
Oleave: steps off the [name(me)]
Oxleave: steps off the [name(me)]
Ealias: sb;Boat;sail boat;b
CMD-CD_PLAYER: $+cd *:@pemit/contents me=%N inserts a CD into the stereo system, and the music of %0 begins to fill your ears.;@emit The [name(me)]'s stereo system begins to loudly pump out the music of %0.
CMD_OOC: $COOC *:+ot %0
CMD_LIGHTS_ON: $+lights on:@switch [v(lights)]=1,{@pemit %#=The [name(me)]'s mast searchlight is already on.},{@pemit/contents me=%N leans forward and switches on the [name(me)]'s searchlight.;@emit The [name(me)]'s searchlight hums on, brightly illuminating where it shines.;&lights me=1}
CMD_LIGHTS_OFF: $+lights off:@switch [v(lights)]=0,{@pemit %#=The [name(me)]'s searchlight are already off.},{@pemit/contents me=%N leans forward and turns off the [name(me)]'s searchlight.;@emit The [name(me)]'s searchlight turn off, returning the area to its normal illumination.;&lights me=0}
CMD_RUNNING_LIGHTS_ON: $+rlights on:@switch [v(rlights)]=1,{@pemit %#=The [name(me)]'s deck running lights are already on.},{@pemit/contents me=%N leans forward and switches on the [name(me)]'s deck running lights.;@emit The [name(me)]'s runninglights trace the outline of the sailboat in soft white stars.;&rlights me=1}
CMD_RUNNING_LIGHTS_OFF: $+rlights off:@switch [v(rlights)]=0,{@pemit %#=The [name(me)]'s running lights are already off.},{@pemit/contents me=%N leans forward and turns off the [name(me)]'s running lights.;@emit The [name(me)]'s running lights turn off, leaving the deck dark.;&rlights me=0}
REV: $+rev:@switch [v(motor)]=1,{@pemit %#=The [name(me)]'s inboard motor is already running.},{@pemit/contents me=%N revs up the inboard motor of the [name(me)];@emit The [name(me)]'s motor revs loudly VROOOOOOOOOOOOM.;&motor me=1}
CMD_IC: $C *:@em The [name(me)] %0
CMD_EM: $CEM *:@em %0
CMD_EXITS: $+exits:+exits
CMD_SCAN: $+scan:look
RLIGHTS: 0
CMD-DRIVE: $t *:@switch [com([v(motor)],[v(engine_on)])]=0,{@pemit %#=[name(me)]'s motor is not running.},{@pemit/contents me=%N drives [name(me)] [name(%0)].;@emit [name(me)] [v(move_mes)] slowly with the outboard engines.;go %0}}
CMD-SAIL: $s *:@switch [com([v(engine)],[v(engine_on)])]=0,{@pemit %#=[name(me)]'s anchor is still down.},{@switch [gt([v(speed)],0)]=0,{@pemit %#=[name(me)] will not go if you do not raise the sails.},{@pemit/contents me=%N sails the [name(me)] [name(%0)].;@emit [name(me)] [v(move_mes)] at [v(speed)] knots.;go %0}}
CMD-ACCELERATE: $acc *:@switch [com([v(engine)],[v(engine_on)])]=0,{@pemit %#=[name(me)]'s anchor is down.},{&speed me=[add([u(me/speed)],[v(0)])];@pemit/contents me=%N raises the sails and trims them out as the [name(me)] [v(acc_mes)] [v(speed)] knots.;@emit [name(me)] [v(acc_mes)] [v(speed)] knots.}
CMD-DECELERATE: $dec *:@switch [com([v(engine)],[v(engine_on)])]=0,{@pemit %#=[name(me)]'s anchor is down.},{@switch [lte([sub([u(me/speed)],[v(0)])],0)]=1,{@pemit %#=[name(me)]'s speed can not descrease below 1 knot.},{&speed me=[sub([u(me/speed)],[v(0)])];@pemit/contents me=%N trims out the sails as the [name(me)] [v(dec_mes)] [v(speed)] MPH.;@emit [name(me)] [v(dec_mes)] [v(speed)] knots.}}
START: $+raise anchor:@switch [v(engine)]=1,{@pemit %#=The [name(me)]'s anchor is already raised.},{@pemit/contents me=%N reals in the anchor, lashing it in place.;@emit The [name(me)]'s anchor is drawn up from the water.;&engine me=1;&speed me=0}
STOP: $+lower anchor:@switch [v(engine)]=0,{@pemit %#=The [name(me)]'s anchor is already lowered.},{@pemit/contents me=%N drops the anchor into the water, bringing the ship to a dead standstill.;@emit The [name(me)]'s anchor settles into the water as ship drifts to a halt.;&engine me=0;&speed me=0}
CMD_GO: $go *:@fo me=%0
CMD_ACT: $act *:@fo me=%0
CMD_DRIVE: $sail *:go %0
BRAKE: $+all stop:@switch [v(speed)]=0,{@pemit %#=You drop the the sails, but since the [name(me)] was not moving nothing happens.},{@switch [gt([v(speed)],25)]=1,{@pemit/contents me=%N lowers the sails as the [name(me)] comes to a complete stop.;@emit The [name(me)] glides to a firm stop after having its sails lowered.;&speed me=0},{@pemit/contents me=%N lowers the sails, slowing the [name(me)] down to a complete stop.;@emit The [name(me)] slows down to a complete stop.;&speed me=0}}
ENGINE_OFF: 0
ENGINE_ON: 1
ENGINE: 1
START_MES: starts up
STOP_MES: turns off
ACC_MES: speeds up to
DEC_MES: slows to
SPEED: 22
CL: 0
Idesc: %r================================================================%r%rSimple lines and small comfortable spaces. The decking worn but sanded down lest barefeet get splinters. the hull is small, a tall person must stoop, anyone climbing into the bed berth in the back must crawl. %r%r http://www.woodship.com/fleet/maryscott/maryscott.html%r%r================================================================%r
DESC-SET-OUT: $+desc *:@desc me=%r================================================================%r%r%0%r%r================================================================%r
DESC-SET-IN: $+idesc *:&Idesc me=%r================================================================%r%r%0%r%r================================================================%r
Lalias: o
Inprefix: From outside,
VACCINATED: YES
MOVE_MES: parts the water at its bow as it leaves a sizable wake behind it
LIGHTS: 0
CMD_SCAN_OBJECT: $scan *:look %0
CMD-BOATHELP: $+boat help:@pemit %#=-====ACCESSORIES=========-%r+cover -------- Hides it from sight%r+uncover -------- Pulls tarp off %r+cd <band> ------- Plays <band>%r+lights on ------- Turns on spotlight%r+lights off ------ Turns off spotlight%r+rlights on ------- Turns on running lights%r+rlights off ------ Turns off running lights%rlock -------- locks vehicle%runlock -------- unlocks vehicle%r%r-====DRIVING=============-%r+raise anchor -------- Allows ship to move%r+lower anchor -------- Stops Ship from moving%racc * -------- Accelerates to * speed%rdec * -------- Decelerates to * speed%r+all stop -------- Brings ship to halt%r+idle -------- Inboard motor idles off.%r+rev -------- Revs up the inboard motor%r+brake -------- Stops ship%rs <Dir> -------- Sails a direction%r%r-====EMOTING & MISC======-%r+exits -------- displays rooms extra exits%r+scan -------- displays room%rscan object ----- displays the object%rC -------- Same as : for vehicle%rCEM -------- Same as @em for outside vehicle%rCOOC -------- OOC outside the vehicle%r+boat help -------- This screen%r+desc <desc> -------- sets boats description%r+idesc <desc> -------- descs interior of boat%r%r
CMD-LOCK: $lock:@switch [v(cl)]=1,{@pemit %#= [name(me)]'s doors are already locked.},{@pemit/contents me=%N locks [name(me)]. ;@emit %N locks [name(me)]. ;@lock me=#0;@set me=!Enter_Ok;&cl me=1}
CMD-UNLOCK: $unlock:@switch [v(cl)]=0,{@pemit %#=The [name(me)]'s doors are already unlocked.},{@pemit/contents me=%N touches the entry pad and [name(me)]'s doors unlock with a click.;@emit %N unlocks [name(me)].;@unlock me;@set me=Enter_ok;&cl me=0}
UseLock: Laney(#13505PJU)
MOTOR: 1
Listen: *
CMD_IDLE: $+idle:@switch [v(motor)]=0,{@pemit %#=The [name(me)]'s inboard motor is not running.},{@pemit/contents me=%N lets the [name(me)]'s in board motors settle into a soft idle before they grow silient.;@emit The [name(me)]'s engine idles down into a soft PUUUUUR before clicking off.;&motor me=0}
PLACESMAX: 5
PLACES-HAS-LEFT-LISTEN: ^* has left.:placescleanup(%#)
PLACES-HAS-DISCONNED-LISTEN: ^* has disconnected.:placescleanup(%#)
PLACES-GOES-HOME-LISTEN: ^* goes home.:placescleanup(%#)
PLACENUMS: |||||
PLACE1: Above Deck|5|8||I'm sorry, there's no room to add a place there.|I'm sorry, there's no place to move there.|You sit down at Table 1.|sits down at Table 1.|You stand and leave Table 1.|stands and leaves Table 1.|At your table|Spotless from bow to stern. Watch out for the rigging watch out for the boom. The wood and brass polished and there are various places to settle from the three foot bow sprint to the aft deck by the rudder.
PLACE2: Table 2|3|1||I'm sorry, there's no room to add a place there.|I'm sorry, there's no place to move there.|You sit down at Table 2.|sits down at Table 2.|You stand and leave Table 2.|stands and leaves Table 2.|At your table|
PLACE3: Table 3|2|1||I'm sorry, there's no room to add a place there.|I'm sorry, there's no place to move there.|You sit down at Table 3.|sits down at Table 3.|You stand and leave Table 3.|stands and leaves Table 3.|At your table|
PLACE4: Table 4|8|4||I'm sorry, there's no room to add a place there.|I'm sorry, there's no place to move there.|You sit down at Table 4.|sits down at Table 4.|You stand and leave Table 4.|stands and leaves Table 4.|At your table|
PLACE5: Table 5|1|1||I'm sorry, there's no room to add a place there.|I'm sorry, there's no place to move there.|You sit down at Table 5.|sits down at Table 5.|You stand and leave Table 5.|stands and leaves Table 5.|At your table|