ROOM
	ID 259
	NOCYBORGS
	NAME "New Years Eve Party"
	PICT "anjelzbar3.gif"
	PICTURE ID 1 NAME "confettifall.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 2 NAME "blank.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 4 NAME "bjuk1.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 5 NAME "bjuk2.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 6 NAME "bjuk3.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 7 NAME "bjuk4.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 8 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 9 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 200
		NAME "frame by frame"
		OUTLINE 238,188  288,188  288,228  238,228
		LOC 302,0
		PICTS 2,0,0 1,0,12 1,0,24 1,0,36 1,0,48 1,0,60 1,0,72 1,0,84 1,0,96 1,0,108 1,0,120 1,0,132 1,0,144 1,0,156 1,0,168 1,0,180 1,0,192 1,0,204 1,0,216 1,0,228 1,0,240 1,0,252 1,0,264 1,0,276 1,0,288 1,0,300 1,0,312 1,0,324 1,0,336 1,0,348 1,0,360 1,0,372 ENDPICTS
		ENDSPOT
	SPOT
		ID 10
		NAME "on/off"
		DONTMOVEHERE
		OUTLINE 433,288  490,288  490,319  433,319
		LOC 461,296
		SCRIPT
ON ENTER { "Say on to start the confetti falling. Say it again to make it fall faster.Say off to stop it and/or the music" LOCALMSG
"Party Talk will be on upon entering this room. To turn it off say party's off , to turn it back on say party's on" LOCALMSG }
ON ALARM {
{0 200 SETSPOTSTATELOCAL}
{{200 GETSPOTSTATE 1 + 200 SETSPOTSTATELOCAL}
{1 200 SETSPOTSTATELOCAL} 200 GETSPOTSTATE 31 < IFELSE
10 ME SETALARM
} ME GETSPOTSTATE 0 == IFELSE
}
ON OUTCHAT {
{1 ME SETSPOTSTATELOCAL 10 ME SETALARM} CHATSTR LOWERCASE "on" == IF
{0 ME SETSPOTSTATELOCAL} CHATSTR LOWERCASE "off" == IF
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		LOCKABLE
		ID 6
		NAME "sound"
		DONTMOVEHERE
		OUTLINE 367,159  400,159  400,198  367,198
		LOC 385,179
		PICTS 0,22816,30565 24933,20512,8307 ENDPICTS
		SCRIPT
;~MediaList~;silentwav,auldlangsyne		
ON ENTER {
"silentwav" SOUND
"auldlangsyne" SOUND
"@400,175 Say off to stop the music. Click on the jukebox to restart song." LOCALMSG
}
ON SELECT{
"auldlangsyne" SOUND
}
ON OUTCHAT {
{ ME UNLOCK
} CHATSTR "off" == IF
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 8
		OUTLINE 370,128  395,125  395,143  372,145
		LOC 384,169
		PICTS 4,0,0 5,0,0 6,0,0 7,0,0 ENDPICTS
		SCRIPT
;simple looping animation, by Foxy
ON ENTER { 1 ME SETALARM }
ON ALARM {
4 pics = ;change 6 to the number of pictures you have
ME GETSPOTSTATE 1 + DUP pics / pics * -
ME SETSPOTSTATELOCAL
30 ME SETALARM
;make 30 higher to slow down, lower to speed up
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 9
		NAME "partytalk"
		DONTMOVEHERE
		OUTLINE 481,6  503,6  503,26  481,26
		LOC 507,44
		SCRIPT
ON ENTER {
	party GLOBAL
1 party =
}
ON OUTCHAT {
party GLOBAL
{ 1 party = "Party Enabled" LOCALMSG } CHATSTR "party'*s on" GREPSTR IF
{  0 party = "Party Disabled" LOCALMSG } CHATSTR "party'*s off" GREPSTR IF
{
{
{
[ "Awesome!"
"Cool!"
"Groovy!"
"Bitchin!"
"Radical!"
"Totally!"
"Rad!"
"Bad!"
] 8 RANDOM GET CHATSTR =
}
{
"!" PUNCT =
{"$1" GREPSUB CHATSTR = "$2" GREPSUB PUNCT = }
CHATSTR "^(.*)([!.?])$" GREPSTR IF
CHATSTR LOWERCASE CHATSTR =
"Cheers, " CHATSTR +
[ ", another round for the house" ",drink up bro" ", let's party cutie" ", wanna dance sweety?" ",Ooo check HIM out sis!" ", let's party til dawn luv" ", Happy New Year!!"] 7 RANDOM GET +
PUNCT +
CHATSTR =
} 8 RANDOM 0 == IFELSE
} CHATSTR " " SUBSTR CHATSTR "^[:!^@]" GREPSTR NOT AND IF
} party IF
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 1
		DONTMOVEHERE
		DEST 313
		OUTLINE 4,354  62,354  62,380  4,380
		LOC 33,366
		PICTS 8,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 2
		DONTMOVEHERE
		DEST 115
		OUTLINE 448,354  508,354  508,379  448,379
		LOC 480,368
		PICTS 9,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM