Welcome Guest [Log In] [Register]
Feeling in the mood to shop? Need a new wardrobe? Need a unique gift for a friend? Shadows in the Mist has hundreds of new props available in our avatar section. Drop by and have a look!
Welcome to Shadows In The Mist. We hope you enjoy your visit.


You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free.


Join our community!


If you're already a member please log in to your account to access all of our features:

Username:   Password:
Add Reply
  • Pages:
  • 1
  • 2
Palace Scripts Collection; This area is dedicated to palace scripts that are used to create interesting rooms within the palace realm.
Topic Started: Mar 31 2010, 08:06 PM (3,568 Views)
ka'li_Deverin_SiM_bm
Member Avatar
Administrator
Music 2

ON SELECT { "200angels.wav" SOUND ") "Angels" SAY }
Offline Profile Quote Post Goto Top
 
ka'li_Deverin_SiM_bm
Member Avatar
Administrator
Night and Day Script

;Alan's Day/Night script
;Changes the spot picture based on time of day.
;- the first picture shows during the day, the second picture shows at night.
ON ENTER
{
0 ME SETALARM
}
ON ALARM
{
;***Set your time data here***
630 daystart = ;time day starts in 2400 format
1630 nightstart = ;time night starts in 2400 format
-8 tz = ;time zone change from Zulu (GMT or Universal) in hours
0 dst = ;0 = standard, 1 = daylight savings
;***end of time data***
;
;get current time
DATETIME mytime =1319
{ 2085978496 mytime += } { tz dst + 3600 * mytime += } DATETIME 0 < IFELSE
mytime 86400 % myday =Wednesday
myday DUP 3600 / hours = 3600 % mins_secs =1319
mins_secs 60 / minutes =19
hours 100 * minutes + timenow =13
;turn picture on/off
{ 1 ME SETSPOTSTATELOCAL } timenow daystart < timenow nightstart >= OR ME GETSPOTSTATE NOT AND IF
{ 0 ME SETSPOTSTATELOCAL } timenow daystart >= timenow nightstart < AND ME GETSPOTSTATE AND IF
3600 ME SETALARM
}
Offline Profile Quote Post Goto Top
 
ka'li_Deverin_SiM_bm
Member Avatar
Administrator
Password Script : part 1

;Place the following script in each password protected room.
ON ENTER
{
rejected GLOBAL
;*****************************************************
;set where to send people if they haven't said the password
162 accessroom =
;*****************************************************
"pw" ROOMID ITOA & pw =
pw STRTOATOM EXEC GLOBAL
{ "You have been given access to this room." LOCALMSG
} { "'page I attempted entry into " ROOMNAME & "." & SAY
1 rejected =
accessroom GOTOROOM
} pw STRTOATOM EXEC
ISWIZARD OR IFELSE
}
Offline Profile Quote Post Goto Top
 
ka'li_Deverin_SiM_bm
Member Avatar
Administrator
Rain/Snow Script

;Alan's Rain/snow script
;Create a rain or snow picture that is taller than the room.
;Put the picture in the spot multiple (e.g., 10) times.
;Customize the information between the lines of asterisks.
;Then say "setpictures <door number>" to automatically set the picture locations.
;Note, you must be an owner/operator to do this.
;Other useful commands provided are:
;Say "reset <doornumber>" to set the spot to the first picture.
;Say "mp" to find the current mouse position.
ON ENTER
{
nbrpics GLOBAL
;***Set the number of pictures***
15 nbrpics =
;***end of data***
0 ME SETSPOTSTATELOCAL
0 ME SETALARM
}
ON OUTCHAT
{
nbrpics GLOBAL
{
{
;*************************************************
;Set the picture parameters.
;Start and stop positions are relative to the door.
;You must be an Owner/Operator for the script to work.
0 start_x =
-50 start_y =
0 stop_x =
0 stop_y =
;*************************************************
nbrpics 1 - steps =
stop_x start_x - range_x =
stop_y start_y - range_y =
;
;Move the pictures. Multiply before divide to reduce error!
;
0 i =
{ i ME SETSPOTSTATE
start_x range_x i * steps / + start_y range_y i * steps / + ME SETPICLOC
i ++
} { i nbrpics 1 - <= } WHILE
0 ME SETSPOTSTATE
0 inout =
"" CHATSTR =
} "$1" GREPSUB ATOI ME == IF
} CHATSTR "^setpictures ([0-9]+)" GREPSTR IF
;
{
{ 0 ME SETSPOTSTATE
0 inout =
"" CHATSTR =
} "$1" GREPSUB ATOI ME == IF
} CHATSTR "^reset ([0-9]+)" GREPSTR IF
;
{ MOUSEPOS y = x =
"@" x ITOA & " " & y ITOA & " x = " & x ITOA & ", y = " & y ITOA & LOCALMSG
"" CHATSTR =
} CHATSTR "mp" == IF
}
ON ALARM
{
nbrpics GLOBAL
ME GETSPOTSTATE 1 + nbrpics % ME SETSPOTSTATELOCAL ;cycle up
30 ME SETALARM
}
;********End Script***********
Offline Profile Quote Post Goto Top
 
ka'li_Deverin_SiM_bm
Member Avatar
Administrator
Trap

ON SELECT {

269 107 SETPOS

NAKED

[ 1025979818 1025979409 1025979702 1025979927 1025979846 1025979546 1242293532 ] SETPROPS
Offline Profile Quote Post Goto Top
 
ka'li_Deverin_SiM_bm
Member Avatar
Administrator
Slide Room Script (6+ pics)

ON ENTER { linkspot GLOBAL ME linkspot = ME GETSPOTSTATE 1 } ON ALARM { cmd GLOBAL

;***Set number of pictures here*** 10 nbrpics = ;***End of data*** { ME GETSPOTSTATE 1 +

nbrpics % ME SETSPOTSTATE } cmd "next" == IF { ME GETSPOTSTATE 1 - nbrpics + nbrpictures

% ME SETSPOTSTATE } cmd "previous" == IF } ;{ ON SELECT { 10 pics = ME GETSPOTSTATE 1 +

DUP pics / pics * - ME SETSPOTSTATELOCAL } }


that is where the pictures goes

ON SELECT { linkspot GLOBAL cmd GLOBAL "next" cmd = 4 linkspot SETALARM }
this is to turn the pictures

Special thanks to takara for this one
Offline Profile Quote Post Goto Top
 
ka'li_Deverin_SiM_bm
Member Avatar
Administrator
For Elite


ON OUTCHAT {
{
PAINTCLEAR CLEARLOOSEPROPS

"" CHATSTR =
} CHATSTR "props" == IF
}
Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · Palace Information Section · Next Topic »
Add Reply
  • Pages:
  • 1
  • 2