;****************Gotcha by Chad Racine (Swiggle)*******************
;Puts a cool arc of any prop around someone have fun!
{ "$1" GREPSUB propstr =

  "!)pop gotcha" MOUSEPOS SAYAT
           220 0 204 PENCOLOR 1 PENSIZE
           POSX POSY MOUSEPOS LINE
           PAINTUNDO
        220 0 204 PENCOLOR 2 PENSIZE
           POSX POSY MOUSEPOS LINE
           PAINTUNDO
15 0 162 PENCOLOR 3 PENSIZE
           POSX POSY MOUSEPOS LINE
           PAINTUNDO
103 0 255 PENCOLOR 4 PENSIZE
           POSX POSY MOUSEPOS LINE
           PAINTUNDO
223 0 31 PENCOLOR 5 PENSIZE
           POSX POSY MOUSEPOS LINE
PAINTUNDO
mousepos SWAP x = y =
        10 x -=
        propstr  x 80 -  y  ADDLOOSEPROP
       propstr x 80 - y 25 -  ADDLOOSEPROP
       propstr x 70 - y 50 -  ADDLOOSEPROP
       propstr x 60 - y 65 - ADDLOOSEPROP
       propstr x 40 - y 80 - ADDLOOSEPROP
       propstr x 20 - y 90 - ADDLOOSEPROP
       propstr x 80 +  y  ADDLOOSEPROP
       propstr x 80 + y 25 -  ADDLOOSEPROP
       propstr x 70 + y 50 -  ADDLOOSEPROP
       propstr x 60 + y 65 - ADDLOOSEPROP
       propstr x 40 + y 80 - ADDLOOSEPROP
       propstr x 20 + y 90 - ADDLOOSEPROP
"" CHATSTR =
        } CHATSTR "^gotcha (.*)$" GREPSTR IF {}
;END=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==--=-