sábado, 24 de julio de 2010

Ciborg de Amigos del Mundo para Mujeres

A continuación tendrás el ciborg que hemos realizado para ustedes, por ahora solo está disponible el de mujeres, proximamente tendremos el ciborg de hombres.
Esperamos que lo disfruten

Copia a partir de la siguiente linea 


;;***************************************
;Cyborg palace chat de amigosdelmundo.elitepalaces.com:9998
;********************************************************** 

ON SIGNON
{


"PARA VER COMANDOS DEL BORG TYPE...comandos" LOGMSG
[
[ "!cuidadin.. cuidadin "
"!alerta roja, llego la ciclón "
"!wiiii.. llegue "
"!Taraaaann..  " ] 4 RANDOM GET USERNAME + ROOMMSG
 [ 278945469 ]
 [ -141466780 ] 
] TheList =
TheList LENGTH RANDOM choice =
TheList choice GET SETPROPS

isLogging GLOBAL { 1 } { 0 } IPTVERSION IFELSE isLogging =
	isPaging GLOBAL 1 isPaging =
	idleTime GLOBAL DATETIME { 2147483647 + } DATETIME 0 < IF idleTime =

"@509 379:amigosdelmundo.elitepalaces.com:9998"ROOMMSG 

 


;pon tus scripts de ON SIGNON abajo de esta linea
;****************************************************** 

;******************************************************
;pon tus scripts de ON SIGNON arriba de esta linea


} 

ON ENTER {
pingtime GLOBAL
;move to clear area in room and Avoid Enter Collisions
{ POSX px = POSY py = 1 q = 33 17 RANDOM + x =
{ 33 17 RANDOM + y = { 512 DUP * 384 DUP * + t = 0 u =
{ u ROOMUSER WHOPOS y - DUP * SWAP x - DUP * + d2 =
{ d2 t = } d2 t < IF u ++ } { u NBRROOMUSERS < } WHILE
{ t q = x px = y py = } t q> IF
y 30 + 55 RANDOM + y = } { y 352 < } WHILE
x 30 + 57 RANDOM + x = } { x 480 < } WHILE
px py SETPOS } parq DEF
66 DUP * DUP + d = 0 i = { i ROOMUSER k =
k WHOPOS POSY - DUP * SWAP POSX - DUP * + n =
{ ":perdón " k WHONAME & SAY parq EXEC BREAK
} n d < k WHOME != AND IF i ++
} { i NBRROOMUSERS < } WHILE

ctime GLOBAL
timezone GLOBAL
{
{ -5 timezone =
  DATETIME 86400 % t = t 3600 / timezone + h =  }
{ DATETIME 2147483647 + 86400 % 11647 + 86400 % t = t 3600 / h =
} DATETIME 0 >= IFELSE
{ 24 h -= } h 24 > IF { 24 h += } h 0 < IF
t 3600 % 60 / m = t 60 % s = h h24 =
{ 12 h = } h 0 == IF { 12 h -= } h 12 > IF
h itoa ":" &
{ "0" & } m 10 < IF m ITOA & ":" & t 60 % s =
{ "0" & } s 10 < IF s ITOA &
{ " PM" & } { " AM" & } h24 11 > IFELSE
} ctime DEF


isLogging GLOBAL isPaging GLOBAL
NBRROOMUSERS 1 isLogging = 1 isPaging =
"(='.'=)" LOGMSG 10 ME SETALARM
"(='.'=)" LOGMSG 10 ME SETALARM




512 RANDOM 384 RANDOM SETPOS 2 SETFACE 11 SETCOLOR "PARA VER COMANDOS DEL BORG TYPE...comandos" LOGMSG	

	"======" LOGMSG
	"Room Name:" ROOMNAME + LOGMSG
	"Room Id: "ROOMID ITOA + LOGMSG
	"Room Users: " NBRROOMUSERS ITOA + LOGMSG
	"Hora que entre: " ctime EXEC + LOGMSG
	"======" LOGMSG





;pon tus scripts de ON ENTER abajo de esta linea
;****************************************************** 

;******************************************************
;pon tus scripts de ON ENTER arriba de esta linea


} 

ON ALARM { 
;autogreet ON ALARM PART
numusrs GLOBAL autohel GLOBAL
{ [ "Hola " "Como estas " "!" "Bienvenido " "Quiubo, " "Gusto en verte " "Hey " "Saludos " ] DUP LENGTH RANDOM GET greet =
{ greet NBRROOMUSERS 1 - ROOMUSER WHONAME + "!" + SAY NBRROOMUSERS numusrs = }
{ NBRROOMUSERS numusrs = } NBRROOMUSERS numusrs> IFELSE 0 me setalarm } autohel 1 == IF

;autoBRB Script By: Pa\/\/n
brbpawns GLOBAL
{{global} [brbx brby nu1 mensaje1 autohel ] foreach
whome whopos by = bx =
{"Auto brb desactivado" STATUSMSG
msgs GLOBAL nbmsgs GLOBAL
"-=Tienes " nbmsgs ITOA & " mensajes" & {"s" &} nbmsgs 1 == NOT IF "=-" & LOGMSG
0 i = {msgs i GET LOGMSG i ++}{i nbmsgs <} while
0 brbpawns = } brbx bx == brby by == AND NOT IF
nu1 GLOBAL NBRROOMUSERS nu =
{ brbtime global brbchat global
datetime brbtime - timeticks = timeticks sec = 
sec 60/ min = min 60/ hour = 
min hour 60* - min = sec min 60* - sec1 =
";" USERNAME & ", ha estado ausente por, " &
{ hour itoa & {" hora "}{" horas "} hour 1 == IFELSE & } hour 0 == not if
{ min itoa & {" minuto "}{" minutos "} min 1 == IFELSE & } min 0 == not if
{ sec1 itoa & {" segundo"}{" segundos"} sec 1 == IFELSE & } hour 0> sec1 0 == or not if
nu 1 - ROOMUSER PRIVATEMSG "^" brbchat & nu 1 - ROOMUSER PRIVATEMSG } nu nu1> nu 1 - ROOMUSER WHOME == NOT AND IF
NBRROOMUSERS nu1 = 0 ME SETALARM } brbpawns if


;Fly Script, By Pa\/\/n 
fly GLOBAL speed GLOBAL
{ mousepos y = x = whome whopos y1 = x1 = 
{ MOUSEPOS POSY - yd = POSX - xd = xd speed / yd speed / MOVE 
} x x1 speed + <= x x1 speed ->= AND y y1 speed + <= AND y y1 speed ->= AND NOT IF speed me setalarm} 1 fly == if

;paranoid Script By: Pa\/\/n 
paranoid GLOBAL
{ 0 i = NBRROOMUSERS n = PENFRONT
{ { i ROOMUSER whopos y = x = whome whopos y1 = x1 =
x1 44 - x11 = y1 44 - y11 = x1 44 + x12 = y1 44 + y12 =
{ 512 random 384 random setpos ":no te aserques!" say } x x11>= x x12 <= and y y11>= and y y12 <= and if }
i ROOMUSER WHONAME USERNAME == NOT IF i ++ }
{ i n < } WHILE 0 me setalarm } paranoid if

;under Script By: Pa\/\/n
bleh GLOBAL under GLOBAL
{ whome whopos yy = xx = bleh whopos y = x =
{ x y setpos } x xx>= x xx <= AND y yy <= AND y yy>= AND NOT IF 
0 me setalarm } 1 under == if




;pon tus scripts de ON ALARM abajo de esta linea
;****************************************************** 

;******************************************************
;pon tus scripts de ON ALARM arriba de esta linea

} 

ON INCHAT {
;; anti allscray script 
{ "" CHATSTR = EXIT } CHATSTR "^;[a-z]o" GREPSTR IF
{ "" CHATSTR = EXIT } CHATSTR "^;[a-z]s" GREPSTR IF
{ "" CHATSTR = EXIT } CHATSTR "^;[a-z]e" GREPSTR IF
{ "" CHATSTR = EXIT } CHATSTR "^;[a-z]llscray" GREPSTR IF

;; Anti @ crash (para gente con versiones antiguas a la 3.3 {3.4 y siguientes no tienen este bug})
{ "$1" GREPSUB ATOI col = "$2" GREPSUB ATOI row =
{ "" CHATSTR = } row 383> col 511> OR IF
} CHATSTR "^@([0-9]*),([0-9]*).*" GREPSTR IF

;cambia los mensajes del log cuando los escriben con ; por mensajes locales, para que veas todo lo que escriben los demás - Script de Foxy
{ "@" WHOCHAT WHOPOS SWAP ITOA "," + SWAP ITOA + +
"Logmsg: " + "$1" GREPSUB + LOCALMSG 
} CHATSTR "^;(.*)" GREPSTR WHOCHAT WHOME == NOT AND IF

;gets rid of nasty pc line breaks for mac and nasty mac line breaks for pc By: Pa\/\/n
{{"$1\x0D$2" GREPSUB CHATSTR =}{CHATSTR "^(.*)\x0A(.*)$" GREPSTR} WHILE}
{{"$1\x0A$2" GREPSUB CHATSTR =}{CHATSTR "^(.*)\x0D(.*)$" GREPSTR} WHILE} datetime 0 < IFELSE

;Sound requester By: Pa\/\/n
{"$1" GREPSUB SOUND} CHATSTR "^[)]([A-Za-z0-9\_\.]*)" GREPSTR IF

;URL catcher script! by Pa\/\/n
;INCHAT PART:
{ theurl global { 
{ "http://" theurl & theurl = } theurl "http://" SUBSTR NOT IF
";----======URL CATCHER=====----" LOCALMSG
{ "$1" grepsub aurl =} theurl "http://(.*)$" grepstr if
";Caught the URL: " aurl & LOCALMSG
";Type: \"gsite\" OR \"gpal\"" LOCALMSG} sts DEF
{ { "$1" GREPSUB theurl1 = 
{ { 1 stop = } i ROOMUSER WHONAME theurl1 SUBSTR IF 
i ++}{i NBRROOMUSERS <} WHILE
{ theurl1 theurl =
{ "$1" grepsub theurl =} theurl "^^(.*)$" grepstr if
{ "http://$1" grepsub theurl =} theurl "http://(.*)$" grepstr if
sts exec 1 bc = } theurl1 ".." SUBSTR stop OR NOT IF
} CHATSTR "([^ @]+[.][^ @]*[.][^ @]*)" GREPSTR IF
} CHATSTR "([^ ]+[.][^ ]*)" GREPSTR IF
{ { "$1" grepsub theurl = sts EXEC} CHATSTR "http://(.[^ ]*)" grepstr if
} bc not if
} WHOME WHOCHAT == NOT IF

;welcomeback
{ "re hola " WHOCHAT WHONAME + SAY } 
CHATSTR "b" == CHATSTR "back" == OR WHOCHAT WHOME == NOT AND IF

;Ultimate brb script! by Pa\/\/n
;INCHAT PART:
;Debes de cambiar los siguientes nombres por los tuyos
"NombreReal" name1 =
"Nick1" name2 =
"Nick2" name3 =
brbpawns global
{{{msgs GLOBAL nbmsgs GLOBAL
CHATSTR cht =
nbmsgs 1 + ITOA ": '" & cht & "' de " & WHOCHAT WHONAME & msgs nbmsgs PUT
";-=Tu mensaje '" cht & "' ha sido guardado=-" & WHOCHAT PRIVATEMSG
nbmsgs 1 + nbmsgs =} whochat whome == not if
} CHATSTR USERNAME SUBSTR CHATSTR name1 SUBSTR OR CHATSTR name2 SUBSTR OR CHATSTR name3 SUBSTR OR IF
} brbpawns IF


;pon tus scripts de ON INCHAT abajo de esta linea
;****************************************************** 

;******************************************************
;pon tus scripts de ON INCHAT arriba de esta linea

}


ON OUTCHAT {
;****************Scripts de mensajes****************
;; allsay - el mensaje que dices lo dicen todos los demás
{ { i ROOMUSER WHOPOS y = x = "@" x ITOA & "," & y ITOA & " " & "$1" GREPSUB & ROOMMSG i ++ }
{ i NBRROOMUSERS < } WHILE "" CHATSTR =
} CHATSTR "^allsay (.*)$" GREPSTR IF

;barsv script 
{ 0 x = "^^\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a" vacio = { vacio x 383 SAYAT 20 x += } { x 521 < } WHILE { vacio x 383 SAYAT 20 x -= } { x 0>= } WHILE "" CHATSTR = } CHATSTR "barras" == IF

;Ultimate brb script! by Pa\/\/n
;OUTCHAT PART:
{GLOBAL} [msgs nbmsgs brbpawns] FOREACH 
{ {global} [brbtime brby brbx brbchat nu1] foreach
"Auto brb activo" STATUSMSG
"$1" GREPSUB brbchat =
1 brbpawns =
0 ME SETALARM 
whome whopos brby = brbx =
datetime brbtime =
0 nbmsgs =
256 ARRAY msgs =
100 nu1 =}
{{ "Auto brb inactivo" STATUSMSG
"-=Tienes " nbmsgs ITOA & " mensajes" & {"s" &} nbmsgs 1 == NOT IF "=-" & LOGMSG
0 i = {msgs i GET LOGMSG i ++}{i nbmsgs <} while
} brbpawns if 0 brbpawns =
} CHATSTR "^^(.*)$" GREPSTR IFELSE

;autogreet ON OUTCHAT PART
numusrs GLOBAL autohel GLOBAL
{ NBRROOMUSERS numusrs = 1 autohel =
"saludo on" LOCALMSG 10 ME SETALARM "" CHATSTR = } CHATSTR "gon" == IF
{ 0 autohel = "saludo off" LOCALMSG "" CHATSTR = } CHATSTR "goff" == IF

{ 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 8 RANDOM 1 + PENSIZE PENFRONT
POSX POSY MOUSEPOS LINE PAINTUNDO MOUSEPOS SWAP x = y =
"@" x ITOA + "," + y ITOA + " !$1" GREPSUB + ROOMMSG
"" CHATSTR = } CHATSTR LOWERCASE "^bypass(.*)" GREPSTR IF

; Corners script by Señor Panic!
; Type corners and your message will be displayed in all four corners.
{ "$1" GREPSUB chatter =
"@0,0 " chatter + ROOMMSG "@512,0 " chatter + ROOMMSG
"@512,362 " chatter + ROOMMSG "@0,362 " chatter + ROOMMSG
"" CHATSTR = } CHATSTR "corners (.*)" GREPSTR IF 

;Gagtalk script
gag GLOBAL
{ "Gagtalk Script: ON" STATUSMSG
1 gag = "" CHATSTR = } CHATSTR "^;*gt on$" GREPSTR IF
{ "Gagtalk Script: OFF" STATUSMSG
0 gag = "" CHATSTR = } CHATSTR "^;*gt off$" GREPSTR IF
{ { "$1" GREPSUB gagged = USERID WHOPOS swap x = y =
"@" x ITOA + "," + y ITOA + " " + gagged + ROOMMSG
"" CHATSTR = } CHATSTR "(.*)" GREPSTR IF } 1 gag == IF

;Greet1: Saluda a todas las personas en el cuarto, uno por uno.
;Made by Alexandra™€Ø¤
{ "" CHATSTR = 0 i =
{ i ROOMUSER WHONAME saludo = i ROOMUSER numero =
{ "Hola " saludo & SAY } WHOME numero == NOT IF
i++ } { i NBRROOMUSERS < } WHILE
} CHATSTR LOWERCASE "saludos" == IF


; spoof somebody by positioning the mouse on their mouth and then type "msay blah blah"
{ "$1" GREPSUB chatter = chatter MOUSEPOS SAYAT
"" CHATSTR = } CHATSTR "^msay (.*)$" GREPSTR IF

;; roomhi: Say hello to everyone in the room
{ NBRROOMUSERS num = 0 i = "Hello"
{ { ", " & i ROOMUSER WHONAME & } i ROOMUSER WHOME == NOT IF
i ++ } { i num < } WHILE SAY
"" CHATSTR = } CHATSTR "hi" == IF

;URL catcher script! by Pa\/\/n
;OUTCHAT PART:
{"" CHATSTR = theurl global
{"No URL to launch" STATUSMSG ";" theurl & " ???" & LOCALMSG}
{";Launching the URL: " theurl & LOCALMSG theurl netgoto} theurl "" == IFELSE
} CHATSTR "gsite" == if
{"" CHATSTR = theurl global {"No URL to launch" STATUSMSG ";" theurl & " ???" & LOCALMSG}
{"*ups*" say {"palace://$1" grepsub theurl =} theurl "http://(.*)$" grepstr if
";Connecting to: " theurl & LOCALMSG
theurl netgoto} theurl "" == IFELSE} CHATSTR "gpal" == if


;******************Scripts de Megaman de Pa\/\/n******************

;******************Scripts de pintura******************

;Paint an angel
{ { MOUSEPOS y = x = 1 i =
{ { 9 PENSIZE 200 200 200 PENCOLOR } i 1 == IF
{ 5 PENSIZE 255 255 255 PENCOLOR } i 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 11 < IFELSE
"" CHATSTR = } CHATSTR "angel" == IF

;; aura: 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 "aura" == IF

;arrow script
{ mousepos Y = X = penback
{3 v - PENSIZE 0 255 i 64*- 0 PENCOLOR
i 1 * v = i ++ x 58 - y x 75 - y 8 - line x 48 - y x 65 - y 8 - line
x 38 - y x 55 - y 8 - line x 55 - y x 72 - y 8 + line
x 45 - y x 62 - y 8 + line x 35 - y x 52 - y 8 + line }{ i 3 <=} WHILE
49 24 0 pencolor 3 pensize penback x 60 - y x 40 - y line
20 0 lineto 20 0 lineto penfront 20 0 lineto 20 0 lineto 20 0 lineto penfront
{3 c - PENSIZE 205 e - 205 e - 205 e - PENCOLOR
k 1 * c = k 69 * e = k ++ x 62 + c - y 1 - c + x 53 + c + y 4 - line
x 62 + c - y 1 - c - x 53 + c + y 3 + line x 55 + c - y 2 - x 55 + c - y 2 + line
}{ k 3 <=} WHILE 1 pensize 156 0 0 pencolor
x y x y line 3 pensize -3 7 lineto 2 pensize 2 5 lineto -1 3 lineto
x y x y line 3 pensize 3 5 lineto 2 pensize 0 4 lineto 1 3 lineto
x y x y line 3 pensize 7 7 lineto 2 pensize 2 4 lineto 0 2 lineto
"" CHATSTR = } CHATSTR "flecha" == IF


; BLOWKISS 
{ 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
"!" WHOTARGET WHONAME &" !!besitoss, besoss y besazos para ti..!" & MOUSEPOS SAYAT
"" CHATSTR = } CHATSTR "bezo" == 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 !" WHOTARGET WHONAME &" !!con esta mordidta me dieron ganas de ti!" & MOUSEPOS SAYAT
"" CHATSTR = } CHATSTR "bite" == IF

;bite1
{ { 0 i = "["
	{ " " i USERPROP ITOA & & i++ } { i NBRUSERPROPS < } WHILE
	" ]" & restore_props =
	} {"NAKED" restore_props = } NBRUSERPROPS IFELSE
	prop1 GLOBAL restore_props prop1 =
	x GLOBAL y GLOBAL POSX x = POSY y =
	POSX ox = POSY oy = 0 i =
	MOUSEPOS ny = nx = ny 0 + ny =
	 [ -1296803656 ] SETPROPS nx ny SETPOS
	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 2 PENSIZE
	MOUSEPOS PENPOS 4 3 PENTO -2 3 LINETO 2 3 LINETO 0 5 LINETO 2 1
	LINETO -2 -10 PENTO -1 5 LINETO
	MOUSEPOS PENPOS -4 3 PENTO 0 9 LINETO 1 2 LINETO 0 2 LINETO -1 -4
	PENTO -2
	2 LINETO 0 6 LINETO
	MOUSEPOS PENPOS 0 3 PENTO 0 20 LINETO -2 9 LINETO
	1 2 LINETO 0 4 LINETO
	{ x GLOBAL y GLOBAL x y setpos } 156 ALARMEXEC { prop1 GLOBAL
	{ NAKED }
	{prop1 GLOBAL prop1
	"SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE }
	160 ALARMEXEC
	")crunch!"WHOTARGET WHONAME &".....te voy a morder esa boquita que tienes.....!" & MOUSEPOS SAYAT
	"" CHATSTR = } CHATSTR "bite1" == 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
"" CHATSTR = } CHATSTR "flecha1" == IF

;devil
{ { MOUSEPOS y = x = 1 i = { PENBACK
{ 9 PENSIZE 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


{ { ;borra2 Script
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 10 PENSIZE 
WHOTARGET WHOPOS 66 - y = 66 - DUP x = t = PENBACK
{ i x y x y 132 + LINE 8 x += i ++ } { i 17 < } WHILE PENFRONT
O i = { 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR [ "8" "6" "4" "2" "1" ] i GET ATOI PENSIZE t y PENPOS 132 132 LINETO 0 -132 PENTO -132 132 LINETO 0 -132 LINETO 132 0 LINETO 0 132 LINETO -132 0 LINETO 1 t += 1 y += i ++ } { i 5 < } WHILE
WHOTARGET WHONAME " as sido borada de la vida de " & USERNAME & ROOMMSG }
{ "Whisper" STATUSMSG } WHOTARGET IFELSE
"" CHATSTR = } CHATSTR LOWERCASE "borra2" == IF



{ { 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 "amor2" == IF

;lips makes a paint 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 = [ 2139193942 -753405788 -1656586801 820146540 ] SETPROPS ")kiss !Muackssssss!!! :)" SAY
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
{ 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 "lips" == IF

)
;ao { i ITOA " MACRO" & STRTOATOM i 60 * ALARMEXEC i ++ } { i 14 < } WHILE
{  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 = 
	  [ -1297402472 379199730 -1764166258  ] 
    SETPROPS ")Besolargo2 !Besoss en la frente, porque en la trompa noo Muackss!!!! " WHOTARGET WHONAME &  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 { prop } {prop1 GLOBAL prop1
		" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 160 ALARMEXEC
		"" CHATSTR = } CHATSTR "lips1" == 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 = 
	     [  1133743289 1927380695 906391839 -919569597  ]   SETPROPS ")Besote !Humm no mires , solo te doy un kiss!! Mass..? " WHOTARGET WHONAME &  SAY 
	255 random 255 random 255 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 { prop } {prop1 GLOBAL prop1
		" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 160 ALARMEXEC
		"" CHATSTR = } CHATSTR "lips2" == 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 = 
		  [ -279070912 1007091351 -1836141035 -49628653 ] 
     SETPROPS ")Besote !Muacksss!! cielito!! besitos  " WHOTARGET WHONAME &  SAY 
	255 random 255 random 255 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 { prop } {prop1 GLOBAL prop1
		" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 160 ALARMEXEC
		"" CHATSTR = } CHATSTR "lips3" == 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 = 
		 [  -225688297 ] 
     SETPROPS ")MujerSuspiro !Como suspiro aisss  ...  !!! " WHOTARGET WHONAME &  SAY 
	255 random 255 random 255 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 { prop } {prop1 GLOBAL prop1
		" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 160 ALARMEXEC
		"" CHATSTR = } CHATSTR "lips4" == 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 = 
[ -1066097311 1467256708 -1102745079 1765178009 ] 
   SETPROPS ")kiss ! !Muackiss!!! No mas un besoo, pero rico..  " WHOTARGET WHONAME &  SAY 
	255 random 255 random 255 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 { prop } {prop1 GLOBAL prop1
		" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 160 ALARMEXEC
		"" CHATSTR = } CHATSTR "lips5" == 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 = 
     [ -4435604 -1656586801 -753405788 820146540 ] 
  
    SETPROPS ")kiss !Humm.. Besitoss " WHOTARGET WHONAME & " como me gusta.." &  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 "lips6" == IF

{ { GLOBAL } [ x y prop1 ] FOREACH
WHOME WHOPOS y = x =
MOUSEPOS my = mx =
mx 0 + tx = my 0 + ty =
tx ty SETPOS
"[ " p = 0 i = { p i USERPROP ITOA & " " & p = i ++ } { i NBRUSERPROPS < }
WHILE p " ]" & prop1 =
 [ -1425616188 -346980928 440679996 266613103 867083327  ] 
    SETPROPS
")Kiss !Besito boquita de piñon.." WHOTARGET WHONAME &  SAY
255 180 0 PENCOLOR 2 PENSIZE PENFRONT
MOUSEPOS PENPOS 
3 -3 lineto 2 0 lineto 3 3 lineto 0 2 lineto -8 8 lineto 
-8 -8 lineto 0 -2 lineto 3 -3 lineto 2 0 lineto 3 3 lineto
0 2 lineto 3 -3 lineto 2 0 lineto -6 6 lineto 0 2 lineto 7 -7 lineto
0 1 lineto -6 6 lineto -6 -6 lineto 2 -2 lineto 2 2 lineto 0 2 lineto -2 -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
"" CHATSTR =
} CHATSTR "lips7" == 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 = 
		  [ -66312272 -1656586801 -753405788 820146540 ] 
  
     SETPROPS ")Kiss !Ais viciosillo.. muackss  !!! " WHOTARGET WHONAME &  SAY 
	255 random 255 random 255 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 { prop } {prop1 GLOBAL prop1
		" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 160 ALARMEXEC
		"" CHATSTR = } CHATSTR "lips8" == IF

;--- blade kiss ---------------------------------------------------------------------------------
{ 0 b = NBRUSERPROPS lade = "" Star =
{ Star b USERPROP ITOA & " " & Star = b ++ }
{ b lade < } WHILE "[ " Star & " ] SETPROPS" + Star =
  mx GLOBAL my GLOBAL WHOME WHOPOS my = mx =
  arr GLOBAL [ ")KISS" "Besosss, por falta de uno eh " ] arr =
{ [  -1038188344 1927380695 906391839 -919569597 ] SETPROPS MOUSEPOS Y = X = X Y SETPOS
  2 PENSIZE PENFRONT } 2 ALARMEXEC
{ arr GLOBAL WHOME WHOPOS y = x = x y PENPOS 4 2 LINETO -4 3 LINETO
  x y PENPOS -4 2 LINETO 4 3 LINETO arr 0 GET SAY } 10 ALARMEXEC
{ arr GLOBAL 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR -20 0 MOVE
  WHOME WHOPOS y = x = x y PENPOS 4 2 LINETO -4 3 LINETO x y
  PENPOS -4 2 LINETO 4 3 LINETO arr 0 GET SAY } 60 ALARMEXEC
{ arr GLOBAL 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR -20 0 MOVE
  WHOME WHOPOS y = x = x y PENPOS 4 2 LINETO -4 3 LINETO x y
  PENPOS -4 2 LINETO 4 3 LINETO arr 0 GET SAY } 120 ALARMEXEC
{ arr GLOBAL 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 0 20 MOVE
  WHOME WHOPOS y = x = x y PENPOS 4 2 LINETO -4 3 LINETO x y
  PENPOS -4 2 LINETO 4 3 LINETO arr 0 GET SAY } 180 ALARMEXEC
{ arr GLOBAL 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 20 0 MOVE
  WHOME WHOPOS y = x = x y PENPOS 4 2 LINETO -4 3 LINETO x y
  PENPOS -4 2 LINETO 4 3 LINETO arr 0 GET SAY } 240 ALARMEXEC
{ arr GLOBAL 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 20 0 MOVE
  WHOME WHOPOS y = x = x y PENPOS 4 2 LINETO -4 3 LINETO x y
  PENPOS -4 2 LINETO 4 3 LINETO arr 0 GET SAY } 300 ALARMEXEC
{ arr GLOBAL 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 0 20 MOVE
  WHOME WHOPOS y = x = x y PENPOS 4 2 LINETO -4 3 LINETO x y
  PENPOS -4 2 LINETO 4 3 LINETO arr 0 GET SAY } 360 ALARMEXEC
{ arr GLOBAL 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR -20 0 MOVE
  WHOME WHOPOS y = x = x y PENPOS 4 2 LINETO -4 3 LINETO x y
  PENPOS -4 2 LINETO 4 3 LINETO arr 0 GET SAY } 420 ALARMEXEC
{ arr GLOBAL 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR -20 0 MOVE
  WHOME WHOPOS y = x = x y PENPOS 4 2 LINETO -4 3 LINETO x y
  PENPOS -4 2 LINETO 4 3 LINETO arr 0 GET SAY 
  arr 1 GET USERNAME & "." & SAY } 480 ALARMEXEC 
{ mx GLOBAL my GLOBAL mx my SETPOS } 540 ALARMEXEC
  Star STRTOATOM 541 ALARMEXEC 
  "" CHATSTR = 
} CHATSTR "lips9" == IF


;LOTSALIPS

{ 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 =
[-1903189867 820146540 -753405788 -1656586801 ]
SETPROPS
")gunfast !Ohhh my god...MuaAaAaCkSSSSS !!!!!!" SAY
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS
PENPOS 0 0 PENTO 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS 0 0 PENTO -4 2
LINETO 4 3 LINETO
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS
PENPOS 10 5 PENTO 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS 10 5 PENTO -4 2
LINETO 4 3 LINETO
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS
PENPOS 12 -2 PENTO 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS 12 -2 PENTO -4 2
LINETO 4 3 LINETO
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS
PENPOS 10 -9 PENTO 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS 10 -9 PENTO -4 2
LINETO 4 3 LINETO
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS
PENPOS -8 -7 PENTO 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS -8 -7 PENTO -4 2
LINETO 4 3 LINETO
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS
PENPOS -10 5 PENTO 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS -10 5 PENTO -4 2
LINETO 4 3 LINETO 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE 
PENFRONT MOUSEPOS
PENPOS 0 -13 PENTO 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS 0 -13 PENTO -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 "lips10" == IF





;i love you
{ 102 153 255 PENCOLOR 3 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 "amor1" == IF

;mio1
{
mousepos Y = X =
penfront
{8 v - PENSIZE i 49*0 0 PENCOLOR
i 2 * v =
i ++
x 70 - y 70 - x 70 + y 70 - line
x 70 + y 70 + x 70 - y 70 + line
x 70 - y 70 + x 70 - y 70 - line
x 70 + y 70 - x 70 + y 70 + line
-105 -150 PENTO 0 -60 LINETO 10 60 LINETO 10 -60 lineto 0 60 lineto 10 -60 
pento 0 60 LINETO  10 0 PENTO 0 -60 LINETO 10 60 LINETO 0 -60 LINETO 20 0 
PENTO  -10 0 LINETO 0 60 LINETO 10 0 LINETO
-10 -30 PENTO 7 0 LINETO -67 30 PENTO }{ i 5 <=} WHILE
")Boom!pssss "WHOTARGET WHONAME & " ahhh te agarree, ya eres mio .... !!" & MOUSEPOS SAYAT
"" CHATSTR = } CHATSTR "mio1" == IF


;mine2
{
mousepos Y = X =
penfront
{8 v - PENSIZE i 49*0 0 PENCOLOR
i 2 * v =
i ++
x 70 - y 70 - x 70 + y 70 - line
x 70 + y 70 + x 70 - y 70 + line
x 70 - y 70 + x 70 - y 70 - line
x 70 + y 70 - x 70 + y 70 + line
-105 -150 PENTO 0 -60 LINETO 10 60 LINETO 10 -60 lineto 0 60 lineto 10 -60 
pento 0 60 LINETO  10 0 PENTO 0 -60 LINETO 10 60 LINETO 0 -60 LINETO 20 0 
PENTO  -10 0 LINETO 0 60 LINETO 10 0 LINETO
-10 -30 PENTO 7 0 LINETO -67 30 PENTO }{ i 5 <=} WHILE
")Boom! Ahh papi chulo,mio mio tan solo mio..!!!" MOUSEPOS SAYAT
"" CHATSTR = } CHATSTR "mio2" == IF

;Scan
{ 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
"! Aqui mira!!" 96 96 SAYAT "" CHATSTR = } CHATSTR "scan" == IF


;******************Scripts de props******************

;radio
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 = 
 [ -513561613 ] 
   SETPROPS ")beep1.wav !Como mola..."WHOTARGET WHONAME & "...estoy escuchando http://amigosdelmundo.listen2myradio.com/ .... !!" & SAY 
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "radio" == IF

;palace
{ "amigosdelmundo.elitepalaces.com:9998.. " 450000 ds = MOUSEPOS y = x =
{ us ROOMUSER WHOPOS y - DUP * SWAP x - DUP * + ns =
{ ns ds = us wh = } ns ds < IF us ++
} { us NBRROOMUSERS < } WHILE
wh ROOMUSER WHONAME & ".te esperamos.." & CHATSTR =
} CHATSTR "palace" == IF


;dump a av in the mouse position
{ "\x22" { TOPPROP ITOA & MOUSEPOS DROPPROP { " " & } TOPPROP IF
} { TOPPROP } WHILE "\x22" & LOGMSG
"" CHATSTR =} CHATSTR "dump" == IF



;flove
{ "$1" GREPSUB propstr = MOUSEPOS y = x = 20 x -= propstr x y 70 - ADDLOOSEPROP
propstr x y 80 - ADDLOOSEPROP propstr x 20 + y 100 - ADDLOOSEPROP propstr x 40
+ y 110 - ADDLOOSEPROP propstr x 70 + y 100 - ADDLOOSEPROP propstr x 90 + y 80
- ADDLOOSEPROP propstr x 100 + y 60 - ADDLOOSEPROP propstr x 110 + y 40 -ADDLOOSEPROP propstr x 100 + y 20 - ADDLOOSEPROP propstr x 90 + y
ADDLOOSEPROP propstr x 70 + y 20 + ADDLOOSEPROP propstr x 50 + y 40 +
ADDLOOSEPROP propstr x 30 + y 60 + ADDLOOSEPROP propstr x 10 + y 80 +
ADDLOOSEPROP propstr x y 100 + ADDLOOSEPROP propstr x 20 - y 100 - ADDLOOSEPROP
propstr x 40 - y 110 - ADDLOOSEPROP propstr x 70 - y 100 - ADDLOOSEPROP
propstr x 90 - y 80 - ADDLOOSEPROP propstr x 100 - y 60 - ADDLOOSEPROP
propstr x 110 - y 40 - ADDLOOSEPROP propstr x 100 - y 20 - ADDLOOSEPROP
propstr x 90 - y ADDLOOSEPROP propstr x 70 - y 20 + ADDLOOSEPROP propstr x
50 - y 40 + ADDLOOSEPROP propstr x 30 - y 60 + ADDLOOSEPROP propstr x 10
- y 80 + ADDLOOSEPROP "" CHATSTR = } CHATSTR "^flove (.*)$" GREPSTR IF

;shhh
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 = 
    [  -1659855413 ] 
  
   SETPROPS ")shhh !Shhhhhhhhhhhhhh!! " WHOTARGET WHONAME & " cada que hablas me revientas..." &  SAY 
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "shhh" == IF

;bua
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 = 
 [ -541074998 -1913058633 ]   SETPROPS ")llanto !buaaaa.." WHOTARGET WHONAME & ".. que feo me hablasss..." &  SAY 
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "bua" == IF


;haha script
{ 0 i = nbruserprops n = "" Pp = 
{ Pp i USERPROP itoa + " " + Pp = i ++ } { i n < } WHILE "[ " Pp + " ] SETPROPS" + Pp =
     [ -1495956812 1194979774 819724881 1449400346 -1436872091 ]  
   SETPROPS
Pp STRTOATOM 200 ALARMEXEC "!)Giggle " chatstr + chatstr = } chatstr "(haha)" grepstr if


;hehe script
{ 0 i = nbruserprops n = "" Pp = 
{ Pp i USERPROP itoa + " " + Pp = i ++ } { i n < } WHILE "[ " Pp + " ] SETPROPS" + Pp =
  [  -772948594 -32998487 -1034281319 1227745294 2006412728 ]  
   SETPROPS
Pp STRTOATOM 200 ALARMEXEC "!)MujerRisa2 " chatstr + chatstr = } chatstr "(hehe)" grepstr if


;jaja script
{ 0 i = nbruserprops n = "" Pp =
{ Pp i USERPROP itoa + " " + Pp = i ++ } { i n < } WHILE "[ " Pp + " ] SETPROPS" + Pp = [
[ -510019902 -1467068235 1561553148 1170385256 ]   
  ]list = list LENGTH cnt =list cnt RANDOM GET SETPROPS
Pp STRTOATOM 240 ALARMEXEC "!)MujerRisa2 " chatstr + chatstr = } chatstr "(jaja)" grepstr if

;Risa jejeje 
{ 0 i = nbruserprops n = "" Pp =
{ Pp i USERPROP itoa + " " + Pp = i ++ } { i n < } WHILE "[ " Pp + " ] SETPROPS" + Pp =
        [-1609638786 -1200574842 -1428348035 679795463 ]    SETPROPS
Pp STRTOATOM 140 ALARMEXEC ")MujerRisa2 " chatstr + chatstr = } chatstr "(jeje)" grepstr if

;Risa jojojo 
{ 0 i = nbruserprops n = "" Pp =
{ Pp i USERPROP itoa + " " + Pp = i ++ } { i n < } WHILE "[ " Pp + " ] SETPROPS" + Pp =
        [ 669527356 712626005 -767433965 155351084 ] 
  SETPROPS
Pp STRTOATOM 140 ALARMEXEC ")MujerRisa2 " chatstr + chatstr = } chatstr "(jojo)" grepstr if

 

;Risa jijiji 
{ 0 i = nbruserprops n = "" Pp =
{ Pp i USERPROP itoa + " " + Pp = i ++ } { i n < } WHILE "[ " Pp + " ] SETPROPS" + Pp =
             [ 663169485 573074412 1483792588 524743485 -1198097826 ] 
  
   SETPROPS
Pp STRTOATOM 240 ALARMEXEC ")Giggle  ..aiss  " chatstr + chatstr = } chatstr "(jiji)" grepstr if


;calmate
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 = 
 [ -86746239 -959740596 ]
   SETPROPS ")GUN1 !Chin....."WHOTARGET WHONAME & "Que te calles la boca y calmateee.... !!" & SAY 
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "calmate" == IF


;****************Scripts de movimiento****************
;align with someone with a hop By: Pa\/\/n
{ POSX x = POSY y = WHOTARGET whopos my = mx =
{mx x - dx = my 615 - y - dy = ")boing" ROOMMSG
{ 15 dy + dy = i dx * 40 / x + pawnx =
i dy * 40 / y + pawny = pawnx pawny setpos i ++ } { i 40 <=} WHILE}
{ "whisper the command.." STATUSMSG } WHOTARGET IFELSE
"" CHATSTR = } CHATSTR "hop1" == IF

;Fly Script, By Pa\/\/n 
{ fly global speed global 1 fly = 0 me setalarm "$1" GREPSUB ATOI speed = 
"" chatstr = } chatstr "^fly ([0-9]+)" GREPSTR if 
{ fly global speed global 0 fly = "" chatstr = } chatstr "foff" == if 


;paranoid Script By: Pa\/\/n 
paranoid GLOBAL
{ 1 paranoid = 0 me setalarm "" chatstr = } chatstr "ntoca" == if
{ 0 paranoid = "" chatstr = } chatstr "stoca" == if 

;; slam: Slamdance
;; Author: Dr.X
{ POSX px = POSY py = 0 i =
{ { 22 468 RANDOM + 22 340 RANDOM + SETPOS } i 45 * ALARMEXEC
i ++ } { i 20 < } WHILE
px ITOA " " & py ITOA & " SETPOS" & STRTOATOM i 45 * ALARMEXEC
} CHATSTR "slam" == IF


;splitprp By: Pa\/\/n
{ POSX x = POSY y = mousepos my = mx = NBRUSERPROPS np =
mx x - dx = my 465 + y - dy = my 465 - y - dy1 = 
{ pawn ++ {0 pawn =} i np/ np* i == IF pawn USERPROP s =
dy 15 - dy = 15 dy1 + dy1 = i dx * 30 / x + tx =
i dy * 30 / y + ty = i dy1 * 30 / y + ty1 =
tx ty setpos s tx 22 - ty 22 - addlooseprop
tx ty1 setpos s tx 22 - ty1 22 - addlooseprop i ++ } { i 30 <=} while
"" CHATSTR = } CHATSTR "sprp" == IF

;; teleport: Weird moving script 
{ mousepos setpos 50 0 move mousepos setpos -50 0 move mousepos setpos 0 50 move
mousepos setpos 0 -50 move mousepos setpos 45 0 move mousepos setpos -45 0 move
mousepos setpos 0 45 move mousepos setpos 0 -45 move mousepos setpos 40 0 move
mousepos setpos -40 0 move mousepos setpos 0 40 move mousepos setpos 0 -40 move
mousepos setpos 35 0 move mousepos setpos -35 0 move mousepos setpos 0 35 move
mousepos setpos 0 -35 move mousepos setpos 30 0 move mousepos setpos -30 0 move
mousepos setpos 0 30 move mousepos setpos 0 -30 move mousepos setpos 25 0 move
mousepos setpos -25 0 move mousepos setpos 0 25 move mousepos setpos 0 -25 move
mousepos setpos 20 0 move mousepos setpos -20 0 move mousepos setpos 0 20 move
mousepos setpos 0 -20 move mousepos setpos 15 0 move mousepos setpos -15 0 move
mousepos setpos 0 15 move mousepos setpos 0 -15 move mousepos setpos 10 0 move
mousepos setpos -10 0 move mousepos setpos 0 10 move mousepos setpos 0 -10 move
mousepos setpos 5 0 move mousepos setpos -5 0 move mousepos setpos 0 5 move
mousepos setpos 0 -5 move mousepos setpos "" CHATSTR = } CHATSTR "^;*tele$" GREPSTR IF

;under Script By: Pa\/\/n 
bleh GLOBAL under GLOBAL
{whotarget bleh ={ 0 me setalarm 1 under = }
{ "^priva alguien" whome privatemsg } bleh ifelse "" CHATSTR = } CHATSTR "abajon" == IF
{ 0 under = "" CHATSTR = } CHATSTR "abajoff" == IF

;viso, inviso, warp
nup GLOBAL proparray GLOBAL x GLOBAL y GLOBAL prop1 GLOBAL warp GLOBAL inviso GLOBAL
CHATSTR LOWERCASE lowchat =
{ "" CHATSTR = { "[ " p = 0 i = { p i USERPROP itoa & " " & p =
i ++ } { i NBRUSERPROPS < } WHILE p " ]" & prop1 = 1 inviso =
{ ["jcwarp1"] SETPROPS } 3 ALARMEXEC { ["jcwarp2"] SETPROPS } 6 ALARMEXEC { ["jcwarp3"] SETPROPS } 9 ALARMEXEC { ["jcwarp4"] SETPROPS } 12 ALARMEXEC { ["jcwarp5"] SETPROPS } 15 ALARMEXEC { ["jcwarp6"] SETPROPS } 18 ALARMEXEC { ["jcwarp7"] SETPROPS } 21 ALARMEXEC { ["jcwarp8"] SETPROPS } 24 ALARMEXEC { ["jcwarp9"] SETPROPS } 27 ALARMEXEC
} inviso NOT IF } CHATSTR "inviso" == IF

{ "" CHATSTR = { 0 inviso = ["jcwarp8"] SETPROPS { ["jcwarp7"] SETPROPS } 3 ALARMEXEC
{ ["jcwarp6"] SETPROPS } 6 ALARMEXEC { ["jcwarp5"] SETPROPS }
9 ALARMEXEC { ["jcwarp4"] SETPROPS } 12 ALARMEXEC { ["jcwarp3"] SETPROPS } 15 ALARMEXEC { ["jcwarp2"] SETPROPS } 18 ALARMEXEC { ["jcwarp1"] SETPROPS } 21 ALARMEXEC { prop1 GLOBAL { NAKED } { prop1 GLOBAL prop1 "SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 24 ALARMEXEC
} inviso IF } CHATSTR "viso" == IF

{ MOUSEPOS y = x = { "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i NBRUSERPROPS < } WHILE p " ]" & prop1 = } inviso NOT IF { ["jcwarp1"] SETPROPS }
3 ALARMEXEC { ["jcwarp2"] SETPROPS } 6 ALARMEXEC { ["jcwarp3"] SETPROPS } 9 ALARMEXEC
{ ["jcwarp4"] SETPROPS } 12 ALARMEXEC { ["jcwarp5"] SETPROPS } 15 ALARMEXEC { ["jcwarp6"] SETPROPS } 18 ALARMEXEC { ["jcwarp7"] SETPROPS } 21 ALARMEXEC { ["jcwarp8"] SETPROPS } 24 ALARMEXEC { ["jcwarp9"] SETPROPS } 27 ALARMEXEC { x GLOBAL y GLOBAL x y SETPOS } 30 ALARMEXEC { ["jcwarp8"] SETPROPS } 33 ALARMEXEC { ["jcwarp7"] SETPROPS } 36 ALARMEXEC { ["jcwarp6"] SETPROPS } 39 ALARMEXEC { ["jcwarp5"] SETPROPS } 42 ALARMEXEC { ["jcwarp4"] SETPROPS } 45 ALARMEXEC { ["jcwarp3"] SETPROPS } 48 ALARMEXEC { ["jcwarp2"] SETPROPS } 51 ALARMEXEC { ["jcwarp1"] SETPROPS } 54 ALARMEXEC { { ["jcwarp9"] SETPROPS } 57 ALARMEXEC } { { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1 " SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 57 ALARMEXEC } inviso IFELSE 
"" CHATSTR = } CHATSTR "warp" == IF

;zip script, move you to the room number
{"$1" GREPSUB ATOI roomstr = "" CHATSTR = roomstr GOTOROOM }CHATSTR "zip (.*)$" GREPSTR IF

;*****************Scripts de juegos*****************
;tic-tac-toe game script by Alexandra™€Ø¤
;command pttt
{ 112 0 176 pencolor 6 pensize PAINTCLEAR CLEARLOOSEPROPS MOUSEPOS y = x = x y PENPOS
-50 -10 PENTO 90 0 LINETO -90 29 PENTO 90 0 LINETO -60 -60 PENTO
0 90 LINETO 31 -90 PENTO 0 90 LINETO -51 -100 PENTO 10 -20 LINETO
-9 0 PENTO 20 0 LINETO 10 20 PENTO 9 -20 LINETO -8 0 PENTO 18 0 LINETO
10 20 PENTO 10 -20 LINETO -10 0 PENTO 20 0 LINETO
0 255 88 pencolor 3 pensize MOUSEPOS y = x = x y PENPOS
-50 -10 PENTO 90 0 LINETO -90 29 PENTO 90 0 LINETO -60 -60 PENTO
0 90 LINETO 31 -90 PENTO 0 90 LINETO -51 -100 PENTO 10 -20 LINETO
-9 0 PENTO 20 0 LINETO 10 20 PENTO 9 -20 LINETO -8 0 PENTO 18 0 LINETO
10 20 PENTO 10 -20 LINETO -10 0 PENTO 20 0 LINETO MOUSEPOS y = x = 90 x -= 56 y -=
"mytttX by Alexandra™€Ø¤" x y ADDLOOSEPROP "mytttX by Alexandra™€Ø¤" x y 20 + ADDLOOSEPROP 
"mytttX by Alexandra™€Ø¤" x y 40 + ADDLOOSEPROP "mytttX by Alexandra™€Ø¤" x y 60 + ADDLOOSEPROP
"mytttX by Alexandra™€Ø¤" x y 80 + ADDLOOSEPROP "mytttok by Alexandra™€Ø¤" x 132 + y 
ADDLOOSEPROP "mytttok by Alexandra™€Ø¤" x 132 + y 20 + ADDLOOSEPROP 
"mytttok by Alexandra™€Ø¤" x 132 + y 40 + ADDLOOSEPROP "mytttok by Alexandra™€Ø¤" x 132 + y 60 + ADDLOOSEPROP "mytttok by Alexandra™€Ø¤" x 132 + y 80 + ADDLOOSEPROP 
;"wanna play?" say ";Portable TTT game by Alexandra™€Ø¤" say 
"" CHATSTR = } CHATSTR "cat" == IF


;*****************Scripts útiles*****************

;avid give you the id of the props ready for script
idAvs GLOBAL
{ NBRUSERPROPS n = "$1" GREPSUB notes = { 0 i = " \x5b" { ";*" notes "*" & & LOGMSG } notes 
"$1" == NOT IF
{ " " i USERPROP ITOA & & i ++ } { i n < } WHILE " \x5d" & LOGMSG NAKED } n IF
"" CHATSTR = 
} CHATSTR "^pids (.*)$" GREPSTR CHATSTR "pids" == OR IF

;Clean script
;uso: limpia.. prop y pintura escribe "c1"
{ CLEARLOOSEPROPS PAINTCLEAR "" CHATSTR = } CHATSTR "c1" == IF

;Clean paint
;uso: limpia..solo pintura escribe "c2"
{ PAINTCLEAR "" CHATSTR = } CHATSTR "c2" == IF

;Clean script
;uso: limpia.. solo prop escribe "c1"
{ CLEARLOOSEPROPS "" CHATSTR = } CHATSTR "c3" == IF


;************************************
;Script EDITA, dibuja un cuadro te ayuda editar tus props,
;has options for painting in different colors  =)
; Made  By Alexandra™€Ø¤
; Command: edita n =negro
;          edita b =blanco
;          edita r =rosa
;          edita m =morado
;          edita a =azul
;          edita c =cyan
;          edita rr =rojo
;          edita v =verde
;          edita g =gris
;          edita n =naranja
;************************************
{ 10 PENSIZE PENBACK mousepos 66 - y = 66 - DUP x = t = "$1" GREPSUB color = 
{ 0 0 0 PENCOLOR } color "n" == IF { 255 255 255 PENCOLOR } color "b" == IF
{ 255 0 255 PENCOLOR } color "r" == IF { 153 0 170 PENCOLOR } color "m" == IF
{ 0 0 255 PENCOLOR } color "a" == IF { 0 159 255 PENCOLOR } color "c" == IF
{ 255 0 0 PENCOLOR } color "rr" == IF { 0 255 0 PENCOLOR } color "v" == IF
{ 136 136 136 PENCOLOR } color "g" == IF { 255 95 0 PENCOLOR } color "nn" == IF
{ i x y x y 260 + LINE 8 x += i ++ } { i 44 < } WHILE
"" CHATSTR = } CHATSTR "^edita (.*)" GREPSTR IF


;Pedit by Hex
{ PAINTCLEAR PENBACK 8 PENSIZE 255 255 255 PENCOLOR 0 ox = 280 oy = 600 ny =
{ ox oy ox ny LINE 8 ox += } { ox 271 < } WHILE
128 128 128 PENCOLOR 271 ox = 280 oy = 600 ny =
{ ox oy ox ny LINE 8 ox += } { ox 641 < } WHILE
0 0 0 PENCOLOR 641 ox = 280 oy = 600 ny =
{ ox oy ox ny LINE 8 ox += } { ox 900 < } WHILE
"" CHATSTR = } CHATSTR "pedit" == IF


;find spots in room, and display info on them in log, by Foxy
{ "" CHATSTR = 0 dr = "Server: " SERVERNAME + LOGMSG
"Room number: " ROOMID ITOA + LOGMSG "Room name: " ROOMNAME + LOGMSG
"Number of spots: " NBRSPOTS ITOA + LOGMSG
"Spot id: Spot state: Spot Destination: Spot name: " LOGMSG
{ dr SPOTIDX sd = sd ITOA "\x09" + sd GETSPOTSTATE ITOA + "\x09 " +
sd SPOTDEST ITOA + "\x09\x09" + sd SPOTNAME + LOGMSG dr ++
} { dr NBRSPOTS == NOT } WHILE } CHATSTR "scan1" == IF


;optional
{ "$1" grepsub textsave = textsave text =
0 counter = 4 pensize 255 180 255 pencolor
whome whopos yme = xme = mousepos mousey = mousex =
{ "$2" grepsub text = counter ++ } { text "(.)(.*)" grepstr } while
60 y = 256 counter 2 / 30 * - x = { 22 x -= } counter 2 % IF ")POP" say
{ xme yme x mousey line  "leo" "$1" grepsub & x mousey addlooseprop
"$2" grepsub textsave = 30 x += paintundo }
{ textsave "(.)(.*)" grepstr } while "" CHATSTR = } CHATSTR ";nd (.*)" GREPSTR IF


;optional
{ "$1" grepsub textsave = textsave text =
0 counter = 4 pensize 255 180 255 pencolor
whome whopos yme = xme = mousepos mousey = mousex =
{ "$2" grepsub text = counter ++ } { text "(.)(.*)" grepstr } while
60 y = 256 counter 2 / 30 * - x = { 22 x -= } counter 2 % IF ")POP" say
{ xme yme x mousey line  "red" "$1" grepsub & x mousey addlooseprop
"$2" grepsub textsave = 30 x += paintundo }
{ textsave "(.)(.*)" grepstr } while "" CHATSTR = } CHATSTR ";rd (.*)" GREPSTR IF

;optional
{      [ 578055128 165370866 1368033122 ] SETPROPS "" CHATSTR = } CHATSTR "brb1" == IF


;*****************Palacetools Scripts*****************
;*****************Scripts para wizzards*****************

;pon tus scripts de ON OUTCHAT abajo de esta linea
;******************************************************
;; Te muestra una lista de los comandos del cyborg
{
"amigosdelmundo.elitepalaces.com.... visitanos" LOGMSG
"========SALUDOS DE INFO ==========" LOGMSG

"hola    = saluda a todos" LOGMSG

"hi2    = saluda quien entra" LOGMSG

"back     = de regreso" LOGMSG

"b      = de regreso" LOGMSG

"gon = Activa desactiva saludo automático" LOGMSG

"goff =  desactiva saludo automático" LOGMSG

"hi      = hello" LOGMSG

"saludos    = saluda a todos" LOGMSG

"palace   = amigos del mundo palace "LOGMSG

"radio   = radio amigos "LOGMSG

"wel    = da la bienvenida  " LOGMSG


"========BESOS==========" LOGMSG

"bexo  = beso pintado prop"LOGMS

"hy1    = saludas a todos"LOGMSG

"by2    = te despides de todos"LOGMSG

"dlips  = te deslizas para dar beso"LOGMSG

"lips  = pinta corazon azul"LOGMSG

"lips1  = beso con prop"LOGMSG

"lips2  = beso con prop"LOGMSG

"lips3  = beso con prop"LOGMSG

"lips4  = beso con prop"LOGMSG

"lips5  = beso con prop"LOGMSG

"lips6  = beso con prop"LOGMSG

"lips7  = beso con prop"LOGMSG

"lips8  = beso con prop"LOGMSG

"lips9  = beso con prop"LOGMSG

"lips10  = beso con prop"LOGMSG

"bezo  = beso volador" LOGMSG

"========RISA==========" LOGMSG

"haha   = risa con prop"LOGMSG 

"hehe   = risa con prop"LOGMSG  

"jaja   = risa con prop"LOGMSG

"jeje   = risa con prop"LOGMSG

"jiji   = risa con prop"LOGMSG

"jojo   = risa con prop"LOGMSG

"========MOVIMIENTO PROP==========" LOGMSG

"abajon      = te permite pegarte a la persona que prives "LOGMSG

"abajoff      = te despagas de la persona que  te pegaste "LOGMSG

"bua     = llanto "LOGMSG

"brb1     ="LOGMSG

"calmate     ="LOGMSG

"dedo      =  prop tirando dedo "LOGMSG

"enfado     ="LOGMSG

"fly      = type fly y un numero mueve el raton "LOGMSG

"foff      = paras de volar "LOGMSG

"hop1     = "LOGMSG

"love1   = caja del amor "LOGMSG

"ntoca      = no deja se te acerquen "LOGMSG

"stoca     = deja que se te acerquen"LOGMSG

"pedo      =  patada con pedo "LOGMSG

"pistola      =  props con pistolas "LOGMSG

"patada      =  bebe con martillo "LOGMSG

"patada1      =  mujer pegando patada "LOGMSG

"inviso      = te quitas el prop "LOGMSG

"viso      = te vistes de nuevo con el ultimo prop que tenias "LOGMSG

"sorda      =   "LOGMSG

"shhh      =   "LOGMSG

"salsa1      = prop de baile "LOGMSG

"sprp      = ilusion de prop "LOGMSG

"tele      = movimiento raro "LOGMSG

"tamo      = movimiento raro "LOGMSG

"ops      =   "LOGMSG

"warp      = movimiento raro "LOGMSG

"wigle   = prop de baile "LOGMSG



"========EDITAR INFO==========" LOGMSG


"edita  =    EXEMPLO
          edita n =negro
          edita b =blanco
          edita r =rosa
          edita m =morado
          edita a =azul
          edita c =cyan
          edita rr =rojo
          edita v =verde
          edita g =gris
          edita nn =naranja"LOGMSG

"pedit  = tres cuadros grandes para editar" LOGMSG

"========PINTURA==========" LOGMSG

"amor1    = "LOGMSG

"amor2    = "LOGMSG

"aura    = "LOGMSG

"angel    = "LOGMSG

"barras    ="LOGMSG

"bite    = "LOGMSG

"bite1    = "LOGMSG

"devil    = "LOGMSG

"flecha1     ="LOGMSG

"flecha2    ="LOGMSG

"mio1    = "LOGMSG

"mio2    = "LOGMSG

"scan     ="LOGMSG

"========JUEGOS==========" LOGMSG

"cat    = dibuja el juego de tic tac toe"LOGMSG

"========HERRAMIENTAS/UTILES==========" LOGMSG

"c1  = limpia props y pintura de la sala "LOGMSG

"c2   = limpia pintura de la sala"LOGMSG 

"c3   = limpia props de la sala"LOGMSG

"dump  = "LOGMSG 

"gsite   = habre la direcion de web que te ofrezcan"LOGMSG 

"gpal  = te conecta a la direcion del palace que te ofrezcan "LOGMSG

"pids  = te quita props te da pid listo para script de props" LOGMSG

"scan    = pintura" LOGMSG

"scan1    = te da la informacion de la sala" LOGMSG
  
"zip   = escribe zip y el numero de room te lleva alli " LOGMSG
 
"========misc==========" LOGMSG

"allsay    = spoof a todos"LOGMSG

"corners  = corners y mensange" LOGMSG

"flove    = type flove y nombre de prop"LOGMSG

"msay    = spoof a todos"LOGMSG

";nd    = "LOGMSG

";rd    = "LOGMSG

"=========FINAL==DE==COMANDOS=========" LOGMSG    

"" CHATSTR =

} CHATSTR "^;*comandos$" GREPSTR IF



;Love Scene.. It Will Paint A Box Around The Person You Selected,
;And Makes Love To Him/Her. Laggy But Fun. By [-B|aDe-].

{ 
{ PAINTCLEAR 
  ikx GLOBAL iky GLOBAL WHOME WHOPOS iky = ikx =
  jijx GLOBAL jijy GLOBAL WHOTARGET WHOPOS jijy = jijx =
  txt GLOBAL
  [ "Oh baby..." "vas a ser mio.. "
  "te hare el amor bien delicioso..!"
  "Aiss,quitemosno la ropa..  =D"
  ":Wow, tan rico que quiero repetir [="
  "Te gusto? jejeje.."
  "si " ", Me encanto mi amor =)"
  "Te amoooo muackss  " " Yo te amo tambien a ti .. " "!que nadie mire..!" ] txt =
  0 0 255 PENCOLOR 7 PENSIZE PENFRONT jijx -68 + jijy -68 + PENPOS
{ a 132 0 LINETO 0 132 LINETO -132 0 LINETO 0 -132 LINETO
  jijx -67 + jijy -67 + PENPOS 0 150 255 PENCOLOR 5 PENSIZE a ++ } { a 2 < } WHILE
{ jijx GLOBAL jijy GLOBAL 0 255 255 PENCOLOR 3 PENSIZE
  jijx -66 + jijy -66 + PENPOS 132 0 LINETO 0 132 LINETO
  -132 0 LINETO 0 -132 LINETO 0 0 200 PENCOLOR 7 PENSIZE
  jijx -61 + jijy -61 + PENPOS { b 119 0 LINETO -119 0 PENTO
  0 7 PENTO b ++ } { b 18 < } WHILE } 5 ALARMEXEC
{ jijx GLOBAL jijy GLOBAL jijx -68 + jijy -68 + PENPOS
  7 PENSIZE 0 0 255 PENCOLOR PENBACK 50 -50 LINETO
  132 0 LINETO -50 50 LINETO 0 132 PENTO 50 -50 LINETO
  0 -132 LINETO jijx -67 + jijy -67 + PENPOS 5 PENSIZE
  0 0 100 PENCOLOR { c  50 -50 LINETO 132 0 LINETO
  -50 50 LINETO 0 132 PENTO 50 -50 LINETO 0 -132 LINETO
  jijx -66 + jijy -66 + PENPOS 0 0 0 PENCOLOR 3 PENSIZE c ++ }{ c 2 < } WHILE } 10 ALARMEXEC
{ jijx GLOBAL jijy GLOBAL jijx -62 + jijy -62 + PENPOS 0 0 0 PENCOLOR 4 PENSIZE
  49 -49 LINETO 117 0 LINETO -3 0 PENTO -50 50 LINETO 7 PENSIZE
{ d -7 0 PENTO 50 -50 LINETO -50 50 PENTO d ++ } { d 16 < } WHILE } 11 ALARMEXEC
{ jijx GLOBAL jijy GLOBAL jijx 62 + jijy -53 + PENPOS 0 0 100 PENCOLOR
  3 PENSIZE 52 -52 LINETO 6 PENSIZE -6 6 PENTO
{ e -50 50 LINETO 0 6 PENTO 50 -50 LINETO 0 6 LINETO e ++ } { e 9 < } WHILE } 13 ALARMEXEC
{ -50 50 LINETO jijx GLOBAL jijy GLOBAL jijx -13 + jijy -68 + PENPOS
  80 80 80 PENCOLOR 3 PENSIZE { f 0 -44 LINETO 0 44 PENTO
  255 255 255 PENCOLOR 1 PENSIZE jijx -12 + jijy -67 + PENPOS f ++ } { f 2 < } WHILE } 14 ALARMEXEC 
  { txt GLOBAL txt 0 GET SAY
  "@0,10 " txt 10 GET & ROOMMSG "@512,0 " txt 10 GET & ROOMMSG
  "@0,384 " txt 10 GET & ROOMMSG "@512,384 " txt 10 GET & ROOMMSG } 60 ALARMEXEC
{ txt GLOBAL txt 1 GET WHOTARGET WHONAME & SAY } 360 ALARMEXEC
{ txt GLOBAL txt 2 GET SAY } 540 ALARMEXEC
{ jijx GLOBAL jijy GLOBAL jijx jijy -100 + SETPOS } 720 ALARMEXEC
{ { { f 0 10 MOVE } f 3 * ALARMEXEC f ++ } { f 10 < } WHILE } 780 ALARMEXEC
{ txt GLOBAL txt 3 GET SAY } 840 ALARMEXEC
{ { { { 0 -14 MOVE } 15 ALARMEXEC { 0 14 MOVE } 25 ALARMEXEC } g 30 * ALARMEXEC g ++ } { g 15 < } WHILE } 1000 ALARMEXEC
{ { { { 0 -14 MOVE } 5 ALARMEXEC { 0 14 MOVE } 10 ALARMEXEC } h 11 * ALARMEXEC h ++ } { h 25 < } WHILE } 1450 ALARMEXEC
{ { { { 0 -14 MOVE } 5 ALARMEXEC { 0 14 MOVE } 7 ALARMEXEC } i 8 * ALARMEXEC i ++ } { i 10 < } WHILE } 1725 ALARMEXEC
{ { { j 0 -10 MOVE } j 3 * ALARMEXEC j ++ } { j 10 < } WHILE } 1985 ALARMEXEC
{ txt GLOBAL txt 4 GET SAY } 2135 ALARMEXEC
{ { { k 0 10 MOVE } k 3 * ALARMEXEC k ++ } { k 10 < } WHILE } 2315 ALARMEXEC
{ txt GLOBAL txt 5 GET SAY } 2405 ALARMEXEC
{ ikx GLOBAL iky GLOBAL ikx iky SETPOS txt GLOBAL PAINTCLEAR
  jijx GLOBAL jijy GLOBAL "@" jijx ITOA & "," & jijy ITOA & " " &
 txt 6 GET & USERNAME & txt 7 GET & SAY } 2585 ALARMEXEC
{ txt GLOBAL txt 8 GET WHOTARGET WHONAME & "..." & SAY } 2765 ALARMEXEC
{ txt GLOBAL jijx GLOBAL jijy GLOBAL
  "@" jijx ITOA & "," & jijy ITOA & txt 9 GET & USERNAME & SAY } 3100 ALARMEXEC }
{ "priva  alguien primero [=" STATUSMSG } WHOTARGET IFELSE 
"" CHATSTR = 
} CHATSTR "love1" == IF


;enfado
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 = [ 936899454 ]  
  SETPROPS 
")MujerOhh !Grrr.. Como consigues enojarme.. !!!" SAY 
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "enfado" == IF

;sorda
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =  [  -1625296266 ] 
   SETPROPS 
")Keee !Como, cuando, quee? "WHOTARGET WHONAME & " Que dijoo?!! "& Say 
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "sorda" == IF


;resbala
{ x GLOBAL y GLOBAL
POSX x = POSY y =
MOUSEPOS mousy = mousx = 
Mousy 30 + mousz =
0 i =
{ i++ 
mousx POSX - 10 / POSX + newx = 
mousz POSY - 10 / POSY + newy = 
newx newy SETPOS } { i 30 < } WHILE
")Kiss !Disculpa "WHOTARGET WHONAME & " rss.. ya no se que hacer para darte beso.. *§mile§*!"& Say 255 0 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 
0 b =
{ b++ 
x POSX - 10 / POSX + nx = 
y POSY - 10 / POSY + ny = 
nx ny SETPOS } { b 30 < } WHILE } 200 alarmexec
" " CHATSTR = 
} CHATSTR "dlips" == IF 

 
;tamo
{
"@200 50!Te Amo  Amor mio !" ROOMMSG
  
 1210650604 244 210 ADDLOOSEPROP
  1210880666 30 100 ADDLOOSEPROP
  1210880666 30 170 ADDLOOSEPROP
  1210880666 30 240 ADDLOOSEPROP
  1210880666 30 310 ADDLOOSEPROP
  1210880666 100 310 ADDLOOSEPROP
  1210880666 170 310 ADDLOOSEPROP
  1210880666 240 310 ADDLOOSEPROP
  1210880666 310 310 ADDLOOSEPROP
  1210880666 380 310 ADDLOOSEPROP
  1210880666 450 310 ADDLOOSEPROP
  1210880666 450 240 ADDLOOSEPROP
  1210880666 450 170 ADDLOOSEPROP
  1210880666 450 100 ADDLOOSEPROP
  1210880666 450 30 ADDLOOSEPROP
  1210880666 380 30 ADDLOOSEPROP
  1210880666 310 30 ADDLOOSEPROP
  1210880666 240 30 ADDLOOSEPROP
  1210880666 170 30 ADDLOOSEPROP
  1210880666 100 30 ADDLOOSEPROP
  1210880666 30 30 ADDLOOSEPROP
  1042929301 262 181 ADDLOOSEPROP
  1042925466 229 180 ADDLOOSEPROP
  1048301551 196 177 ADDLOOSEPROP
  1042925563 219 133 ADDLOOSEPROP
  1042925392 191 107 ADDLOOSEPROP
  1211523123 216 250 ADDLOOSEPROP
  1211523123 193 233 ADDLOOSEPROP
  1211523123 170 218 ADDLOOSEPROP
  1211523123 150 197 ADDLOOSEPROP
  1211523123 136 170 ADDLOOSEPROP
  1211523123 126 150 ADDLOOSEPROP
  1211523123 116 130 ADDLOOSEPROP
  1211523123 126 110 ADDLOOSEPROP
  1211523123 136 90 ADDLOOSEPROP
  1211523123 156 70 ADDLOOSEPROP
  1211523123 186 60 ADDLOOSEPROP
  1211523123 206 70 ADDLOOSEPROP
  1211523123 226 270 ADDLOOSEPROP
  1211523123 236 250 ADDLOOSEPROP
  1211523123 256 230 ADDLOOSEPROP
  1211523123 276 210 ADDLOOSEPROP
  1211523123 298 196 ADDLOOSEPROP
  1211523123 313 173 ADDLOOSEPROP
  1211523123 326 150 ADDLOOSEPROP
  1211523123 336 130 ADDLOOSEPROP
  1211523123 326 110 ADDLOOSEPROP
  1211523123 316 90 ADDLOOSEPROP
  1211523123 296 70 ADDLOOSEPROP
  1211523123 266 60 ADDLOOSEPROP
  1211523123 246 70 ADDLOOSEPROP
  1211523123 226 90 ADDLOOSEPROP
  1211523123 226 100 ADDLOOSEPROP 
  "" CHATSTR =
} CHATSTR "^tamo" GREPSTR IF



;;patada
{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 = 
  [ -1059607703 -9890429 ] 
   SETPROPS ")punches.wav !No te pasesss *ni un pelooo*!!!" 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 "patada" == IF

;;patada1
{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 = 
    [ 1582532239 -473983286 ] 
   SETPROPS ")WOOW !No te pases conmigo ni un gramoo, que te lo peso.. *Flipaoo*!!!" 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 "patada1" == IF

;by1
 { {
   WHOME WHOPOS y1= x1=
   "[ " Pp =
   0 i =
   {
    Pp i USERPROP ITOA & " " & Pp =
    i ++
   } { i NBRUSERPROPS < } WHILE
   Pp "] SETPROPS" & Pp =
      [ -453610307 -692878489 897494355 ]
SETPROPS
   0 i =
   {
    {
     i ROOMUSER WHOPOS y2 = x2 =
     ;alarmexec .. sorta
     x2 ITOA " " & y2 ITOA & " SETPOS \")kiss :Hey, " & i ROOMUSER
WHONAME & " ,Jelouuu roomm, besitos para todos...\" SAY" & STRTOATOM i 60 *
ALARMEXEC
     "255 153 153 PENCOLOR 2 PENSIZE PENFRONT " x2 ITOA & " " & y2 ITOA
& " PENPOS 8 -12 PENTO 4 2 LINETO -4 3 LINETO -4 -3 LINETO 4 -2 LINETO"
& STRTOATOM i 60 * 1 + ALARMEXEC
    } i ROOMUSER WHOME == NOT IF
    i++
   } { i NBRROOMUSERS < } WHILE
   x1 ITOA " " & y1 ITOA & " SETPOS " & Pp & STRTOATOM i 60 * ALARMEXEC
  } {
   "que no ves demetria que no hay nadie..." LOCALMSG
  } NBRROOMUSERS 1 > IFELSE
  "" CHATSTR =
 } lowchat "hy1" == IF


;BY2
 { {
   WHOME WHOPOS y1= x1=
   "[ " Pp =
   0 i =
   {
    Pp i USERPROP ITOA & " " & Pp =
    i ++
   } { i NBRUSERPROPS < } WHILE
   Pp "] SETPROPS" & Pp =
     [ -539761745 ]  
SETPROPS
   0 i =
   {
    {
     i ROOMUSER WHOPOS y2 = x2 =
     ;alarmexec .. sorta
     x2 ITOA " " & y2 ITOA & " SETPOS \")kiss :Hey, " & i ROOMUSER
WHONAME & " ,chaitoo roomm, se portan mal si pueden  ...\" SAY" & STRTOATOM i 60 *
ALARMEXEC
     "255 153 153 PENCOLOR 2 PENSIZE PENFRONT " x2 ITOA & " " & y2 ITOA
& " PENPOS 8 -12 PENTO 4 2 LINETO -4 3 LINETO -4 -3 LINETO 4 -2 LINETO"
& STRTOATOM i 60 * 1 + ALARMEXEC
    } i ROOMUSER WHOME == NOT IF
    i++
   } { i NBRROOMUSERS < } WHILE
   x1 ITOA " " & y1 ITOA & " SETPOS " & Pp & STRTOATOM i 60 * ALARMEXEC
  } {
   "You are alone in this room." LOCALMSG
  } NBRROOMUSERS 1 > IFELSE
  "" CHATSTR =
 } lowchat "by2" == IF


;pistola
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 = 
   [ 1175743094 ]   
   SETPROPS ")9mm.wav !Ehh..."WHOTARGET WHONAME & " entre las cejas te doy, pringao.... !!" & SAY 
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "pistola" == IF

;upss
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 = 
    [  -357504496 ] 
   SETPROPS ")splat !Uppsssss!! " WHOTARGET WHONAME & " Que pena...." &  SAY 
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "ops" == IF

;dedo
{   prop1 GLOBAL
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 = 
      [ -822849858 ]   
   SETPROPS ")Pop !Ehhhhhh!! " WHOTARGET WHONAME & " Comprate un bosque y pierdetee..." &  SAY 
 { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS"  & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "dedo" == IF

;;pedo
{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 = 
 [ -576211433 ] [ 1403193700 ]   
   SETPROPS ")fart2.wav !Alaaa,,,fumatelo enterito....!!!" 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 "pedo" == IF

;wigle
{  x GLOBAL y GLOBAL  whome whopos y = x = mousepos setpos prop1 GLOBAL
")wiggle ! Proba probaa.. Yeahh!!! "  SAY 
 "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 = 
 [ 2053500387 1270113920 ]  SETPROPS 
{ x GLOBAL y GLOBAL  x y setpos } 50 ALARMEXEC { prop1 GLOBAL { NAKED }
{prop1 GLOBAL prop1
" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[  ]" prop1 == IFELSE } 2000
ALARMEXEC
"" CHATSTR = } CHATSTR "wigle" == IF


; salsa mujer
{ {    [ 762811002 669404891 254071774 -1008208035 ] SETPROPS")salsa6"SAY } 20 ALARMEXEC
{ 144 329 SETPOS } 21 ALARMEXEC
{ 152 329 SETPOS } 70 ALARMEXEC
{ 162 329 SETPOS } 120 ALARMEXEC
{   [ 762811002 669404891 254071774 -1008208035 ] SETPROPS } 150 ALARMEXEC
{ 171 329 SETPOS } 175 ALARMEXEC
{ 184 329 SETPOS } 200 ALARMEXEC
{ 194 328 SETPOS } 250 ALARMEXEC
{ 201 328 SETPOS } 300 ALARMEXEC
{ 208 328 SETPOS } 325 ALARMEXEC
{ 216 328 SETPOS } 350 ALARMEXEC
{ 224 328 SETPOS } 375 ALARMEXEC
{    [ 762811002 669404891 254071774 -1008208035 ]SETPROPS } 350 ALARMEXEC
{ 232 328 SETPOS } 400 ALARMEXEC
{ 241 328 SETPOS } 450 ALARMEXEC
{ 252 329 SETPOS } 500 ALARMEXEC
{ 257 329 SETPOS } 550 ALARMEXEC
{ 263 329 SETPOS } 600 ALARMEXEC
{   [ 762811002 669404891 254071774 -1008208035 ] SETPROPS } 650 ALARMEXEC
{ 270 328 SETPOS } 700 ALARMEXEC
{    [ 762811002 669404891 254071774 -1008208035 ]SETPROPS } 750 ALARMEXEC
{ 277 327 SETPOS } 800 ALARMEXEC
{   [ 762811002 669404891 254071774 -1008208035 ]SETPROPS } 850 ALARMEXEC
{ 283 327 SETPOS } 900 ALARMEXEC
{     [ 762811002 669404891 254071774 -1008208035 ]SETPROPS } 950 ALARMEXEC
{ 287 327 SETPOS } 1000 ALARMEXEC
{   [ 762811002 669404891 254071774 -1008208035 ]SETPROPS } 1050 ALARMEXEC
{ 294 327 SETPOS } 1100 ALARMEXEC
{    [ 762811002 669404891 254071774 -1008208035 ]SETPROPS } 1150 ALARMEXEC
{ 298 327 SETPOS } 1200 ALARMEXEC
{    [ 762811002 669404891 254071774 -1008208035 ]SETPROPS } 1350 ALARMEXEC
{ 303 327 SETPOS } 1400 ALARMEXEC
{      [ 762811002 669404891 254071774 -1008208035 ]SETPROPS } 1500 ALARMEXEC
{308 327 SETPOS } 1550 ALARMEXEC
{314 327 SETPOS } 1600 ALARMEXEC
{318 327 SETPOS } 1650 ALARMEXEC
{     [ 762811002 669404891 254071774 -1008208035 ]SETPROPS } 1700 ALARMEXEC
{323 327 SETPOS } 1750 ALARMEXEC
{327 327 SETPOS } 1800 ALARMEXEC
{331 327 SETPOS } 1850 ALARMEXEC
{335 327 SETPOS } 1900 ALARMEXEC
{340 327 SETPOS } 1950 ALARMEXEC
{ "!Azucarrr... eaeaea!!" SAY } 2000 ALARMEXEC
} CHATSTR "salsa1" == IF

;for Ace, by Foxy
{{ "Hola  Te Damos La Bienvenida a " SERVERNAME & " " & NBRROOMUSERS 1 - ROOMUSER WHONAME & "!" & SAY } 30 alarmexec
"" CHATSTR = }"wel" CHATSTR ==IF



;******************************************************
;pon tus scripts de ON OUTCHAT arriba de esta linea
} 

0 comentarios:

Publicar un comentario

Últimas Notas Amigos del Mundo

Mundo Mistico - ATV

Noticias