; bjorke - modified 19 sept 96
ON OUTCHAT {
nodressup GLOBAL
{
"$1" GREPSUB cmd =
} {
CHATSTR cmd =
} CHATSTR "^@[0-9]*,[0-9]* (.*)" GREPSTR IFELSE
{
1 nodressup =
"No Dressup for You" STATUSMSG
"" CHATSTR =
} cmd "^nodress" GREPSTR IF
{
0 nodressup =
"Now You Can Be Dressed" STATUSMSG
"" CHATSTR =
} cmd "^redress" GREPSTR IF
{
{
NBRUSERPROPS n =
{
0 i =
";pp"
{
" " i USERPROP
ITOA & &
i ++
} { i n < } WHILE
WHOTARGET PRIVATEMSG
} n IF
} {
"you have
to whisper it" statusmsg
} WHOTARGET IFELSE
0 nodressup =
"" chatstr =
} cmd "dressup" == IF
{
NAKED
"" CHATSTR =
} cmd "^undress" GREPSTR IF
{
"To dress someone, whisper \"dressup\"" LOCALMSG
{ "To avoid BEING dressed, say \"nodress\"" LOCALMSG }
60 alarmexec
{ "To undo \"nodress,\" type \"redress\"" LOCALMSG } 120
alarmexec
{ "Whisper to only be dressed by your friend" LOCALMSG
} 180 alarmexec
{
{ "\"halt\" and \"resume\" for entire
room" LOCALMSG } 220 alarmexec
} ISWIZARD IF
{ "Caution: Risque props may get you disconnected without
warning!!"
logmsg } 240 alarmexec
"" chatstr =
} cmd LOWERCASE "^help" GREPSTR IF
{
1 ME SETSPOTSTATE
"Dressups Halted" STATUSMSG
"" CHATSTR =
} ISWIZARD cmd "halt" == AND IF
{
0 ME SETSPOTSTATE
"Dressups Resumed" STATUSMSG
"" CHATSTR =
} ISWIZARD cmd "resume" == AND IF
}
ON INCHAT {
nodressup GLOBAL
{
0 ME SETSPOTSTATE
} ME GETSPOTSTATE NBRROOMUSERS 2 < AND IF
{
{
"[ " "$1" GREPSUB & " ] SETPROPS"
&
STRTOATOM EXEC
} {
"Sorry you can't dress me
up" WHOCHAT PRIVATEMSG
} nodressup NOT
WHOTARGET NOT
WHOTARGET WHOCHAT == OR AND
ME GETSPOTSTATE NOT AND IFELSE
} CHATSTR ";pp (-*[0-9].*)$" GREPSTR
WHOCHAT WHOME == NOT AND IF
}
ON ENTER {
{ "To dress someone, whisper \"dressup\"" statusmsg } 60 alarmexec
{ "To avoid BEING dressed, say \"nodress\"" statusmsg } 120
alarmexec
{ "To undo \"nodress,\" type \"redress\"" statusmsg } 180 alarmexec
{
{ "\"halt\" and \"resume\" for entire
room" STATUSMSG } 220 alarmexec
} ISWIZARD IF
{ "Caution: Risque props may get you disconnected without warning!!"
logmsg } 240 alarmexec
}
1. First go in to the room you want to be your Dressing Room. Next go into wizard or god mode and go into authoring mode by clicking on Wizard (in the menu bar) then go down to authoring mode. Note: I will use the word spot instead of door sometimes. A door to me is a spot you click on and it takes you to a room, if it doesn't do this I call it a spot.
2. Create a new spot by going to Wizard and click new door. No one needs to click this spot so keep it out of the way by making it small and putting it in a corner. Double click the spot to load up its info. Change the spot type from passage to normal.
3. Next click on Edit Script. Insert the script in the box that is used for the Dressing Room, which is at the top of the page. The easiest way to do this is to cut and paste it.
4. Now exit authoring mode and find some buddies to help test the dressing room. The commands are
dressup wisper this to someone to dress them
nodress this makes you unable to be dressed by others
redress undo nodress
halt stops dressing for the whole room
resume undo halt
|
|
|
|