ROOM

ID 204

PRIVATE

NOPAINTING

NOCYBORGS

NAME "Cherry Slot Machine"

PICT "download.gif"

ARTIST "XT"

PICTURE ID 203 NAME "Cherry.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 "CherryC1.gif" ENDPICTURE

PICTURE ID 302 NAME "CherryC2.gif" ENDPICTURE

PICTURE ID 303 NAME "CherryC3.gif" ENDPICTURE

PICTURE ID 304 NAME "CherryC4.gif" ENDPICTURE

PICTURE ID 401 NAME "CherryBar11.gif" ENDPICTURE

PICTURE ID 402 NAME "CherryBar12.gif" ENDPICTURE

PICTURE ID 403 NAME "CherryBar13.gif" ENDPICTURE

PICTURE ID 404 NAME "CherryBar14.gif" ENDPICTURE

PICTURE ID 501 NAME "Cherry7Red1.gif" ENDPICTURE

PICTURE ID 502 NAME "Cherry7Red2.gif" ENDPICTURE

PICTURE ID 503 NAME "Cherry7Red3.gif" ENDPICTURE

PICTURE ID 504 NAME "Cherry7Red4.gif" ENDPICTURE

PICTURE ID 601 NAME "CherryBar21.gif" ENDPICTURE

PICTURE ID 602 NAME "CherryBar22.gif" ENDPICTURE

PICTURE ID 603 NAME "CherryBar23.gif" ENDPICTURE

PICTURE ID 604 NAME "CherryBar24.gif" ENDPICTURE

PICTURE ID 701 NAME "Cherry7Green1.gif" ENDPICTURE

PICTURE ID 702 NAME "Cherry7Green2.gif" ENDPICTURE

PICTURE ID 703 NAME "Cherry7Green3.gif" ENDPICTURE

PICTURE ID 704 NAME "Cherry7Green4.gif" ENDPICTURE

PICTURE ID 801 NAME "CherryBar31.gif" ENDPICTURE

PICTURE ID 802 NAME "CherryBar32.gif" ENDPICTURE

PICTURE ID 803 NAME "CherryBar33.gif" ENDPICTURE

PICTURE ID 804 NAME "CherryBar34.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

{"You are using an old client! This game will not work fine for you" ROOMMSG} IPTVERSION 1 < IF

{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

}

ON LEAVE { {10 SELECT} NBRROOMUSERS 1 == IF {GLOBAL} [UCred UPcf PR] FOREACH {0 SWAP =} [UCred UPcf PR] FOREACH }

ON SELECT { {GLOBAL} [Win Cred Bet UCred PR] FOREACH

{" You have to bet first..." ROOMMSG EXIT} Bet 1 < IF

"Click" SOUND 2 ME SETSPOTSTATE 0 win =

{"Not ready..." ROOMMSG EXIT} 1001 GETSPOTSTATE 7 == IF

; Reset Win panel

{0 SWAP SETSPOTSTATE} [61 62 63] FOREACH 1 60 SETSPOTSTATE

; Setup Credits in panel

Cred Bet - Cred = 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,-1,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,-1,0 603,-1,0 604,-1,0 701,0,0 702,0,0 703,0,0 704,0,0 801,0,0 802,0,0 803,0,0 804,0,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

ENDDOOR

SPOT

ID 32

OUTLINE 300,69 354,69 354,106 300,106

LOC 327,87

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

; Sevens

{[800 1600 2400] Bp GET win = "SlotMess.wav" SOUND "@30,30 !You got three green sevens!" ROOMMSG} spin "444" == IF

{[200 400 600] Bp GET win = "SlotMess.wav" SOUND "@30,30 !You got three red sevens!" ROOMMSG} spin "222" == IF

; Bars

{[80 160 240] Bp GET win = "SlotMedPay.wav" SOUND} spin "555" == IF

{[40 80 120] Bp GET win = "SlotMedPay.wav" SOUND} spin "333" == IF

{[20 40 60] Bp GET win = "SlotMedPay.wav" SOUND} spin "111" == IF

; AnyBars

{x ={[10 20 30] Bp GET win = "SlotWin.wav" SOUND BREAK} x spin == IF} ["113" "115" "131" "133" "135" "151" "153" "155"] FOREACH

{x ={[10 20 30] Bp GET win = "SlotWin.wav" SOUND BREAK} x spin == IF} ["311" "313" "315" "331" "335" "351" "353" "355"] FOREACH

{x ={[10 20 30] Bp GET win = "SlotWin.wav" SOUND BREAK} x spin == IF} ["511" "513" "515" "531" "533" "535" "551" "553"] FOREACH

; Cherrys

{[20 40 60] Bp GET win = "SlotMedPay.wav" SOUND} spin "000" == IF

{[5 10 15] Bp GET win = "SlotSingPay.wav" SOUND} a 0 == b 0 == AND c 0 <> AND IF

{[5 10 15] Bp GET win = "SlotSingPay.wav" SOUND} b 0 == c 0 == AND a 0 <> AND IF

{[5 10 15] Bp GET win = "SlotSingPay.wav" SOUND} a 0 == c 0 == AND b 0 <> AND IF

{[2 4 6] Bp GET win = "SlotSingPay.wav" SOUND} a 0 == b 0 <> AND c 0 <> AND IF

{[2 4 6] Bp GET win = "SlotSingPay.wav" SOUND} b 0 == a 0 <> AND c 0 <> AND IF

{[2 4 6] Bp GET win = "SlotSingPay.wav" SOUND} c 0 == a 0 <> AND b 0 <> AND IF

{; Update Credits

Cred win + Cred =

; 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