PDA

View Full Version : Ofrecer Avatar Español y limpia Sala de Props


sneidderforce
08-29-2006, 02:04 AM
ON ENTER
{
offeredAvatar GLOBAL
jscrayin GLOBAL
jscrayout GLOBAL
{
offeredAvatar GLOBAL prps GLOBAL
{
"$1" GREPSUB prps =
{
"[ " prps & " ] SETPROPS" & offeredAvatar =
"@" WHOCHAT WHOPOS ITOA SWAP ITOA "," & SWAP & &
" Te ha ofrecido un Prop el usuario " & WHOCHAT WHONAME &
". Para Recibir el prop escribe \"aceptar\"." & LOCALMSG
} prps ".* .* .* .* .* .* .* .* .* .*" GREPSTR NOT prps "-$" GREPSTR
NOT AND
prps "- " GREPSTR NOT AND prps ">$" GREPSTR NOT AND prps "> " GREPSTR
NOT AND
prps "<$" GREPSTR NOT AND prps "< " GREPSTR NOT AND WHOCHAT WHOME <> AND IF
"" CHATSTR =
} CHATSTR "^;avoffer [\[] (\"*[0-9A-Fa-f -]+\"*) [\]]" GREPSTR IF
} jscrayin DEF
{
offeredAvatar GLOBAL
{
{
{
0 i = ";avoffer [ "
{
i USERPROP ITOA & " " & i ++
} { i NBRUSERPROPS < } WHILE "]" & WHOTARGET PRIVATEMSG
} NBRUSERPROPS IF
}
{
"Escribe ofrecer en privado" STATUSMSG
} WHOTARGET IFELSE
"" CHATSTR =
} CHATSTR "ofrecer" == IF
{
"" CHATSTR = offeredAvatar STRTOATOM EXEC
} "aceptar" CHATSTR == "\"aceptar\"" CHATSTR == OR offeredAvatar "" <> AND IF
{
"" CHATSTR =
} CHATSTR "^;avoffer" GREPSTR IF
} jscrayout DEF
}
ON OUTCHAT { jscrayout GLOBAL jscrayout EXEC }
ON INCHAT { jscrayin GLOBAL jscrayin EXEC }
ON LEAVE
{ CLEARLOOSEPROPS
}