QBasic/MISC/MOVE3.BAS at master · Tatwi/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
SCREEN 1
CLS
pX% = 1: pY% = 1: i$ = ""

'Create map
DIM map(24, 39) AS STRING
FOR R = 1 TO 24
 FOR C = 1 TO 39
  RANDOMIZE TIMER
  i% = (RND * 100) + 1
  IF i% > 85 THEN
   map(R, C) = "X"
  ELSEIF i% < 8 THEN
   map(R, C) = "."
  ELSE
   map(R, C) = ""
  END IF
 NEXT C
NEXT R
map(1, 1) = ""

GOSUB DrawMap

DO WHILE i$ <> "q"
   i$ = INKEY$
   IF i$ <> "" THEN GOSUB GameUpdate
LOOP
END

GameUpdate:
  CLS

  'Move
  IF i$ = "w" THEN pY% = pY% - 1
  IF i$ = "a" THEN pX% = pX% - 1
  IF i$ = "s" THEN pY% = pY% + 1
  IF i$ = "d" THEN pX% = pX% + 1

  'Wrap
  IF pY% < 1 THEN pY% = 24
  IF pY% > 24 THEN pY% = 1
  IF pX% < 1 THEN pX% = 40
  IF pX% > 40 THEN pX% = 1

  'Draw
  LOCATE pY%, pX%
  PRINT "0"
RETURN

DrawMap:
FOR R = 1 TO 24
 FOR C = 1 TO 40
  LOCATE R, C
  PRINT map(R, C)
 NEXT C
NEXT R

RETURN