;Made By: KORN
;Title: 360zap 1.0
;Other: It still needs work, But in 1.2 you'll be able to
;do this from any where and not just from Pos 256 192!!

;Revision : Michael Lampkin
;Date     : 11-14-96
;Updates  : Now works from any position

  {

  ;Get our avatars position

    POSX x =
    POSY y =


  ;Set the target position

    MOUSEPOS ty = tx =

  ;Set drawing to the top layer and color to WHITE etc.

    PENFRONT
    2 PENSIZE
    255 255 255 PENCOLOR

  ;Draw the 'starburst' the hard way, hope for a circle command next release
  ;adjust the size to your own taste...

    x y x 45 + y      LINE PAINTUNDO
    x y x 40 + y 40 + LINE PAINTUNDO
    x y x      y 45 + LINE PAINTUNDO
    x y x 40 + y 40 - LINE PAINTUNDO
    x y x 45 - y      LINE PAINTUNDO
    x y x 40 - y 40 - LINE PAINTUNDO
    x y x      y 45 - LINE PAINTUNDO
x y x 40 - y 40 - LINE PAINTUNDO


  ;Fire!!!!

    PENBACK
    ")no !Zap!!" Mousepos sayat
    x y MOUSEPOS LINE
    PAINTUNDO

  ;Clear out chat - no talkin to self

    "" CHATSTR =

  } CHATSTR "360zap" == IF