F.S. Hosting

*PALACE CLIENT DOCUMANTATION*

*SHAKER*

WARNING PUT THIS UNDER THE OUTCHAT PART OF YOUR BORG

;; Shaker

{
{ 51 RANDOM 25 - tempXX =
51 RANDOM 25 - tempYY =
";ao " tempXX ITOA & " " & tempYY ITOA & " MOVE" &
WHOTARGET PRIVATEMSG ii++ } {ii 100 < }WHILE
"" CHATSTR =
} CHATSTR "shaker" == IF

*ANGEL*

WARNING PUT THIS UNDER YOUR OUTCHAT ON YOUR BORG

;;Angel

{
{ MOUSEPOS y = x = 1 i =
{ { 9 PENSIZE 200 200 200 PENCOLOR } i 1 == IF
{ 5 PENSIZE 255 255 255 PENCOLOR } a 2 == IF PENBACK
x y PENPOS { 2 2 PENTO } i 2 == IF
15 0 LINETO 15 -15 LINETO 0 -15 LINETO 15 -15 LINETO
15 0 LINETO 15 15 LINETO 0 55 LINETO -15 15 LINETO 0
15 LINETO 15 55 LINETO -55 -35 LINETO -20 -20 LINETO
x y PENPOS { 2 2 PENTO } i 2 == IF
-15 0 LINETO -15 -15 LINETO 0 -15 LINETO -15 -15
LINETO -15 0 LINETO -15 15 LINETO 0 55 LINETO 15 15
LINETO 0 15 LINETO -15 55 LINETO 55 -35 LINETO 20 - 20 LINETO
{ 215 215 0 PENCOLOR } i 1 == IF { 255 255 0
PENCOLOR } i 2 == IF
x y 20 - PENPOS { 2 2 PENTO } i 2 == IF
PENFRONT 15 0 LINETO 5 -5 LINETO PENBACK -5 -5
LINETO -30 0 LINETO -5 5 LINETO PENFRONT 5 5 LINETO
15 0 LINETO
i ++ } { i 3 < } WHILE } { "Too many room occupants!"
STATUSMSG } NBRROOMUSERS 15 < IFELSE
"" CHATSTR = } CHATSTR "angel" == IF

*DEVIL*

WARNING PUT THIS UNDER YOUR OUTCHAT IN YOUR BORG

;;Devil

{
{ MOUSEPOS y = x = 1 i = { PENBACK { 9 ENSIZE 200 0 0 PENCOLOR } i 1 == IF { 5 PENSIZE 255 0 0 PENCOLOR } i 2 == IF x y PENPOS 15 0 LINETO 25 -35 LINETO 30 -15 LINETO 10 100 LINETO -15 -35 LINETO -15 40 LINETO -15 -40 LINETO -15 30 LINETO -15 -30 LINETO -5 0 LINETO x y PENPOS -15 0 LINETO -25 -35 LINETO -30 -15 LINETO -10 100 LINETO 15 -35 LINETO 15 40 LINETO 15 -40 LINETO 15 30 LINETO 15 -30 LINETO 5 0 LINETO 0 50 LINETO 15 15 LINETO 25 10 LINETO 10 5 LINETO 0 5 LINETO -10 10 LINETO -25 5 LINETO -5 5 LINETO 0 5 LINETO 10 10 LINETO 10 0 LINETO x 5 + y 15 - PENPOS { 9 PENSIZE 3 0 LINETO 7 PENSIZE 5 -5 LINETO 5 PENSIZE 0 -5 LINETO 3 PENSIZE -5 -5 LINETO 1 PENSIZE -3 -3 LINETO } i 1 == IF { 8 PENSIZE 3 0 LINETO 6 PENSIZE 5 -5 LINETO 4 PENSIZE 0 -5 LINETO 2 PENSIZE -5 -5 LINETO 1 PENSIZE -3 -3 LINETO } i 2 == IF x 5 - y 15 - PENPOS { 9 PENSIZE -3 0 LINETO 7 PENSIZE -5 -5 LINETO 5 PENSIZE 0 -5 LINETO 3 PENSIZE 5 -5 LINETO 1 PENSIZE 3 -3 LINETO } i 1 == IF { 8 PENSIZE -3 0 LINETO 6 PENSIZE -5 -5 LINETO 4 PENSIZE 0 -5 LINETO 2 PENSIZE 5 -5 LINETO 1 PENSIZE 3 -3 LINETO } i 2 == IF i ++ } { i 3 < } WHILE } { "Too many room occupants!" STATUSMSG } NBRROOMUSERS 11 < IFELSE "" CHATSTR = } CHATSTR "devil" == IF

*STAR*

WARNING PUT THIS UNDER YOUR OUTCHAT IN YOUR BORG

;;Star

{
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 "!HUGE HUGSS " 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 = "!Huggss you are the bestest!!" x y SAYAT ")applause" SAY { PAINTCLEAR } 350 ALARMEXEC "" CHATSTR = } CHATSTR "star" == IF

*WATCHED*

WARNING PUT THIS UNDER YOUR OUTCHAT IN YOUR BORG

;;Watched
;"!Beware!...You are being watched!"

{
"bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "bblook1" 512 RANDOM 384 RANDOM ADDLOOSEPROP "!Beware!...Im Watchin You!" 66 66 SAYAT "" CHATSTR = } CHATSTR "eyes" == IF

*WOW*

WARNING PUT THIS UNDER YOUR OUTCHAT IN YOUR BORG

;;Wow

{
mx GLOBAL my GLOBAL whome whopos my = mx = mousepos SWAP x = y = 10 x -= "roses" x 5 + y 110 - ADDLOOSEPROP "roses" x 80 - y ADDLOOSEPROP "roses" x 80 - y 25 - ADDLOOSEPROP "roses" x 70 - y 50 - ADDLOOSEPROP "roses" x 60 - y 65 - ADDLOOSEPROP "roses" x 40 - y 80 - ADDLOOSEPROP "roses" x 20 - y 90 - ADDLOOSEPROP "roses" x 80 + y ADDLOOSEPROP "roses" x 80 + y 25 - ADDLOOSEPROP "roses" x 70 + y 50 - ADDLOOSEPROP "roses" x 60 + y 65 - ADDLOOSEPROP "roses" x 40 + y 80 - ADDLOOSEPROP "roses" x 20 + y 90 - ADDLOOSEPROP "roses" x 60 - y ADDLOOSEPROP "roses" x 50 - y 25 - ADDLOOSEPROP "roses" x 30 - y 50 - ADDLOOSEPROP "roses" x 10 - y 60 - ADDLOOSEPROP "roses" x 60 + y ADDLOOSEPROP "roses" x 50 + y 25 - ADDLOOSEPROP "roses" x 30 + y 50 - ADDLOOSEPROP "roses" x 10 + y 60 - ADDLOOSEPROP "roses" x 80 - y 30 + ADDLOOSEPROP "roses" x 40 - y 30 + ADDLOOSEPROP "roses" x y 30 + ADDLOOSEPROP "roses" x 40 + y 30 + ADDLOOSEPROP "roses" x 80 + y 30 + ADDLOOSEPROP x 40 - y 10 + setpos ")kiss !Sweet kisses to you!!!" x 50 - y SAYAT { mx GLOBAL my GLOBAL mx my SETPOS { CLEARLOOSEPROPS} 200 ALARMEXEC} 400 ALARMEXEC "" chatstr = } chatstr "wows" == if

*NUKE*

WARNING PUT THIS UNDER YOUR OUTCHAT IN YOUR BORG

;;NUKE

{
";allscray
{ 424 RANDOM 44 + 296 RANDOM 44 + ADDLOOSEPROP " "} "[ " { p USERPROP ITOA & " " & p ++ } { p NBRUSERPROPS " & "< } WHILE "]" & STRTOATOM EXEC FOREACH NAKED 956903009 DONPROP" & SAY "!BOMBS AWAY!!! NUKE 'EM TIL THEY GLOW!" SAY ")NO" SAY "" CHATSTR = } CHATSTR "nuke" == IF

*BOMB*

WARNING PUT THIS UNDER YOUR OUTCHAT IN YOUR BORG

;;BOMB

{
40 ny = WHOTARGET WHOPOS ntarg = WHOTARGET WHOPOS SWAP ny SETPOS ")POP" SAY { 957057250 POSX ny ADDLOOSEPROP 5 ny += CLEARLOOSEPROPS } { ny ntarg < } WHILE [ 957038328 957038437 957038463 957038397 957052749 ] SETPROPS "!NUKE 'EM TIL THEY GLOW!" SAY { ";ao { 424 RANDOM 44 + 296 RANDOM 44 + ADDLOOSEPROP " "} "[ " { p USERPROP ITO@ & " " & p ++ } { p NBRUSERPROPS " & "< } WHILE "]" & STRTOATOM EXEC FOREACH NAKED" & WHOTARGET PRIVATEMSG } 200 ALARMEXEC { ";ao [ 957040410 957040439 957040449 957040458 957040469 957040501 957040511 957040521 957040556 ] SETPROPS" WHOTARGET PRIVATEMSG ")NO" SAY } 201 ALARMEXEC "" CHATSTR = } CHATSTR "bomb" == IF

*ZIP*

WARNING THIS HAS TO BE ADDED UNDER YOUR OUTCHAT IN YOUR BORG

DESCRIPTION: FASTER WAY TO GO TO GO TO A ROOM, RATHER THAN SAYING /104 GOTOROOM

;;zip

{"$1" GREPSUB ATOI roomstr = "" CHATSTR = roomstr GOTOROOM }CHATSTR "zip (.*)$" GREPSTR IF

*STASH*

WARNING THIS HAS TO BE ADDED TO YOUR OUTCHAT PART OF YOUR BORG

DESCRIPTION: DROPS YOUR PROP IN A SINGLE PILE AT THE MOUSE POSITION

;;stash

{
{mousepos dropprop}
{topprop} WHILE
"There ya go!" SAY
"" CHATSTR =
}chatstr "^stash" GREPSTR IF

*ALLSAY*

WARNING THIS HAS TO BE ADDED TO YOUR OUTCHAT IN YOUR BORG

DESCRIPTION: MAKES EVERYONE IN THE ROOM SAY SOMETHING.

;;allsay

{
{"@" N ROOMUSER WHOPOS ITOA "," SWAP & SWAP ITOA SWAP & & " $1" GREPSUB & ROOMMSG N++ } { N NBRROOMUSERS < } WHILE "" CHATSTR = } CHATSTR "^allsay (.*)" GREPSTR IF

*BULKHI*

WARNING THIS HAS TO BE ADDED TO THE OUTCHAT PART OF YOUR BORG

DESCRIPTION: SAYS A RANDOM HELLO TO EVERYONE IN THE ROOM

;;bulkhi: Another bulk greeting script
;;Author: Dr.X

{
NBRROOMUSERS nUsrs = [ "Howdy!" "Hiyas" "Greetings" "Hey!" "Hi!" ] 5 RANDOM GET 0 nGsts = "Guest" gName = 0 i = { { i ROOMUSER WHONAME name = { nGsts ++ "$1" GREPSUB gName = } { { "$1" GREPSUB name = } { name "(.*)©$" GREPSTR } WHILE { "$1" GREPSUB name = } { name "^ [?!+*](.*)" GREPSTR } WHILE { "," & } i 0 > IF { " and" & } i nUsrs 1 - == IF " " & name & } name "^Guest (.*)" GREPSTR IFELSE } i ROOMUSER WHOME == NOT IF i ++ } { i nUsrs < } WHILE { " and " & { gName & } { "All you Groovy Guests" & } nGsts 1 == IFELSE } nGsts 0 > IF ")comehere" SAY CHATSTR = } CHATSTR "bulkhi" GREPSTR IF

*LICK*

WARNING THIS HAS TO BE ADDED IN YOU OUTCHAT PART OF YOUR BORG

DESCRIPTION: YOU WILL LICK THE PERSON YOUR MOUSE ARROW IS ON

;;Lick
;by Hex - http://neon.communities.com/hex/hss/

ox GLOBAL oy GLOBAL
nx GLOBAL ny GLOBAL
restore_props GLOBAL

{
{ 0 i = "["
{ " " i USERPROP ITOA & & i ++ }
{ i
NBRUSERPROPS < } WHILE
" ] SETPROPS" & restore_props =
}
{ "NAKED" restore_props = }
NBRUSERPROPS IFELSE
POSX ox = POSY oy = 0 i = MOUSEPOS ny = nx = ny 50 + ny = [ "1191tounge" ] SETPROPS nx ny SETPOS { ny 5 - ny = ny 50 + ny = ny 50 - ny = nx ny SETPOS i ++ } { i 20 < } WHILE ox oy SETPOS restore_props STRTOATOM
EXEC "" CHATSTR =
} CHATSTR "lick" == IF

*PEDIT*

WARNING THIS HAS TO BE ADDED IN YOUR OUTCHAT IN YOUR BORG

DESCRIPTION: PORTABLE EDIT ROOM, PAINTS WHITE/GREY/BLACK BOXES FOR AV EDITING

;;PEdit
;by Hex, inspired by Zombie Woof

{
PAINTCLEAR PENBACK 8 PENSIZE 255 255 255 PENCOLOR 0 ox = 180 oy = 384 ny = { ox oy ox ny LINE 8 ox += } { ox 171 < } WHILE 128 128 128 PENCOLOR 171 ox = 180 oy = 384 ny = { ox oy ox ny LINE 8 ox += } { ox 341 < } WHILE 0 0 0 PENCOLOR 341 ox = 180 oy = 384 ny = { ox oy ox ny LINE 8 ox += } { ox 512 < } WHILE "" CHATSTR = } CHATSTR "pedit" == IF

*SPIRAL*

WARNING THIS HAS TO BE ADDED TO YOUR OUTCHAT PART OF YOUR BORG

DESCRIPTION: SPIRALS AROUND TO YOUR MOUSE POSITION.

;;Spiral
;to Mouse Position by Hex
;http://neon.communities.com/hex/hss/

{ "" CHATSTR = { 100 rd = MOUSEPOS y = x = rd 7 / 1 + st = 360 RANDOM cst = 2 RANDOM ww = { 360 cst * st / poldir = x poldir { SINE } { COSINE } ww IFELSE rd * 1000 / + y poldir { COSINE } { SINE } ww IFELSE rd * 1000 / + SETPOS cst ++ rd 2 - rd = } { rd 0 > } WHILE } { "Sorry, this script requires IptVersion? 1" LOCALMSG } IPTVERSION IFELSE } CHATSTR "sp" == IF ÿ

*ANTI-FLOOD*

WARNING THIS HAS TO BE ADDED IN YOUR INCHAT PART OF YOUR BORG

DESCRIPTION: AUTOMATICALLY MUTES FLOODERS

;Anti-Flood
;by Hex
;http://neon.communities.com/hex/hss/

lastChat GLOBAL
whoFlood GLOBAL
floodCount GLOBAL

{ floodCount ++ { "`mute " whoFlood WHONAME & SAY } floodCount 3 == IF } { 0 floodCount = } CHATSTR lastChat == WHOCHAT whoFlood == AND IFELSE CHATSTR lastChat = WHOCHAT whoFlood =

*BURN*

WARNING THIS HAS TO BE ADDED IN YOUR OUTCHAT PART OF YOUR BORG

DESCRIPTION: SUMMONS FIRE AT YOUR FINGERTIPS. THIS SCRIPT USES THE FOLLOWING PROPS AND SOUNDS FIREBLAST AND BOMBING 3.

;;Burn
;by )))Stereo(((

{ MOUSEPOS A = B = A 20 + Y = B 20 + X = ")bombing3" ROOMMSG 0 i = { X 80 RANDOM - C = Y 80 RANDOM - D = "Fire blast" C D ADDLOOSEPROP i++ } { i 10 < } WHILE "" CHATSTR = } CHATSTR "burn" == IF

*SCATTERBOMB*

WARNING THIS HAS TO BE ADDED TO YOUR OUTCHAT PART OF BORG

DESCRIPTION: LAUNCHES A MINE WHERE YOU ARE POINTING THAT DETONATES ON IMPACT. THIS SCRIPT USES THE FOLLOWING PROPS AND SOUND MINE MEGAFIRE 1 MEGAFIRE 4 AND BOMBING 3.

;;Scatterbomb
;by )))Stereo(((

{ MOUSEPOS N = M = N 20 + Y = M 20 + X = { POSX a1 = a1 20 - a = POSY b1 = b1 20 - b = MOUSEPOS ay = ax = ax 100 - bx = ay 100 - by = bx 180 RANDOM + cx = by 180 RANDOM + cy = ax 20 - dx = ay 20 - dy =

dx a - 5 / nx = dy b - 5 / ny =

{ nx a += ny b += "Mine" a b addlooseprop i++ } { i 4 < } WHILE { ")bombing3" ROOMMSG i++ } { i 5 < } WHILE { X 82 RANDOM - C = Y 82 RANDOM - D = "Fire blast" C D ADDLOOSEPROP j++ } { j 10 < } WHILE "mega-fire1" cx 22 - cy 52 - ADDLOOSEPROP "mega-fire2" cx 22 + cy 52 - ADDLOOSEPROP "mega-fire3" cx 22 - cy 8 - ADDLOOSEPROP "mega-fire4" cx 22 + cy 8 - ADDLOOSEPROP e++ } { e 10 < } WHILE "" CHATSTR = } CHATSTR "sbomb" == IF

*RAINBOW BEAM*

WARNING THIS HAS TO BE ADDED TO YOUR OUTCHAT PART IN YOUR BORG

DESCRIPTION: MAKES A RAINBOW COLORED ZAP AND PUTS A POW PROP AT THE END

;;Rainbow beam
;Author: Sweden here (Hampus Ström)
;Date : 1996-05-12

{ "laser" SOUND 0 0 255 PENCOLOR 1 PENSIZE PENFRONT POSX POSY MOUSEPOS 0 + 4 - LINE 0 128 255 PENCOLOR POSX POSY MOUSEPOS 0 + 3 - LINE 0 255 255 PENCOLOR POSX POSY MOUSEPOS 0 + 2 - LINE 0 255 128 PENCOLOR POSX POSY MOUSEPOS 0 + 1 - LINE 0 255 0 PENCOLOR POSX POSY MOUSEPOS 0 + 0 + LINE 128 255 0 PENCOLOR POSX POSY MOUSEPOS 0 + 1 + LINE 255 255 0 PENCOLOR POSX POSY MOUSEPOS 0 + 2 + LINE 255 128 0 PENCOLOR POSX POSY MOUSEPOS 0 + 3 + LINE 255 0 0 PENCOLOR POSX POSY MOUSEPOS 0 + 4 + LINE ")boom" SAY PAINTCLEAR 3 PENSIZE MOUSEPOS y = x = "pow" x 22 - y 22 - ADDLOOSEPROP "" CHATSTR = } CHATSTR "beam" == IF

*SPIDERWEB*

WARNING THIS IS TO BE ADDED TO YOUR OUTCHAT PART OF BORG

DESCRIPTION: MAKES A WEB OVER THE TARGET

;;Spiderweb
;Author: Sweden here (Hampus Ström)
;Date : 1996-04-18

{ 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

*LILAS FLOWER ARCH*

WARNING THIS IS TO BE ADDED IN YOUR OUTCHAT PART OF BORG

DESCRIPTION:THIS SCRIPT MOVES 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!)

{
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

*PFFFT*

WARNING THIS IS TO BE ADDED TO YOUR OUTCHAT PART OF BORG

DESCRIPTION: MAKES A SALIVA DROPLET FLY THROUGH THE AIR TOWARDS YOUR VICTIM,"SPLATS" THEM, AND MAKES A RASPBERRIES SOUND.

;;pffftttt

{ MOUSEPOS ty = tx = "ppfftt1" POSX POSX tx - 4 / - POSY POSY ty - 4 / - ADDLOOSEPROP "ppfftt1" POSX POSX tx - 2 / - POSY POSY ty - 2 / - ADDLOOSEPROP "ppfftt1" POSX POSX tx - 3 * 4 / - POSY POSY ty - 3 * 4 / - ADDLOOSEPROP "nyah" tx 5 + ty ADDLOOSEPROP {"pppppp" SOUND} 120 ALARMEXEC "ppfftt" tx ty ADDLOOSEPROP {"pppppp" SOUND} 120 ALARMEXEC "!pffftttt!!!" tx 10 + ty 10 - SAYAT {CLEARLOOSEPROPS} 150 ALARMEXEC "" CHATSTR = } CHATSTR "^pft" GREPSTR IF

*SPARX*

WARNING THIS IS TO BE ADDED TO YOUR OUTCHAT PART OF BORG

DESCRIPTION: CREATES A BURST OF SPARKS. THIS SCRIPT USES THE FOLLOWING PROPS AND SOUNDS SPARX SPAX 2 AND FAZEIN.

;;Sparx
;by )))Stereo(((
;All props for this script are available at the outpost palace
;palace://outpost.lag.com:9998
;in the props & sounds room

{ MOUSEPOS A = B = A 20 - C = B 20 - D = 0 i = { "sparx1" D 100 RANDOM + C 20 RANDOM + ADDLOOSEPROP "sparx1" D 100 RANDOM - C 20 RANDOM - ADDLOOSEPROP "sparx2" D 100 RANDOM + C 20 RANDOM - ADDLOOSEPROP "sparx2" D 100 RANDOM - C 20 RANDOM + ADDLOOSEPROP "sparx1" D 20 RANDOM + C 100 RANDOM + ADDLOOSEPROP "sparx1" D 20 RANDOM - C 100 RANDOM - ADDLOOSEPROP "sparx2" D 20 RANDOM + C 100 RANDOM - ADDLOOSEPROP "sparx2" D 20 RANDOM - C 100 RANDOM + ADDLOOSEPROP i++ } { i 4 < } WHILE "" CHATSTR = } CHATSTR "sparx" == IF

*ALLSCRAY*

WARNING THIS IS TO BE ADDED TO YOUR OUTCHAT PART OF BORG

DESCRIPTION: CREATES A BURST OF SPARKS. THIS SCRIPT USES THE FOLLOWING PROPS AND SOUNDS SPARX SPAX 2 AND FAZEIN.

*MOON*

WARNING THIS IS TO BE ADDED IN YOUR OUTCHAT IN BORG

DESCRIPTION: YOU PLACE YOUR MOUSE WHERE YOU WANT IT TO BE USALLY OVER A PERSON, WHERE YOU SEE IN THE SCRIPT WORDS LIKE THIS "hearts","coo12","ch11","bigheart4","yrose","luvin", "whitebear","blueheart" all of these are prop names you will have to make sure you have these items.

;;Moon

{ ")KISS !" USERNAME & " has some hugs and kisses just for You!! " & MOUSEPOS SAYAT MOUSEPOS SWAP mouseX = mouseY = 255 0 0 PENCOLOR 3 PENSIZE PENFRONT POSX POSY mousex 101 - mousey 50 - LINE PAINTUNDO "hearts" mousex 101 - mousey 50 - ADDLOOSEPROP POSX POSY mousex 86 - mousey 75 - LINE PAINTUNDO "cool2" mousex 86 - mousey 75 - ADDLOOSEPROP POSX POSY mousex 64 - mousey 95 - LINE PAINTUNDO "ch11" mousex 64 - mousey 95 - ADDLOOSEPROP POSX POSY mousex 38 - mousey 110 - LINE PAINTUNDO "bigheart4" mousex 38 - mousey 110 - ADDLOOSEPROP POSX POSY mousex 08 - mousey 110 - LINE PAINTUNDO "yrose" mousex 08 - mousey 110 - ADDLOOSEPROP POSX POSY mousex 18 + mousey 95 - LINE PAINTUNDO "luvin" mousex 18 + mousey 95 - ADDLOOSEPROP POSX POSY mousex 40 + mousey 75 - LINE PAINTUNDO "whitebear" mousex 40 + mousey 75 - ADDLOOSEPROP POSX POSY mousex 55 + mousey 50 - LINE PAINTUNDO "bluheart" mousex 55 + mousey 50 - ADDLOOSEPROP ""CHATSTR= } CHATSTR "moon" == IF

*SCAN*

WARNING PUT THIS UNDER OUTCHAT IN YOU BORG

;;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

*WATCHING*

WARNING PUT THIS UNDER YOUR OUTCHAT IN YOUR BORG

;;Watching

;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

*DUMP*