# -*- LPC -*- #
#
# $Locker: $
# $Id: belch.s,v 1.2 2003/04/24 01:54:11 presto Exp $
#
#
#
(belch
(pattern "[at] <indirect:any-living>")
(pattern "<string>")
(pattern "<string> [at] <indirect:any-living>")
(pattern "[at] <indirect:any-living> <string>")
(single
(no-arguments
(self "You belch.")
(rest "$mcname$ belch$s$.")
)
(arguments
(arguments disgustingly,faintly,loudly,rudely,quickly,
happily,annoyingly,lovingly,humbly,
manically,absentmindedly,drunkenly,disturbingly,demonically,pleasantly,
serenely, viciously, humbly, nastily, like Belcar, #)
(self "You belch $arg$.")
(rest "$mcname$ belch$s$ $arg$.")
)
)
(targeted
(no-arguments
(self "You belch at $hcname$.")
(target "$mcname$ belch$s$ at you.")
(rest "$mcname$ belch$s$ at $hcname$.")
)
(arguments
(arguments disgustingly,faintly,loudly,rudely,quickly,
happily,annoyingly,lovingly,humbly,manically,absentmindedly,
drunkenly,disturbingly,demonically,pleasantly,
serenely, viciously, humbly, nastily, like Belcar, #)
(self "You belch $arg$ at $hcname$.")
(target "$mcname$ belch$s$ $arg$ at you.")
(rest "$mcname$ belch$s$ $arg$ at $hcname$.")
)
)
)
