Apartment with Theater Scripts

Knowledgebase

Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Apartment with Theater Scripts

Solution ;Door 1
;Apartment Script

;Solution
;Apartment Script by Glide
;The script is set up so the first person in the room is the room owner.
;To assign this room permanently to someone by name...
;remove the 2nd line in the ON ENTER section which looks like this:
;rowner GLOBAL 0 ROOMUSER WHONAME rowner =
;and in its place, put this line:
;rowner GLOBAL "RoomOwnerName" rowner =
;Don't use the semi-colon (;) at the beginning of the line...
;and put the room owner's name where it says RoomOwnerName
;
;Near the bottom of the script, in the ON ALARM section...
;change the room number to the room number that people are kicked to.
;
;This script can be sensitive to low flood limits.
;
ON ENTER {
rowner GLOBAL 0 ROOMUSER WHONAME rowner =

rkick GLOBAL 0 rkick =
{ "Welcome to your room, " USERNAME & ". Look in your log window for a list of commands." & LOCALMSG
roomcomm GLOBAL {
{ LOGMSG }
[
""
"ROOM COMMANDS:"
""
";kick"
";gag"
";ungag"
";propgag"
";unpropgag"
";pin"
";unpin"
";freeze"
";unfreeze"
";avlock"
";avunlock"
""
"You must whisper the commands."
"Type \"help\" to see this list again."
""
] FOREACH
} roomcomm DEF
roomcomm EXEC
} USERNAME rowner == IF
}
ON INCHAT {
rowner GLOBAL rpin GLOBAL rgag GLOBAL rkick GLOBAL
rpgag GLOBAL freeze GLOBAL frz GLOBAL avlock GLOBAL
avlck GLOBAL fx GLOBAL fy GLOBAL
{
{ 1 rgag = } CHATSTR ";gag" == WHOCHAT WHONAME rowner == AND IF
{ 0 rgag = } CHATSTR ";ungag" == WHOCHAT WHONAME rowner == AND IF
{ 1 rkick = 1 ME SETALARM
} CHATSTR ";kick" == WHOCHAT WHONAME rowner == AND IF
{ 1 rpgag = 0 avlock = 1 ME SETALARM
} CHATSTR ";propgag" == WHOCHAT WHONAME rowner == AND IF
{ 0 rpgag = } CHATSTR ";unpropgag" == WHOCHAT WHONAME rowner == AND IF
{ 1 rpin = 0 avlock = 0 freeze = 1 ME SETALARM
} CHATSTR ";pin" == WHOCHAT WHONAME rowner == AND IF
{ 0 rpin = NAKED } CHATSTR ";unpin" == WHOCHAT WHONAME rowner == AND IF
{ 1 freeze = POSX fx = POSY fy =
POSX ITOA " " & POSY ITOA & " SETPOS" & frz = 1 ME SETALARM
} CHATSTR ";freeze" == WHOCHAT WHONAME rowner == AND IF
{ 0 freeze = } CHATSTR ";unfreeze" == WHOCHAT WHONAME rowner == AND IF
{ 1 avlock = 0 i = "[" { " " i USERPROP ITOA & & i ++ }
{ i NBRUSERPROPS < } WHILE " ] SETPROPS" & avlck = 1 ME SETALARM
} CHATSTR ";avlock" == WHOCHAT WHONAME rowner == AND IF
{ 0 avlock = } CHATSTR ";avunlock" == WHOCHAT WHONAME rowner == AND IF
} USERNAME rowner == NOT IF
}
ON OUTCHAT {
rgag GLOBAL rowner GLOBAL
{ { "" CHATSTR = } rgag IF } USERNAME rowner == NOT IF
{ comm =
{ "" CHATSTR = "You must whisper the commands." LOCALMSG
} comm CHATSTR == WHOTARGET NOT AND USERNAME rowner == AND IF
} [ ";kick" ";gag" ";ungag" ";propgag" ";unpropgag" ";unpin"
";pin" ";freeze" ";unfreeze" ";avlock" ";avunlock" ] FOREACH
{ roomcomm GLOBAL roomcomm EXEC "" CHATSTR =
} CHATSTR "help" == USERNAME rowner == AND IF
}
ON ALARM {
rowner GLOBAL rpin GLOBAL rpgag GLOBAL rkick GLOBAL
freeze GLOBAL frz GLOBAL avlock GLOBAL avlck GLOBAL
fx GLOBAL fy GLOBAL
2 ME SETALARM
{
{ { [ 1280 ] SETPROPS 490 362 SETPOS
} POSX 490 == POSY 362 == AND NOT IF
{ [ 1280 ] SETPROPS } 1280 TOPPROP == NOT IF } rpin IF
{ NAKED } rpgag NBRUSERPROPS AND IF
{ { frz STRTOATOM EXEC } POSX fx == POSY fy == AND NOT IF } freeze IF
{ { avlck STRTOATOM EXEC } 0 i = "["
{ " " i USERPROP ITOA & & i ++ } { i NBRUSERPROPS < } WHILE
" ] SETPROPS" & dif = dif avlck == NOT IF } avlock IF
;change room number below to the room people are kicked to
{ 86 GOTOROOM } rkick IF
} USERNAME rowner == NOT IF
}

;Door 2
ON ENTER
{
linkspot GLOBAL ME linkspot =
0 ME SETSPOTSTATE
}
ON ALARM
{
cmd GLOBAL
;***Set number of pictures here***
5 nbrpics =
;***End of data***
{ ME GETSPOTSTATE 1 + nbrpics % ME SETSPOTSTATE } cmd "next" == IF
{ ME GETSPOTSTATE 1 - nbrpics + nbrpictures % ME SETSPOTSTATEGLOBAL } cmd "previous" == IF
}

; Door 3
ON SELECT
{
linkspot GLOBAL
cmd GLOBAL
"next" cmd =
0 linkspot SETALARM
}

ON ROLLOVER {
{ { opacidad global opacidad -1 me setpicopacity opacidad 5 + opacidad = } i 5 * alarmexec i ++} {i 5 < } while }

ON ROLLOUT { opacidad global 100 opacidad =
{ { opacidad global opacidad -1 me setpicopacity opacidad 5 - opacidad = } i 5 * alarmexec i ++} {i 5 < } while }

Was this article helpful? yes / no

Article details

Article ID:	395
Category:	Room Scripts
Date added:	12-07-2022 23:32:40
Views:	125
Rating (Votes):	(0)

<< Go back