ROOM ID 12319 PRIVATE NOPAINTING NOCYBORGS HIDDEN NAME "BlackJack" PICT "download.gif" ARTIST "XT" PICTURE ID 3 NAME "Blckjack.gif" ENDPICTURE PICTURE ID 4 NAME "Hands1.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 5 NAME "Hands2.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 6 NAME "Hands3.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 7 NAME "Hands4.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 8 NAME "Hands5.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 9 NAME "Hands6.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 10 NAME "XTGnone.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 11 NAME "BJSplit.gif" ENDPICTURE PICTURE ID 12 NAME "BJDblDown.gif" ENDPICTURE PICTURE ID 13 NAME "BJInsur.gif" ENDPICTURE PICTURE ID 14 NAME "BJDeal.gif" ENDPICTURE PICTURE ID 15 NAME "BJStand.gif" ENDPICTURE PICTURE ID 16 NAME "BJPass.gif" ENDPICTURE PICTURE ID 17 NAME "BJHit.gif" ENDPICTURE PICTURE ID 20 NAME "BJBet5.gif" ENDPICTURE PICTURE ID 21 NAME "BJBet10.gif" ENDPICTURE PICTURE ID 22 NAME "BJBet15.gif" ENDPICTURE PICTURE ID 23 NAME "BJBet20.gif" ENDPICTURE PICTURE ID 24 NAME "BJBet25.gif" ENDPICTURE PICTURE ID 25 NAME "BJBet30.gif" ENDPICTURE PICTURE ID 26 NAME "BJBet35.gif" ENDPICTURE PICTURE ID 27 NAME "BJBet40.gif" ENDPICTURE PICTURE ID 28 NAME "BJBet45.gif" ENDPICTURE PICTURE ID 29 NAME "BJBet50.gif" ENDPICTURE PICTURE ID 30 NAME "BJBet55.gif" ENDPICTURE PICTURE ID 31 NAME "BJBet60.gif" ENDPICTURE PICTURE ID 32 NAME "BJBet65.gif" ENDPICTURE PICTURE ID 33 NAME "BJBet70.gif" ENDPICTURE PICTURE ID 34 NAME "BJBet75.gif" ENDPICTURE PICTURE ID 35 NAME "BJBet80.gif" ENDPICTURE PICTURE ID 36 NAME "BJBet85.gif" ENDPICTURE PICTURE ID 37 NAME "BJBet90.gif" ENDPICTURE PICTURE ID 38 NAME "BJBet95.gif" ENDPICTURE PICTURE ID 39 NAME "BJBet100.gif" ENDPICTURE PICTURE ID 40 NAME "BJpN0.gif" ENDPICTURE PICTURE ID 41 NAME "BJpN1.gif" ENDPICTURE PICTURE ID 42 NAME "BJpN2.gif" ENDPICTURE PICTURE ID 43 NAME "BJpN3.gif" ENDPICTURE PICTURE ID 44 NAME "BJpN4.gif" ENDPICTURE PICTURE ID 45 NAME "BJpN5.gif" ENDPICTURE PICTURE ID 46 NAME "BJpN6.gif" ENDPICTURE PICTURE ID 47 NAME "BJpN7.gif" ENDPICTURE PICTURE ID 48 NAME "BJpN8.gif" ENDPICTURE PICTURE ID 49 NAME "BJpN9.gif" ENDPICTURE PICTURE ID 50 NAME "BJpBlackJack.gif" ENDPICTURE PICTURE ID 100 NAME "HelpTag.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 210 NAME "NZero.gif" ENDPICTURE PICTURE ID 211 NAME "NOnes.gif" ENDPICTURE PICTURE ID 212 NAME "NTwo.gif" ENDPICTURE PICTURE ID 213 NAME "NThree.gif" ENDPICTURE PICTURE ID 214 NAME "NFour.gif" ENDPICTURE PICTURE ID 215 NAME "NFive.gif" ENDPICTURE PICTURE ID 216 NAME "NSix.gif" ENDPICTURE PICTURE ID 217 NAME "NSeven.gif" ENDPICTURE PICTURE ID 218 NAME "NEight.gif" ENDPICTURE PICTURE ID 219 NAME "NNine.gif" ENDPICTURE PICTURE ID 220 NAME "NLSign.gif" ENDPICTURE SPOT ID 2000 OUTLINE 241,168 272,168 272,193 241,193 LOC 256,192 PICTS 3,0,0 ENDPICTS ENDSPOT SPOT ID 200 DONTMOVEHERE OUTLINE 303,9 163,9 163,57 303,57 LOC 231,47 PICTS 10,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 9,0,0 ENDPICTS SCRIPT ;~MediaList~;CasinoFire.wav,Silent.wav,FbjCard.wav,FbjChip.wav,FbjBet.wav,Fbj.wav,Fbjbust.wav,Fbjins.wav, ;~MediaList~;Fbjpush.wav,Fbjdwin.wav,Fbjpwin.wav,Fbetmax.wav,Fbetmax.wav ON ALARM {{GLOBAL} [Cards Card Cover Dealer dx User ux wp xa xx ins std bj] FOREACH {GLOBAL} [XCover SumCards DPUT XPUT UF ACE BlackJack Bust Reset Insurance RTable] FOREACH {1 GETSPOTSTATE d = 2 GETSPOTSTATE p = {{1 70 SETALARM [1 70 GETSPOTSTATE] xa xx PUT}{10 1 SETALARM EXIT} d p <= IFELSE} {{{10 2 SETALARM}{10 1 SETALARM} d 21 == ins 2 == AND IFELSE} {10 2 SETALARM} d p > IFELSE EXIT} d 17 < IFELSE } std 1 == IF {0 ME SETSPOTSTATELOCAL} {ME GETSPOTSTATE DUP ss = 1 + ME SETSPOTSTATELOCAL} ME GETSPOTSTATE 6 >= IFELSE {15 ME SETALARM} {0 ME SETSPOTSTATELOCAL} ME GETSPOTSTATE 6 < IFELSE {xa xx GET DUP 0 GET wp = 1 GET Card = 1 xx +=} ss 4 == IF {"FbjCard.wav" SOUND {{Dealer dx GET d = {XCover EXEC DPUT EXEC SumCards EXEC} {{Insurance EXEC} Card 13 % 1 == dx 1 == AND IF DPUT EXEC SumCards EXEC } dx 0 == IFELSE {UF EXEC} dx 1 > IF 1 dx += {RTable EXEC UF EXEC 10 2 SETALARM EXIT} ins 0 == bj 1 == AND dx 1 > AND IF ; Player BlackJack? } dx 7 <= IF {1 GETSPOTSTATE d = 2 GETSPOTSTATE p = {10 1 SETALARM EXIT} d 17 <= d p > AND IF {1 ME SETALARM EXIT} d 17 < d p <= AND IF {60 2 SETALARM {"FbjBust.wav" SOUND} 20 ALARMEXEC EXIT} d 21 > IF {10 2 SETALARM EXIT} d 17 == IF {10 2 SETALARM EXIT} d 17 > d p <= AND IF {10 2 SETALARM EXIT} d 21 == ins 2 == AND dx 2 == AND IF {10 1 SETALARM EXIT} d 17 > d p > AND IF } std 1 == IF ; Game Over? } {{User ux GET u = XPUT EXEC SumCards EXEC UF EXEC {BlackJack EXEC} wp GETSPOTSTATE 21 == ux 1 == AND IF 1 ux +=} ux 7 <= IF {Bust EXEC} {Reset EXEC {60} {150} ux 1 > IFELSE tm = {2 40 SETSPOTSTATELOCAL {1 SWAP SETSPOTSTATELOCAL} [20 50] FOREACH} tm ALARMEXEC } wp GETSPOTSTATE 21 > IFELSE } wp 1 == IFELSE } ss 5 == IF } ENDSCRIPT ENDSPOT DOOR ID 10 DONTMOVEHERE OUTLINE 11,305 53,305 53,340 11,340 LOC 30,335 PICTS 10,0,0 11,0,0 ENDPICTS SCRIPT ON SELECT { {GLOBAL} [Xexit] FOREACH Xexit EXEC "Sorry! Split is not available due to room space restrictions!" LOCALMSG } ENDSCRIPT ENDDOOR DOOR ID 20 DONTMOVEHERE OUTLINE 65,305 103,305 103,340 65,340 LOC 82,334 PICTS 10,0,0 12,0,0 ENDPICTS SCRIPT ON SELECT { {GLOBAL} [Xexit DDown std wp Click] FOREACH Xexit EXEC Click EXEC DDown EXEC } ENDSCRIPT ENDDOOR DOOR ID 30 DONTMOVEHERE OUTLINE 115,305 155,305 155,340 115,340 LOC 131,336 PICTS 10,0,0 13,0,0 ENDPICTS SCRIPT ON SELECT { {GLOBAL} [Dealer dx User ux wp ins bj Bet Cred Click XIns Xexit Rtable UF UBal Chips] FOREACH Xexit EXEC Click EXEC XIns EXEC } ENDSCRIPT ENDDOOR DOOR ID 11 DONTMOVEHERE OUTLINE 174,334 195,334 195,352 174,352 LOC 183,352 SCRIPT ON SELECT {{GLOBAL} [Bet BetIT UBet UBal Cred] FOREACH 5 Betx = BetIT EXEC UBet EXEC} ENDSCRIPT ENDDOOR DOOR ID 12 DONTMOVEHERE OUTLINE 211,334 228,334 228,350 210,350 LOC 219,352 SCRIPT ON SELECT {{GLOBAL} [Bet BetIT UBet UBal Cred] FOREACH 5 Betx = BetIT EXEC UBet EXEC} ENDSCRIPT ENDDOOR DOOR ID 13 DONTMOVEHERE OUTLINE 246,335 264,335 264,352 246,352 LOC 254,353 SCRIPT ON SELECT {{GLOBAL} [Bet BetIT UBet UBal Cred] FOREACH 25 Betx = BetIT EXEC UBet EXEC} ENDSCRIPT ENDDOOR DOOR ID 14 DONTMOVEHERE OUTLINE 280,335 300,335 300,352 280,352 LOC 289,353 SCRIPT ON SELECT {{GLOBAL} [Bet BetIT UBet UBal Cred] FOREACH 100 Betx = BetIT EXEC UBet EXEC} ENDSCRIPT ENDDOOR DOOR ID 15 DONTMOVEHERE OUTLINE 317,335 336,335 336,352 317,352 LOC 325,353 SCRIPT ON SELECT {{GLOBAL} [Bet BetIT UBet UBal Cred] FOREACH 100 Betx = BetIT EXEC UBet EXEC} ENDSCRIPT ENDDOOR DOOR ID 40 DONTMOVEHERE OUTLINE 358,305 399,305 399,338 358,338 LOC 381,335 PICTS 10,0,0 14,0,0 17,0,-1 ENDPICTS SCRIPT ON SELECT { {GLOBAL} [dx ux xa xx ins std bj Click] FOREACH ME GETSPOTSTATE ss = {"Not ready..." SAY} ss 0 == IF Click EXEC 0 50 SETSPOTSTATELOCAL 0 20 SETSPOTSTATELOCAL {1 80 SETALARM ; Refresh with a new pack of cards {0 SWAP SETSPOTSTATE} [21 22 31 32 61 62 63 64] FOREACH ; Zero dealer/player points {0 SWAP SETSPOTSTATELOCAL} [1 2 100 201 202 300] FOREACH ; and stuff 0 dx = 0 ux = 20 ARRAY xa = 0 xx = 0 ins = 0 std = 0 bj = 1 70 SETALARM {xa GLOBAL [2 70 GETSPOTSTATE] xa 0 PUT} 20 ALARMEXEC 26 70 SETALARM {xa GLOBAL [1 70 GETSPOTSTATE] xa 1 PUT} 45 ALARMEXEC 52 70 SETALARM {xa GLOBAL [2 70 GETSPOTSTATE] xa 2 PUT} 70 ALARMEXEC 78 70 SETALARM {xa GLOBAL [1 70 GETSPOTSTATE] xa 3 PUT} 95 ALARMEXEC {1 200 SETALARM} 120 ALARMEXEC {1 200 SETALARM} 130 ALARMEXEC {1 200 SETALARM} 140 ALARMEXEC {1 200 SETALARM} 150 ALARMEXEC } ss 1 == IF {1 70 SETALARM {xa GLOBAL xx GLOBAL [2 70 GETSPOTSTATE] xa xx PUT} 20 ALARMEXEC {1 200 SETALARM} 120 ALARMEXEC} ss 2 == IF } ENDSCRIPT ENDDOOR DOOR ID 50 DONTMOVEHERE OUTLINE 409,305 449,305 449,338 409,338 LOC 432,334 PICTS 10,0,0 15,0,0 ENDPICTS SCRIPT ON SELECT { {GLOBAL} [std wp Click Xexit] FOREACH Xexit EXEC Click EXEC {0 SWAP SETSPOTSTATELOCAL} [10 20 30 40 60] FOREACH 1 std = 1 wp = 1 400 SETALARM 40 200 SETALARM } ENDSCRIPT ENDDOOR DOOR ID 60 DONTMOVEHERE OUTLINE 462,305 502,305 502,338 462,338 LOC 484,336 PICTS 10,0,0 16,0,0 ENDPICTS SCRIPT ON SELECT { {GLOBAL} [pass wp Click Xexit bj] FOREACH Xexit EXEC Click EXEC {1 SWAP SETSPOTSTATELOCAL} [10 20 50] FOREACH 2 40 SETSPOTSTATELOCAL 0 30 SETSPOTSTATELOCAL 1 pass = 1 wp = {1 2 SETALARM} bj 1 == IF } ENDSCRIPT ENDDOOR SPOT ID 70 DONTMOVEHERE OUTLINE 436,43 490,43 490,87 436,87 LOC 462,76 SCRIPT ON ENTER { {GLOBAL} [BJackPrevRoom pcards tp NewPack Bet Cred BJtDEF RInit UBal] FOREACH {"Sorry! You must load the scrips in the BlackJack Entrance room!" LOCALMSG BJackPrevRoom GOTOROOM} BJtDEF 1 <> IF {"You are using an old client! This game will not work fine for you" ROOMMSG} IPTVERSION 1 < IF 0 Bet = {500 Cred =} Cred 0 == IF NewPack EXEC {RInit EXEC UBal EXEC {"FbjBet.wav" SOUND} 180 ALARMEXEC} NBRROOMUSERS 1 == IF "Script And Graphics by XTô ©2000" STATUSMSG } ON ALARM { {GLOBAL} [pcards tp Card NewPack] FOREACH pcards LENGTH pl = pcards tp = pl RANDOM cp = pcards cp GET Card = card ME SETSPOTSTATELOCAL pl -- pl ARRAY tp = 0 ic = 0 xc = {{pcards xc GET tp ic PUT ic ++} xc cp <> IF xc ++} {xc pl <=} WHILE tp pcards = pcards LENGTH pl = {NewPack EXEC} tp LENGTH 0 == IF } ON LEAVE {; Delete DEFs to release Client Memory's {GLOBAL} [NewPack XCards CardsA CoverA JokerA CardsB CoverB JokerB pc Cards Cover Joker Dealer User XCover SumCards BlackJack] FOREACH {GLOBAL} [Cred Bet Bust Insurance Reset Click Chips RTable Pay Rinit XIns Xexit XPUT DPUT UF ACE BetIT UPcf UBet URes UBal BJtDEF] FOREACH Bet Cred += {RInit EXEC} NBRROOMUSERS 1 == IF {0 SWAP =} [NewPack XCards CardsA CoverA JokerA CardsB CoverB JokerB pc Cards Cover Joker Dealer User XCover SumCards] FOREACH {0 SWAP =} [Bust Insurance Reset Click Chips RTable Pay Rinit XIns Xexit XPUT DPUT UF ACE BetIT UPcf UBet URes UBal BlackJack] FOREACH 0 BJtDEF = } ENDSCRIPT ENDSPOT SPOT ID 80 OUTLINE 245,191 282,191 282,229 245,229 LOC 263,211 PICTS 10,-2,0 20,0,0 21,0,0 22,0,0 23,0,0 24,0,0 25,0,0 26,0,0 27,0,0 28,0,0 29,0,0 30,0,0 31,0,0 32,0,0 33,0,0 34,0,0 35,0,0 36,0,0 37,0,0 38,0,0 39,0,0 ENDPICTS SCRIPT ON ALARM { {GLOBAL} [XCards CardsA CoverA CardsB CoverB pc Cards Cover] FOREACH XCards EXEC ; Switch Pack of cards } ENDSCRIPT ENDSPOT SPOT ID 100 OUTLINE 14,10 64,10 64,55 14,55 LOC 35,41 SCRIPT ON INCHAT {nDoIt GLOBAL nDoIt EXEC} ENDSCRIPT ENDSPOT SPOT ID 1 OUTLINE 437,95 462,95 462,120 437,120 LOC 450,113 SCRIPT ;Banker Credits ON ALARM { {GLOBAL} [Bet Cred ins Res] FOREACH {{"Fbjpush.wav" SOUND} 40 ALARMEXEC} {{"Fbjdwin.wav" SOUND} 40 ALARMEXEC Bet -1 * Res =} 1 GETSPOTSTATE 2 GETSPOTSTATE == IFELSE 80 300 SETALARM } ENDSCRIPT ENDSPOT SPOT ID 2 OUTLINE 466,95 490,95 490,120 466,120 LOC 477,114 SCRIPT ;Player Credits ON ALARM { {GLOBAL} [Dealer dx User ux wp Bet Cred ins bj pass dbl Chips Chipsbj Pay RTable Res] FOREACH {RTable EXEC} ins 1 > {pass 1 == bj 1 == AND} OR IF Pay EXEC } ENDSCRIPT ENDSPOT SPOT ID 201 OUTLINE 437,126 462,126 462,146 437,146 LOC 450,146 ENDSPOT SPOT ID 202 OUTLINE 466,126 490,126 490,146 466,146 LOC 479,145 ENDSPOT SPOT ID 300 OUTLINE 437,153 462,153 462,174 437,174 LOC 450,172 SCRIPT ON ALARM { {GLOBAL} [Bet Cred URes UBal Res] FOREACH 0 80 SETSPOTSTATE {0 SWAP SETSPOTSTATELOCAL} [10 20 30 40 50 60 200] FOREACH {"FbjBet.wav" SOUND} 60 ALARMEXEC URes EXEC {0 SWAP SETSPOTSTATE} [51 52 53] FOREACH UBal EXEC 0 Bet = } ENDSCRIPT ENDSPOT DOOR ID 31 OUTLINE 116,107 123,107 123,119 116,119 LOC 120,112 PICTS 10,0,0 10,0,0 40,0,0 41,0,0 42,0,0 43,0,0 44,0,0 45,0,0 46,0,0 47,0,0 48,0,0 49,0,0 50,0,0 ENDPICTS ENDDOOR DOOR ID 32 OUTLINE 124,107 131,107 131,119 124,119 LOC 128,112 PICTS 10,0,0 10,0,0 40,0,0 41,0,0 42,0,0 43,0,0 44,0,0 45,0,0 46,0,0 47,0,0 48,0,0 49,0,0 50,0,0 ENDPICTS ENDDOOR DOOR ID 21 OUTLINE 131,278 139,278 140,291 131,291 LOC 135,285 PICTS 10,0,0 10,0,0 40,0,0 41,0,0 42,0,0 43,0,0 44,0,0 45,0,0 46,0,0 47,0,0 48,0,0 49,0,0 50,0,0 ENDPICTS ENDDOOR DOOR ID 22 OUTLINE 140,278 149,278 149,291 140,291 LOC 145,285 PICTS 10,0,0 10,0,0 40,0,0 41,0,0 42,0,0 43,0,0 44,0,0 45,0,0 46,0,0 47,0,0 48,0,0 49,0,0 50,0,0 ENDPICTS ENDDOOR SPOT ID 400 OUTLINE 466,153 490,153 490,174 466,174 LOC 477,168 PICTS 10,0,0 10,0,0 40,0,0 41,0,0 42,0,0 43,0,0 44,0,0 45,0,0 46,0,0 47,0,0 48,0,0 49,0,0 50,0,0 ENDPICTS SCRIPT ON ALARM {{GLOBAL} [Dealer dx User ux wp std ins bj UF RTable] FOREACH RTable EXEC} ENDSCRIPT ENDSPOT SPOT ID 41 OUTLINE 494,367 500,367 500,377 494,377 LOC 497,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 42 OUTLINE 487,367 493,367 493,377 487,377 LOC 490,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 43 OUTLINE 480,367 486,367 486,377 480,377 LOC 483,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 44 OUTLINE 473,367 479,367 479,377 473,377 LOC 476,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 45 OUTLINE 466,367 472,367 472,377 466,377 LOC 469,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 46 OUTLINE 459,367 465,367 465,377 459,377 LOC 462,372 PICTS 10,0,0 220,0,0 ENDPICTS ENDSPOT SPOT ID 51 OUTLINE 394,367 400,367 400,377 394,377 LOC 397,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 52 OUTLINE 387,367 393,367 393,377 387,377 LOC 390,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 53 OUTLINE 380,367 386,367 386,377 380,377 LOC 383,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 61 OUTLINE 117,367 123,367 123,377 117,377 LOC 120,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 62 OUTLINE 110,367 116,367 116,377 110,377 LOC 113,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 63 OUTLINE 103,367 109,367 109,377 103,377 LOC 106,372 PICTS 10,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS ENDSPOT SPOT ID 64 OUTLINE 96,367 102,367 102,377 96,377 LOC 99,372 PICTS 10,0,0 220,0,0 ENDPICTS ENDSPOT DOOR ID 150 DONTMOVEHERE OUTLINE 446,6 501,6 501,28 446,28 LOC 473,18 PICTS 100,0,0 ENDPICTS SCRIPT ON SELECT { SiteAddress GLOBAL "http://" SiteAddress & ":9990/palace/media/BlackJack.html" & NETGOTO } ENDSCRIPT ENDDOOR ENDROOM