;; throwpie: throw a pie at the mouse position
;; Author: Dr.X & Biks
{
"$1" GREPSUB s =
{
"pieA" s =
} s "" == IF
"$1" GREPSUB z =
{
"pieB" z =
} z "" == IF
MOUSEPOS ty = tx =
POSX tx - dx =
POSY ty - dy =
s tx dx 3 * 4 / + ty dy 3 * 4 / + ADDLOOSEPROP CLEARLOOSEPROPS
z tx dx 2 / + ty dy 2 / + ADDLOOSEPROP CLEARLOOSEPROPS
s tx dx 4 / + ty dy 4 / + ADDLOOSEPROP CLEARLOOSEPROPS
")piesplat" SAY
["!Splup!" "!Flup!" "!Splack!" "!Ploof!" "!Blop!" "!Plup!" "!Sputch!"]
6 RANDOM GET MOUSEPOS SAYAT
"piesplat" MOUSEPOS ADDLOOSEPROP
{CLEARLOOSEPROPS "piepile" MOUSEPOS ADDLOOSEPROP} 100 ALARMEXEC
" CHATSTR =
} CHATSTR "^throwpie *(.*)$" GREPSTR IF