This Dune Buggy is something that Lars from DM coded up. Yes, it is in the form of examine, so the lines aren't in correct code. You kinda have to know what you are doing. I'm not sure if it still works correctly, but feel free to poke around with it. Make sure you keep the name of the coder on it.

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

Camo Buggy

Type: THING Flags: COMMANDS DARK TRANSPARENT OPAQUE CHOWN_OK
%r================================================================%r%r%tA classic steel railed Camo Buggy. The rollbars are thick and painted with an anticorrosive green paint. Strapped over these on the doors and front panel are large sheets of metal, painted a camo green and beige. The fastest way in is to hop over the side rails and into the bucket seats. Nestled on front like a set of eyes are two large headlights, tinted red to keep nightvision intact. A large engine is bolted into the far back, a tailpipe curving upwards, coated in the same dark green paint. Space between the top rollbars allows for one to ride uptop, in scout. Huge black rubber tires stick out from the sides, larger in the back than front. The have a deep tread to carve into any tough terrain. %r================================================================%r
Owner: Shale Key: Dark Metal - The Heart of the Machine Noogies: 1
RxLevel: Real
TxLevel: Real
CMD-CLEARPASS: $Clearpass;@name me=Camo Buggy
CMD-COVER: $+cover:@emit %N covers the [name(me)] with bushes.;@set Camo Buggy=dark;@Listen Camo Buggy=
CMD-UNCOVER: $+uncover:@emit %N pulls a camo-tarp off of the [name(me)].;@set Camo Buggy=!dark;@Listen Camo Buggy=*
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 Camo Buggy
Oxleave: steps off the [name(me)]
Ealias([$]): db;Camo Buggy;dune;buggy;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 headlights are already on.},{@pemit/contents me=%N leans forward and switches on the [name(me)]'s headlights.;@emit The [name(me)]'s headlights flick on, illuminating the area in a red haze.;&lights me=1}
CMD_LIGHTS_OFF: $+lights off:@switch [v(lights)]=0,{@pemit %#=The [name(me)]'s headlights are already off.},{@pemit/contents me=%N leans forward and turns off the [name(me)]'s headlights.;@emit The [name(me)]'s headlights turn off, returning the area to its normal light.;&lights me=0}
REV: $rev:@switch [v(engine)]=0,{@pemit %#=The [name(me)]'s engine is not running.},{@pemit/contents me=%N pushes on the gas, revving up the [name(me)]'s engine.;@emit The [name(me)]'s engine revs loudly VROOOOOOOOOOOOM.}
Idle([$]): $idle engine:@switch [v(engine)]=0,{@pemit %#=The&ENG_IDLE Firehawk 2000=$idle engine:@switch [v(engine)]=0,{@pemit %#=The [name(me)]'s engine is not running.},{@pemit/contents me=%N lets the [name(me)]'s engine settle into a soft idle.;@emit The [name(me)]'s engine idles down into a soft PUUUUUR.}
CMD_IC: $C *:@em The [name(me)] %0
CMD_EM: $CEM *:@em %0
CMD_EXITS: $+exits:+exits
CMD_SCAN: $+scan:look
CMD_SQUEAL_TIRES: $+squeal:@switch [v(engine)]=0,{@pemit %#=The [name(me)]'s engine is not running.},{@pemit/contents me=%N holds down the brake, and floors the car, releasing the brake to kick large amounts of dust and sand into the air..;@emit The [name(me)]'s tires spin, throwing sand and dust up, reving loudly before regaining traction.}
CMD-DRIVE: $t *:@switch [com([v(engine)],[v(engine_on)])]=0,{@pemit %#=[name(me)]'s engine is not running.},{@switch [gt([v(speed)],0)]=0,{@pemit %#=[name(me)] will not drive if you do not push on the gas.},{@pemit/contents me=%N drives [name(me)] [name(%0)].;@emit [name(me)] [v(move_mes)] at [v(speed)] MPH.;go %0}}
CMD-ACCELERATE: $acc *:@switch [v(engine)]=[v(engine_off)],{@pemit %#=[name(me)]'s engine is not running.},{&speed me=[add([u(me/speed)],[v(0)])];@pemit/contents me=%N presses down on the peddle and [name(me)] [v(acc_mes)] [v(speed)] MPH.;@emit [name(me)] [v(acc_mes)] [v(speed)] MPH.}
CMD-DECELERATE: $dec *:@switch [v(engine)]=[v(engine_off)],{@pemit %#=[name(me)]'s engine is not running.},{@switch [lte([sub([u(me/speed)],[v(0)])],0)]=1,{@pemit %#=[name(me)]'s speed can not descrease below 1 MPH.},{&speed me=[sub([u(me/speed)],[v(0)])];@pemit/contents me=%N eases up on the gas pedal and [name(me)] [v(dec_mes)] [v(speed)] MPH.;@emit [name(me)] [v(dec_mes)] [v(speed)] MPH.}}
START: $+start:@switch [v(engine)]=1,{@pemit %#=The [name(me)]'s engine is already running.},{@pemit/contents me=%N inserts the key into the ignition, and starts the car.;@emit The [name(me)]'s engine stirs to life.;&engine me=1;&speed me=0}
STOP: $+stop:@switch [v(engine)]=0,{@pemit %#=The [name(me)]'s engine is already off.},{@pemit/contents me=%N turns off the motor with a halting rumble, and takes the key out of the ignition.;@emit The [name(me)]'s tail pipe putters and the engine cranks to a halt.;&engine me=0;&speed me=0}
CMD_GO: $go *:@fo me=%0
CMD_ACT: $act *:@fo me=%0
CMD_DRIVE: $drive *:go %0
BRAKE: $+brake:@switch [v(speed)]=0,{@pemit %#=You push on the brake, but since the [name(me)] was not moving nothing happens.},{@switch [gt([v(speed)],25)]=1,{@pemit/contents me=%N slams on the brakes and the [name(me)] comes to a complete stop.;@emit The [name(me)] skids to a firm stop after having its brakes applied rather hard.;&speed me=0},{@pemit/contents me=%N pushes on the brakes, slowing the [name(me)] down to a complete stop.;@emit The [name(me)] slows down to a complete stop.;&speed me=0}}
ENGINE_OFF: off
ENGINE_ON: running
ENGINE: 0
START_MES: starts up
STOP_MES: turns off
ACC_MES: speeds up to
DEC_MES: slows to
SPEED: 0
CL: 1
Idesc([$]): %r================================================================%r%r%tThis wild ride is fairly comfy. Two large mesh lined bucket seats are set in the front with a narrow bench behind for more riders. The chasis around you is steel framed and painted with corrosive proof green paint. Only three cross beams protect the passengers from being crushed in a roll over.A small foldout seat is hanging up by the roof of the frame, for someone to stick out the top of the crossbeams. %r%tThe dash is filled with analog dials an a small stearing wheel. The controls mostly seem basic with your standard stick on the floor between the buckets. With the current metal siding bolted into the frame, the bottom half of the vehicle is covered, leaving the top open to the elements.%r================================================================%r
Lalias([$]): o
Inprefix([$]): From outside,
VACCINATED: YES
CMD-IDLE: $+idle:@switch [v(engine)]=0,{@pemit %#=The [name(me)]'s engine is not running.},{@pemit/contents me=%N lets the [name(me)]'s engine settle into a soft idle.;@emit The [name(me)]'s engine idles down into a soft PUUUUUR.}
MOVE_MES: kicks up dust as it rumbles off
LIGHTS: 1
CMD_SCAN_OBJECT: $scan *:look %0
CMD-CARHELP: $car help:@pemit %#=-====ACCESSORIES=========-%r+cover -------- Hides it from sight%r+uncover -------- Pulls tarp off %r+cd <band> ------- Plays <band>%r+lights on ------- Turns on beams%r+lights off ------ Turns offbeams%rlock -------- locks vehicle%runlock -------- unlocks vehicle%r%r-====DRIVING=============-%r+start -------- Starts engine%r+stop -------- Stops engine%racc * -------- Accelerates to * speed%rdec * -------- Decelerates to * speed%r+idle -------- Puts engine in idle running%r+rev -------- Revs up the engine%r+squeal -------- Kicks up dust by holding brake in.%r+brake -------- Stops vehicle%rt <Dir> -------- Drives 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+car help -------- This screen%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([$]): Lars|Shale(#14501PcHl[I])