qbasic/MAN2.BAS at master · brpgit2024/qbasic · 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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
1 CLS
COLOR 15
RANDOMIZE TIMER
s = INT(RND * (1 + 2))
IF s = 0 THEN e = 7
IF s = 1 THEN e = 13
IF s = 2 THEN e = 19
RANDOMIZE TIMER
t = INT(RND * (1 + 2))
IF t = 0 THEN f = 7
IF t = 1 THEN f = 21
IF t = 2 THEN f = 35
LET r = 1
LET c = 1
PRINT "                         Hide-And-Go-Seek"
PRINT "-----------------------------------------------------------------------------"
PRINT "     Let's play Hide-And-Go-Seek!  I will hide.  Try to find me!"
INPUT z$
CLS
LOCATE 1, 1
PRINT "  0  "
PRINT " -|- "
PRINT " / \ "
10 GOSUB 1000
LOCATE 24, 1
INPUT a$
IF a$ = "r" THEN GOTO 100
IF a$ = "l" THEN GOTO 200
IF a$ = "d" THEN GOTO 300
IF a$ = "u" THEN GOTO 400
IF a$ = "s" THEN GOTO 500
IF a$ = "e" THEN GOTO 600
GOTO 10
100 REM Walk Right
CLS
c = c + 2
LOCATE r, c
PRINT " 0 "
LOCATE r + 1, c
PRINT "-|-"
LOCATE r + 2, c
PRINT "/ \"
GOTO 10
200 REM Walk Left
CLS
c = c - 2
LOCATE r, c
PRINT " 0 "
LOCATE r + 1, c
PRINT "-|-"
LOCATE r + 2, c
PRINT "/ \"
GOTO 10
300 REM Walk down
CLS
r = r + 2
LOCATE r, c
PRINT " 0 "
LOCATE r + 1, c
PRINT "-|-"
LOCATE r + 2, c
PRINT "/ \"
GOTO 10
400 REM Walk Up
CLS
r = r - 2
LOCATE r, c
PRINT " 0 "
LOCATE r + 1, c
PRINT "-|-"
LOCATE r + 2, c
PRINT "/ \"
GOTO 10
500 REM Search
PLAY "fdfd"
GOSUB 4000
CLS
LOCATE 15, 60
PRINT "Im not in this bush!"
GOTO 10
600 REM Exiting
RUN "c:\dos\arcade.bas"
1000 REM Make Bushes
y = 7
x = 7
GOSUB 2000
y = 13
x = 7
GOSUB 2000
y = 19
x = 7
GOSUB 2000
y = 7
x = 21
GOSUB 2000
y = 13
x = 21
GOSUB 2000
y = 19
x = 21
GOSUB 2000
y = 7
x = 35
GOSUB 2000
y = 13
x = 35
GOSUB 2000
y = 19
x = 35
GOSUB 2000
GOSUB 3000
RETURN
2000 REM Draw Bush
LOCATE y, x
PRINT " _ "
LOCATE y + 1, x
PRINT "( )"
LOCATE y + 2, x
PRINT " = "
RETURN
3000 REM Instructions
LOCATE 5, 60
PRINT "*You may move:"
LOCATE 6, 60
PRINT "Up - u"
LOCATE 7, 60
PRINT "Down - d"
LOCATE 8, 60
PRINT "Left - l"
LOCATE 9, 60
PRINT "Right - r"
LOCATE 10, 60
PRINT "*You may also:"
LOCATE 11, 60
PRINT "Search - s"
LOCATE 12, 60
PRINT "Exit - e"
RETURN
REM Hiding
4000 REM You Found Him
IF e = r AND f = c THEN GOTO 5000
RETURN
5000 REM Winning
PLAY "l8 p2 fgab4ab4"
LOCATE 15, 60
PRINT "You Have Found Me!"
LOCATE r, c
PRINT "0 0"
LOCATE r + 1, c
PRINT " + "
LOCATE r + 2, c
PRINT "\_/"
INPUT n$
GOTO 1