;fancy exit
{ { "!"USERNAME & POSX 80 - POSY 80 - SAYAT } 45
ALARMEXEC
{ "!says...." POSX 60 - POSY 60 - SAYAT } 75 ALARMEXEC
{ "!See"
POSX 40 - POSY 40 - SAYAT } 105 ALARMEXEC
{ "!YOU!" POSX 20 - POSY 20 - SAYAT
} 135 ALARMEXEC
{ "!LATER!!!" SAY } 145 ALARMEXEC
{ "!POOFERS!" SAY
} 240 ALARMEXEC DATETIME bt = "" CHATSTR =
} CHATSTR "seeya" == IF
;do a lookup with an IP. command is whois IPnumber
{ "http://arin.net/cgi-bin/whois.pl?queryinput=$1"
GREPSUB NETGOTO
"" CHATSTR = } CHATSTR "^whois ([0-9.]+)" GREPSTR IF
;an opposite?
{-4 -55 MOVE
0 -55 MOVE
0 -55 MOVE
0 -55 MOVE
0
-55 MOVE
0 -55 MOVE
0 -55 MOVE
0 -55 MOVE
-4 -55 MOVE
"!Man what
a head rush...Hell yeah!!!" CHATSTR = } CHATSTR "jump" == IF
;hug someone! command is hug - how many hugs you want to give them -
their name
{ "$1" GREPSUB numtxt =
numtxt ATOI number =
"$2"
GREPSUB name =
0 x =
0 y =
"" string =
{ x ++ "\}" string &
string = } { x number < } WHILE
name string & string =
{ y ++ "\{"
string & string = } { y number < } WHILE
string SAY
"" CHATSTR = }
CHATSTR "^hug(.*) (.*)" GREPSTR IF
;cute hiccup script Foxy gave me
{ 0 -25 MOVE { 0 25 MOVE } 40 ALARMEXEC }
CHATSTR "hic" == IF
;whisper the birthday song to someone in a neat way
{ { WHOTARGET WHONAME
name = 0 i = 60 x = 40 y =
[ " Happy " "Birthday" " To " " You " ] str1
=
[ " Happy " "Birthday" " dear " name ] str2 =
{ "!" str1 i GET + x y
SAYAT x 98 + x = i ++ }
{ i 4 < } WHILE x 392 - x = y 76 + y = i 4 - i
=
{ "!" str1 i GET + x y SAYAT x 98 + x = i ++ }
{ i 4 < } WHILE x 392
- x = y 76 + y = i 4 - i =
{ "!" str2 i GET + x y SAYAT x 98 + x = i ++
}
{ i 4 < } WHILE x 392 - x = y 76 + y = i 4 - i =
{ "!" str1 i GET + x
y SAYAT x 98 + x = i ++ }
{ i 4 < } WHILE x 392 - x = y 76 + y = i 4 - i
=
"and many more..." CHATSTR = }
CHATSTR LOWERCASE "bday" == IF }
WHOTARGET IF
;move someone that you whisper to, to your mouse position
{
x global y
global
mousepos y = x =
";allscray \{ " x ITOA &
" " &
y
ITOA &
" SETPOS \} USERNAME \"" &
WHOTARGET WHONAME &
"\"
== IF" & WHOTARGET PRIVATEMSG
"" CHATSTR = } CHATSTR "move here" ==
IF
;routine to use allscray to give someone your av- by Foxy
{ "$1"
GREPSUB avname =
"" CHATSTR =
";ao [ " 0 tbl
=
{ tbl USERPROP ITOA + " " + tbl
++
} { tbl NBRUSERPROPS == NOT } WHILE
" ] SETPROPS" +
CHATSTR =
} CHATSTR "giveav" == IF
;group hugz
{ mousepos y = x = ";as " x itoa & " " & y itoa &
" SETPOS \"!GROUP HUG \" SAY " &
SAY "" CHATSTR = } CHATSTR "huggerz" ==
IF
;bite someone
{
0 0 0 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 4 1
LINETO -4 1 LINETO MOUSEPOS PENPOS -4 1 LINETO 4 1 LINETO
255 31 0 PENCOLOR
1 PENSIZE
MOUSEPOS PENPOS 4 3 PENTO -2 3 LINETO 2 3 LINETO 0 5 LINETO
2 1 LINETO -2 -6 PENTO -1 5 LINETO
MOUSEPOS PENPOS -4 3 PENTO 0 4 LINETO 1 2
LINETO 0 2 LINETO -1 -4 PENTO -2 2 LINETO 0 6 LINETO
MOUSEPOS PENPOS 0 3
PENTO 0 11 LINETO -2 3 LINETO 1 2 LINETO 0 4 LINETO
")Crunch" SAY "!You've
been bitten by " USERNAME & "!" & MOUSEPOS SAYAT
"" CHATSTR =
}
CHATSTR "biteya" == IF
;command is eyes
{ 155 150 150 pencolor 5 pensize
mousepos swap x= y=
x 0 - y 50 + x 0 + y 50 - line x 50 - y 0 + x 50 + y 0 - line
x 50 - y 50
+ x 20 - y 50 + line x 20 - y 50 + x 20 - y 20 + line
x 20 - y 20 + x 50 - y
50 + line x 50 - y 50 - x 20 - y 50 - line
x 20 - y 50 - x 20 - y 20 - line
x 20 - y 20 - x 50 - y 50 - line
x 50 + y 50 - x 20 + y 50 - line x 20 + y 50
- x 20 + y 20 - line
x 50 + y 50 - x 20 + y 20 - line x 50 + y 50 + x 20 + y
50 + line
x 20 + y 50 + x 20 + y 20 + line x 50 + y 50 + x 20 + y 20 +
line
205 200 200 pencolor 3 pensize
x 0 - y 50 + x 0 + y 50 - line x 50 -
y 0 + x 50 + y 0 - line
x 50 - y 50 + x 20 - y 50 + line x 20 - y 50 + x 20 -
y 20 + line
x 20 - y 20 + x 50 - y 50 + line x 50 - y 50 - x 20 - y 50 -
line
x 20 - y 50 - x 20 - y 20 - line x 20 - y 20 - x 50 - y 50 - line
x
50 + y 50 - x 20 + y 50 - line x 20 + y 50 - x 20 + y 20 - line
x 50 + y 50
- x 20 + y 20 - line x 50 + y 50 + x 20 + y 50 + line
x 20 + y 50 + x 20 + y
20 + line x 50 + y 50 + x 20 + y 20 + line
255 250 250 pencolor 2 pensize x 0
- y 50 + x 0 + y 50 - line
x 50 - y 0 + x 50 + y 0 - line x 50 - y 50 + x 20
- y 50 + line
x 20 - y 50 + x 20 - y 20 + line x 20 - y 20 + x 50 - y 50 +
line
x 50 - y 50 - x 20 - y 50 - line x 20 - y 50 - x 20 - y 20 - line
x
20 - y 20 - x 50 - y 50 - line x 50 + y 50 - x 20 + y 50 - line
x 20 + y 50
- x 20 + y 20 - line x 50 + y 50 - x 20 + y 20 - line
x 50 + y 50 + x 20 + y
50 + line x 20 + y 50 + x 20 + y 20 + line
x 50 + y 50 + x 20 + y 20 +
line
"" CHATSTR = } CHATSTR "eyes" == IF
;draws a heart onscreen
{ MOUSEPOS mousey = mousex = mousey 20 - newy = o
q = 0 p = 0 m = 0 n = 0 o =
0 i = 0 a = -20 b = 0 c = 60 d = -20 e = 255 100
100 PENCOLOR 1 PENSIZE PENFRONT
{ mousex a + mousey a + mousex a + newy a -
LINE a++ a++ i++ } { i 10 < }
WHILE { mousex a + mousey a + mousex a +
newy 20 - LINE a++ a++ m++ } { m 10 < }
WHILE { mousex a + mousey a +
mousex a + newy b + LINE a++ a++ b++ b++ n++ }
{ n 10 < } WHILE { mousex a
+ mousey d + mousex a + newy b + LINE a++ a++
b-- b-- d-- d-- o++ } { o 10
< } WHILE { mousex a + mousey d + mousex a
+ newy 20 - LINE a++ a++ b--
b-- d-- d-- p++ } { p 10 < } WHILE { mousex a +
mousey d + mousex a + newy
e + LINE a++ a++ b-- b-- d-- d-- e++ e++ q++ }
{ q 10 < } WHILE "" CHATSTR
= } CHATSTR "heart" == IF
;paint a heart
{ { MOUSEPOS y = x = 8 s = 150 r = 0 i =
150 0 0
PENCOLOR PENBACK 9 PENSIZE
x 50 - y 25 - x 25 - y 25 - LINE x 25 + y 25 - x
50 + y 25 - LINE
x 55 - y 20 - x 20 - y 20 - LINE x 20 + y 20 - x 55 + y 20 -
LINE
x 60 - y 15 - x 15 - y 15 - LINE x 15 + y 15 - x 60 + y 15 - LINE
x
65 - y 10 - x 10 - y 10 - LINE x 10 + y 10 - x 65 + y 10 - LINE
x 70 - y 5 -
x 5 - y 5 - LINE x 5 + y 5 - x 70 + y 5 - LINE
x 75 - y x 75 + y LINE x 75 -
y 5 + x 75 + y 5 + LINE
x 75 - y 10 + x 75 + y 10 + LINE x 75 - y 15 + x 75 +
y 15 + LINE
x 75 - y 20 + x 75 + y 20 + LINE x 75 - y 25 + x 75 + y 25 +
LINE
x 70 - y 30 + x 70 + y 30 + LINE x 65 - y 35 + x 65 + y 35 + LINE
x
60 - y 40 + x 60 + y 40 + LINE x 55 - y 45 + x 55 + y 45 + LINE
x 50 - y 50 +
x 50 + y 50 + LINE x 45 - y 55 + x 45 + y 55 + LINE
x 40 - y 60 + x 40 + y 60
+ LINE x 35 - y 65 + x 35 + y 65 + LINE
x 30 - y 70 + x 30 + y 70 + LINE x 25 - y 75 + x 25 + y 75 + LINE
x 20
- y 80 + x 20 + y 80 + LINE x 15 - y 85 + x 15 + y 85 + LINE
x 10 - y 90 + x
10 + y 90 + LINE x 5 - y 95 + x 5 + y 95 + LINE
PENFRONT { x y PENPOS s
PENSIZE r 0 0 PENCOLOR
-25 -25 LINETO -25 0 LINETO -25 25 LINETO 0 25 LINETO
75 75 LINETO
75 -75 LINETO 0 -25 LINETO -25 -25 LINETO -25 0 LINETO -25 25
LINETO
s 2 - s = r 50 + r = x 1 + x = i ++ } { i 3 < } WHILE }
{ "Too
many room occupants" STATUSMSG } NBRROOMUSERS 9 < IFELSE
"" CHATSTR = }
CHATSTR "aheart" == IF
;nice jail for those bad people lol
{ PENFRONT 9 PENSIZE 0 0 0
PENCOLOR MOUSEPOS y = x =
MOUSEPOS y1 = x1 = MOUSEPOS y2 = x2 = 131 c = 8 i
=
"!Life Sentence" x 66 - y 88 - SAYAT
{ x 70 - y 70 - PENPOS 136 0 LINETO
0 136 LINETO -136 0 LINETO 0 -136 LINETO
x 66 - y 66 - PENPOS 127 0 LINETO 0
127 LINETO -127 0 LINETO 0 -127 LINETO } paintF DEF
{ x1 39 - y1 65 - x1 39 -
y1 65 + LINE
x1 6 - y1 65 - x1 6 - y1 65 + LINE
x1 27 + y1 65 - x1 27 +
y1 65 + LINE } paintR DEF
{ x2 27 - y2 65 - x2 27 - y2 65 + LINE
x2 6 +
y2 65 - x2 6 + y2 65 + LINE
x2 39 + y2 65 - x2 39 + y2 65 + LINE } paintL
DEF
{ c c c PENCOLOR i PENSIZE paintF EXEC paintL EXEC paintR EXEC
x ++ x1
2 + x1 = x2 -- c 31 + c = i -- } { i 4 > } WHILE
"" CHATSTR = } CHATSTR
"jailed" == IF
;paint lines from yourself
{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
"!
Whos The BIGGEST pain in the REAR?!" 66 66 SAYAT
"" CHATSTR =
} CHATSTR
"lines" == if
;puts prop of your choice on and leaves a painted kiss on them
{ x
GLOBAL y GLOBAL prop1 GLOBAL whome whopos y = x = mousepos y1 = x1 =
x1 y1
setpos
"[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } {
i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[939337107 939337285 939337524 939337421 939341581 939341598] SETPROPS ")kiss
!MMMMMMM I Always leave lasting impressions!!" MOUSEPOS SAYAT
255
RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE PENFRONT
MOUSEPOS
PENPOS 4 2 LINETO -4 3 LINETO
MOUSEPOS PENPOS -4 2 LINETO 4 3
LINETO
"bbs4" x1 44 - y1 44 - ADDLOOSEPROP "bbs2" x1 0 - y1 44 -
ADDLOOSEPROP
"bbs3" x1 44 - y1 0 - ADDLOOSEPROP "bbs1" x1 0 - y1 0 -
ADDLOOSEPROP
{ x GLOBAL y GLOBAL x y setpos } 150 ALARMEXEC { prop1
GLOBAL { } {prop1 GLOBAL prop1
" SETPROPS" & xpropo = xpropo
STRTOATOM EXEC } "[]" prop1 == IFELSE } 160 ALARMEXEC
"" CHATSTR = } CHATSTR
"blips" == IF
;different paint lips script
{ x GLOBAL y GLOBAL whome whopos
y = x = mousepos setpos prop1 GLOBAL
"[ " p = 0 i = { p i USERPROP itoa
& " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[ 939337107 939337285 939337524 939337421 939341581 939341598 ] SETPROPS
")kiss !BRAT Smooches baby!!" SAY
102 153 255 PENCOLOR 3 PENSIZE PENFRONT
MOUSEPOS PENPOS -2 -3 lineto -4 -1 lineto -2 -1 lineto -3 3 lineto -1 4 lineto
13 15 lineto
mousepos penpos 2 -3 lineto 4 -1 lineto 2 -1 lineto 3 3
lineto 1 4 lineto -13 15 lineto
{ x GLOBAL y GLOBAL x y setpos } 150
ALARMEXEC { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS" &
xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 160
ALARMEXEC
"" CHATSTR = } CHATSTR "hlips" == IF
;Frodos script that will shoot a zap line with a message at the end
{ "$1"
GREPSUB msg =
255 0 0
PENCOLOR 2 PENSIZE
POSX POSY MOUSEPOS LINE
"!)no" SAY "! " msg +
MOUSEPOS SAYAT
PAINTUNDO
"" CHATSTR
=
} CHATSTR "zapl (.*)$" GREPSTR IF }
;whisper to the person you want to put an arrow thru
{ WHOTARGET
WHOPOS y = x = PENBACK
6 PENSIZE 255 0 0 PENCOLOR
x 60 -
y x y LINE
4 PENSIZE 255 191 0 PENCOLOR
x 60 - y 1 + x y 1 +
LINE
2 PENSIZE 255 255 0 PENCOLOR
x 60 - y 2 + x y 2 +
LINE
PENFRONT
6 PENSIZE 255 0 0 PENCOLOR
x 60 + y x
y LINE
x 60 + y x 50 + y 10 - LINE
x 60 + y x 50 + y 10 +
LINE
4 PENSIZE 255 191 0 PENCOLOR
x 60 + y 1 + x y 1 +
LINE
x 60 + y x 51 + y 9 - LINE
x 60 + y x 51 + y 12 + LINE
2 PENSIZE 255 255 0 PENCOLOR
;x 60 + y 2 + x y 2 +
LINE
;x 60 + y x 52 + y 8 - LINE
;x 60 + y x 52 + y 12 +
LINE
"" CHATSTR = } CHATSTR "cupid2" == IF
;paint a heart
{ { MOUSEPOS y = x = 8 s = 150 r = 0 i =
150 0 0
PENCOLOR PENBACK 9 PENSIZE
x 50 - y 25 - x 25 - y 25 - LINE x 25 + y 25 - x
50 + y 25 - LINE
x 55 - y 20 - x 20 - y 20 - LINE x 20 + y 20 - x 55 + y 20 -
LINE
x 60 - y 15 - x 15 - y 15 - LINE x 15 + y 15 - x 60 + y 15 - LINE
x
65 - y 10 - x 10 - y 10 - LINE x 10 + y 10 - x 65 + y 10 - LINE
x 70 - y 5 -
x 5 - y 5 - LINE x 5 + y 5 - x 70 + y 5 - LINE
x 75 - y x 75 + y LINE x 75 -
y 5 + x 75 + y 5 + LINE
x 75 - y 10 + x 75 + y 10 + LINE x 75 - y 15 + x 75 +
y 15 + LINE
x 75 - y 20 + x 75 + y 20 + LINE x 75 - y 25 + x 75 + y 25 +
LINE
x 70 - y 30 + x 70 + y 30 + LINE x 65 - y 35 + x 65 + y 35 + LINE
x
60 - y 40 + x 60 + y 40 + LINE x 55 - y 45 + x 55 + y 45 + LINE
x 50 - y 50 +
x 50 + y 50 + LINE x 45 - y 55 + x 45 + y 55 + LINE
x 40 - y 60 + x 40 + y 60
+ LINE x 35 - y 65 + x 35 + y 65 + LINE
x 30 - y 70 + x 30 + y 70 + LINE x 25
- y 75 + x 25 + y 75 + LINE
x 20 - y 80 + x 20 + y 80 + LINE x 15 - y 85 + x
15 + y 85 + LINE
x 10 - y 90 + x 10 + y 90 + LINE x 5 - y 95 + x 5 + y 95 +
LINE
PENFRONT { x y PENPOS s PENSIZE r 0 0 PENCOLOR
-25 -25 LINETO -25 0
LINETO -25 25 LINETO 0 25 LINETO 75 75 LINETO
75 -75 LINETO 0 -25 LINETO -25
-25 LINETO -25 0 LINETO -25 25 LINETO
s 2 - s = r 50 + r = x 1 + x = i ++ } {
i 3 < } WHILE }
{ "Too many room occupants" STATUSMSG } NBRROOMUSERS 9
< IFELSE
"" CHATSTR = } CHATSTR "aheart" == IF
;puts prop of your choice on and leaves a painted kiss on them
{ x
GLOBAL y GLOBAL prop1 GLOBAL whome whopos y = x = mousepos y1 = x1 =
x1 y1
setpos
"[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } {
i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[939337107 939337285
939337524 939337421 939341581 939341598] SETPROPS ")kiss !MMMMMMM I Always
leave lasting impressions!!" MOUSEPOS SAYAT
255 RANDOM 255 RANDOM 255 RANDOM
PENCOLOR 2 PENSIZE PENFRONT
MOUSEPOS PENPOS 4 2 LINETO -4 3
LINETO
MOUSEPOS PENPOS -4 2 LINETO 4 3 LINETO
"bbs4" x1 44 - y1 44 -
ADDLOOSEPROP "bbs2" x1 0 - y1 44 - ADDLOOSEPROP
"bbs3" x1 44 - y1 0 -
ADDLOOSEPROP "bbs1" x1 0 - y1 0 - ADDLOOSEPROP
{ x GLOBAL y
GLOBAL x y setpos } 150 ALARMEXEC { prop1 GLOBAL { } {prop1 GLOBAL
prop1
" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[]" prop1 == IFELSE
} 160 ALARMEXEC
"" CHATSTR = } CHATSTR "blips" == IF
;different paint lips script
{ x GLOBAL y GLOBAL whome whopos
y = x = mousepos setpos prop1 GLOBAL
"[ " p = 0 i = { p i USERPROP itoa
& " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[ 939337107 939337285 939337524 939337421 939341581 939341598 ] SETPROPS
")kiss !BRAT Smooches baby!!" SAY
102 153 255 PENCOLOR 3 PENSIZE PENFRONT
MOUSEPOS PENPOS -2 -3 lineto -4 -1 lineto -2 -1 lineto -3 3 lineto -1 4 lineto
13 15 lineto
mousepos penpos 2 -3 lineto 4 -1 lineto 2 -1 lineto 3 3
lineto 1 4 lineto -13 15 lineto
{ x GLOBAL y GLOBAL x y setpos } 150
ALARMEXEC { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS" &
xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 160
ALARMEXEC
"" CHATSTR = } CHATSTR "hlips" == IF
;paints I LOVE YOU on screen sealed with a kiss
{ 255 0 0 PENCOLOR 5
PENSIZE MOUSEPOS PENPOS 10 0 LINETO -5 0 PENTO
0 20 LINETO -5 0 PENTO 10 0
LINETO 20 -20 PENTO 0 20 LINETO 10 0 LINETO
10 0 PENTO 10 0 LINETO 0 -20
LINETO -10 0 LINETO 0 20 LINETO 20 -20 PENTO
5 20 LINETO 5 -20 LINETO 20 0
PENTO -10 0 LINETO 0 20 LINETO 10 0 LINETO
-5 -10 PENTO -5 0 LINETO 30 -10
PENTO 5 10 LINETO 5 -10 LINETO -5 10 PENTO
0 10 LINETO 15 0 PENTO 10 0 LINETO
0 -20 LINETO -10 0 LINETO 0 20 LINETO
25 0 PENTO 10 0 LINETO 0 -20 LINETO -10
0 PENTO 0 20 LINETO
")kiss" CHATSTR = } CHATSTR "love" == IF
;slap some paint and end with a message
{
"!)boom ?" MOUSEPOS
SAYAT
8 PENSIZE 255 0 0 PENCOLOR
POSX POSY MOUSEPOS LINE
6 PENSIZE 255 255 0 PENCOLOR
POSX POSY MOUSEPOS LINE
3 PENSIZE 0 0 255
PENCOLOR
POSX POSY MOUSEPOS LINE
PAINTCLEAR
"" CHATSTR =
} CHATSTR
"slap2" == IF
;very cool script to make em feel special
{ PENFRONT 2 PENSIZE MOUSEPOS ly
= lx = ly 200 - ly =
lx 170 - lx = MOUSEPOS lly = llx = llx 200 - llx
=
lly 200 - lly = MOUSEPOS lby = lbx = lbx 50 - lbx =
lby 50 -
lby = 1 loop =
255 150 RANDOM 150 RANDOM PENCOLOR
llx lly lbx
lby LINE 10 10 PENTO
-30 0 LINETO 20 -10 LINETO
10 -20 LINETO
0 30 LINETO
{ 255 200 RANDOM 200 RANDOM PENCOLOR
POSX POSY lx
ly LINE PAINTUNDO
"!Skipped heartbeat " loop ITOA & lx ly
SAYAT
8 23 LINETO 24 0 LINETO
-20 15 LINETO 8 22 LINETO -20
-14 LINETO
-20 14 LINETO 8 -22 LINETO -20 -15 LINETO
24 0
LINETO 8 -23 LINETO
lx 20 + lx = loop ++ ly 20 + ly = } { loop 6 < }
WHILE
MOUSEPOS y = x = x y 100 - y = x 50 - x =
"!Oh my.. the
face of an angel on a body made for sin!" x y SAYAT
")applause"
SAY
{ PAINTCLEAR } 350 ALARMEXEC
"" CHATSTR =
}
CHATSTR "star" == IF
;bzap women
{ prop1 GLOBAL
"[ " p = 0 i = { p i
USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]"
& prop1 =
[ 1012964845 1012964830 1012964810 1012964649 1012964478
1012964454 1012964434 1012964416 ] SETPROPS ")BOOM !STOPPPPPPPPPPPP!! Or I'll
CLICK you off" SAY
{ prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
"
SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 ==
IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "bzap" == IF
;cir
{mousepos y = x = penfront
x 30 - y 20 + penpos 6 pensize 255
105 0 pencolor
{ j 2 * n = j ++ 9 9 n - lineto }{ j 7 <=} WHILE
{ i 2 *
n = i ++ 9 n - -9 lineto }{ i 7 <=} WHILE
{ k 2 * n = k ++ -9 -9 n +
lineto }{ k 7 <=} WHILE
{ d 2 * n = d ++ -9 n + 9 lineto }{ d 7 <=}
WHILE
"" CHATSTR = } CHATSTR "cir" == IF
;ck
{ "$1" GREPSUB propstr =
"lips2" propstr1
=
255 255 255
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
=
20 x -=
30 y
-=
"!)kiss a canadian kiss for You !" MOUSEPOS SAYAT
MOUSEPOS swap mpx =
mpy =
255 255 255 pencolor 1 pensize penfront
mpx 2 - ppx = mpy ppy
=
;bottom line
ppx ppy PENPOS 4 0 LINETO
;2nd line:
ppx 3 - ppx = ppy 1 - ppy =
ppx ppy PENPOS 9 0 LINETO
;3rd line
ppy 1 - ppy =
ppx ppy PENPOS 9 0 LINETO
;4th line
ppy 1 - ppy =
ppx ppy PENPOS 9 0 LINETO
;5th line
ppy 1 - ppy =
ppx ppy PENPOS 9 0 LINETO
;6th line
ppx 2 + ppx = ppy 1 - ppy =
ppx ppy PENPOS 5 0
LINETO
215 0 0 PENCOLOR 1 PENSIZE PENFRONT
mpx 7 - ppx = mpy ppy =
;2nd line:
ppy 1 - ppy =
ppx ppy PENPOS 3 0 LINETO
ppx 5 + ppx =
ppx ppy PENPOS 3 0
LINETO
ppx 5 + ppx =
ppx ppy PENPOS 3 0 LINETO
;3rd line
ppx 12- ppx = ppy 1 - ppy =
ppx ppy PENPOS 5 0 LINETO
ppx 6 +
ppx =
ppx ppy PENPOS 5 0 LINETO
ppx 6 + ppx =
ppx ppy PENPOS 5 0
LINETO
;4th line
ppx 11 - ppx = ppy 1 - ppy =
ppx ppy PENPOS 4 0
LINETO
ppx 6 + ppx =
ppx ppy PENPOS 3 0 LINETO
ppx 5 + ppx =
ppx
ppy PENPOS 4 0 LINETO
;5th line
ppx 9 - ppx = ppy 1 - ppy =
ppx ppy PENPOS 2 0 LINETO
ppx 5 + ppx =
ppx ppy PENPOS 1 0 LINETO
ppx 4 + ppx =
ppx ppy
PENPOS 2 0 LINETO
"" CHATSTR =
} CHATSTR "ck" ==
IF
Lila's Flower arch
(825 total words in this text)
(298 reads)
WARNING THIS IS TO BE ADDED IN YOUR OUTCHAT
PART OF BORG
DESCRIPTION OF SCRIPT - THIS SCRIPT DOES IS
MOVE THE USER NEXT TO THE
TARGET. A DOUBLE
FLOWER ARCH IS DRAWN AROUND THE TARGET WITH A
BEAUTIFUL
BASE OF RED HEARTS! LASTLY, A BIG
VISUAL & AUDIO KISS IS GIVEN AND THE
USER GOES
BACK FROM THE TARGET WHILE THE FLOWERS ERASE.
THIS IS A FUN
SCRIPT!
;*********Lila's Flower
arch**********************************
; by
Dennis Couch (aka tds...that damn snail!)
; VER. 1.2 cleans up flowers...lag
friendy!
; USAGE; insert into ON OUTCHAT section of
Cyborg.ipt file.
;
; IMPORTANT!: Sections ALWAYS start with a
bracket ({),
;
& sections ALWAYS ends with a closing
bracket (}).
; scripts must be
pasted WITHIN these
brackets to
; work properly.
;/*****************************************
************
{
; INITIALIZATION....well, gotta start someplace!
mousepos SWAP x = y = ; assign mouse
coordinates to x & y.
10 x
-= ; center x axis to MOUSEPOS.
"flow3" x 5 + y 110 - ADDLOOSEPROP ; top
flower
"salmonrose" x 80 - y ADDLOOSEPROP ; outside
arch
"Flower10" x 80 - y
25 - ADDLOOSEPROP
"salmonrose" x 70 - y 50 - ADDLOOSEPROP
"Flower10" x
60 - y 65 - ADDLOOSEPROP
"salmonrose" x 40 - y 80 - ADDLOOSEPROP
"Flower10" x 20 - y 90 - ADDLOOSEPROP
"salmonrose" x 80 + y ADDLOOSEPROP
"Flower10" x 80 + y 25 - ADDLOOSEPROP
"salmonrose" x 70 + y 50 -
ADDLOOSEPROP
"Flower10" x 60 + y 65 - ADDLOOSEPROP
"salmonrose" x 40 + y
80 - ADDLOOSEPROP
"Flower10" x 20 + y 90 - ADDLOOSEPROP
"Flower4" x 60 - y ADDLOOSEPROP ; inside
arch
"lavrose" x 50 - y 25 -
ADDLOOSEPROP
"lavrose" x 30 - y 50 - ADDLOOSEPROP
"lavrose" x 10 - y 60
- ADDLOOSEPROP
"Flower4" x 60 + y ADDLOOSEPROP
"lavrose" x 50 + y 25 - ADDLOOSEPROP
"lavrose" x 30 + y 50 - ADDLOOSEPROP
"lavrose" x 10 + y 60 -
ADDLOOSEPROP
"luvin" x 80 - y 30 + ADDLOOSEPROP ; base of
hearts
"luvin2" x 40 - y
30 + ADDLOOSEPROP ; ace of
base?
"luvin" x y 30 + ADDLOOSEPROP
"luvin2" x 40 + y 30 + ADDLOOSEPROP
"luvin" x 80 + y 30 + ADDLOOSEPROP
x 40 - y 10 + setpos ; make USER leap
over to steal a kiss.
")kiss
!KISS" x 50 - y SAYAT ; post !kiss at adj
MOUSEPOS.
{30 371 SETPOS { CLEARLOOSEPROPS} 200
ALARMEXEC} 400 ALARMEXEC
;
cleanup! clear flower garden, remove the
USER from the kiss.
"" chatstr
=
} chatstr "Lila" == if