From: "Justin Mohns" <
[email protected]>
Date: Tue, 28 Jul 1998 17:24:05 PDT
I based this on the code breaking guide by Chris Canfield & David
Ruth. I made this program in QBASIC (for MS-DOS).
----------------------------------------------------------------------
'Nightmare Creatures Passcode Decoder
'By Anapan / Justin Mohns
'Based on a guide by Chris Canfield and David Ruth
CLS
COLOR 1
INPUT "Enter 1 for Ignatius, 2 for Nadia :", CH
INPUT "Enter what level you want to be on (1-21):", LV
INPUT "Enter how many lives you want (<29) :", LI
INPUT "Enter 1 for easy dificulty, 2 for hard :", DF
INPUT "Enter what level of weapon you want (1-4):", WP
AP = 0
IF WP > 2 THEN AP = 1
IF LV < 9 THEN LX = 1
IF LV > 8 AND LV < 17 THEN LX = 2
IF LV > 16 THEN LX = 3
IF LX = 1 AND CH = 1 THEN S1 = 0
IF LX = 2 AND CH = 1 THEN S1 = 1
IF LX = 3 AND CH = 1 THEN S1 = 2
IF LX = 1 AND CH = 2 THEN S1 = 4
IF LX = 2 AND CH = 2 THEN S1 = 5
IF LX = 3 AND CH = 2 THEN S1 = 6
S2 = (LV - 1) MOD 8
S3 = LI \ 4
S4 = ((LI MOD 4) * 2) + AP
IF DF = 1 AND WP = 1 OR 3 THEN S5 = 0
IF DF = 1 AND WP = 2 OR 4 THEN S5 = 1
IF DF = 2 AND WP = 1 OR 3 THEN S5 = 4
IF DF = 2 AND WP = 2 OR 4 THEN S5 = 5
S6 = (LI + LV - 2) MOD 7
S7 = (LV + WP - 1) MOD 7
S8 = (LI + WP - 1) MOD 7
COLOR 3
PRINT ABS(S1); ABS(S2); ABS(S3); ABS(S4); ABS(S5); ABS(S6); ABS(S7);
ABS(S8)
PRINT " ";
COLOR 2
REM PRINT "0 = "; CHR$(127)
REM PRINT "1 = O"
REM PRINT "2 = X"
REM PRINT "3 = "; CHR$(219)
REM PRINT "4 = "; CHR$(24)
REM PRINT "5 = "; CHR$(25)
REM PRINT "6 = "; CHR$(17)
REM PRINT "7 = "; CHR$(16)
F = 0
C = S1
GOTO 10
20 C = S2
GOTO 10
30 C = S3
GOTO 10
40 C = S4
GOTO 10
50 C = S5
GOTO 10
60 C = S6
GOTO 10
70 C = S7
GOTO 10
80 C = S8
10
IF C = 0 THEN PRINT CHR$(127);
IF C = 1 THEN PRINT "O";
IF C = 2 THEN PRINT "X";
IF C = 3 THEN PRINT CHR$(254);
IF C = 4 THEN PRINT CHR$(24);
IF C = 5 THEN PRINT CHR$(25);
IF C = 6 THEN PRINT CHR$(17);
IF C = 7 THEN PRINT CHR$(16);
IF C > 7 OR C < 0 THEN COLOR 20: PRINT "ERROR"; : COLOR 2
PRINT " ";
F = F + 1
IF F = 1 GOTO 20
IF F = 2 GOTO 30
IF F = 3 GOTO 40
IF F = 4 GOTO 50
IF F = 5 GOTO 60
IF F = 6 GOTO 70
IF F = 7 GOTO 80
COLOR 7
PRINT
AnApAn = 0
DO
LOCATE 23, 1
COLOR 1
PRINT "Brought to you by ";
COLOR 5
PRINT "AnApAn"
LOCATE 23, 1
COLOR 1
PRINT "Brought to you by "; CHR$(146); CHR$(164); CHR$(142); "p";
CHR$(143); CHR$(252)
AnApAn = AnApAn + 1
LOOP UNTIL AnApAn = 5000
END
