'===========================================================================
' Subject: ROOM GAME                         Date: Unknown Date           
' Author:  Mike Beckman                      Code: QB, QBasic, PDS        
' Origin:  mikebeckma@aol.com              Packet: GAMES.ABC
'===========================================================================
OPTION BASE 1
'this makes the lbound of all arrays default to 1, which is much easier
'to work with over 0

DIM room(57), north(57), east(57), south(57), west(57)

CLS
l = 30
c = 1
WHILE c <= 57
   READ room(c), north(c), east(c), south(c), west(c)
   c = c + 1
WEND


rooms:
PRINT "Room:"; room(l), "n"; north(l), "e"; east(l), "s"; south(l), "w"; west(l)

PRINT
PRINT "You Can go ";

IF north(l) <> 0 THEN
   PRINT "(n)orth ";
END IF
IF east(l) <> 0 THEN
   PRINT "(e)ast ";
END IF
IF south(l) <> 0 THEN
   PRINT "(s)outh ";
END IF
IF west(l) <> 0 THEN
   PRINT "(w)est ";
END IF
PRINT "(q)uit (?)redraw"
INPUT "Which way"; d$
IF d$ = "?" THEN GOTO rooms:
d$ = UCASE$(d$)
IF d$ = "N" AND north(l) <> 0 THEN l = north(l)
IF d$ = "S" AND south(l) <> 0 THEN l = south(l)
IF d$ = "E" AND east(l) <> 0 THEN l = east(l)
IF d$ = "W" AND west(l) <> 0 THEN l = west(l)
IF d$ = "Q" THEN END ELSE GOTO rooms:


DATA 1,0,2,11,0
DATA 2,0,3,12,1
DATA 3,0,4,13,2
DATA 4,0,5,14,3
DATA 5,0,6,15,4
DATA 6,0,7,16,5
DATA 7,0,8,17,6
DATA 8,0,9,18,7
DATA 9,0,10,19,8
DATA 10,0,0,20,9
DATA 11,1,12,21,0
DATA 12,2,13,22,11
DATA 13,3,14,23,12
DATA 14,4,15,24,13
DATA 15,5,16,25,14
DATA 16,6,17,26,15
DATA 17,7,18,27,16
DATA 18,8,19,28,17
DATA 19,9,20,29,18
DATA 20,10,0,30,19
DATA 21,11,22,31,0
DATA 22,12,23,32,21
DATA 23,13,24,33,22
DATA 24,14,25,34,23
DATA 25,15,26,35,24
DATA 26,16,27,36,25
DATA 27,17,28,37,26
DATA 28,18,29,38,27
DATA 29,19,30,39,28
DATA 30,20,0,40,29
DATA 31,21,32,41,0
DATA 32,22,33,42,31
DATA 33,23,34,43,32
DATA 34,24,35,44,33
DATA 35,25,36,45,34
DATA 36,26,37,46,35
DATA 37,27,38,47,36
DATA 38,28,39,48,37
DATA 39,29,40,49,38
DATA 40,30,0,50,39
DATA 41,31,42,51,0
DATA 42,32,43,52,41
DATA 43,33,44,53,42
DATA 44,34,45,54,43
DATA 45,35,46,55,44
DATA 46,36,47,56,45
DATA 47,37,48,57,46
DATA 48,38,49,0,47
DATA 49,39,50,0,48
DATA 50,40,0,0,49
DATA 51,41,52,0,0
DATA 52,42,53,0,51
DATA 53,43,54,0,52
DATA 54,44,55,0,53
DATA 55,45,56,0,54
DATA 56,46,57,0,55
DATA 57,47,0,0,56

'this building looks like...
'
' 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
'
'As of now, all the rooms are easily connected, but by changing a few numbers
'you can make someone have to take the long way around.