COWbrowse

You are looking at a command called play

play with {$object}
play {object}

Visually interact with an object.

play with the ball

If you omit the word 'with' you play the object like a musical instrument.

play the piano

scripting notes
Playing with an object generates a trigger keyword of 'play'
Playing to make music generates a trigger keyword of 'music';

So if you want an object to react to being played with do this:

if target of play then havesomefun;
##havesomefun:
print "[$actor] really enjoys the companyof [$init_obj]";

Or to react to being played as an instrument do this:

if target of music then iwasplayed;
##iwasplayed:
print "You hear a string snap from [$actor]. [$init_obj] was a bit to rough";

Created by wolis, last updated 03 Nov 2008

Code

get $target in $loc;
if $target > 0 then makemusic else tryagain;

##tryagain:
get $rel,$target in $loc;
if $target > 0 then playwithit else fail;

##sethost:
clear $actor,all;
set $actor's host to $target;
set $actor's hosthow to 'beside';

##makemusic:
$snd to (lovely,melodious,stering,bold,faint,haunting,beguiling);
$sound = (sound,tune,melody,noise,refrain);
say 'music',"[$actor] plays [$target]. oh.. such a $snd $sound";
runsub sethost;

##playwithit:
$actn = (plays,frollics,has some fun);
say 'play',"[$actor] $actn with [$target]";
runsub sethost;

##fail:
var $click_cmd to 'play';
var $desc_intro to 'Click on the object you want to play with:

';
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";