@create Tamborine Monkey
@lock/Use Tamborine Monkey==me
@set Tamborine Monkey = LINK_OK
@set Tamborine Monkey = VISUAL
&AWNDER Tamborine Monkey=[next(rand(items(lexits(here),%b)))]
@DESCRIBE Tamborine Monkey=A little noise making [name(me)] with a wind up key sticking out of it's back. if you [ansi(m,wind)] it up it may do something interesting. It is posed to look like it's [get_eval(me/position)]
@set Tamborine Monkey/DESCRIBE=no_command visual
&NOTES Tamborine Monkey=Nothing of note here very simple @create and @parent your own toy.
&POSECMD Tamborine Monkey=$position monkey *:think [emit(%n poses the [name(me)] differently.)];think [set(me,position:%0)]
&POSITION Tamborine Monkey=sitting.
&WANDER Tamborine Monkey=[switch(#-1,next(add(rand(items(lexits(here),%b)),1)),exit(here),next(add(rand(items(lexits(here),%b)),1)))]
&WIND Tamborine Monkey=$wind:think [emit(%n winds up the [name(me)] which starts dancing while making noise for a few minutes until it wanders away.)];go [get_eval(me/wander)]
&CREDITS Tamborine Monkey=Haldan@Dynamix