Wandering Unicorns

The wandering unicorns move randomly, every 6 seconds, to rooms listed in the GARDEN_ROOMS attribute.

Author: Magik@GlobalMUSH
Category: Other

Instructions

Copy and paste the below code into a compatible MUSH or MUX.

MUSHCode for Wandering Unicorns

@create %xh%xgThe Wandering Unicorns
@lock The Wandering Unicorns==me
@Desc The Wandering Unicorns=[space(8)] The fabled unicorns of the gardens wander in. You see five total, though sense more are near. Four of these are alabaster. The largest, a stallion, trots protectively around the two smaller females and a young male colt. One beautiful one stands to the corner. She is solid ebony, with azure hooves. Her mane and tail glint a deep blue to match the hooves. Her golden twisted horn glints in the moonlight, and you are awe struck as she comes to you and nuzzles your hand affectionately.
@Move The Wandering Unicorns=@emit The fabled unicorns of the gardens wander in. You see five total, though sense more are near. Four of these are alabaster. The largest, a stallion, trots protectively around the two smaller females and a young male colt. One beautiful one stands to the corner. She is solid ebony, with azure hooves. Her mane and tail glint a deep blue to match the hooves. Her golden twisted horn glints in the moonlight, and you are awe struck as she comes to you and nuzzles your hand affectionately.
&WANDER The Wandering Unicorns=[name(extract(setq(0,setinter(get(me/garden_rooms),[iter(lexits(here),loc(##))]))[r(0)],add(rand(words(r(0))),1),1))];@wait 6=@tri me/wander
&GARDEN_ROOMS The Wandering Unicorns=#3420 #4073 #4480 #4481 #5134 #18494 #19301 #21458 #22376 #25199 ##26632 #28497 #28580 #28650 #29191 #30062 #30208 #30289 #311380 #34851 #27959 #21820 #36296 #36299
@startup The Wandering Unicorns=@tri me/wander