Mon premier jeu en QBASIC (1995)

maison3.bas

CLS : LOCATE 13, 1: PRINT STRING$(79, 196): MUR = 219: C = 1: X = 1: M = 16: E = 1: F = 1: B$ = "TU AS GAGNE!"
LOCATE 1, 1: PRINT "Appuyer sur ECHAP pour quitter"
LOCATE 16, 1: PRINT "="
LOCATE 23, 1: PRINT STRING$(79, 196): LOCATE 13, 14: PRINT " ": A = 1
LOCATE 12, 1: COLOR 2: PRINT CHR$(2): C$ = "L8O3CEGO4CO3P8GO4C4"
LOCATE 11, 1: PRINT "OH NON! MAIS COMMENT DONC REVENIR A LA MAISON?"
LOCATE 11, 55: PRINT "- - - - -": LOCATE 11, 70: PRINT "�": B = 1: S = 1
LOCATE 12, 79: PRINT CHR$(127): LOCATE 12, 29: PRINT CHR$(MUR)
LOCATE 17, 28: PRINT STRING$(5, 196): LOCATE 15, 32: PRINT "-"
FOR H = 1 TO 5000: NEXT H
LOCATE 11, 1: PRINT STRING$(50, 32)
BLABLA:
LOCATE 12, X: PRINT CHR$(2)
INKE$ = INKEY$
IF INKE$ = CHR$(0) + "K" THEN GOTO LEFT:
IF INKE$ = CHR$(0) + "M" THEN GOTO RIGHT:
IF INKE$ = CHR$(0) + "H" THEN GOTO UP:
IF INKE$ = CHR$(0) + "P" THEN GOTO DOWN:
IF INKE$ = CHR$(27) THEN END:
IF INKE$ = CHR$(9) AND X < 29 THEN GOTO SHOT1:
IF INKE$ = CHR$(9) AND X > 29 AND S = 1 THEN GOTO SHOT2:
IF INKE$ = CHR$(9) AND X > 29 AND S = 2 THEN GOTO SHOT3:
IF INKE$ = CHR$(0) + "O" THEN LOCATE 12, 55: PRINT CHR$(2): LOCATE 12, X: PRINT " ": X = 55: GOTO BLABLA:
GOTO BLABLA:
LEFT:
IF X = 29 AND F = 2 THEN GOTO DOWN:
IF X = 30 AND F = 3 THEN GOTO DOWN:
IF X <> 2 AND X <> 30 THEN X = X - 1: Y = X + 1: LOCATE 12, Y: PRINT " "
IF X = 14 THEN GOTO DOWN:
FOR Y = 13 TO 22
NEXT Y
GOTO BLABLA:
RIGHT:
IF X <> 28 THEN LOCATE 12, X: PRINT " ": X = X + 1
IF X = 70 AND S = 1 THEN GOTO CHOP:
IF X = 14 THEN GOTO DOWN:
IF X = 79 THEN GOTO WIN:
GOTO BLABLA:
WIN:
SCREEN 13: COLOR 15: LOCATE 12, 14: PRINT B$
PLAY C$
FOR H = 31 TO 16 STEP -1
COLOR H: LOCATE 12, 14: PRINT B$
FOR J = 1 TO 500: NEXT J
NEXT H
END
UP:
IF X = 70 THEN GOTO BLABLA:
IF X = 13 THEN GOTO HOLEA:
IF X = 15 THEN GOTO HOLEB:
IF X = 28 AND E = 2 THEN GOTO HOLEA:
IF X = 30 AND E = 2 THEN GOTO HOLEB:
LOCATE 12, X: PRINT " ": LOCATE 11, X: PRINT CHR$(2)
FOR K = 1 TO 200: NEXT K
LOCATE 11, X: PRINT " ": LOCATE 12, X: PRINT CHR$(2)
IF X = 55 AND S <> 2 THEN LOCATE 11, X: PRINT "+": A = A + 1
IF X = 57 AND S <> 2 THEN LOCATE 11, X: PRINT "+": A = A + 1
IF X = 59 AND S <> 2 THEN LOCATE 11, X: PRINT "+": A = A + 1
IF X = 61 AND S <> 2 THEN LOCATE 11, X: PRINT "+": A = A + 1
IF X = 63 AND S <> 2 THEN LOCATE 11, X: PRINT "+": A = A + 1

IF X = 55 AND C = 3 AND S <> 2 THEN C = C + 1
IF X = 57 AND C = 1 AND S <> 2 THEN C = C + 1
IF X = 59 AND C = 2 AND S <> 2 THEN C = C + 1
IF X = 61 AND C = 5 AND S <> 2 THEN C = C + 1
IF X = 63 AND C = 4 AND S <> 2 THEN C = C + 1

IF X = 55 AND B = 3 AND S <> 2 THEN B = B + 1
IF X = 57 AND B = 4 AND S <> 2 THEN B = B + 1
IF X = 59 AND B = 5 AND S <> 2 THEN B = B + 1
IF X = 61 AND B = 1 AND S <> 2 THEN B = B + 1
IF X = 63 AND B = 2 AND S <> 2 THEN B = B + 1

IF A = 6 AND B <> 6 AND C <> 6 THEN LOCATE 11, 55: PRINT "- - - - -": A = 1: B = 1
IF C = 6 THEN GOTO JET:
IF B = 6 THEN LOCATE 12, 70: PRINT " ": S = 2: LOCATE 11, 55: PRINT "           "
GOTO BLABLA:
DOWN:
IF X = 30 OR X = 31 OR X = 32 THEN GOTO BLABLA:
IF X = 28 THEN GOTO FALL:
B$ = "TU AS PERDU!": C$ = "L4O2GFEDC1"
FOR Y = 13 TO 22
N = Y - 1: LOCATE N, X: PRINT " ": LOCATE Y, X: PRINT CHR$(2)
FOR L = 1 TO 200: NEXT L
NEXT Y
LOCATE 22, X: COLOR 4: PRINT "*"
FOR L = 1 TO 1000: NEXT L
GOTO WIN:
HOLEA:
LOCATE 12, X: PRINT " ": LOCATE 11, X + 1: PRINT CHR$(2)
FOR K = 1 TO 300: NEXT K
LOCATE 11, X + 1: PRINT " ": X = X + 2: GOTO BLABLA:
HOLEB:
LOCATE 12, X: PRINT " ": LOCATE 11, X - 1: PRINT CHR$(2)
FOR K = 1 TO 300:
NEXT K
LOCATE 11, X - 1: PRINT " ": X = X - 2: GOTO BLABLA:
FALL:
FOR H = 13 TO 16
J = H - 1: LOCATE J, 28: PRINT " ": LOCATE H, 28: PRINT CHR$(2)
FOR Q = 1 TO 200: NEXT Q
NEXT H
GOTO BLABLA2:
BLABLA2:
IF M <> 14 THEN LOCATE 16, X: PRINT CHR$(2)
INKE$ = INKEY$
IF INKE$ = CHR$(0) + "K" THEN GOTO LEFT2:
IF INKE$ = CHR$(0) + "M" THEN GOTO RIGHT2:
IF INKE$ = CHR$(0) + "H" THEN GOTO UP2:
IF INKE$ = CHR$(0) + "P" THEN GOTO DOWN2:
IF INKE$ = CHR$(27) THEN END
IF INKE$ = CHR$(0) + "O" THEN LOCATE 12, 71: PRINT CHR$(2): LOCATE 12, X: PRINT " ": X = 71: GOTO BLABLA:
GOTO BLABLA2:
LEFT2:
IF X = 32 AND M = 14 THEN LOCATE 14, 32: PRINT " ": LOCATE 14, 31: PRINT CHR$(2): FOR Y = 15 TO 16: LOCATE Y - 1, 31: PRINT " ": LOCATE Y, 31: PRINT CHR$(2): FOR A = 1 TO 200: NEXT A: NEXT Y: M = 16: X = X - 1: GOTO BLABLA2:
IF X <> 27 THEN LOCATE 16, X: PRINT " ": X = X - 1
IF X = 27 THEN LOCATE 16, 26: PRINT " ": FOR Y = 1 TO 6: LOCATE Y + 16, 27: PRINT CHR$(2): LOCATE Y + 15, 27: PRINT " ": FOR L = 1 TO 200: NEXT L: NEXT Y: LOCATE 22, 27: COLOR 4: PRINT "*": B$ = "YOU LOSE": C$ = "L4O2GFEDC1": FOR L = 1 TO 5000: FOR LL = 1 TO 100: NEXT LL: NEXT L: GOTO WIN:
GOTO BLABLA2:
RIGHT2:
IF X <> 33 THEN LOCATE 16, X: PRINT " ": X = X + 1
IF X = 33 AND M = 14 THEN LOCATE 14, 32: PRINT " ": LOCATE 14, 33: PRINT CHR$(2): FOR L = 1 TO 200: NEXT L: FOR Y = 15 TO 22: LOCATE Y, 33: PRINT CHR$(2): LOCATE Y - 1, 33: PRINT " ": FOR L = 1 TO 200: NEXT L: NEXT Y: LOCATE 22, 33: COLOR 4: PRINT "*": B$ = "TU AS PERDU!": C$ = "L4O2GFEDC1": FOR L = 1 TO 1000: NEXT L: GOTO WIN:
IF X = 33 THEN LOCATE 16, 32: PRINT " ": FOR Y = 1 TO 6: LOCATE Y + 16, 33: PRINT CHR$(2): LOCATE Y + 15, 33: PRINT " ": FOR L = 1 TO 200: NEXT L: NEXT Y: LOCATE 22, 33: COLOR 4: PRINT "*": B$ = "TU AS PERDU!": C$ = "L4O2GFEDC1": FOR L = 1 TO 2000: FOR LL = 1 TO 100: NEXT LL: NEXT L: GOTO WIN:
GOTO BLABLA2:
UP2:
IF X = 32 AND M = 16 THEN LOCATE 16, 32: PRINT CHR$(0): LOCATE 14, 32: PRINT CHR$(2): M = M - 2: GOTO BLABLA2
IF X = 32 AND M = 14 THEN LOCATE 14, 32: PRINT " ": LOCATE 12, 32: PRINT CHR$(2): GOTO FIRE:
LOCATE 16, X: PRINT " ": LOCATE 15, X: PRINT CHR$(2)
FOR K = 1 TO 200: NEXT K
LOCATE 15, X: PRINT " ": LOCATE 16, X: PRINT CHR$(2)
GOTO BLABLA2:
DOWN2:
IF X = 32 AND M = 14 THEN GOTO BLABLA2:
B$ = "YOU LOSE": C$ = "L4O2GFEDC1"
FOR Y = 17 TO 22
N = Y - 1: LOCATE N, X: PRINT " ": LOCATE Y, X: PRINT CHR$(2)
FOR L = 1 TO 200: NEXT L
NEXT Y
LOCATE 22, X: COLOR 4: PRINT "*"
FOR L = 1 TO 200: NEXT L
GOTO WIN:
SHOT1:
FOR SHOT = X + 1 TO 28:
LOCATE 12, SHOT: PRINT CHR$(175):
IF SHOT <> X + 1 THEN LOCATE 12, SHOT - 1: PRINT " ":
FOR T = 1 TO 200: FOR TT = 1 TO 100: NEXT TT: NEXT T: NEXT SHOT:
IF MUR = 176 THEN MUR = 0
IF MUR = 177 THEN MUR = 176
IF MUR = 178 THEN MUR = 177
IF MUR = 219 THEN MUR = 178
LOCATE 12, 28: PRINT " ": LOCATE 12, 29: PRINT CHR$(MUR):
IF MUR = 0 THEN E = 2
GOTO BLABLA:
SHOT2:
FOR SHOT = X + 1 TO 69:
LOCATE 12, SHOT: PRINT CHR$(175):
IF SHOT <> X + 1 THEN LOCATE 12, SHOT - 1: PRINT " ":
FOR T = 1 TO 200: FOR TT = 1 TO 100: NEXT TT: NEXT T: NEXT SHOT:
LOCATE 12, 69: PRINT " ":
GOTO BLABLA:
SHOT3:
FOR SHOT = X + 1 TO 77:
LOCATE 12, SHOT: PRINT CHR$(175):
IF SHOT <> X + 1 THEN LOCATE 12, SHOT - 1: PRINT " ":
FOR T = 1 TO 200: FOR TT = 1 TO 100: NEXT TT: NEXT T: NEXT SHOT:
LOCATE 12, 77: PRINT " ":
LOCATE 12, 79: COLOR 4: PRINT CHR$(127):
FOR U = 1 TO 10000: NEXT U:
LOCATE 12, 79: COLOR 6: PRINT CHR$(22):
IF X > 59 THEN LOCATE 10, 60: COLOR 2: PRINT "MA MAISON A BRULE!":
IF X < 60 THEN LOCATE 10, X: COLOR 2: PRINT "MA MAISON A BRULE!":
FOR U = 1 TO 20000: FOR UU = 1 TO 100: NEXT UU: NEXT U:
B$ = "TU AS PERDU!": C$ = "L4O2GFEDC1":
GOTO WIN:
FIRE:
COLOR 1: LOCATE 16, 2: PRINT CHR$(175)
FOR FIRE = 3 TO 32:
LOCATE 16, FIRE: PRINT CHR$(175): LOCATE 16, FIRE - 1: PRINT " ":
FOR R = 1 TO 200: NEXT R: NEXT FIRE:
LOCATE 16, 32: COLOR 4: PRINT "*":
FOR R = 1 TO 200: NEXT R: LOCATE 16, 32: PRINT " ":
COLOR 2: GOTO BLABLA:
JET:
FOR JET = 1 TO 74
COLOR 15: LOCATE 1, JET: PRINT "  _": LOCATE 2, JET: PRINT " � \"
LOCATE 3, JET: PRINT "͵  >": LOCATE 3, JET + 3: COLOR 2: PRINT CHR$(2):
LOCATE 4, JET: COLOR 15: PRINT " �_/": JETTA = JET - 1
IF JET <> 1 THEN LOCATE 1, JETTA: PRINT "   "
IF JET <> 1 THEN LOCATE 2, JETTA: PRINT "  "
IF JET <> 1 THEN LOCATE 3, JETTA: PRINT " "
IF JET <> 1 THEN LOCATE 4, JETTA: PRINT "  "
IF JET = 59 THEN FOR BOMB = 7 TO 11: LOCATE BOMB, 61: COLOR 2: PRINT CHR$(232):
Y = BOMB - 1: LOCATE Y, 61: PRINT " ": FOR AAA = 1 TO 200: NEXT AAA: NEXT BOMB:
COLOR 4: LOCATE 12, 57: PRINT "*********": COLOR 2: LOCATE 11, 61: PRINT "+":
IF JET = 74 THEN LOCATE 1, 74: PRINT "     ": LOCATE 2, 74: PRINT "     ":
LOCATE 3, 74: PRINT "     ": LOCATE 4, 74: PRINT "     "
FOR JETB = 1 TO 100: NEXT JETB: NEXT JET: B$ = "TU AS PERDU!":
C$ = "L4O2GFEDC1": FOR AAA = 1 TO 1000: NEXT AAA: GOTO WIN:
CHOP:
LOCATE 12, 70: COLOR 2: PRINT CHR$(179):
LOCATE 11, 70: PRINT " ":
COLOR 4: LOCATE 12, 69: PRINT "_": LOCATE 12, 71: PRINT "_"
B$ = "TU AS PERDU!": C$ = "L4O2GFEDC1":
FOR AAA = 1 TO 10000: NEXT AAA: GOTO WIN: