Knowledgebase
Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Ask a question:


Big List

Solution The Big List SpH
Cyborg scripts


Back


Click on the script below that you want to see and you will be taken to that script. In order to save that script to your cyborg.ipt file you will need to open the file in a text editing program. I use EditPad Classic although you can use wordpad in windows. After opening the ipt file copy the script from this page and enter it between two scripts in the outchat section of your file, unless otherwise instructed by the script. Be sure there are spaces between the scripts or you can get a conflict and an error message. Save the file and close the editing tool then reload your cyborg file in palace for the script to take effect.
These scripts have been collected from palaces and over the web, We would like to thank Joe Cool and blue from Midnight blue's for the use of some of their scripts. I also suggest that for a Cyborg.ipt file that you contact them.

Cyborg Scripts

acouchscript   amflag   animate   animatescript   ass   babyluv   backoffwomen  
bbench   bearhug   bisou   bite   blast   blowk   blue1  
bmove   boo   borgscripts1   borgscripts2   borgscripts3   bull1   bummer  
bursty   bye3   byebye   byecas   bzap   cir   ck  
coff   cowkiss   crazy   cuddle   doghouse   doihaveto   duh  
dumb1   dunnowomen   emberborgscript   eyes1   faint1   fall   fall2  
finger   fire1   fkissborgscript   flowerbed   fork1   gb1   giveallborgscript  
glow   gold   gold2   gr   green   grrwomen   gtyr  
h1   hand   handshakeborgscript   handtalk   hang2   headache   hehewomen  
hitnrun   hlips   hop   hot1   hug   hugborgscript   hugzz  
jailem   jump   kis   kisborgscript   kissass   kissmy   kisswomen  
kissy3   kkross   lasso   lckborgscript   lines   lips11   love2  
mean2   mercywomen   mooch   mosh   nutss   oof   oopswomen  
painthi   patss   pb1   pb2   pft   pillow   pinme  
pmate   powerpunch   protectme   pulse1   rom   screwed1   seeya  
shoot2   sleeper   sline   slipkiss   smack   smile1   spaz  
spaz1   spaz2   specialkiss   spiderm   spikebox   spikes   stayfar  
toy1   twee   twinkle   twirp   typewhengagged   vwhip   wanted1  
warp   wb   web   web1   whatss   wrap   wrapup  
x   xzap  




;acouch
{ CLEARLOOSEPROPS
"pirc1" 0 292 ADDLOOSEPROP "pirc4" 0 336 ADDLOOSEPROP
"pirc2" 44 292 ADDLOOSEPROP "pirc5" 44 336 ADDLOOSEPROP
"pirc2" 88 292 ADDLOOSEPROP "pirc5" 88 336 ADDLOOSEPROP
"pirc2" 132 292 ADDLOOSEPROP "pirc5" 132 336 ADDLOOSEPROP
"pirc2" 44 292 ADDLOOSEPROP "pirc5" 44 336 ADDLOOSEPROP
"pirc2" 176 292 ADDLOOSEPROP "pirc5" 176 336 ADDLOOSEPROP
"pirc2" 220 292 ADDLOOSEPROP "pirc5" 220 336 ADDLOOSEPROP
"pirc2" 264 292 ADDLOOSEPROP "pirc5" 264 336 ADDLOOSEPROP
"pirc2" 308 292 ADDLOOSEPROP "pirc5" 308 336 ADDLOOSEPROP
"pirc2" 352 292 ADDLOOSEPROP "pirc5" 352 336 ADDLOOSEPROP
"pirc2" 396 292 ADDLOOSEPROP "pirc5" 396 336 ADDLOOSEPROP
"pirc2" 440 292 ADDLOOSEPROP "pirc5" 440 336 ADDLOOSEPROP
"pirc3" 478 292 ADDLOOSEPROP "pirc6" 478 336 ADDLOOSEPROP
"" CHATSTR =
} CHATSTR "acouch" == IF


;American Flag
{ PAINTCLEAR CLEARLOOSEPROPS PENBACK 9 PENSIZE
0 256 120 PENCOLOR -1 i = { i ++ 0 i 8 * 205 i 8 * LINE } { i 20 < } WHILE
255 255 255 PENCOLOR -1 i = { i ++ 211 i 8 * 512 i 8 * LINE } { i 20 < }
WHILE
225 0 0 PENCOLOR -1 i = { i ++ 211 i 8 * 512 i 8 * LINE } { i 2 < } WHILE
225 0 0 PENCOLOR 5 i = { i ++ 211 i 8 * 512 i 8 * LINE } { i 8 < } WHILE
225 0 0 PENCOLOR 11 i = { i ++ 211 i 8 * 512 i 8 * LINE } { i 14 < } WHILE
225 0 0 PENCOLOR 17 i = { i ++ 211 i 8 * 512 i 8 * LINE } { i 20 < } WHILE
255 255 255 PENCOLOR 20 i = { i ++ 0 i 8 * 512 i 8 * LINE } { i 38 < } WHILE
225 0 0 PENCOLOR 23 i = { i ++ 0 i 8 * 512 i 8 * LINE } { i 26 < } WHILE
225 0 0 PENCOLOR 29 i = { i ++ 0 i 8 * 512 i 8 * LINE } { i 32 < } WHILE
225 0 0 PENCOLOR 35 i = { i ++ 0 i 8 * 512 i 8 * LINE } { i 38 < } WHILE
{ 967955977 p=
-1 i = { i ++ p 30 i * 7 + 0 i * 4 + ADDLOOSEPROP } { i 5 < } WHILE
-1 i = { i ++ p 30 i * 7 + 0 i * 36 + ADDLOOSEPROP } { i 5 < } WHILE
-1 i = { i ++ p 30 i * 7 + 0 i * 68 + ADDLOOSEPROP } { i 5 < } WHILE
-1 i = { i ++ p 30 i * 7 + 0 i * 102 + ADDLOOSEPROP } { i 5 < } WHILE
-1 i = { i ++ p 30 i * 7 + 0 i * 132 + ADDLOOSEPROP } { i 5 < } WHILE
-1 i = { i ++ p 30 i * 24 + 0 i * 20 + ADDLOOSEPROP } { i 4 < } WHILE
-1 i = { i ++ p 30 i * 24 + 0 i * 52 + ADDLOOSEPROP } { i 4 < } WHILE
-1 i = { i ++ p 30 i * 24 + 0 i * 84 + ADDLOOSEPROP } { i 4 < } WHILE
-1 i = { i ++ p 30 i * 24 + 0 i * 116 + ADDLOOSEPROP } { i 4 < } WHILE
} 30 ALARMEXEC
"" CHATSTR =
} CHATSTR "amflag" == IF


{ "$1" GREPSUB propstr = MOUSEPOS y = x = x 450 + x1 =
 { "Useage: animate \"propname\"" STATUSMSG "" CHATSTR = EXIT
 } "" propstr == IF
 { propstr x y ADDLOOSEPROP CLEARLOOSEPROPS x 9 + x =
 } { x x1 <= } WHILE "" CHATSTR =
 } CHATSTR "^animate *(.*)" GREPSTR IF


    ON ENTER { 1 ME SETALARM }
 
  ON ALARM {
 
  6 pics = ;change 6 to the number of pictures you have
 
  ME GETSPOTSTATE 1 + DUP pics / pics * -
 
  ME SETSPOTSTATELOCAL
 
  25 ME SETALARM
 
  ;make 1 higher to slow down


;ge - the ass
{  x GLOBAL y GLOBAL  whome whopos y = x = mousepos setpos prop1 GLOBAL
")donkey ! Don't !!    I sayyy Don't !!  beeeee  makin no ASS outa you or me!!!!! "  SAY
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
  [ 1008206745 1008206372 1008206383 1008206394 1008206407 1008206416 1008210834 1008208640  ] 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 "ass" == IF


;babyluv
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[ 1015295786 1015294769 957206730 1015295079 1015295065 1015294815 1015294806 1015295011 ] SETPROPS ")BOOM !Hey!! Gotta LOVE ME! I had a hardddd day" SAY
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "babyluv" ==


;Back off women
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[ 1004300929 1004301040 1004301117 1004301080 1004300743 1004300728 1004300669 1004300628 ] SETPROPS ")BOOM !Back OFF!!" SAY
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "back off" == IF


;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



{ MOUSEPOS y = x =
          ")yes:All I can say is.." MOUSEPOS SAYAT
           PENFRONT 255 255 0 PENCOLOR 3 PENSIZE
           POSX 6 + POSY 38 + MOUSEPOS LINE PAINTUNDO
  "Bear2" x 66 - y 44 - ADDLOOSEPROP
  "Bear1" x 106 - y 44 - ADDLOOSEPROP        
         "Bear4" x 66 - y 0 - ADDLOOSEPROP
  "Bear5" x 22 - y 0 - ADDLOOSEPROP
  "Bear3" x -106 + y 0 - ADDLOOSEPROP
         "Bear7" x 66 - y 44 + ADDLOOSEPROP
  "bear8" x 22 - y 44 + ADDLOOSEPROP
  "bear6" x -106 + y 44 + ADDLOOSEPROP
 ":I just HAD to give you a BIG,BIG BearHug for being so special to me." MOUSEPOS SAYAT 
  "" CHATSTR = }
          CHATSTR "bearhug" == IF


{  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 =
   [1009002509 1009002479 1009002452 1009002432 1009001447 1009001559 1009001535 1009001010 1009001093 ] SETPROPS ")kiss !Ohhhh baby you make me Hotttt!!" SAY
255 31 0 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 4 2 LINETO -4 3 LINETO 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 "bisou" == 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



;optional
 
  { 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 "bloodhole" MOUSEPOS ADDLOOSEPROP "" CHATSTR = "!Stay away!! I have been known for my HOT temper!!!" MOUSEPOS SAYAT
 
  } CHATSTR "blast2" ==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


;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



{ 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)


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

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

Article details
Article ID: 188
Category: Cyborg
Date added: 05-15-2011 19:03:34
Views: 4265
Rating (Votes): Article rated 4.2/5.0 (5)

 
<< Go back

Powered by Help Desk Software HESK™