**************** re-zap V1.1 ***********************
;  NOTE: THIS GOES IN THE 'ON INCHAT' SECTION
;  pgausden@ozemail.com.au (aka P.O.D.) 17/3/96 - Don't Zap Me - or else
;    V1.1 - Detect spoofing also
; this script automatically replys to someone zapping you !

 {
  {
   { WHOCHAT WHOPOS y1 = x1 =
     ">> you were targetted by " WHOCHAT WHONAME + LOGMSG

; reply to the zap
  {
    "!)no NOBODY ZAPS " USERNAME + " AND LIVES" + x1 y1 SAYAT
    PENFRONT
    8 PENSIZE 255 0 0 PENCOLOR
    x1 40 - y1 40 - x1 40 + y1 40 + line
    x1 40 - y1 40 + x1 40 + y1 40 - line
     }

; place a message next to the person spoofing
  {
    "^<< " WHOCHAT WHONAME + " is Spoofing >>" + x1 y1 SAYAT
     } "$3" GREPSUB "Zap" SUBSTR IFELSE
      } "$1" GREPSUB ATOI POSX -
             DUP 80 < SWAP -40 > AND IF
       } "$2" GREPSUB ATOI POSY -
              DUP 66 < SWAP -22 > AND IF

 } CHATSTR "^@(.*),(.*) (.*)$" GREPSTR WHOCHAT WHOME == NOT AND IF

; ************** re-zap end *********************