ROOM ID 12316 PRIVATE NOPAINTING NOCYBORGS HIDDEN NAME "Knight Slot Machine" PICT "download.gif" ARTIST "XT" PICTURE ID 203 NAME "Knight.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 "KnightHelm1.gif" ENDPICTURE PICTURE ID 302 NAME "KnightHelm2.gif" ENDPICTURE PICTURE ID 303 NAME "KnightHelm3.gif" ENDPICTURE PICTURE ID 304 NAME "KnightHelm4.gif" ENDPICTURE PICTURE ID 401 NAME "KnightBar11.gif" ENDPICTURE PICTURE ID 402 NAME "KnightBar12.gif" ENDPICTURE PICTURE ID 403 NAME "KnightBar13.gif" ENDPICTURE PICTURE ID 404 NAME "KnightBar14.gif" ENDPICTURE PICTURE ID 501 NAME "KnightBShield1.gif" ENDPICTURE PICTURE ID 502 NAME "KnightBShield2.gif" ENDPICTURE PICTURE ID 503 NAME "KnightBShield3.gif" ENDPICTURE PICTURE ID 504 NAME "KnightBShield4.gif" ENDPICTURE PICTURE ID 601 NAME "KnightBar21.gif" ENDPICTURE PICTURE ID 602 NAME "KnightBar22.gif" ENDPICTURE PICTURE ID 603 NAME "KnightBar23.gif" ENDPICTURE PICTURE ID 604 NAME "KnightBar24.gif" ENDPICTURE PICTURE ID 701 NAME "KnightRShield1.gif" ENDPICTURE PICTURE ID 702 NAME "KnightRShield2.gif" ENDPICTURE PICTURE ID 703 NAME "KnightRShield3.gif" ENDPICTURE PICTURE ID 704 NAME "KnightRShield4.gif" ENDPICTURE PICTURE ID 801 NAME "KnightBar31.gif" ENDPICTURE PICTURE ID 802 NAME "KnightBar32.gif" ENDPICTURE PICTURE ID 803 NAME "KnightBar33.gif" ENDPICTURE PICTURE ID 804 NAME "KnightBar34.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 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 UWin UPcf PR] FOREACH {0 SWAP =} [UCred UWin UPcf PR] FOREACH } ON SELECT { {GLOBAL} [Win Cred Bet UCred 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,1,0 302,1,0 303,1,0 304,1,0 401,1,0 402,1,0 403,1,0 404,1,0 501,1,0 502,1,0 503,1,0 504,1,0 601,0,0 602,0,0 603,0,0 604,0,0 701,1,0 702,1,0 703,1,0 704,1,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,1,0 302,1,0 303,1,0 304,1,0 401,1,0 402,1,0 403,1,0 404,1,0 501,1,0 502,1,0 503,1,0 504,1,0 601,0,0 602,0,0 603,0,0 604,0,0 701,1,0 702,1,0 703,1,0 704,1,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,1,0 302,1,0 303,1,0 304,1,0 401,1,0 402,1,0 403,1,0 404,1,0 501,1,0 502,1,0 503,1,0 504,1,0 601,0,0 602,0,0 603,0,0 604,0,0 701,1,0 702,1,0 703,1,0 704,1,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 ; Helms {[400 800 1200] Bp GET win = "SlotMess.wav" SOUND "@30,30 !You got three Helms!" ROOMMSG} spin "000" == IF ; Red Shields {[50 100 150] Bp GET win = "SlotMedPay.wav" SOUND} spin "444" == IF ; Black Shields {[30 60 90] Bp GET win = "SlotWin.wav" SOUND} spin "222" == IF ; Bars {[20 40 60] Bp GET win = "SlotMedPay.wav" SOUND} spin "555" == IF {[15 30 45] Bp GET win = "SlotMedPay.wav" SOUND} spin "333" == IF {[4 8 12] Bp GET win = "SlotSingPay.wav" SOUND} spin "111" == IF ; Any two Helms {[8 16 24] Bp GET win = "SlotSingPay.wav" SOUND} a 0 == b 0 == AND c 0 <> AND IF {[8 16 24] Bp GET win = "SlotSingPay.wav" SOUND} b 0 == c 0 == AND a 0 <> AND IF {[8 16 24] Bp GET win = "SlotSingPay.wav" SOUND} a 0 == c 0 == AND b 0 <> AND IF ; Any one Helm {[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 ; Any combination of Helm - BShield - RShield {x ={[10 20 30] Bp GET win = "SlotSingPay.wav" SOUND BREAK} x spin == IF} ["024" "240" "204" "402" "420" "042"] FOREACH {; Update Credits Cred win + Cred = ; Now setup machine Panel ; Setup Paid UWin EXEC ; Setup Credits in panel UCred EXEC } win 0 <> IF ; Only do it if user won something 0 Bet = Bet 1 + 80 SETSPOTSTATE 1 20 SETSPOTSTATE 0 30 SETSPOTSTATE 1 40 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 ; Update 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