# -*- LPC -*- #
#
# $Locker: $
# $Id: tapdance.s,v 1.1 2002/05/09 03:58:27 saffra Exp $
#
#
#
(tapdance
(pattern "[at] <indirect:any-living>")
(pattern "<string>")
(pattern "<string> [at] <indirect:any-living>")
(pattern "[at] <indirect:any-living> <string>")
(single
(no-arguments
(self "You tapdance around like a centipede on acid.")
(rest "$mcname$ tapdances around like a centipede on acid.")
)
(arguments
(arguments across the room, to the Rim and back, to CWC and back, over a
dead body, over Dogbolter's dead body, with new shiny shoes,
manically, madly, stylishly, like a duck, like Fred
and Ginger, without falling in the sink, # )
(self "You tapdance around $arg$.")
(rest "$mcname$ tapdances around $arg$.")
)
)
(targeted
(no-arguments
(self "You tapdance around $hcname$ like a centipede on acid.")
(target "$mcname$ tapdances around you like a centipede on acid.")
(rest "$mcname$ tapdances around $hcname$ like a centipede on acid.")
)
(arguments
(arguments across the room, to the Rim and back, to CWC and back, over a
dead body, over Dogbolter's dead body, with new shiny shoes,
manically, madly, stylishly, like a duck, like Fred
and Ginger, without falling in the sink, # )
(self "You tapdance around $hcname$ $arg$.")
(target "$mcname$ tapdances around you $arg$.")
(rest "$mcname$ tapdances around $hcname$ $arg$.")
)
(arguments
(arguments grave)
(self "You tapdance on $mhcname$ grave.")
(target "$mcname$ tapdances on your grave.")
(rest "$mcname$ tapdances on $mhcname$ grave.")
)
)
)
