basicGames/TIME2.BAS at master · bdfranck/basicGames · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
REM THIS GAME IS TEXT
DECLARE SUB INTRO ()
DECLARE SUB MAINMEN ()
DECLARE SUB CREDITS ()
DECLARE SUB STARTGM ()
DECLARE SUB CODES ()
SCREEN 1
COLOR 2, 4
INTRO
MAINMEN

SUB CODES
END SUB

SUB CREDITS
CLS
PRINT TAB(10); "CREDITS"
PRINT
PRINT TAB(10); "GAME BY BEN FRANCK"
PRINT TAB(10); "TESTED BY ERIC FRANCK"
PRINT TAB(10); "MUSIC BY BEN FRANCK"
PRINT TAB(10); "SOUND FX BY BEN FRANCK"
PRINT
PRINT "HIT ENTER";
INPUT ENTER
MAINMEN
END SUB

SUB INTRO
PRINT TAB(7); "GET READY TO EAT OR BE EATEN..."
PRINT
'PLAY SCALE IN SEVEN DIFFERENT OACTAVES
INTRO2$ = "CFD#DC"
PLAY "T 60"
PLAY "X" + VARPTR$(INTRO2$)
PRINT
PRINT TAB(11); "TIME FOR TROUBLE 2"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "HIT ENTER TO CONTINUE";
INPUT CONTINUE
END SUB

SUB MAINMEN
CLS
SCREEN 0

PRINT TAB(10); "MAIN MENU:"
PRINT
PRINT TAB(8); "1.  CREDITS"
PRINT TAB(5); "2. START NEW GAME"
PRINT TAB(6); "3. ENTER CODE"
INPUT MENU
IF MENU = 1 THEN CREDITS
IF MENU = 2 THEN STARTGM
IF MENU = 3 THEN CODES
END SUB

SUB STARTGM
SCREEN 9
LET HEALTH = 5
LET AMUNITION = 20
LET NAVAGATION$ = "N"
LET INVENTORY$ = "NOTHING"
PRINT "                   HEALTH:"; HEALTH; "       AMUNITION:"; AMUNITION; "       NAVIGATION:"; NAV$
PRINT "       INVENTORY:"; INVENTORY$
PRINT
PRINT "THE TERRIAN IS: "; TERRAIN$
PRINT
PRINT "CHOOSE YOUR NAVIGATION";

END SUB