# -*- LPC -*- #
#
# $Locker: $
# $Id: whirl.s,v 1.2 2003/04/22 01:38:10 saffra Exp $
#
#
#
(whirl
(pattern "<indirect:any-living>")
(pattern "<string>")
(pattern "<indirect:any-living> [at] <string>")
(pattern "<string> [at] <indirect:any-living>")
(single
(no-arguments
(self "You whirl around.")
(rest "$mcname$ whirl$s$ around.")
)
(arguments
(arguments suddenly, quickly, slowly, dizzily, nauseatingly, in a panic,
like a whirlwind, like a tornado, like a blender, like a dust
devil, like a dervish, like a Tasmanian Devil, in a spiral,
in a holding pattern, #)
(self "You whirl around $arg$.")
(rest "$mcname$ whirl$s$ around $arg$.")
)
)
(targeted
(no-arguments
(self "You whirl around $hcname$.")
(target "$mcname$ whirl$s$ around you.")
(rest "$mcname$ whirl$s$ around $hcname$.")
)
(arguments
(arguments suddenly, quickly, slowly, dizzily, nauseatingly, in a panic,
like a whirlwind, like a tornado, like a blender, like a dust
devil, like a dervish, like a Tasmanian Devil, in a spiral,
in a holding pattern, #)
(self "You whirl around $hcname$ $arg$.")
(target "$mcname$ whirl$s$ around you $arg$.")
(rest "$mcname$ whirl$s$ around $hcname$ $arg$.")
)
)
)
/* Saffra 5-11-01 */
