RANDOMIZE TIMER GAMEPAD 1 P=1000 PM=1 UN=5 ROUND=1 SPINS=0 RESET: IF ROUND=4 THEN GOTO GAME UN=UN-1 IF UN<0 THEN UN=5 ROUND=ROUND+1 GOTO SPEC END IF SPRITE OFF 0 CLS RANDOMIZE TIMER CX=88 Q$="" AT=0 A1$="" A2$="" A3$="" AA$="" A1=0 A2=0 A3=0 CA=0 AC=0 L1$="" L2$="" L3$="" RAN=0 QT=0 QT=RND(3) IF QT=0 THEN GOTO QUE0 IF QT=1 THEN GOTO QUE1 IF QT=2 THEN GOTO QUE2 IF QT=3 THEN GOTO QUE3 QUE0: AT=0 L1$="WHO" RAN=RND(5) IF RAN=0 THEN L2$="ATE THE COOKIES" IF RAN=1 THEN L2$="STOLE A DOG" IF RAN=2 THEN L2$="ATE MY CHIPS" IF RAN=3 THEN L2$="KILLED SOMEONE" IF RAN=4 THEN L2$="SMOKES" IF RAN=5 THEN L2$="LIKES DIVING" A1$="BOB" A2$="JEFF" A3$="ASHLEY" CA=RND(2) GOTO COMP QUE1: AT=0 L1$="WHAT IS" RAN=RND(5) IF RAN=0 THEN L2$="LIFE" IF RAN=1 THEN L2$="THAT" IF RAN=2 THEN L2$="THIS" IF RAN=3 THEN L2$="THE NECTO EMPIRE" IF RAN=4 THEN L2$="LOWRES NX" IF RAN=5 THEN L2$="THE NAME OF BOB" FOR I=1 TO 3 RAN=RND(20) IF RAN=0 THEN AA$="42" IF RAN=1 THEN AA$="JOHN" IF RAN=2 THEN AA$="SOGGY CHEESE" IF RAN=3 THEN AA$="A BROKEN CAT" IF RAN=4 THEN AA$="JAMES" IF RAN=5 THEN AA$="JEROME" IF RAN=6 THEN AA$="TV" IF RAN=7 THEN AA$="ELONGATION" IF RAN=8 THEN AA$="ROMANCE" IF RAN=9 THEN AA$="SMELLY SOCKS" IF RAN=10 THEN AA$="ROME" IF RAN=11 THEN AA$="PROGRAMING" IF RAN=12 THEN AA$="BROKEN CHAIRS" IF RAN=13 THEN AA$="TELEPHONES" IF RAN=14 THEN AA$="MY KIDS" IF RAN=15 THEN AA$="TREES" IF RAN=16 THEN AA$="HECTOR" IF RAN=17 THEN AA$="CHEESE" IF RAN=18 THEN AA$="WHEELIE BINS" IF RAN=19 THEN AA$="MAGIC" IF RAN=20 THEN AA$="ASTROIDS" IF I=1 THEN A1$=AA$ IF I=2 THEN A2$=AA$ IF I=3 THEN A3$=AA$ NEXT I CA=RND(2) GOTO COMP QUE2: AT=0 L1$="WHY" RAN=RND(5) IF RAN=0 THEN L2$="AM I GREEN" IF RAN=1 THEN L2$="AM I ALIVE" IF RAN=2 THEN L2$="IS JOHN ALIVE" IF RAN=3 THEN L2$="IS THE AIR REAL" IF RAN=4 THEN L2$="DO PEOPLE BREATH" IF RAN=5 THEN L2$="DO PEOPLE SMOKE" FOR I=1 TO 3 RAN=RND(20) IF RAN=0 THEN AA$="42" IF RAN=1 THEN AA$="JOHN" IF RAN=2 THEN AA$="SOGGY CHEESE" IF RAN=3 THEN AA$="A BROKEN CAT" IF RAN=4 THEN AA$="JAMES" IF RAN=5 THEN AA$="JEROME" IF RAN=6 THEN AA$="TV" IF RAN=7 THEN AA$="ELONGATION" IF RAN=8 THEN AA$="ROMANCE" IF RAN=9 THEN AA$="SMELLY SOCKS" IF RAN=10 THEN AA$="ROME" IF RAN=11 THEN AA$="PROGRAMING" IF RAN=12 THEN AA$="BROKEN CHAIRS" IF RAN=13 THEN AA$="TELEPHONES" IF RAN=14 THEN AA$="MY KIDS" IF RAN=15 THEN AA$="TREES" IF RAN=16 THEN AA$="HECTOR" IF RAN=17 THEN AA$="CHEESE" IF RAN=18 THEN AA$="WHEELIE BINS" IF RAN=19 THEN AA$="MAGIC" IF RAN=20 THEN AA$="ASTROIDS" IF I=1 THEN A1$=AA$ IF I=2 THEN A2$=AA$ IF I=3 THEN A3$=AA$ NEXT I CA=RND(2) GOTO COMP QUE3: AT=1 L1$="WHEN DID" RAN=RND(5) IF RAN=0 THEN L2$="THE ROMENS" IF RAN=1 THEN L2$="KARREN" IF RAN=2 THEN L2$="YOUR MUM" IF RAN=3 THEN L2$="THE AMERICANS" IF RAN=4 THEN L2$="TIMO KLOSS" IF RAN=5 THEN L2$="THE COOKIES" RAN=RND(5) IF RAN=0 THEN L3$="EAT THE COOKIES" IF RAN=1 THEN L3$="DISCOVER FIRE" IF RAN=2 THEN L3$="DIE" IF RAN=3 THEN L3$="SMOKE A CIGAR" IF RAN=4 THEN L3$="LEAVE" IF RAN=5 THEN L3$="GET DESTROYED" A1=RND(500)+1520 A2=RND(500)+1520 A3=RND(500)+1520 CA=RND(2) GOTO COMP COMP: BG 1 BG COPY 0,0,20,16 TO 0,0 PRINT P PRINT ROUND LOCATE 2,11 PRINT L1$ LOCATE 2,12 PRINT L2$ LOCATE 2,13 PRINT L3$ WAIT 150 CLW PRINT P PRINT ROUND IF AT=0 THEN LOCATE 2,11 PRINT "",A1$ LOCATE 2,12 PRINT "",A2$ LOCATE 2,13 PRINT "",A3$ ELSE LOCATE 2,11 PRINT "",A1 LOCATE 2,12 PRINT "",A2 LOCATE 2,13 PRINT "",A3 END IF DO IF UP TAP(0) AND CX>88 THEN CX=CX-8 IF DOWN TAP(0) AND CX<104 THEN CX=CX+8 SPRITE 0,16,CX,6 IF BUTTON(0) THEN GOTO CHECK WAIT VBL LOOP CHECK: CLW SPRITE OFF 0 IF CX=88 THEN AC=0 IF CX=96 THEN AC=1 IF CX=104 THEN AC=2 IF AC=CA THEN LOCATE 2,11 PRINT "CORRECT" LOCATE 2,12 PRINT "+100" P=P+100*PM ELSE LOCATE 2,11 PRINT "WRONG" LOCATE 2,12 PRINT "-150" P=P-150*PM LOCATE 2,13 IF AT=0 THEN IF CA=0 THEN PRINT A1$ IF CA=1 THEN PRINT A2$ IF CA=2 THEN PRINT A3$ END IF IF AT=1 THEN IF CA=0 THEN PRINT A1 IF CA=1 THEN PRINT A2 IF CA=2 THEN PRINT A3 END IF END IF LOCATE 0,0 PRINT P LOCATE 0,1 PRINT ROUND WAIT 100 GOTO RESET SPEC: CLW LOCATE 2,11 PRINT "END OF ROUND" LOCATE 2,12 PRINT "TIME FOR SPIN" LOCATE 2,13 PRINT "OF LUCK" LOCATE 1,1 PRINT "+100 POINTS" LOCATE 1,2 PRINT "HALVE POINTS" LOCATE 1,3 PRINT "+250 POINTS" LOCATE 1,4 PRINT "DOUBLE POINTS" LOCATE 1,5 PRINT "-100 POINTS" LOCATE 1,6 PRINT "SPIN AGAIN" LOCATE 1,7 PRINT "MEGA JACKPOT" WAIT 100 CX=8 SPINS=RND(100)*2+100 DO SPRITE 0,0,CX,6 SPINS=SPINS-1 CX=CX+4 IF CX=64 THEN CX=8 IF SPINS<0 THEN WAIT 100 IF CX=8 THEN GOTO P100 IF CX=16 THEN GOTO ESS IF CX=24 THEN GOTO P250 IF CX=32 THEN GOTO DOB IF CX=40 THEN GOTO M100 IF CX=48 THEN GOTO SPEC IF CX=56 THEN GOTO JACK CX=CX+4 IF CX=64 THEN CX=8 SPRITE 0,0,CX,6 WAIT 100 IF CX=8 THEN GOTO P100 IF CX=16 THEN GOTO ESS IF CX=24 THEN GOTO P250 IF CX=32 THEN GOTO DOB IF CX=40 THEN GOTO M100 IF CX=48 THEN GOTO SPEC IF CX=56 THEN GOTO JACK END IF WAIT VBL LOOP P100: CLW LOCATE 2,11 PRINT "+100 POINTS" P=P+100*PM WAIT 100 GOTO RESET P250: CLW LOCATE 2,11 PRINT "+250 POINTS" P=P+250*PM WAIT 100 GOTO RESET ESS: CLW LOCATE 2,11 PRINT "HALVED POINTS" P=P/2 WAIT 100 GOTO RESET DOB: CLW LOCATE 2,11 PRINT "DOUBLE POINTS" PM=2 WAIT 100 GOTO RESET M100: CLW LOCATE 2,11 PRINT "-100 POINTS" P=P-100*PM WAIT 100 GOTO RESET JACK: CLW LOCATE 2,11 PRINT "+100 TO 1000 POINTS" P=P+((RND(9)*100)+100)*PM WAIT 100 GOTO RESET GAME: CLW LOCATE 2,12 IF P>0 THEN PRINT "YOU WON",P,"$" IF P<0 THEN PRINT "YOU LOST",P-P-P,"$" IF P=0 THEN PRINT "YOU GAINED NOTHING" #1:MAIN PALETTES 053F2F00003C02070006070B003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 3C3C3C0000243C240014003C3C183C24 0000A4AAEEAAAA000000000000000000 FFFFFFFFF8F0F0F0FFF9C9CFFF9F9FFF FFFFFFFF00000000FF9999FFFFFFFFFF FFFFFFFF1F0F0F0FFF9F93F3FFF9F9FF 2030383C383020000000000000000000 FFFF0000FFFF0000FFFFFFFF00000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 F0F0F0F0F0F0F0F0FF9F9FFFFF9F9FFF 0000000000000000FFFFFFFFFFFFFFFF 0F0F0F0F0F0F0F0FFFF9F9FFFFF9F9FF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 F0F0F0F8FFFFFFFFFF9F9FFFCFC9F9FF 00000000FFFFFFFFFFFFFFFFFF9999FF 0F0F0F1FFFFFFFFFFFF9F9FFF3939FFF #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000010000000000000000 00000000000000000000000000000000 00000000000000000000000000000001 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000010000000000000000 00000000000000000000000000000000 00000000000000000000000000000001 00000001000000000000000000000000 00000000000000000000000000000000 00000000000000010000000100000000 00000000000000000000000000000000 00000000000000000000000000000001 00010001000000000000000000000000 00000000000000000000000000000000 00000000000003010401040104010401 04010401040104010401040104010401 04010401040104010501000000001301 14011401140114011401140114011401 14011401140114011401140114011401 15010000000013011401140114011401 14011401140114011401140114011401 14011401140114011501000000001301 14011401140114011401140114011401 14011401140114011401140114011401 15010000000023012401240124012401 24012401240124012401240124012401 24012401240124012501000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000