NEXT DOOR
ON ENTER { prar GLOBAL cpr GLOBAL -1 cpr =
{[
;add avatar lines here
] } prar DEF }
ON SELECT{
cpr GLOBAL
prar GLOBAL
prar EXEC proparray =
cpr ++
{ 0 cpr = } cpr proparray LENGTH == IF
proparray cpr GET SETPROPS
"Avatar " cpr 1 + ITOA + "/" + proparray LENGTH ITOA + LOGMSG
}
}}
BACK DOOR
ON OUTCHAT {
{ "$1" GREPSUB avname =
"[ " 0 tbl =
{tbl USERPROP ITOA + " " + tbl ++
} {tbl NBRUSERPROPS == NOT} WHILE
" ] \;" + avname + CHATSTR =
} CHATSTR LOWERCASE "^setwear (.*)$" GREPSTR IF
;say "setwear <description>" to say the line of data needed in
;the forward button for the av you're wearing.
}
ON SELECT{
cpr GLOBAL
prar GLOBAL
prar EXEC proparray =
cpr --
{ proparray LENGTH 1 - cpr = } cpr -1 <= IF
proparray cpr GET SETPROPS
"Avatar " cpr 1 + ITOA + "/" + proparray LENGTH ITOA + LOGMSG
}
RESET DOOR
ON SELECT { cpr GLOBAL prar GLOBAL
prar EXEC proparray =
0 cpr =
proparray cpr GET SETPROPS
"Avatar 1/" proparray LENGTH ITOA + LOGMSG
}
__________________
If all the worlds a stage, who handles the rewrites?
|