;; PUT THESE SCRIPTS UNDER OUTCHAT IN YOUR CYBORG.IPT

; spoof somebody by positioning the mouse on their mouth
; and then type "msay blah blah"

{ "$1" GREPSUB chatter =

chatter MOUSEPOS SAYAT

"" CHATSTR =

} CHATSTR "^msay (.*)$" GREPSTR IF

;***************************************************************************

;; <: Talk when your gagged
;; Author: Brad
;; type < before anything you say, a roommsg will appear at your mouth
;; works when your gagged!!

{
"$1" GREPSUB chatter =
"@" POSX POSY ITOA " " & SWAP ITOA "," & SWAP & &
chatter & ROOMMSG
"" CHATSTR =
} CHATSTR "^<(.*)$" GREPSTR IF

;*********************************************************************

;; msh: like msay but use a roommsg
;; Author: Dr. X

{
"$1" GREPSUB chatter =
"@" MOUSEPOS ITOA " " & SWAP ITOA "," & SWAP & &
chatter & ROOMMSG
"" CHATSTR =
} CHATSTR "^msh (.*)$" GREPSTR IF

;************************************************************************************

;ZOOP
;Author: ??
;Usage: Paint Spread
;How: Type zoop

{

255 0 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS LINE
200 0 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 1 - 1 - LINE
150 0 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 2 - 2 - LINE
100 0 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 3 - 3 - LINE
050 0 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 4 - 4 - LINE

200 200 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 1 + 1 + LINE
150 150 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 2 + 2 + LINE
100 100 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 3 + 3 + LINE
050 50 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 4 + 4 + LINE

0 200 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 5 - 5 - LINE
0 150 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 6 - 6 - LINE
0 100 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 7 - 7 - LINE
0 050 0 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 8 - 8 - LINE

200 0 200 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 5 + 5 + LINE
150 0 150 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 6 + 6 + LINE
100 0 100 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 7 + 7 + LINE
050 0 50 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 8 + 8 + LINE

0 0 200 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 9 - 9 - LINE
0 0 150 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 10 - 10 - LINE
0 0 100 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 11 - 11 - LINE
0 0 050 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 12 - 12 - LINE

0 200 200 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 9 + 9 + LINE
0 150 150 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 10 + 10 + LINE
0 100 100 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 11 + 11 + LINE
0 050 050 PENCOLOR 1 PENSIZE
POSX POSY MOUSEPOS 12 + 12 + LINE

PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO
PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO
PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO
PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO
PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO
PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO
PAINTUNDO

"" CHATSTR =
}
CHATSTR "zoop" == IF

;************************************************************************************

;Ultima Zap
;Author: Brad
;Usage: Ultima Zap, Lots of Paint
;How: Say ultima

{

255 255 0 pencolor 20 pensize posx posy penpos
400 0 lineto posx posy penpos 0 400 lineto posx posy penpos
-400 0 lineto posx posy penpos 0 -400 lineto 255 0 0 pencolor
5 pensize posx posy penpos 100 100 lineto posx posy penpos
-100 -100 lineto posx posy penpos -100 100 lineto posx posy penpos
100 -100 lineto paintclear "!)no ZAP!" MOUSEPOS SAYAT
255 255 0 PENCOLOR 10 PENSIZE
POSX POSY MOUSEPOS LINE paintundo 255 0 0 pencolor 3 pensize
mousepos penpos 20 20 lineto -40 -40 lineto 20 20 pento
20 -20 lineto -40 40 lineto 20 -20 pento 10 pensize 0 0 255 pencolor
0 400 lineto 0 -800 lineto 0 400 pento 400 0 lineto -800 0 lineto
255 0 0 pencolor 20 pensize posx posy mousepos line 255 100 0 pencolor
20 pensize posx posy mousepos line ")boom" say paintundo paintundo
"" CHATSTR =
} chatstr "ultima" == IF

;************************************************************************************

;X ZAP
;Author: Brad
;Usage: Zap with a red X
;How: Type Zap

{
penfront
3 pensize 0 0 255 pencolor
")yes !no!" mousepos sayat
posx posy mousepos line
paintundo
255 0 0 pencolor
mousepos penpos 40 0 lineto
mousepos penpos 0 40 lineto
mousepos penpos -40 0 lineto
mousepos penpos 0 -40 lineto
"" CHATSTR =
}CHATSTR"zap"==IF

;************************************************************************************

;; clean cleans the room

{
paintclear
clearlooseprops
"" CHATSTR =
}CHATSTR "clean"==IF

;************************************************************************************

;Nuke
;Author: Cecil
;Usage: NUKE someone
;How: type nuke

{":nuke" SAY
0 0 255 PENCOLOR PENFRONT 5PENSIZE WHOME WHOPOS MOUSEPOS LINE
0 128 255 PENCOLOR PENFRONT 4PENSIZE WHOME WHOPOS MOUSEPOS LINE
0 255 255 PENCOLOR PENFRONT 3PENSIZE WHOME WHOPOS MOUSEPOS LINE
128 255 255 PENCOLOR PENFRONT 2PENSIZE WHOME WHOPOS MOUSEPOS LINE
255 255 255 PENCOLOR PENFRONT 1PENSIZE WHOME WHOPOS MOUSEPOS LINE
MOUSEPOS Y = X =
")bahamut" SAY
"kablooie1" X 60 RANDOM + Y 60 RANDOM + ADDLOOSEPROP
"kablooie1" X 80 RANDOM - Y 80 RANDOM - ADDLOOSEPROP
"kablooie1" X 60 RANDOM + Y 80 RANDOM - ADDLOOSEPROP
"kablooie1" X 80 RANDOM - Y 60 RANDOM + ADDLOOSEPROP
"kablooie1" X 60 RANDOM + Y 60 RANDOM + ADDLOOSEPROP
"kablooie1" X 80 RANDOM - Y 80 RANDOM - ADDLOOSEPROP
"kablooie1" X 60 RANDOM + Y 80 RANDOM - ADDLOOSEPROP
"kablooie1" X 80 RANDOM - Y 60 RANDOM + ADDLOOSEPROP

"kablooie2" X 40 RANDOM + Y 40 RANDOM + ADDLOOSEPROP
"kablooie2" X 60 RANDOM - Y 60 RANDOM - ADDLOOSEPROP
"kablooie2" X 40 RANDOM + Y 60 RANDOM - ADDLOOSEPROP
"kablooie2" X 60 RANDOM - Y 40 RANDOM + ADDLOOSEPROP
"kablooie2" X 40 RANDOM + Y 40 RANDOM + ADDLOOSEPROP
"kablooie2" X 60 RANDOM - Y 60 RANDOM - ADDLOOSEPROP
"kablooie2" X 40 RANDOM + Y 60 RANDOM - ADDLOOSEPROP
"kablooie2" X 60 RANDOM - Y 40 RANDOM + ADDLOOSEPROP

"kablooie3" X 20 RANDOM + Y 20 RANDOM + ADDLOOSEPROP
"kablooie3" X 40 RANDOM - Y 40 RANDOM - ADDLOOSEPROP
"kablooie3" X 20 RANDOM + Y 40 RANDOM - ADDLOOSEPROP
"kablooie3" X 40 RANDOM - Y 20 RANDOM + ADDLOOSEPROP
"kablooie3" X 20 RANDOM + Y 20 RANDOM + ADDLOOSEPROP
"kablooie3" X 40 RANDOM - Y 40 RANDOM - ADDLOOSEPROP
"kablooie3" X 20 RANDOM + Y 40 RANDOM - ADDLOOSEPROP
"kablooie3" X 40 RANDOM - Y 20 RANDOM + ADDLOOSEPROP
PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO
{CLEARLOOSEPROPS} 300 ALARMEXEC
"" CHATSTR =
}CHATSTR "Nuke" == IF

;************************************************************************************

;; Dump, made by brad
;; Stacks your prop on the screen at your mouse position

{

0 i = { mousepos dropprop i++ } { i 9 <} WHILE

"" CHATSTR =
}CHATSTR "dump"==IF

;************************************************************************************

;; brb
;; puts a brb prop on you when you say brb

{
"brb" donprop
}CHATSTR"^brb"==IF

;*********************************************************************************

;Zip Script
;By Clay Johnson (Turtle Boy)
;Give us script writers a little credit--
;Keep our names in them

{
"$1" GREPSUB ATOI roomstr =
USERNAME " IS LEAVING THE ROOM" + ROOMMSG
0 150 220 PENCOLOR PENFRONT 3 PENSIZE POSX 22 - x = POSY 22 - y = { x y
x
y 44 + LINE 4 x += } { x POSX 22 + < } WHILE
0 i =
{ i ++ PAINTUNDO } { i 11 < } WHILE
PAINTCLEAR
")applause" SAY
"" CHATSTR =
roomstr GOTOROOM
}CHATSTR "zip (.*)$" GREPSTR IF

;**************************************************************************

;; Pac Man Bites You
;; Pac
;; Author: Brad
;; put your mouse by someone and type "pacman"

{ 0 i = { "pm open r" mousepos addlooseprop clearlooseprops "pm close r"
mousepos addlooseprop clearlooseprops i++ } { i 5 <} WHILE
"" CHATSTR =
}CHATSTR"pacman"==IF

;******************************************************************************

; room hi
; says Hi to everyone
; type roomhi
; author: I forgot

{
NBRROOMUSERS num =
"Hi "
{
{
", " i ROOMUSER WHONAME + +
} i ROOMUSER WHONAME USERNAME == NOT IF
i ++
} { i num < } WHILE
SAY
"" CHATSTR =
} CHATSTR "roomhi" == IF

;*************************************************************************

;; This script adds a looseprop of your choice on your mouse position
;; "drop (prop name)"

{
"$1" GREPSUB prop =
MOUSEPOS y = x =
prop MOUSEPOS ADDLOOSEPROP
"" CHATSTR =
} CHATSTR "^drop (.*)" GREPSTR IF

;*************************************************************************

;; the following is a script I wrote which puts a wall of props anywhere
;; your
;; mousepos is. Please, much like scan, it can be quite laggy and irritating
;; sometimes, but it is very useful for taking screenshots of someone, i.e.
;; planting a wall of whiteness behind subject, or just having fun. Type
;; abyss (propname) to use it. And use it with caution, please...ENJOY!--TB
; start abyss script

{"$1" GREPSUB propstr =
255 0 0 PENCOLOR PENFRONT
POSX -0 - x1 = and POSY 30 + y1 = MOUSEPOS y2 = x2 =
x2 x1 - dx = y2 y1 - dy =
x1 y1 PENPOS
2 PENSIZE
dx 4 / dy 4 / LINETO
4 PENSIZE
dx 4 / dy 4 / LINETO
6 PENSIZE
dx 4 / dy 4 / LINETO
8 PENSIZE
dx 4 / dy 4 / LINETO
propstr x2 30 - y2 0 -ADDLOOSEPROP
propstr x2 0 - y2 0 -ADDLOOSEPROP
propstr x2 60 - y2 0 -ADDLOOSEPROP
propstr x2 90 - y2 0 -ADDLOOSEPROP
propstr x2 0 - y2 30 -ADDLOOSEPROP
propstr x2 30 - y2 30 -ADDLOOSEPROP
propstr x2 60 - y2 30 -ADDLOOSEPROP
propstr x2 90 - y2 30 -ADDLOOSEPROP
propstr x2 0 - y2 60 -ADDLOOSEPROP
propstr x2 30 - y2 60 -ADDLOOSEPROP
propstr x2 60 - y2 60 -ADDLOOSEPROP
propstr x2 90 - y2 60 -ADDLOOSEPROP
propstr x2 0 - y2 90 -ADDLOOSEPROP
propstr x2 30 - y2 90 -ADDLOOSEPROP
propstr x2 60 - y2 90 -ADDLOOSEPROP
propstr x2 90 - y2 90 -ADDLOOSEPROP
")fazein" SAY
PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO 120 ALARMEXEC
"" CHATSTR = "" CHATSTR = right
} CHATSTR "abyss (.*)$" GREPSTR IF{}

;*************************************************************************

;Twinkle Twinkle
;Author: Alan Bean aka Myotis Dragonious
;Date : 21 JAN 96

{

{ Index 0 = }

255 240 240 PENCOLOR 3 PENSIZE
POSX POSY MOUSEPOS LINE PAINTUNDO

{ 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 1 PENSIZE
MOUSEPOS 255 RANDOM 255 RANDOM LINE Index++ }

{ Index 40 <= } WHILE

PAINTCLEAR

"" CHATSTR =
}

"twinkle" CHATSTR == IF

;*************************************************************************

;bolt
;wreak havok from above
;Author: bruce

{
POSX x = POSY 15 + y =
POSX 15 + x2 = POSY y2 =
POSX 20 - x3 = POSY y3 =

255 255 100 PENCOLOR
{ i ++

7 i - 3 * PENSIZE
y 40 + ynew =
x 50 - 100 RANDOM + xnew =
x y xnew ynew LINE
xnew x = ynew y =

7 i - PENSIZE
y2 30 + y2new =
x2 25 - 100 RANDOM + x2new =
x2 y2 x2new y2new LINE
x2new x2 = y2new y2 =

7 i - PENSIZE
y3 30 + y3new =
x3 25 + 100 RANDOM - x3new =
x3 y3 x3new y3new LINE
x3new x3 = y3new y3 =

} { i 7 < } WHILE
"boom" SOUND
{ j ++ PAINTUNDO } { j 21 < } WHILE
} CHATSTR "bolt" == IF

;*************************************************************************

;; SCAN
;; I'd prefer not get it (very laggy) but go ahead if you want it
;; Author: unknown

{ PENFRONT

MOUSEPOS y = x =

1 PENSIZE

255 255 0 PENCOLOR

POSX 13 + POSY 23 - x 30 - y 30 - LINE POSX 13 + POSY 23 - x 30 - y 30 + LINE POSX 7 - POSY 19 - x 30 + y 30 - LINE POSX 7 - POSY 19 - x 30 + y 30 + LINE

2 PENSIZE

0 255 0 PENCOLOR

x 5 - y x 5 + y LINE x y 5 - x y 5 + LINE

255 0 0 PENCOLOR

x 30 - y 30 - x 20 - y 30 - LINE x 30 - y 30 - x 30 - y 20 - LINE

x 30 + y 30 - x 20 + y 30 - LINE x 30 + y 30 - x 30 + y 20 - LINE

x 30 - y 30 + x 20 - y 30 + LINE x 30 - y 30 + x 30 - y 20 + LINE

x 30 + y 30 + x 20 + y 30 + LINE x 30 + y 30 + x 30 + y 20 + LINE

")fazein" SAY

0 255 0 PENCOLOR

1 PENSIZE

-25 d =

{ j ++ x d + y 25 - x d + y 25 + LINE d 5 + d = } { j 11 < } WHILE

0 i = { i ++ PAINTUNDO } { i 11 < } WHILE

-25 d =

{ k ++ x 25 + y d + x 25 - y d + LINE d 5 + d = } { k 11 < } WHILE

0 i = { i ++ PAINTUNDO } { i 25 < } WHILE

"" CHATSTR =

} CHATSTR "scan" == IF

;*************************************************************************

;; Blaster
;; blast a cool blaster
;; Author: Bruce

{ PENFRONT 255 0 0 PENCOLOR 2 PENSIZE POSX 5 - POSY 13 - MOUSEPOS LINE PAINTUNDO { i ++ POSX 5 - POSY 13 - MOUSEPOS 100 - i 20 * + LINE PAINTUNDO } { i 10 < } WHILE

")boom" SAY
"Fire" MOUSEPOS ADDLOOSEPROP
"" CHATSTR =
} CHATSTR "blast" SUBSTR IF

;*************************************************************************

; Name : Throw
; Author: Alan Bean
; Date : 23 JAN 96
; say "throw (propname)

{ "$1" GREPSUB propstr = POSX x = POSY y = MOUSEPOS ty = tx =

tx x - 10 / tx = ty y - 10 / ty =

{ propstr x y addlooseprop clearlooseprops tx x += ty y += i++ } { i 10 <= } WHILE

"" CHATSTR =
}

CHATSTR "throw (.*)$" GREPSTR IF

;*************************************************************************

; jail 'em script 1.0
; Jamie Tomlinson
; 19 Feb 96

{0 255 0 PENCOLOR PENFRONT 2 PENSIZE MOUSEPOS y2 = x2 = POSX x1 = POSY y1 = x1 y1 x2 y2 LINE PAINTUNDO 120 ALARMEXEC 255 0 0 PENCOLOR x2 66 - x3 = x2 66 + x4 = y2 66 - y3 = y2 66 + y4 = x3 y4 x4 y4 LINE x3 y4 x3 y3 LINE x3 y3 x4 y3 LINE x4 y3 x4 y4 LINE x3 33 + y4 x3 33 + y3 LINE x3 66 + y4 x3 66 + y3 LINE x3 99 + y4 x3 99 + y3 LINE "!Let me outta here!" x2 y2 SAYAT
PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO 120 ALARMEXEC
"" CHATSTR =
}CHATSTR "^jailem" GREPSTR IF

;*************************************************************************

; Lightning v1.0b by Michael Conrad (aka Collector) ©1996
; Removing this message is a federal offence and a violation of US copyright
; Yeah whatever conrad, I had to fix your mistake on this script
;laws

{ PENFRONT 2 PENSIZE 255 255 0 PENCOLOR 0 0 50 50 LINE 512 0 450 60 LINE 50 50 30 100 LINE 450 60 480 100 LINE 30 100 60 110 LINE 480 100 400 115 LINE 1 PENSIZE 255 255 0 PENCOLOR 60 110 75 130 LINE 400 115 415 130 LINE 75 130 MOUSEPOS LINE 75 130 MOUSEPOS LINE 415 130 MOUSEPOS LINE "fire2" MOUSEPOS ADDLOOSEPROP ")boom" SAY CLEARLOOSEPROPS PAINTCLEAR "" CHATSTR =
}CHATSTR "lit" == IF

;*************************************************************************

;Script: Blondie
;Author: Leige (Chris Edwards)
;Date : March 30, 1996
;Desc : Surrounds a target with flower props in the shape of a heart

{ MOUSEPOS y = x =

20 x -=

"Flower4" x y 70 - ADDLOOSEPROP "Flower1" x y 80 - ADDLOOSEPROP "Flower2" x 20 + y 100 - ADDLOOSEPROP "Flower3" x 40 + y 110 - ADDLOOSEPROP "Flower4" x 70 + y 100 - ADDLOOSEPROP "Flower5" x 90 + y 80 - ADDLOOSEPROP "Flower1" x 100 + y 60 - ADDLOOSEPROP "Flower2" x 110 + y 40 - ADDLOOSEPROP "Flower3" x 100 + y 20 - ADDLOOSEPROP "Flower4" x 90 + y ADDLOOSEPROP "Flower5" x 70 + y 20 + ADDLOOSEPROP "Flower1" x 50 + y 40 + ADDLOOSEPROP "Flower2" x 30 + y 60 + ADDLOOSEPROP "Flower3" x 10 + y 80 + ADDLOOSEPROP "Flower4" x y 100 + ADDLOOSEPROP

"Flower2" x 20 - y 100 - ADDLOOSEPROP "Flower3" x 40 - y 110 - ADDLOOSEPROP "Flower4" x 70 - y 100 - ADDLOOSEPROP "Flower5" x 90 - y 80 - ADDLOOSEPROP "Flower1" x 100 - y 60 - ADDLOOSEPROP "Flower2" x 110 - y 40 - ADDLOOSEPROP "Flower3" x 100 - y 20 - ADDLOOSEPROP "Flower4" x 90 - y ADDLOOSEPROP "Flower5" x 70 - y 20 + ADDLOOSEPROP "Flower1" x 50 - y 40 + ADDLOOSEPROP "Flower2" x 30 - y 60 + ADDLOOSEPROP "Flower3" x 10 - y 80 + ADDLOOSEPROP "" CHATSTR =

} CHATSTR "^blondie" GREPSTR IF

;*************************************************************************

; Zap somebody and place a prop
; Script Name : ZAP -n- PUT
; Authors : Skeezil, Myotis Dragonious
; Last Revised: 22 FEB 1996
; Place mouse over target and say "zapnput (propname)"

{ MOUSEPOS y = x =
"$1" GREPSUB propstr =
"!)no Zap!" x y SAYAT
255 0 0 PENCOLOR 2 PENSIZE
POSX POSY x y LINE
PAINTUNDO
propstr x y addlooseprop

"" CHATSTR =
}

CHATSTR "zapnput (.*)$" GREPSTR IF

;*************************************************************************

;Made By Skeezil|2/22/96
; plant eyeballs accross the screen randomly and say
;"!We Are Watching you!"

{"eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "eyeball" 512 RANDOM 384 RANDOM ADDLOOSEPROP "!We are Watching You!" 66 66 SAYAT
"" CHATSTR =
} CHATSTR "watching" == IF

;*************************************************************************

;LINES VERSION 1.1
;BY SKEEZIL--2/23/96

{256 192 SETPOS PENBACK 5 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 0 0 512 384 LINE PENBACK 5 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 0 192 512 192 LINE PENBACK 5 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 0 384 512 0 LINE PENBACK 5 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 256 0 256 384 LINE "!LINE POWER" 66 66 SAYAT
"" CHATSTR =
} CHATSTR "lines" == if

;*************************************************************************

;Super Zap
;By Kenny Kopecky
;Very high lag. You have been warned.

{ "!)Boom" MOUSEPOS SAYAT 255 0 0 PENCOLOR 2 PENSIZE 0 0 POSX 30 - POSY 30 - LINE 512 0 POSX 30 + POSY 30 - LINE 512 384 POSX 30 + POSY 30 + LINE 0 384 POSX 30 - POSY 30 + LINE ")yes" SAY PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO 255 0 0 PENCOLOR 2 PENSIZE POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE 255 0 0 PENCOLOR 2 PENSIZE POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE 255 0 0 PENCOLOR 2 PENSIZE POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE 255 0 0 PENCOLOR 2 PENSIZE 255 50 0 PENCOLOR 4 PENSIZE POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE 255 50 0 PENCOLOR 4 PENSIZE POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE 255 50 0 PENCOLOR 4 PENSIZE POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE 255 50 0 PENCOLOR 4 PENSIZE 255 0 0 PENCOLOR 6 PENSIZE POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE 255 100 0 PENCOLOR 6 PENSIZE POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE 255 100 0 PENCOLOR 6 PENSIZE POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE 255 100 0 PENCOLOR 6 PENSIZE POSX 30 + POSY 30 + POSX 30 - POSY 30 + LINE 255 175 0 PENCOLOR 8 PENSIZE POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE 255 175 0 PENCOLOR 8 PENSIZE POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE 255 175 0 PENCOLOR 8 PENSIZE POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE 255 175 00 PENCOLOR 8 PENSIZE 255 255 0 PENCOLOR 10 PENSIZE POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE 255 255 0 PENCOLOR 10 PENSIZE POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE 255 255 0 PENCOLOR 10 PENSIZE POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE 255 255 0 PENCOLOR 10 PENSIZE POSX 30 + POSY 30 + POSX 30 - POSY 30 + LINE 255 0 0 PENCOLOR 3 PENSIZE POSX 30 - POSY 30 - MOUSEPOS LINE POSX 30 + POSY 30 + MOUSEPOS LINE POSX 30 - POSY 30 + MOUSEPOS LINE POSX 30 + POSY 30 - MOUSEPOS LINE PAINTCLEAR ")no" SAY 255 255 0 PENCOLOR 100 PENSIZE POSX 30 - POSY 30 - MOUSEPOS LINE POSX 30 + POSY 30 + MOUSEPOS LINE POSX 30 - POSY 30 + MOUSEPOS LINE POSX 30 + POSY 30 - MOUSEPOS LINE PAINTCLEAR 100 0 25 PENCOLOR 1 PENSIZE MOUSEPOS 100 - 0 - MOUSEPOS 100 + 0 + line 150 0 25 PENCOLOR 2 PENSIZE MOUSEPOS 90 - 0 - MOUSEPOS 90 + 0 + line 200 0 25 PENCOLOR 3 PENSIZE MOUSEPOS 80 - 0 - MOUSEPOS 80 + 0 + line 250 0 25 PENCOLOR 4 PENSIZE MOUSEPOS 70 - 0 - MOUSEPOS 70 + 0 + line 250 0 25 PENCOLOR 5 PENSIZE MOUSEPOS 60 - 0 - MOUSEPOS 60 + 0 + line 250 30 25 PENCOLOR 6 PENSIZE MOUSEPOS 50 - 0 - MOUSEPOS 50 + 0 + line 250 60 25 PENCOLOR 7 PENSIZE MOUSEPOS 40 - 0 - MOUSEPOS 40 + 0 + line 250 90 25 PENCOLOR 8 PENSIZE MOUSEPOS 30 - 0 - MOUSEPOS 30 + 0 + line 250 120 25 PENCOLOR 9 PENSIZE MOUSEPOS 20 - 0 - MOUSEPOS 20 + 0 + line 250 150 25 PENCOLOR 10 PENSIZE MOUSEPOS 10 - 0 - MOUSEPOS 10 + 0 + line PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO
"" CHATSTR =
} CHATSTR "szap" == IF

;*************************************************************************

;/*******************************************/
;/ script to flag idiots....
;/ by Dennis Couch (aka TDS...that Damn snail!)
;/ useage: Place cursor above target then, type udork
;/*******************************************/

{

"GOD SEZ...\"Listen up members!...We have a DORK in our midst!\"" ROOMMSG "fazein" SOUND

{ "sign2" MOUSEPOS 20 - 20 - ADDLOOSEPROP CLEARLOOSEPROPS x ++ } {x 8 < } WHILE
"" CHATSTR =
} CHATSTR "udork" == IF

;*************************************************************************

; Cancellator
; Whisper CANCELLATE to someone to cancel dem

{ 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 "^uncancel" GREPSTR IF

;*************************************************************************

; GiveAll version 1.0 | for OUTCHAT | Made By Tokie-D-Bear 3/1/96 |
; type giveall (propname)

{ "$1" GREPSUB Propstr = "yes" SOUND "!@175,75" Propstr + " for everyone!!! Courtesy of: " + USERNAME + ROOMMSG { Propstr i ROOMUSER WHOPOS ADDLOOSEPROP i++ } { i NBRROOMUSERS < } WHILE ")applause Yay!" ROOMMSG
"" CHATSTR =
} CHATSTR "giveall (.*)" GREPSTR IF

;*************************************************************************

;**Hercules**
;LISTEN VERY IMPORTANT THE POSITIONING IS NOT PERFECT YOU MUST PUT YOUR
;MOUSE OVER YOUR SMILELY FACE
;version 1 one shield dull colors

;version 2 a bug
;version 3 second shield dull colors
;version 4 this one
;put in outchat
;if you like you can change colors

{ "!)fazein" MOUSEPOS SAYAT
0 255 0 PENCOLOR 2 PENSIZE
0 0 POSX 30 - POSY 30 - LINE
0 50 0 PENCOLOR 2 PENSIZE
512 0 POSX 30 + POSY 30 - LINE
0 0 255 PENCOLOR 2 PENSIZE
512 384 POSX 30 + POSY 30 + LINE
255 255 0 PENCOLOR 2 PENSIZE
0 384 POSX 30 - POSY 30 + LINE
")yes" SAY
255 0 0 PENCOLOR 2 PENSIZE
POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE
255 0 0 PENCOLOR 2 PENSIZE
POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE
255 0 0 PENCOLOR 2 PENSIZE
POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE
255 0 0 PENCOLOR 2 PENSIZE
0 255 0 PENCOLOR 4 PENSIZE
POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE
0 255 0 PENCOLOR 4 PENSIZE
POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE
0 255 0 PENCOLOR 4 PENSIZE
POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE
255 255 0 PENCOLOR 4 PENSIZE
255 0 0 PENCOLOR 6 PENSIZE
POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE
255 100 0 PENCOLOR 6 PENSIZE
POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE
255 100 0 PENCOLOR 6 PENSIZE
POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE
255 100 0 PENCOLOR 6 PENSIZE
POSX 30 + POSY 30 + POSX 30 - POSY 30 + LINE
255 175 0 PENCOLOR 8 PENSIZE
POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE
255 175 0 PENCOLOR 8 PENSIZE
POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE
255 175 0 PENCOLOR 8 PENSIZE
POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE
255 175 00 PENCOLOR 8 PENSIZE
255 255 0 PENCOLOR 10 PENSIZE
POSX 30 - POSY 30 - POSX 30 + POSY 30 - LINE
255 255 0 PENCOLOR 10 PENSIZE
POSX 30 - POSY 30 - POSX 30 - POSY 30 + LINE
255 255 0 PENCOLOR 10 PENSIZE
POSX 30 + POSY 30 + POSX 30 + POSY 30 - LINE
255 255 0 PENCOLOR 10 PENSIZE
POSX 30 + POSY 30 + POSX 30 - POSY 30 + LINE
255 0 0 PENCOLOR 3 PENSIZE
MOUSEPOS y2 = x2 =
POSX x1 = POSY y1 =
x1 y1 x2 y2 LINE
x2 66 - x3 = x2 66 + x4 =
y2 66 - y3 = y2 66 + y4 =
0 255 0 PENCOLOR
x3 y4 x4 y4 LINE
0 0 255 PENCOLOR
x3 y4 x3 y3 LINE
0 255 0 PENCOLOR
x3 y3 x4 y3 LINE
0 0 255 PENCOLOR
x4 y3 x4 y4 LINE
"" CHATSTR =
} CHATSTR "shields up" == IF

;**********************************************************************

; ScriptName : ZapAll V1.1
; Author(s) : Skeezil, Myotis Dragonious
; Concept : Skeezil
; Last Modify: 27 Mar 1996
; Usage : Draws a random colored line from you to each roomuser

{ NBRROOMUSERS NumUsers =

{i 0 = }

{

255 Random 255 Random 255 Random PENCOLOR 3 PENSIZE PENBACK

POSX POSY i ROOMUSER WHOPOS LINE

i WHONAME USERNAME == NOT IF

i++}

{i NumUsers < } WHILE {c 0 = } {PAINTUNDO c++} {c NumUsers < } WHILE

"" CHATSTR =

} CHATSTR "zapall" == IF

;**********************************************************************

;Script: BlowKiss
;Author: Leige (Chris Edwards)
;Date : March 30, 1996
;Desc : Make a heart fly through the air towards a target,
; and then makes a kiss sound.

{

MOUSEPOS ty = tx =

"Heart" POSX POSX tx - 4 / - POSY POSY ty - 4 / - ADDLOOSEPROP "Heart" POSX POSX tx - 2 / - POSY POSY ty - 2 / - ADDLOOSEPROP "Heart" POSX POSX tx - 3 * 4 / - POSY POSY ty - 3 * 4 / - ADDLOOSEPROP "Heart" tx ty ADDLOOSEPROP

{ ")kiss" SAY } 120 ALARMEXEC

"!KISS!!!" tx 10 + ty 10 - SAYAT

{CLEARLOOSEPROPS} 250 ALARMEXEC

"" CHATSTR =

} CHATSTR "^bkiss" GREPSTR IF

;**********************************************************************

;; Spotlite
;; paints a spotlight
;; author: KORN

{ PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 256 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 266 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 276 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 286 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 246 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 236 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 226 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 216 384 LINE 456 0 206 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 196 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 186 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 176 384 LINE 456 0 296 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 306 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 316 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 456 0 326 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 256 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 266 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 276 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 286 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 246 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 236 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 226 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 216 384 LINE 56 0 206 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 196 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 186 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 176 384 LINE 56 0 296 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 306 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 316 384 LINE PENBACK 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 56 0 326 384 LINE 1 PENSIZE 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR "!Your in the Spot Light!!" 66 66 SAYAT
"" CHATSTR =
} CHATSTR "spotlite" == if

;**********************************************************************

;; cheap
;; 360 zap
;; zap around you then at someone

{ 256 192 setpos PENBACK 3 PENSIZE 255 0 0 PENCOLOR PAINTUNDO PAINTUNDO 256 192 256 142 LINE PENBACK 3 PENSIZE 255 0 0 PENCOLOR PAINTUNDO PAINTUNDO 256 192 306 142 LINE PENBACK 3 PENSIZE 255 0 0 PENCOLOR PAINTUNDO PAINTUNDO 256 192 306 192 LINE PENBACK 3 PENSIZE 255 0 0 PENCOLOR PAINTUNDO PAINTUNDO 256 192 306 242 LINE PENBACK 3 PENSIZE 255 0 0 PENCOLOR PAINTUNDO PAINTUNDO 256 192 256 242 LINE PENBACK 3 PENSIZE 255 0 0 PENCOLOR PAINTUNDO PAINTUNDO 256 192 206 242 LINE PENBACK 3 PENSIZE 255 0 0 PENCOLOR PAINTUNDO PAINTUNDO 256 192 206 192 LINE PENBACK 3 PENSIZE 255 0 0 PENCOLOR PAINTUNDO PAINTUNDO 256 192 206 142 LINE PENBACK 3 PENSIZE 255 0 0 PENCOLOR PAINTUNDO PAINTUNDO 256 192 256 142 LINE PAINTUNDO PAINTUNDO ")no !Zap!!" Mousepos sayat 255 0 0 PENCOLOR 2 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO

"" CHATSTR =
} CHATSTR "360ZAP" == if

;**********************************************************************

;Script: Spiderweb
;Author: Sweden here (Hampus Ström)
;Date : 1996-04-18
;Desc : Makes a web over the target

{ PENFRONT MOUSEPOS y = x = 255 255 255 PENCOLOR 4 PENSIZE POSX 6 + POSY 38 + MOUSEPOS LINE PAINTUNDO 3 PENSIZE x 0 + y 0 + x 50 + y 50 + LINE x 0 + y 0 + x 75 + y 0 + LINE x 0 + y 0 + x 50 - y 50 + LINE x 0 + y 0 + x 0 + y 75 + LINE x 0 + y 0 + x 50 + y 50 - LINE x 0 + y 0 + x 75 - y 0 + LINE x 0 + y 0 + x 50 - y 50 - LINE x 0 + y 0 + x 0 + y 75 - LINE 2 PENSIZE x 50 + y 20 + x 0 + y 0 + LINE x 50 + y 20 - x 0 + y 0 + LINE x 50 - y 20 + x 0 + y 0 + LINE x 50 - y 20 - x 0 + y 0 + LINE x 20 + y 50 + x 0 + y 0 + LINE x 20 + y 50 - x 0 + y 0 + LINE x 20 - y 50 + x 0 + y 0 + LINE x 20 - y 50 - x 0 + y 0 + LINE 1 PENSIZE x 50 + y 50 + x 50 + y 20 + LINE x 75 + y 0 + x 50 + y 20 + LINE x 50 + y 50 - x 50 + y 20 - LINE x 75 + y 0 + x 50 + y 20 - LINE x 50 - y 50 + x 50 - y 20 + LINE x 75 - y 0 + x 50 - y 20 + LINE x 50 - y 50 - x 50 - y 20 - LINE x 75 - y 0 + x 50 - y 20 - LINE x 50 + y 50 + x 20 + y 50 + LINE x 50 + y 50 - x 20 + y 50 - LINE x 50 - y 50 + x 20 - y 50 + LINE x 50 - y 50 - x 20 - y 50 - LINE x 0 + y 75 + x 20 + y 50 + LINE x 0 + y 75 - x 20 + y 50 - LINE x 0 - y 75 + x 20 - y 50 + LINE x 0 + y 75 - x 20 - y 50 - LINE x 25 + y 25 + x 10 + y 25 + LINE x 25 + y 25 - x 10 + y 25 - LINE x 25 - y 25 + x 10 - y 25 + LINE x 25 - y 25 - x 10 - y 25 - LINE x 0 + y 50 + x 10 + y 25 + LINE x 0 + y 50 - x 10 + y 25 - LINE x 0 - y 50 + x 10 - y 25 + LINE x 0 + y 50 - x 10 - y 25 - LINE x 25 + y 25 + x 25 + y 10 + LINE x 50 + y 0 + x 25 + y 10 + LINE x 25 + y 25 - x 25 + y 10 - LINE x 50 + y 0 + x 25 + y 10 - LINE x 25 - y 25 + x 25 - y 10 + LINE x 50 - y 0 + x 25 - y 10 + LINE x 25 - y 25 - x 25 - y 10 - LINE x 50 - y 0 + x 25 - y 10 - LINE "!Your traped in my web!" MOUSEPOS SAYAT {PAINTCLEAR} 1000 ALARMEXEC
"" CHATSTR =
} CHATSTR "spider" == IF

;**********************************************************************

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

{

POSX x = POSY y =

MOUSEPOS ty = tx =

PENFRONT 2 PENSIZE 255 255 255 PENCOLOR

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

PENBACK ")no !Zap!!" Mousepos sayat x y MOUSEPOS LINE PAINTUNDO
"" CHATSTR =
}CHATSTR"360zap"==IF

;**********************************************************************

; when using this script say MAKE (name) say (message)
; I know it takes longer than MSAY but it says it from theyre Mouth Position
; Author, Brad
; Makes a user say a message from his mouth

{ "$1" GREPSUB who = "$2" GREPSUB chatter =

chatter who WHOPOS SAYAT

"" CHATSTR =

} CHATSTR "^make (.*) say (.*)$" GREPSTR IF

;**********************************************************************

;Aura
;a little, non violent script which gives the user, or anyone he
;points the mouse at
;a lovely golden glow....hope you like it...any comments are welcome,
;i m sure i could do with some hints on things like 'stack management';)
; but anyway, here ya go...see yooooo, at the palace....

{ MOUSEPOS SWAP x= y=

40 grid =

8 unit =

255 max = 140 min =

min max 0 PENCOLOR 1 PENSIZE PENBACK x x2 = x x2 = y grid - y2 =

{x2 grid - y2 MOUSEPOS LINE unit grid -=

10 max -= 10 min += max min 0 PENCOLOR } {grid -40 >=} WHILE

40 grid =

y y2 = x grid + x2 =

{x2 y2 grid - MOUSEPOS LINE unit grid -= 10 max += 10 min -= max min 0 PENCOLOR } {grid -40 >=} WHILE

40 grid =

x x2 = y grid + y2 =

{x2 grid + y2 MOUSEPOS LINE unit grid -=

10 max -= 10 min += max min 0 PENCOLOR } {grid -40 >=} WHILE

40 grid =

y y2 = x grid - x2 =

{x2 y2 grid + MOUSEPOS LINE unit grid -=

10 max += 10 min -= max min 0 PENCOLOR } {grid -40 >=} WHILE ")fazein" say

"" CHATSTR =
} CHATSTR "aura" == IF

;**********************************************************************

;; heres an overload script i made
;; oVeRlOaD
;; click on someone and type overload
;; author: Brad
;; **warning, this will also overload you, use at your own risk!**
;; *You WILL have to restart your computer, so will the person
;; you clicked on**

{ 0 i = { 19 random setface 19 random setcolor "^test" whotarget privatemsg ";finger" whotarget privatemsg 512 random 384 random setpos "!^die die die die die" whotarget privatemsg i++ } { i 100 <{} WHILE
"" CHATSTR =
}CHATSTR"overload"==IF

;*********************************************************************

;; Move weird script
;; Check it out, type move and move your mouse around
;; Author: Brad
;; Drags your character along with mouse

{ 0 i = { mousepos setpos i++ } { i 50 <} WHILE
"" CHATSTR =
}CHATSTR"move"==IF

;*********************************************************************

; make someone go naked (they have to have the "you devil" script
; whisper naked to them
; Author: Brad

{ 0 i = { "you devil" whotarget privatemsg i++ } { i 10 <} WHILE
"" CHATSTR =
} CHATSTR"naked"==IF

;**********************************************************************

;some ascii faces i made
;say face, woa, or wink
;author: BRad

{

"^ ^^^ º¿º __ - " say
"" CHATSTR =
}CHATSTR"face"==IF

{

"! !!!!! º º ª 0 -" say
"" CHATSTR =
}CHATSTR"woa"==IF

{ "^ ^^^ \x7e º ¿ \_/" say
"" CHATSTR =
}CHATSTR"wink"==IF

;**********************************************************************

;Draw a skull and crossbones over someone
;say skull
;author: JeseIsGod

{ MOUSEPOS my = mx = mx my PENPOS PENFRONT 255 255 255 PENCOLOR 3 PENSIZE 30 0 LINETO 10 10 LINETO 0 20 LINETO -10 10 LINETO 0 10 LINETO -10 10 LINETO -10 0 LINETO -10 -10 LINETO 0 -10 LINETO -10 -10 LINETO 0 -20 LINETO 10 -10 LINETO 0 20 PENTO 0 5 LINETO 5 5 LINETO 5 0 LINETO 0 -10 LINETO -10 0 LINETO 20 0 PENTO O 10 LINETO 5 0 LINETO 5 -5 LINETO 0 -5 LINETO -10 0 LINETO 0 20 PENTO 0 10 LINETO -10 0 LINETO 0 -10 LINETO 10 0 LINETO -40 10 PENTO 70 20 LINETO 0 -20 PENTO -70 20 LINETO "R...I...P..." mx 10 + my 40 + SAYAT
"" CHATSTR =
} CHATSTR "skull" == IF

;**********************************************************************

;Dump script by sting

{ "" CHATSTR = "" ttosay = { " " topprop itoa + theprop = theprop ttosay + ttosay = mousepos dropprop } {topprop} while "\"" ttosay + "\" " + logmsg
} CHATSTR "dump" == IF

;**********************************************************************

;; throw: Throws props at the mouse position
;; Author: Alan Bean
{ "$1" GREPSUB s = POSX x = POSY y = MOUSEPOS my = mx = mx x - dx = my y - dy = 1 i = { "CLEARLOOSEPROPS \"" s & "\" " & i dx * 10 / x + ITOA & " " & i dy * 10 / y + ITOA & " ADDLOOSEPROP " & STRTOATOM i 30 * ALARMEXEC i ++ } { i 10 <= } WHILE
"" CHATSTR =
} CHATSTR "^throw (.*)$" GREPSTR IF

;**********************************************************************

;; fly: Moves you to the mouse position, gradually slowing
;; Author: BC (Bruce Cartwright)
{ MOUSEPOS my = mx = 1 i = POSX cx = POSY cy = { mx cx - 10 / cx + newx = my cy - 10 / cy + newy = newx ITOA " " & newy ITOA & " SETPOS" & STRTOATOM i 2 * ALARMEXEC newx cx = newy cy = i ++ } { i 99 < } WHILE mx ITOA " " & my ITOA & " SETPOS" & STRTOATOM i 2 * ALARMEXEC
"" CHATSTR =
} CHATSTR LOWERCASE "fly" == IF

;**********************************************************************
;Cube by Ben Blackford
;paints a cube at the cursor position when you say "cube"
{
PENFRONT
MOUSEPOS y = x =
2 PENSIZE
255 255 255 PENCOLOR
x y x 20 + y LINE
x y x y 20 + LINE
x y 20 + x 20 + y 20 + LINE
x 20 + y x 20 + y 20 + LINE
x 10 + y 10 + x 30 + y 10 + LINE
x 10 + y 10 + x 10 + y 30 + LINE
x 10 + y 30 + x 30 + y 30 + LINE
x 30 + y 10 + x 30 + y 30 + LINE
x y x 10 + y 10 + LINE
x 20 + y x 30 + y 10 + LINE
x y 20 + x 10 + y 30 + LINE
x 20 + y 20 + x 30 + y 30 + LINE
"" CHATSTR =
}CHATSTR "cube" == if
;*********************************************************************
;Puts a cool arc of any prop on someone
;Put your mouse on someone and type "gotcha (propname)
{ "$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 {}
;*********************************************************************

;PUT THESE SCRIPTS UNDER THE ON INCHAT SECTION IN YOUR CYBORG.IPT

;Answering machine by TDS
;When someone says hi (your name) it responds

{ "^ You have an incoming greeting by " WHOCHAT WHONAME + LOCALMSG

"Hello " WHOCHAT WHONAME ", Glad to see you!" + + WHOCHAT PRIVATEMSG

} CHATSTR "hi " USERNAME + == IF

;**********************************************************************

; this script automatically replys to someone zapping you !

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

{ "!)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 }

;**********************************************************************

; put a message next to someone who spoofs

{ "^<< " 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