ROOM	
	ID 12314
	PRIVATE
	NOPAINTING
	NOCYBORGS
	HIDDEN
	NAME "Galaxy Slot Machine"
	PICT "download.gif"
	ARTIST "XT"
	PICTURE ID 203 NAME "Galaxy.gif" ENDPICTURE
	PICTURE ID 204 NAME "SpinReady.gif" ENDPICTURE
	PICTURE ID 205 NAME "SpinPushed.gif" ENDPICTURE
	PICTURE ID 206 NAME "XTGnone.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 207 NAME "BetOneReady.gif" ENDPICTURE
	PICTURE ID 208 NAME "BetOnePushed.gif" ENDPICTURE
	PICTURE ID 220 NAME "BetMaxReady.gif" ENDPICTURE
	PICTURE ID 221 NAME "BetMaxPushed.gif" 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 250 NAME "Coins3.gif" ENDPICTURE
	PICTURE ID 251 NAME "Coins7.gif" ENDPICTURE
	PICTURE ID 252 NAME "Coins8.gif" ENDPICTURE
	PICTURE ID 301 NAME "GalaxyRocket1.gif" ENDPICTURE
	PICTURE ID 302 NAME "GalaxyRocket2.gif" ENDPICTURE
	PICTURE ID 303 NAME "GalaxyRocket3.gif" ENDPICTURE
	PICTURE ID 304 NAME "GalaxyRocket4.gif" ENDPICTURE
	PICTURE ID 401 NAME "GalaxyBar11.gif" ENDPICTURE
	PICTURE ID 402 NAME "GalaxyBar12.gif" ENDPICTURE
	PICTURE ID 403 NAME "GalaxyBar13.gif" ENDPICTURE
	PICTURE ID 404 NAME "GalaxyBar14.gif" ENDPICTURE
	PICTURE ID 501 NAME "GalaxyPlanet1.gif" ENDPICTURE
	PICTURE ID 502 NAME "GalaxyPlanet2.gif" ENDPICTURE
	PICTURE ID 503 NAME "GalaxyPlanet3.gif" ENDPICTURE
	PICTURE ID 504 NAME "GalaxyPlanet4.gif" ENDPICTURE
	PICTURE ID 601 NAME "GalaxyBar21.gif" ENDPICTURE
	PICTURE ID 602 NAME "GalaxyBar22.gif" ENDPICTURE
	PICTURE ID 603 NAME "GalaxyBar23.gif" ENDPICTURE
	PICTURE ID 604 NAME "GalaxyBar24.gif" ENDPICTURE
	PICTURE ID 701 NAME "GalaxySat1.gif" ENDPICTURE
	PICTURE ID 702 NAME "GalaxySat2.gif" ENDPICTURE
	PICTURE ID 703 NAME "GalaxySat3.gif" ENDPICTURE
	PICTURE ID 704 NAME "GalaxySat4.gif" ENDPICTURE
	PICTURE ID 801 NAME "GalaxyBar31.gif" ENDPICTURE
	PICTURE ID 802 NAME "GalaxyBar32.gif" ENDPICTURE
	PICTURE ID 803 NAME "GalaxyBar33.gif" ENDPICTURE
	PICTURE ID 804 NAME "GalaxyBar34.gif" ENDPICTURE
	SPOT
		ID 2000
		OUTLINE 245,185  267,185  267,200  245,200
		LOC 256,192
		PICTS 203,0,0 ENDPICTS
		ENDSPOT
	DOOR
		ID 30
		NAME "Spin"
		DONTMOVEHERE
		OUTLINE 173,342  215,342  207,374  163,374
		LOC 189,359
		PICTS 206,0,0 204,0,0 205,0,0 ENDPICTS
		SCRIPT
;~MediaList~;Click,Silent,SlotWheel4,SlotSingPay,SlotMedPay,SlotWin,SlotMess,SlotCashOut,SlotBillsnd		
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { {GLOBAL} [Cred Bet UPcf UCred UWin PR] FOREACH
{1 20 SETSPOTSTATE 0 30 SETSPOTSTATE 1 40 SETSPOTSTATE} NBRROOMUSERS 1 == IF
{500 Cred =} Cred 0 == IF 0 Bet =
{".wav" & SOUND} ["Silent" "SlotWheel4" "SlotSingPay" "SlotMedPay"] FOREACH
{".wav" & SOUND} ["SlotWin" "SlotMess" "SlotCashOut" "SlotBillsnd"] FOREACH
;
{; Generic Counter Field Update Routine (i.e SPOT 60 to 63, SPOT 64(Signal Field not Available Here))
; i.e: {{GLOBAL} [UPcf  s] FOREACH s Vn = 60 Spt = 4 Ns = 0 Sign = UPcf EXEC} Ucf DEF
;    s Vn =   ; Variable With The Numeric Value for Update
;  60 Spt =   ; SpotID Of The First Spot
;    4 Ns =   ; Number Of Spots In The Chain (Ignore the eventual spot of the signal)
;  0 Sign =   ; Signal Field Available? (0=No, 1=Yes)
Vn ITOA "-" STRINDEX fl =
{Vn -1 * Vn =} fl -1 > IF
"000" Vn ITOA & "@" & Va =
Va "@" STRINDEX 1 - Vl =
Vn ITOA "@" & "@" STRINDEX 1 - Vbl =
0 Vi = Va Vl 1 SUBSTRING ATOI 1 + Spt SETSPOTSTATE Vi++
{{Va Vl Vi - 1 SUBSTRING ATOI 1 +} {0} Vbl Vi 1 - > IFELSE Spt Vi + SETSPOTSTATE Vi++} {Vi Ns <} WHILE
{fl -1 > Spt Vi + SETSPOTSTATE} Sign IF
} UPcf DEF
;
{{GLOBAL} [UPcf Cred] FOREACH Cred Vn = 70 Spt = 5 Ns = 0 Sign = UPcf EXEC
} UCred DEF
{{GLOBAL} [UPcf Win] FOREACH Win Vn = 60 Spt = 4 Ns = 0 Sign = UPcf EXEC
} UWin DEF
;
{{0 SWAP SETSPOTSTATE} [61 62 63] FOREACH 1 60 SETSPOTSTATE
} PR DEF
0 ME SETSPOTSTATE
{{4 SWAP SETSPOTSTATE} [12 22 32] FOREACH 1 60 SETSPOTSTATE
PR EXEC UCred EXEC Bet 1 + 80 SETSPOTSTATE
0 1001 SETSPOTSTATE
} NBRROOMUSERS 1 == IF
"Script And Graphics by XTô ©2000" STATUSMSG
{"You are using an old client! This game will not work fine for you" ROOMMSG} IPTVERSION 1 < IF
}
ON LEAVE { {10 SELECT} NBRROOMUSERS 1 == IF {GLOBAL} [UCred PR] FOREACH {0 SWAP =} [UCred PR] FOREACH }
ON SELECT { {GLOBAL} [Win Cred Bet UCred UPcf PR] FOREACH
{"You have to bet first..." ROOMMSG EXIT} Bet 1 < IF
{"Not ready..." ROOMMSG EXIT} 1001 GETSPOTSTATE 7 == IF
"Click" SOUND 2 ME SETSPOTSTATE 0 win =
; Reset Win panel
{0 SWAP SETSPOTSTATE} [61 62 63] FOREACH 1 60 SETSPOTSTATE
; Update Credits
Cred Bet - Cred = PR EXEC UCred EXEC
; Reset Bet =
Bet 1 + 80 SETSPOTSTATE 7 1001 SETSPOTSTATE 2 ME SETSPOTSTATE
{0 SWAP SETSPOTSTATE} [20 30 40] FOREACH
100 12 SETALARM ; Start machine
}
		ENDSCRIPT
		ENDDOOR
	SPOT
		ID 12
		OUTLINE 179,69  235,69  234,105  179,105
		LOC 208,87
		PICTS 301,0,0 302,0,0 303,0,0 304,0,0 401,0,0 402,0,0 403,0,0 404,0,0 501,0,0 502,0,0 503,0,0 504,0,0 601,0,0 602,0,0 603,0,0 604,0,0 701,0,0 702,0,0 703,0,0 704,0,0 801,1,0 802,1,0 803,1,0 804,1,0 ENDPICTS
		SCRIPT
ON ALARM { "SlotWheel4.wav" SOUND
0 i = {{24 RANDOM SWAP SETSPOTSTATE} [12 22 32] FOREACH i ++} {i 15 <} WHILE
0 i = {{24 RANDOM SWAP SETSPOTSTATE} [22 32] FOREACH i ++} {i 15 <} WHILE
0 i = {{24 RANDOM SWAP SETSPOTSTATE} [32 32] FOREACH i ++} {i 15 <} WHILE
420 1001 SETALARM
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 22
		OUTLINE 238,69  293,69  294,106  238,106
		LOC 266,87
		PICTS 301,0,0 302,0,0 303,0,0 304,0,0 401,0,0 402,0,0 403,0,0 404,0,0 501,0,0 502,0,0 503,0,0 504,0,0 601,0,0 602,0,0 603,0,0 604,0,0 701,0,0 702,0,0 703,0,0 704,0,0 801,1,0 802,1,0 803,1,0 804,1,0 ENDPICTS
		ENDDOOR
	SPOT
		ID 32
		OUTLINE 300,69  354,69  354,106  300,106
		LOC 327,87
		PICTS 301,0,0 302,0,0 303,0,0 304,0,0 401,0,0 402,0,0 403,0,0 404,0,0 501,0,0 502,0,0 503,0,0 504,0,0 601,0,0 602,0,0 603,0,0 604,0,0 701,0,0 702,0,0 703,0,0 704,0,0 801,1,0 802,1,0 803,1,0 804,1,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 1001
		OUTLINE 427,55  466,55  466,83  427,83
		LOC 447,66
		SCRIPT
ON ALARM { {GLOBAL} [Cred win Bet UCred UWin PR] FOREACH
0 win = Bet 1 - Bp =
12 GETSPOTSTATE 4 / a =
22 GETSPOTSTATE 4 / b =
32 GETSPOTSTATE 4 / c =
a ITOA b ITOA & c ITOA & spin =
{EXIT} Bet 1 < IF
; Pay table
; Satellits, Rockets and Planets
{[2500 5000 10000] Bp GET win = "SlotMess.wav" SOUND "@30,30 !You got three Satellits!" ROOMMSG} spin "444" == IF
{[400 800 1200] Bp GET win = "SlotMedPay.wav" SOUND "@30,30 !You got three rockets!" ROOMMSG} spin "000" == IF
{[200 400 600] Bp GET win = "SlotMedPay.wav" SOUND} spin "222" == IF
; Bars
{[100 200 300] Bp GET win = "SlotMedPay.wav" SOUND} spin "555" == IF
{[50 100 150] Bp GET win = "SlotMedPay.wav" SOUND} spin "333" == IF
{[30 60 90] Bp GET win = "SlotMedPay.wav" SOUND} spin "111" == IF
; Rockets
{[15 30 45] Bp GET win = "SlotSingPay.wav" SOUND} a 0 == b 0 == AND c 0 <> AND IF
{[15 30 45] Bp GET win = "SlotSingPay.wav" SOUND} b 0 == c 0 == AND a 0 <> AND IF
{[15 30 45] Bp GET win = "SlotSingPay.wav" SOUND} a 0 == c 0 == AND b 0 <> AND IF
{[3 6 9] Bp GET win = "SlotSingPay.wav" SOUND} a 0 == b 0 <> AND c 0 <> AND IF
{[3 6 9] Bp GET win = "SlotSingPay.wav" SOUND} b 0 == a 0 <> AND c 0 <> AND IF
{[3 6 9] Bp GET win = "SlotSingPay.wav" SOUND} c 0 == a 0 <> AND b 0 <> AND IF
{; Update Credits
Cred win + Cred =
; Now setup machine Panel
; Update Paid
UWin EXEC
; Update Credits
UCred EXEC
} win 0 <> IF  ; Only do it if user won something
0 Bet = Bet 1 + 80 SETSPOTSTATE
1 20 SETSPOTSTATE 1 40 SETSPOTSTATE 0 30 SETSPOTSTATE 0 ME SETSPOTSTATE
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 10
		NAME "Reset"
		DONTMOVEHERE
		OUTLINE 77,342  116,342  104,373  62,373
		LOC 84,355
		SCRIPT
ON SELECT { Cred GLOBAL 0 x =
0 1001 SETSPOTSTATE
{1 SWAP SETSPOTSTATE} [30 60 70] FOREACH
{0 SWAP SETSPOTSTATE} [61 62 63 71 72 73 74] FOREACH
{s = {1 x = BREAK} s GETSPOTSTATE 1 > IF} [70 71 72 73 74] FOREACH
{"SlotCashOut.wav" SOUND {90 SETSPOTSTATE} [1 2 3 2 3 2 3 1 1 0] FOREACH} x IF
}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 20
		DONTMOVEHERE
		OUTLINE 126,342  166,342  155,373  115,373
		LOC 141,358
		PICTS 206,0,0 207,0,0 208,0,0 ENDPICTS
		SCRIPT
ON SELECT { Bet GLOBAL
{"Not ready..." ROOMMSG EXIT} 1001 GETSPOTSTATE 7 == IF
{2 ME SETSPOTSTATE "Click" SOUND {1 ME SETSPOTSTATE} 100 ALARMEXEC} ME GETSPOTSTATE 1 == IF
{Bet 1 + Bet = Bet 1 + 80 SETSPOTSTATE 1 30 SETSPOTSTATE} Bet 3 < IF
0 1001 SETSPOTSTATE
}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 40
		DONTMOVEHERE
		OUTLINE 220,343  261,343  255,373  212,373
		LOC 237,358
		PICTS 206,0,0 220,0,0 221,0,0 ENDPICTS
		SCRIPT
ON SELECT { {GLOBAL} [Bet UCred Cred PR] FOREACH
{"Not ready..." ROOMMSG EXIT} 1001 GETSPOTSTATE 7 == IF
{2 ME SETSPOTSTATE "Click" SOUND} ME GETSPOTSTATE 1 == IF
3 Bet = Bet 1 + 80 SETSPOTSTATE 1 30 SETSPOTSTATE 7 1001 SETSPOTSTATE
; Setup Credits in panel
Cred Bet - Cred = PR EXEC UCred EXEC
{0 SWAP SETSPOTSTATE} [20 30 40] FOREACH
100 12 SETALARM ; Start machine
}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 50
		DONTMOVEHERE
		OUTLINE 310,165  378,165  378,217  310,217
		LOC 344,190
		SCRIPT
ON SELECT { {GLOBAL} [Cred UCred] FOREACH 0 x =
{s = {1 x = BREAK} s GETSPOTSTATE 1 > IF} [70 71 72 73 74] FOREACH
{"You still have " Cred ITOA & " Credits" & LOCALMSG} {"SlotBillsnd.wav" SOUND 500 Cred += UCred EXEC} x IFELSE
0 1001 SETSPOTSTATE
}
		ENDSCRIPT
		ENDDOOR
	SPOT
		ID 60
		OUTLINE 372,237  380,237  380,250  372,250
		LOC 376,243
		PICTS 206,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 365,237  373,237  373,250  365,250
		LOC 369,243
		PICTS 206,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 358,237  366,237  366,250  358,250
		LOC 362,243
		PICTS 206,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 351,237  359,237  359,250  351,250
		LOC 355,243
		PICTS 206,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 344,237  350,237  350,250  344,250
		LOC 346,243
		PICTS 206,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 70
		OUTLINE 372,255  380,255  380,269  372,269
		LOC 376,261
		PICTS 206,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 71
		OUTLINE 365,255  373,255  373,269  365,269
		LOC 369,261
		PICTS 206,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 72
		OUTLINE 358,255  366,255  366,269  358,269
		LOC 362,261
		PICTS 206,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 73
		OUTLINE 351,255  359,255  359,269  351,269
		LOC 355,261
		PICTS 206,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 74
		OUTLINE 344,255  352,255  352,269  344,269
		LOC 348,261
		PICTS 206,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 80
		OUTLINE 372,272  380,272  380,285  372,285
		LOC 376,278
		PICTS 206,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 90
		OUTLINE 332,330  352,330  352,350  332,350
		LOC 342,340
		PICTS 206,0,0 250,0,0 251,0,0 252,0,0 ENDPICTS
		ENDSPOT
	ENDROOM