# -*- LPC -*- #
#
# $Locker: presto $
# $Id: cling.s,v 1.1 2002/02/01 07:56:01 saffra Exp presto $
#
#
#
(cling
(pattern "<indirect:any-living>")
(pattern "<string>")
(pattern "<string> <indirect:any-living>")
(pattern "<indirect:any-living> <string>")
(single
(no-arguments
(self "You cling on for dear life.")
(rest "$mcname$ clings on for dear life.")
)
(arguments
(arguments tightly, passionately, fearfully, possessively, paranoically,
like a pair of socks, like static, by your fingertips, for
dear life, desperately, like a wool sweater, like a groupie,
to the north face of the Uxbridge Road, #)
(self "You cling on $arg$.")
(rest "$mcname$ clings on $arg$.")
)
)
(targeted
(no-arguments
(self "You cling onto $hcname$.")
(target "$mcname$ clings onto you.")
(rest "$mcname$ clings onto $hcname$.")
)
(arguments
(arguments tightly, passionately, fearfully, possessively, paranoically,
like a pair of socks, like static, by your fingertips, for
dear life, desperately, like a wool sweater, like a groupie,
to the north face of the Uxbridge Road, #)
(self "You cling onto $hcname$ $arg$.")
(target "$mcname$ clings onto you $arg$.")
(rest "$mcname$ cling onto $hcname$ $arg$.")
)
)
)
/* Saffra, for idea rep, 2-1-02 */
