if reacting to use then used;
if target of hit then washit;
if reacting to talk then talkin;
if target of bounce then washit;
if target of play then playedwith;
if target of music then musiced;

##musiced:
$instrument = (trumpet,saxophone,clarinet,marimba,glockenspiel,tuba,baritone,trombone,french horn,drum set,set of cymbals,flute);
$songtype = (horrible,beautiful,very fine,ugly,interesting,funny,happy,sad);
$song = (Yankee Doodle Dandy,Funky Town,Canon in D,Minuet in G, the Banana Phone song,Rudolph the Red Nosed Reindeer,Frosty the Snowman,Beethoven's 5th Symphony);
print "[$init_obj] moves to play [$actor], and he turns into a $instrument! What?";
print "[$init_obj] plays a $songtype rendition of $song.";

##playedwith:
print [$init_obj] plays happily with [$actor]...they look quite gleeful.";

##used:
if $actor equals $target then happy else jealous;

##jealous:
print "[$actor] looks jealous of [$target].";

##happy:
print "[$actor] is happy.";

##talkin:
$response = (looks like it is interested,is ignoring you,looks like it is listening);
print "[$actor] $response.";

##washit:
$react = (sad,upset,angry,depressed,aggressive,pissed at [$init_obj],feeling the blues,unhappy,ready to kill);
print "[$actor] is $react.";

##tickloc:runsub healthcheck;

##healthcheck:
if $actor's health = 0 then restore;

##healself:
call "use the magic stone";
print "[$actor] is ready to rock!";

##restore:
call "cpr me";
call "use the magic stone";