; The Cancellator version 1.0b | for OUTCHAT | Made By Tokie-D-Bear 2/27/96 |
; My 2nd Script!
; This is sort of a fun and mildly effective script to use on troublemaking
; Guests. It usually freaks em out pretty good. Sometimes it works on
; members too, but just the ignorant ones.
;
; USAGE: For all commands except ?cancellate, you must first click on the
; target user (get into whisper mode) before you issue the command.
;
; COMMANDS: To cancel user type: cancellate (use on troublemakers only, not
; innocents)
; To re-cancel user type: recancel (use this if the user
; moves away from the X)
; To un-cancel user type: uncancel (use this when behavior
; modification is achieved)
; For Online Instructions type: ?cancellate (use this when you forget how
; the script works)
;
{ PENFRONT
15 PENSIZE
255 0 0 PENCOLOR
"!)no NOTICE: " WHOTARGET WHONAME + " has been CANCELLED!" + ROOMMSG ""
CHATSTR =
WHOTARGET WHOPOS y = x =
x 21 - y 21 - x 21 + y 21 + LINE
x 21 + y 21 - x 21 - y 21 + LINE
"" CHATSTR =
} CHATSTR "^cancellate" GREPSTR IF
{ PAINTUNDO PAINTUNDO
PENFRONT
15 PENSIZE
255 0 0 PENCOLOR
"There is no easy escape from The Cancellator, " WHOTARGET WHONAME +
". Try
begging for forgiveness and promising to behave yourself. Sometimes that
works." + ROOMMSG "" CHATSTR =
WHOTARGET WHOPOS y = x =
x 21 - y 21 - x 21 + y 21 + LINE
x 21 + y 21 - x 21 - y 21 + LINE
"" CHATSTR =
} CHATSTR "^recancel" GREPSTR IF
{ PAINTUNDO PAINTUNDO
"!)yes NOTICE: " WHOTARGET WHONAME + " has been Un-Cancelled." +
ROOMMSG ""
CHATSTR =
"" CHATSTR =
} CHATSTR "^uncancel" GREPSTR IF
{ "@10,50 !The Cancellator v1.0b | Another ChoticPsyae IptScrae brought
to you
by Tokie-D-Bear." LOCALMSG
"@150,50 !USAGE: Click on target (to get in whisper mode) then type
cancellate." LOCALMSG
"@290,50 !If target moves, while still in whisper mode, type recancel to
re-cancel the target." LOCALMSG
"@150,170 !When behavior modification is achieved, in whisper mode, type
uncancel." LOCALMSG
"" CHATSTR =
} CHATSTR "?cancellate" == IF
               (
geocities.com/siliconvalley/network/8524)                   (
geocities.com/siliconvalley/network)                   (
geocities.com/siliconvalley)