ROOM
	ID 12322
	PRIVATE
	NOPAINTING
	NOCYBORGS
	NAME "Enter To Casino"
	PICT "download.gif"
	ARTIST "XT"
	PICTURE ID 1 NAME "CasinoBackground.gif" ENDPICTURE
	PICTURE ID 2 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 3 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	DOOR
		ID 1000
		DEST 12324
		OUTLINE 342,79  409,68  409,255  341,247
		LOC 256,191
		SCRIPT
;~MediaList~;WelcomeToCasino.wav		
ON ENTER { {GLOBAL} [x1 x2 y1 y2 x21 x22 y21 y22] FOREACH
; Put This code in the Entrance (first Casino room)
{GLOBAL} [RoulettePrevRoom RouletteRoom BJackPrevRoom] FOREACH
{GLOBAL} [BlackJackRoom CrapsPrevRoom CrapsRoom SiteAddress] FOREACH
SiteAddress GLOBAL "xt.yi.org" SiteAddress = ; Here goes your palace site address
12323 BJackPrevRoom =
12319 BlackJackRoom =
12328 CrapsPrevRoom =
12318 CrapsRoom =
12327 RoulettePrevRoom =
12317 RouletteRoom =
{"You are using an old client! The Casino games will not work fine for you" ROOMMSG} IPTVERSION 1 < IF
"Click on the left side of the portrait to go to Craps and Roulette games
Click on the right side to go to BlackJack and Slot machines" ROOMMSG
{"WelcomeToCasino.wav" SOUND} 50 ALARMEXEC
340 x1 =  409 x2 =
73 y1 =  250 y2 =
279 x21 = 341 x22 =
82 y21 = 242 y22 =
30 ME SETALARM
"Script And Graphics by XT™ ©2000" STATUSMSG
}
ON ALARM { {GLOBAL} [x1 x2 y1 y2 x21 x22 y21 y22] FOREACH
ME GETSPOTSTATE lastStateME =
200 GETSPOTSTATE lastState2 =
0 lTempME =
MOUSEPOS tempY = tempX =
{{1 lTempME =} tempX x1 > tempX x2 < AND IF
{2 lTempME +} tempX x1 > tempX x2 < AND IF
} tempY y1 > tempY y2 < AND IF
{lTempME ME SETSPOTSTATELOCAL
{"@0,0 )POP To BlackJack and Slot Machines" SAY} {0 0 MOVE} lTempME 0 <> IFELSE
} lTempME lastStateME <> IF
0 lTemp2 =
{{1 lTemp2 =} tempX x21 > tempX x22 < AND IF
{2 lTemp2 +} tempX x21 > tempX x22 < AND IF
} tempY y21 > tempY y22 < AND IF
{lTemp2 200 SETSPOTSTATELOCAL
{"@0,0 )POP To Craps and Roulette" SAY} {0 0 MOVE} lTemp2 0 <> IFELSE
} lTemp2 lastState2 <> IF
30 ME SETALARM
}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 200
		DEST 12326
		OUTLINE 280,88  340,79  339,248  280,239
		LOC 257,191
		SCRIPT
ON SELECT { "Coming In The Future!!" LOCALMSG }
		ENDSCRIPT
		ENDDOOR
	SPOT
		ID 201
		OUTLINE 235,178  271,178  271,207  235,207
		LOC 255,191
		PICTS 1,0,0 ENDPICTS
		ENDSPOT
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 381
		OUTLINE 4,4  65,4  65,28  4,28
		LOC 36,14
		PICTS 2,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 296
		OUTLINE 449,5  507,5  507,33  449,33
		LOC 480,18
		PICTS 3,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM