;BBENCH

{
               CLEARLOOSEPROPS
               "jbench1" 176 292ADDLOOSEPROP "jbench2" 176 336 ADDLOOSEPROP
               "jbench3" 220 292 ADDLOOSEPROP "jbench4" 220 336 ADDLOOSEPROP
               "jbench3" 264 292 ADDLOOSEPROP "jbench4" 264 336 ADDLOOSEPROP
               "jbench5" 308 292 ADDLOOSEPROP "jbench6" 308 336 ADDLOOSEPROP
              
 "" CHATSTR =
            } CHATSTR "bbench" == IF

;bite

{
  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"! " WHOME WHONAME & " Has Just coiled you! Are YOU ready for the Pleasure!! " & MOUSEPOS SAYAT
  "" CHATSTR =
  } CHATSTR "bite" == IF

; BLOWK
{ dx GLOBAL dy GLOBAL tx GLOBAL ty
MOUSEPOS ty = tx = POSX tx - dx = POSY ty - dy =
")kiss" SAY
255 31 0 PENCOLOR 2 PENSIZE PENFRONT
tx dx 3 * 4 / + ty dy 3 * 4 / + PENPOS 4 2 LINETO -4 3 LINETO
tx dx 3 * 4 / + ty dy 3 * 4 / + PENPOS -4 2 LINETO 4 3 LINETO
PAINTCLEAR
255 31 0 PENCOLOR 2 PENSIZE PENFRONT
tx dx 2 / + ty dy 2 / + PENPOS 4 2 LINETO -4 3 LINETO
tx dx 2 / + ty dy 2 / +  PENPOS -4 2 LINETO 4 3 LINETO
PAINTCLEAR
255 31 0 PENCOLOR 2 PENSIZE PENFRONT
tx dx 4 / + ty dy 4 / + PENPOS 4 2 LINETO -4 3 LINETO
tx dx 4 / + ty dy 4 / + PENPOS -4 2 LINETO 4 3 LINETO
PAINTCLEAR
255 31 0 PENCOLOR 2 PENSIZE PENFRONT
tx ty PENPOS 4 2 LINETO -4 3 LINETO
tx ty PENPOS -4 2 LINETO 4 3 LINETO
"!" USERNAME & " just flashed you a kiss... better be happy!!!" & MOUSEPOS SAYAT
"" CHATSTR =
} CHATSTR "blowk" == IF

;blue1
 { [0 0 0 0 0 0 0 0 0] proparray = 
   { sy userprop proparray sy put sy ++ 
   } {sy nbruserprops == not} while
   { doffprop 2 DELAY } { topprop } while 
    mousepos setpos doffprop 
   { prop = { prop donprop 2 DELAY } 0 prop == not if }
   proparray foreach
   PENBACK MOUSEPOS y= x= 1 i =
   y 55- y=  x 100- x=
   255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 5 PENSIZE
   x 32 - y 1 + x 32 - y 1 - LINE
   1 -16 LINETO 4 -14 LINETO 6 -10 LINETO 6 -6 LINETO
   6 -6 LINETO 10 -6 LINETO 14 -4 LINETO 16 -2 LINETO
   16 2 LINETO 14 4 LINETO 10 6 LINETO 6 6 LINETO
     6 6 LINETO 6 10 LINETO 4 14 LINETO 2 16 LINETO
   x 95 + y 1 + x 95 + y 1 - LINE
   1 -16 LINETO 4 -14 LINETO 6 -10 LINETO 6 -6 LINETO
   6 -6 LINETO 10 -6 LINETO 14 -4 LINETO 16 -2 LINETO
   16 2 LINETO 14 4 LINETO 10 6 LINETO 6 6 LINETO
   6 6 LINETO 6 10 LINETO 4 14 LINETO 2 16 LINETO
   -2 16 LINETO -4 14 LINETO -6 10 LINETO
   x 95 + y 165 + x 210 + y 38 + LINE
   x 95 + y 165 + x 20 - y 38 + LINE
   -4 -6 LINETO  -4 -6 LINETO  -3 -10 LINETO  -1 -12 LINETO
    "Oh you sweet thing!!!" SAY { "!You have captured the heart of  " USERNAME & " ! !" & SAY } 10 ALARMEXEC
   "" CHATSTR = 
 } CHATSTR "blue1" == IF

;move
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[1023584823 1023584993 1023585190 1023585439 1023585574 1023585688 1023585727 1023585746 ] SETPROPS ")BOOM !MOVE IT!! Go!  Get Away ! ScRRRRRammmm!!!" SAY
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "bmove" == IF

;Boo

{ ")boing" roommsg
whome whopos y1 = x1 = y1 global x1 global
MOUSEPOS y2 = x2 = x2 x1 - dx = y2 y1 - dy =
{ c 2 * v = c ++ dx 36 v - / dy 36 v - / 20 - v + move}{ c 10 <=} while
{ i 2 * j = i ++ dx 12 j + / dy 12 j + / 0 + j + move}{ i 10 <=} while
"!BOOOOOOOOO!!!!!" say
{ y1 global x1 global whome whopos ty = tx = x1 tx - x1 = y1 ty - y1 = ")boing" roommsg
{ po 2 * v = po ++ x1 36 v - / y1 36 v - / 20 - v + move}{ po 10 <=} while
{ op 2 * j = op ++ x1 12 j + / y1 12 j + / 0 + j + move}{ op 10 <=} while} 100 alarmexec
"" CHATSTR = } CHATSTR "boo" == IF

;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

;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

{ MOUSEPOS y = x =
          ")cow:Well all I say is.." MOUSEPOS SAYAT
           PENFRONT 255 255 0 PENCOLOR 3 PENSIZE
           POSX 6 + POSY 38 + MOUSEPOS LINE PAINTUNDO
  "bull2" x 66 - y 44 - ADDLOOSEPROP
  "bull1" x 106 - y 44 - ADDLOOSEPROP        
         "bull4" x 66 - y 0 - ADDLOOSEPROP
  "bull5" x 22 - y 0 - ADDLOOSEPROP
  "bull3" x -106 + y 0 - ADDLOOSEPROP
         "bull7" x 66 - y 44 + ADDLOOSEPROP
  "bull8" x 22 - y 44 + ADDLOOSEPROP
  "bull6" x -106 + y 44 + ADDLOOSEPROP
 ": Bullllllllll Chittttttttttttttt !!!!." MOUSEPOS SAYAT 
  "" CHATSTR = }
          CHATSTR "bull1" == IF

;optional
{ ")no" SAY MOUSEPOS SWAP mouseX = mouseY = 255 0 0 PENCOLOR 3 PENSIZE
PENFRONT POSX POSY mousex mousey 75 - LINE PAINTUNDO "!B!" mousex mousey 75
- SAYAT POSX POSY mousex mousey 50 - LINE PAINTUNDO "!U!" mousex mousey 50
- SAYAT POSX POSY mousex mousey 25 - LINE PAINTUNDO "!M!" mousex mousey 25
- SAYAT POSX POSY MOUSEPOS LINE PAINTUNDO "!M!" MOUSEPOS SAYAT POSX POSY
mousex mousey 25 + LINE PAINTUNDO "!E!" mousex mousey 25 + SAYAT POSX POSY
mousex mousey 50 + LINE PAINTUNDO "!R!" mousex mousey 50 + SAYAT
"" CHATSTR = } CHATSTR "bummer" == IF

;bursty
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[ 1011412450 1011412398 1011412344 1011412259 1011412207 1011412148 1011412081 ] SETPROPS ")BOOM !Hey Sweety!! Wanna burst the bubblezzzz???" SAY
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "bursty" == IF

{
     NBRROOMUSERS num =
     "Until next we meet....Bye all !!"
     {
        {
                ", " i ROOMUSER WHONAME + +
        }  i ROOMUSER WHONAME USERNAME == NOT IF
        i ++
     } { i num < } WHILE
     SAY
     "" CHATSTR =
        } CHATSTR "bye3" == IF

;byebye tweety -
{  x GLOBAL y GLOBAL  whome whopos y = x = mousepos setpos prop1 GLOBAL
")pop ! sleep well !!! "  SAY
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
  [   981686135 999435091 999435093 981686150 981686154 981686159 981686164  ] SETPROPS
{ x GLOBAL y GLOBAL  x y setpos } 250 ALARMEXEC { prop1 GLOBAL { NAKED }
{prop1 GLOBAL prop1
" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 260
ALARMEXEC
"" CHATSTR = } CHATSTR "byebye" == IF

;Casper Bye
 { 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 =
 [835321637 862284467 835320570 862284455 956843300 862284174] SETPROPS
 ")kiss !Bye for now everyone!Take care ! ;)" SAY
 { x GLOBAL y GLOBAL x y setpos } 290 ALARMEXEC { prop1 GLOBAL { NAKED }
 {prop1 GLOBAL prop1
 " SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 290
 ALARMEXEC
 "" CHATSTR = } CHATSTR "byecas" == 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

;; coffee

{
POSX x = POSY y =
MOUSEPOS ty = tx =
tx x - 10 / tx =
ty y - 10 / ty =
{ "cup" x y addlooseprop clearlooseprops tx x += ty y += i++ }
{ i 10 <= } WHILE
"cup" MOUSEPOS ADDLOOSEPROP
")pop !Here have some coffee and wake up !! =)" SAY
"" CHATSTR =
} CHATSTR "^;*coff$" GREPSTR IF

; COWKISS
                 {  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 =
        [
        [996532659 996532738 996532781 996532907 996532954 996532963 996533046 996533150 996533349
   ]
        ] list = list LENGTH cnt =
        list cnt RANDOM GET SETPROPS
         ")kiss ! MOOOOOOOSHIE  Kisses for a sweetie!!"SAY
        255 0 0 PENCOLOR 6 PENSIZE PENFRONT MOUSEPOS PENPOS 10 6 LINETO -10 8 LINETO MOUSEPOS PENPOS -10 6 LINETO 10 8 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 "cowkiss" == IF

{x GLOBAL y GLOBAL  prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[  1008900776 1008900769 1008900762 1008900755 1008900747 -1206781569 1008901190 1008900790 ]
 SETPROPS ")pop !Na Na Na Na Na !!!!" SAY
{ prop1 GLOBAL { nakedness } {prop1 GLOBAL prop1
" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 240 ALARMEXEC
"" CHATSTR = } CHATSTR "crazy1" == IF

;cuddle

{"!com'mer you I wanna cuddle *S*!!!" Say x global y global mousepos y = x = ";ao \{ " x ITOA & " " & y ITOA &
" SETPOS \} USERNAME \"" & WHOTARGET WHONAME & "\" == IF" & WHOTARGET PRIVATEMSG
"" CHATSTR = } CHATSTR "cuddle" == IF

;doghouse
{  x GLOBAL y GLOBAL  whome whopos y = x = mousepos setpos prop1 GLOBAL
")pop ! shEEEEEEsh here i go again into the doghouse!!! "  SAY
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
  [ 888982797 ] SETPROPS
{ x GLOBAL y GLOBAL  x y setpos } 250 ALARMEXEC { prop1 GLOBAL { NAKED }
{prop1 GLOBAL prop1
" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 260
ALARMEXEC
"" CHATSTR = } CHATSTR "doghouse" == IF

DOIHAVETO
 { { GLOBAL } [ x y prop1 tx ty ] FOREACH
 MOUSEPOS ty = 13 + tx = ty 45 + ty =
 MOUSEPOS my = mx =
 WHOME WHOPOS y = x = tx ty SETPOS
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ }
 { i NBRUSERPROPS < } WHILE p " ]" & prop1 =
  [1007158625 1007158605 1007158576 1007158558 1007158506 1007158428 1007158388 1007158342]
 SETPROPS ")zzap! I Dont Want to listen to such trash " USERNAME & " Says STOP THE CRAP!!" & SAY
 255 50 150 PENCOLOR 2 PENSIZE PENFRONT
 mx my PENPOS 3 -1 LINETO 2 1 LINETO -8 2 LINETO
 mx my PENPOS -3 -1 LINETO -2 1 LINETO 8 2 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 mx my PENPOS "" CHATSTR =
 } CHATSTR "doihaveto" == IF

{ 0 i = nbruserprops n = "" Pp =
{ Pp i USERPROP itoa + " " + Pp = i ++ } { i n <
} WHILE "[ " Pp + " ] SETPROPS" + Pp = [1011408757 1011407955 1011408765 1011408736 1011408795 1011408717 1011408829 1011408838 1011408862 ] SETPROPS
Pp STRTOATOM 240 ALARMEXEC ")guffaw " chatstr + chatstr = } lowchat "duh" grepstr if

{ mousepos swap x = y =
"ddown1" x 20 - y 90 - ADDLOOSEPROP
"dright" x 54 + y 15 - ADDLOOSEPROP
"dup1" x 20 - y 55 + ADDLOOSEPROP
"dleft" x 90 - y 15 - ADDLOOSEPROP
PENFRONT
8 PENSIZE 0 0 0 PENCOLOR
x 40 - y 40 - x 40 + y 40 + LINE
x 40 - y 40 + x 40 + y 40 - LINE
PENFRONT
5 PENSIZE 128 128 128 PENCOLOR
x 40 - y 40 - x 40 + y 40 + LINE
x 40 - y 40 + x 40 + y 40 - LINE
"@" MOUSEPOS ITOA SWAP ITOA "," + SWAP + + "! X mark's the dumbass!" + ROOMMSG
""chatstr = } chatstr "dumb1" == IF

;DUNNO  WOMEN

  { 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 =
                                  [   979614792 979613822 979613933  ] SETPROPS
                                  ")GUFFAW !I Have No Idea!!" SAY
                                  { 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 "dunno" == IF

;ember
{
POSX 53 - A = POSY 23 - B = POSX 53 + C = POSY 21 - D = MOUSEPOS Y = X = Y 3 - Y = X 3 - X = PENFRONT
6 p = 255 r = 0 g = 0 bl =
{ p PENSIZE r g bl PENCOLOR A B X Y LINE C D X Y LINE
1 A += 1 B += 1 D += 1 C += 1 X += 1 Y += 127 r += 127 g += 2 p -= i++ } { i 3 < } WHILE
")kiss" ROOMMSG MOUSEPOS Y = X = Y 20 - C = X 20 - D =
C 80 - Y1 = D 80 - X1 = C 50 - Y2 = D 50 - X2 = C 15 - Y3 = D 15 - X
0 i = { "turk1" X3 30 RANDOM + Y3 30 RANDOM + ADDLOOSEPROP
"hgz" X2 100 RANDOM + Y2 100 RANDOM + ADDLOOSEPROP
"hgz" X2 100 RANDOM + Y2 100 RANDOM + ADDLOOSEPROP
"turk1" X1 160 RANDOM + Y1 160 RANDOM + ADDLOOSEPROP i++ } { i 8 < } WHILE
")kiss!Damn I a messy BRAT!!" Mousepos sayat
{ PAINTCLEAR CLEARLOOSEPROPS} 400 ALARMEXEC "" CHATSTR = } CHATSTR "ember" == IF

;"!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 "eyes1" == IF

;faint1
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[1016938407 1016937923 1016938288 1016938139 1016938065 1016938031 1016937987 1016937921  ] SETPROPS ")Camel !Sighhhhhhh I'm gonna faint!" SAY
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "faint1" == IF

{
-4 -4 MOVE
0 8 MOVE
0 16 MOVE
0 24 MOVE
0 32 MOVE
0 40 MOVE
0 48 MOVE
0 56 MOVE
0 64 MOVE
0 72 MOVE
0 80 MOVE
"!Damn Palace Pothole!!" CHATSTR =
} CHATSTR "fall" == IF

{
-4 -4 MOVE
0 8 MOVE
0 16 MOVE
0 24 MOVE
0 32 MOVE
0 40 MOVE
0 48 MOVE
0 56 MOVE
0 64 MOVE
0 72 MOVE
0 80 MOVE
"!Damn Fell Off Fence!!" CHATSTR =
} CHATSTR "fall2" == IF

;ge - finger1
{  x GLOBAL y GLOBAL  whome whopos y = x = mousepos setpos prop1 GLOBAL
")pop ! well!! this one is for you !!! "  SAY
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
  [ 949010624 949010551 949010319 949010115 949009357 948822318 948839954 948839976 963731161 ] SETPROPS
{ x GLOBAL y GLOBAL  x y setpos } 250 ALARMEXEC { prop1 GLOBAL { NAKED }
{prop1 GLOBAL prop1
" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 260
ALARMEXEC
"" CHATSTR = } CHATSTR "finger1" == IF

ON SELECT {

;colorfull kiss

{  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 =
[1019820214 1019822058 1019822138 1019822615 1019822976 1019823007 1019823068 1019823081] SETPROPS ")kiss !Sweet, Tender kisses filled with 2 shades for my special friends!!!" SAY
255 051 255 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 4 2 LINETO -4 3 LINETO  051 255 204 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS -4 2 LINETO 4 3 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 "fire1" == IF

;fkiss
{ ")KISS !" USERNAME & "'s Touch Will Make You Bloom!!!" & MOUSEPOS SAYAT
MOUSEPOS SWAP mouseX = mouseY = 255 0 0 PENCOLOR 3 PENSIZE PENFRONT
POSX POSY mousex 101 - mousey 50 - LINE PAINTUNDO "dflower1" mousex 101 - mousey 50 - ADDLOOSEPROP
POSX POSY mousex 86 - mousey 75 - LINE PAINTUNDO "dflower2" mousex 86 - mousey 75 - ADDLOOSEPROP
POSX POSY mousex 64 - mousey 95 - LINE PAINTUNDO "dflower3" mousex 64 - mousey 95 - ADDLOOSEPROP
POSX POSY mousex 38 - mousey 110 - LINE PAINTUNDO "dflower5" mousex 38 - mousey 110 - ADDLOOSEPROP
POSX POSY mousex 08 - mousey 110 - LINE PAINTUNDO "dflower5" mousex 08 - mousey 110 - ADDLOOSEPROP
POSX POSY mousex 18 + mousey 95 - LINE PAINTUNDO "dflower3" mousex 18 + mousey 95 - ADDLOOSEPROP
POSX POSY mousex 40 + mousey 75 - LINE PAINTUNDO "dflower2" mousex 40 + mousey 75 - ADDLOOSEPROP
POSX POSY mousex 55 + mousey 50 - LINE PAINTUNDO "dflower1" mousex 55 + mousey 50 - ADDLOOSEPROP
""CHATSTR=
} CHATSTR "fkiss" == 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

{ MOUSEPOS Y = X = Y 70 - Y1 = X 170 - X1 = 0 i =
{ "Dflower2" X1 300 RANDOM + Y1 100 RANDOM + ADDLOOSEPROP
"Dflower3" X1 300 RANDOM + Y1 100 RANDOM + ADDLOOSEPROP
"Dflower5" X1 300 RANDOM + Y1 100 RANDOM + ADDLOOSEPROP
"Dflower1" X1 300 RANDOM + Y1 100 RANDOM + ADDLOOSEPROP i++ } { i 30 < } WHILE ""
CHATSTR = }
CHATSTR "flowerbed" == IF

;fork1
{ MOUSEPOS y = x =
")rooster :OK THEN!!!!.." MOUSEPOS SAYAT
PENFRONT 255 255 0 PENCOLOR 3 PENSIZE
POSX 6 + POSY 38 + MOUSEPOS LINE PAINTUNDO
"fork1" x 44 - y 44 - ADDLOOSEPROP
"fork2" x y 44 - ADDLOOSEPROP
"fork3" x 44 + y 44 - ADDLOOSEPROP
"fork4" x 44 - y ADDLOOSEPROP
"fork5" x y ADDLOOSEPROP
"fork6" x 44 + y ADDLOOSEPROP
"fork7" x 44 - y 44 + ADDLOOSEPROP
"fork8" x y 44 + ADDLOOSEPROP
"fork9" x 44 + y 44 + ADDLOOSEPROP
":FORK YOU TOOOOOOOO!!" MOUSEPOS SAYAT 
"" CHATSTR =
} CHATSTR "fork1" == IF

;gb1
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[1019345557 1019345630 1019345307 1019344994 1019345164 1019345221 1019345602 1019345732 1019344947 ] SETPROPS ")alien ! :woooo did you say...real picture time?? :P" SAY
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "gb1" == IF

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

; glow: Draw a glow around the mouse position
{ MOUSEPOS y = x = 1 PENSIZE PENBACK y 40 - y2 = x 40 + x2 =
y 40 + y3 = x 40 - x3 = 0 i =
{ 40 i 8 * - grid = 255 10 i * - c1 = 140 10 i * + c2 =
c1 c2 0 PENCOLOR x grid - y2 x grid + y3 LINE c2 c1 0 PENCOLOR
x2 y grid - x3 y grid + LINE i ++ } { i 11 < } WHILE
"fazein" SOUND "" CHATSTR = } CHATSTR "glow" == IF

{
MOUSEPOS y = x =
  "!)kiss Sei herzlich umarmt  " USERNAME & "!!" MOUSEPOS SAYAT
  PENFRONT 255 0 0 PENCOLOR 4 PENSIZE
MOUSEPOS C = D =
  C 82 + A = D 72 - B = A 20 - E = B 20 + F =
  0 i = {
   "gold1" B 150 RANDOM + A 150 RANDOM - ADDLOOSEPROP
   "gold1" B 150 RANDOM + A 150 RANDOM - ADDLOOSEPROP
   "gold1" B 200 RANDOM + A 150 RANDOM - ADDLOOSEPROP
   i++
  } { i 14 < } WHILE
  ""