-
Notifications
You must be signed in to change notification settings - Fork 0
/
The Castle Of Diavolul - The Book Of Zolon.bas
3557 lines (3327 loc) · 148 KB
/
The Castle Of Diavolul - The Book Of Zolon.bas
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
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
_Title "The Castle Of Diavolul - The Book Of Zolon"
r = 1
gotlantern = 1
gotsword = 1
gotbookofzolon = 0
Screen 12
Color 15, 0
Cls
Dim Shared DOOM As Double
Minutes = 1440
Seconds = 0
GameTime = Minutes * 60 + Seconds
Dim directions(1 To 201) As String
directions(1) = "SOUTH"
directions(2) = "NORTH, SOUTH, OR EAST"
directions(3) = "NORTH OR SOUTH"
directions(4) = "NORTH OR EAST"
directions(5) = "EAST, WEST, OR SOUTH"
directions(6) = "NORTH OR WEST"
directions(7) = "NORTH OR SOUTH"
directions(8) = "SOUTH OR WEST"
directions(9) = "EAST OR WEST"
directions(10) = "NORTH OR SOUTH"
directions(11) = "NORTH, SOUTH, OR WEST"
directions(12) = "NORTH OR SOUTH"
directions(13) = "NORTH OR WEST"
directions(14) = "NORTH, SOUTH, OR EAST"
directions(15) = "NORTH, SOUTH, OR WEST"
directions(16) = "EAST OR WEST"
directions(17) = "NORTH OR EAST"
directions(18) = "NORTH, SOUTH, OR WEST"
directions(19) = "EAST OR SOUTH"
directions(20) = "EAST OR WEST"
directions(21) = "WEST OR SOUTH"
directions(22) = "NORTH, SOUTH, OR EAST"
directions(23) = "NORTH, SOUTH, OR WEST"
directions(24) = "EAST OR WEST"
directions(25) = "SOUTH OR EAST"
directions(26) = "NORTH OR SOUTH"
directions(27) = "NORTH OR EAST"
directions(28) = "EAST OR WEST"
directions(29) = "NORTH OR WEST"
directions(30) = "NORTH, SOUTH, OR EAST"
directions(31) = "NORTH, SOUTH, OR WEST"
directions(32) = "NORTH OR EAST"
directions(33) = "EAST, WEST, OR SOUTH"
directions(34) = "NORTH OR WEST"
directions(35) = "NORTH OR SOUTH"
directions(36) = "SOUTH OR WEST"
directions(37) = "EAST OR WEST"
directions(38) = "EAST OR SOUTH"
directions(39) = "EAST OR WEST"
directions(40) = "EAST OR WEST"
directions(41) = "EAST OR SOUTH"
directions(42) = "NORTH OR SOUTH"
directions(43) = "NORTH OR WEST"
directions(44) = "SOUTH OR EAST"
directions(45) = "NORTH, SOUTH, OR WEST"
directions(46) = "NORTH OR EAST"
directions(47) = "SOUTH OR WEST"
directions(48) = "NORTH OR SOUTH"
directions(49) = "NORTH OR WEST"
directions(50) = "EAST OR WEST"
directions(51) = "NORTH OR EAST"
directions(52) = "SOUTH"
directions(53) = "NORTH OR WEST"
directions(54) = "EAST OR WEST"
directions(55) = "NORTH OR EAST"
directions(56) = "NORTH OR SOUTH"
directions(57) = "SOUTH OR EAST"
directions(58) = "EAST OR WEST"
directions(59) = "EAST, WEST, OR SOUTH"
directions(60) = "NORTH OR SOUTH"
directions(61) = "NORTH, EAST, OR WEST"
directions(62) = "NORTH OR SOUTH"
directions(63) = "EAST, WEST, OR SOUTH"
directions(64) = "NORTH OR WEST"
directions(65) = "NORTH OR SOUTH"
directions(66) = "SOUTH OR WEST"
directions(67) = "EAST OR WEST"
directions(68) = "EAST, WEST, OR SOUTH"
directions(69) = "NORTH OR SOUTH"
directions(70) = "NORTH OR EAST"
directions(71) = "NORTH OR EAST"
directions(72) = "EAST, WEST, OR SOUTH"
directions(73) = "NORTH OR WEST"
directions(74) = "NORTH OR SOUTH"
directions(75) = "WEST OR SOUTH"
directions(76) = "EAST OR WEST"
directions(77) = "EAST, WEST, OR SOUTH"
directions(78) = "NORTH OR SOUTH"
directions(79) = "NORTH OR EAST"
directions(80) = "EAST OR WEST"
directions(81) = "EAST OR WEST"
directions(82) = "EAST, WEST, OR SOUTH"
directions(83) = "NORTH OR SOUTH"
directions(84) = "NORTH OR WEST"
directions(85) = "EAST OR SOUTH"
directions(86) = "NORTH, SOUTH, OR WEST"
directions(87) = "EAST OR WEST"
directions(88) = "EAST, WEST, OR NORTH"
directions(89) = "NORTH OR EAST"
directions(90) = "SOUTH OR EAST"
directions(91) = "SOUTH OR WEST"
directions(92) = "NORTH OR EAST"
directions(93) = "EAST OR WEST"
directions(94) = "WEST OR SOUTH"
directions(95) = "NORTH, SOUTH, OR EAST"
directions(96) = "WEST"
directions(97) = "NORTH, SOUTH, OR WEST"
directions(98) = "NORTH"
directions(99) = "EAST"
directions(100) = "NORTH, EAST, OR WEST"
directions(101) = "EAST"
directions(102) = "NORTH OR SOUTH"
directions(103) = "NORTH OR SOUTH"
directions(104) = "EAST, WEST, OR SOUTH"
directions(105) = "NORTH OR WEST"
directions(106) = "SOUTH OR EAST"
directions(107) = "WEST"
directions(108) = "NORTH OR EAST"
directions(109) = "WEST OR SOUTH"
directions(110) = "EAST, WEST, OR NORTH"
directions(111) = "NORTH OR EAST"
directions(112) = "SOUTH OR EAST"
directions(113) = "SOUTH OR WEST"
directions(114) = "NORTH OR SOUTH"
directions(115) = "NORTH OR SOUTH"
directions(116) = "NORTH, SOUTH,OR EAST"
directions(117) = "NORTH OR SOUTH"
directions(118) = "NORTH OR SOUTH"
directions(119) = "NORTH OR SOUTH"
directions(120) = "NORTH, SOUTH, OR EAST"
directions(121) = "NORTH OR SOUTH"
directions(122) = "NORTH OR SOUTH"
directions(123) = "NORTH OR SOUTH"
directions(124) = "NORTH OR EAST"
directions(125) = "EAST OR WEST"
directions(126) = "EAST OR WEST"
directions(127) = "NORTH OR WEST"
directions(128) = "NORTH OR SOUTH"
directions(129) = "WEST OR SOUTH"
directions(130) = "NORTH OR EAST"
directions(131) = "WEST OR SOUTH"
directions(132) = "NORTH OR EAST"
directions(133) = "WEST OR SOUTH"
directions(134) = "EAST OR WEST"
directions(135) = "WEST OR SOUTH"
directions(136) = "NORTH OR SOUTH"
directions(137) = "NORTH, SOUTH, EAST, OR WEST"
directions(138) = "EAST"
directions(139) = "NORTH OR EAST"
directions(140) = "SOUTH, EAST, OR WEST"
directions(141) = "NORTH OR WEST"
directions(142) = "WEST OR SOUTH"
directions(143) = "EAST OR WEST"
directions(144) = "NORTH OR SOUTH"
directions(145) = "NORTH OR EAST"
directions(146) = "WEST OR SOUTH"
directions(147) = "NORTH OR SOUTH"
directions(148) = "NORTH OR SOUTH"
directions(149) = "NORTH OR SOUTH"
directions(150) = "NORTH, SOUTH, OR WEST"
directions(151) = "NORTH OR SOUTH"
directions(152) = "NORTH OR WEST"
directions(153) = "EAST OR WEST"
directions(154) = "EAST, WEST, OR SOUTH"
directions(155) = "NORTH OR EAST"
directions(156) = "NORTH OR SOUTH"
directions(157) = "EAST OR SOUTH"
directions(158) = "EAST OR WEST"
directions(159) = "EAST OR WEST"
directions(160) = "NORTH OR SOUTH"
directions(161) = "NORTH OR EAST"
directions(162) = "EAST OR WEST"
directions(163) = "WEST OR SOUTH"
directions(164) = "NORTH OR SOUTH"
directions(165) = "NORTH, SOUTH, OR WEST"
directions(166) = "EAST OR WEST"
directions(167) = "EAST, WEST, OR SOUTH"
directions(168) = "EAST OR SOUTH"
directions(169) = "NORTH OR EAST"
directions(170) = "NORTH OR WEST"
directions(171) = "NORTH, SOUTH, OR EAST"
directions(172) = "EAST OR WEST"
directions(173) = "NORTH, EAST, OR WEST"
directions(174) = "EAST OR SOUTH"
directions(175) = "WEST OR SOUTH"
directions(176) = "NORTH OR WEST"
directions(177) = "NORTH OR SOUTH"
directions(178) = "NORTH, SOUTH, OR WEST"
directions(179) = "EAST OR WEST"
directions(180) = "NORTH, EAST, OR WEST"
directions(181) = "NORTH OR EAST"
directions(182) = "EAST OR SOUTH"
directions(183) = "WEST OR SOUTH"
directions(184) = "NORTH OR EAST"
directions(185) = "EAST, WEST, OR SOUTH"
directions(186) = "WEST OR SOUTH"
directions(187) = "NORTH, SOUTH, OR WEST"
directions(188) = "NORTH OR EAST"
directions(189) = "NORTH OR WEST"
directions(190) = "EAST OR WEST"
directions(191) = "EAST OR WEST"
directions(192) = "EAST OR SOUTH"
directions(193) = "NORTH OR SOUTH"
directions(194) = "NORTH OR EAST"
directions(195) = "WEST OR SOUTH"
directions(196) = "NORTH OR SOUTH"
directions(197) = "NORTH OR EAST"
directions(198) = "EAST, WEST, OR SOUTH"
directions(199) = "WEST OR SOUTH"
directions(200) = "NORTH OR WEST"
directions(201) = "NORTH OR EAST"
Print ""
Print "_______________________________________________________________________________"
Print "|/ \|"
Print "|/ />_________________________________ \|"
Print "|/ [########[]_________________________________> \|"
Print "|/ \> \|"
Print "|/ \|"
Print "|/Years have passed since the attempt on resurrecting the Count had been \|"
Print "|/foiled by the bravery of October Crow. Her name was praised and her heroic \|"
Print "|/actions were. But one night a storm moved into the peaceful countryside and\|"
Print "|/soon the air grew heavy with the foul stench of death. From out in the \|"
Print "|/darkness came about the skeleton armies of the damned. Word got back to the\|"
Print "|/village and soon a war for survival had begun. The armies of the dead \|"
Print "|/swarmed the village and murdered everyone they could. Armed with her trusty\|"
Print "|/sword and lantern Baroness October Crow now must return to the field of \|"
Print "|/battle and stop just what evil has been unleashed. \|"
Print "|/ \|"
Print "_____________________________________________________________________________\|"
Do: Loop Until InKey$ <> ""
Do: Loop Until InKey$ <> ""
DOOM = Timer(0.001) + GameTime 'change this to to desied time for the game to run
Do
Cls
Print ""
Print ""
Print ""
Print " __...--~~~~~-._ _.-~~~~~--...__"
Print " // `V' \\"
Print " // | \\"
Print " //__...--~~~~~~-._ | _.-~~~~~~--...__\\"
Print " //__.....----~~~~._\ | /_.~~~~----.....__\\"
Print " ====================\\|//===================="
Print " `---`"
Print ""
Print ""
Print " The Castle Of Diavolul - The Book Of Zolon"
Print ""
Print Space$(38);
If InStr(directions(r), "NORTH") Then Print "N" Else Print
Print "*---------------------------------* ";
If InStr(directions(r), "WEST") Then Print "W"; Else Print " ";
Print " + ";
If InStr(directions(r), "EAST") Then Print "E"; Else Print " ";
Print " *------------------------------------*"
Print Space$(38);
If InStr(directions(r), "SOUTH") Then Print "S" Else Print
Print
Print "If you are stuck just type HELP."
Print
GoSub ROOM
GoSub parser
Loop
ROOM:
If r = 1 Then: GoSub r1
If r = 2 Then: GoSub r2
If r = 3 Then: GoSub r3
If r = 4 Then: GoSub r4
If r = 5 Then: GoSub r5
If r = 6 Then: GoSub r6
If r = 7 Then: GoSub r7
If r = 8 Then: GoSub r8
If r = 9 Then: GoSub r9
If r = 10 Then: GoSub r10
If r = 11 Then: GoSub r11
If r = 12 Then: GoSub r12
If r = 13 Then: GoSub r13
If r = 14 Then: GoSub r14
If r = 15 Then: GoSub r15
If r = 16 Then: GoSub r16
If r = 17 Then: GoSub r17
If r = 18 Then: GoSub r18
If r = 19 Then: GoSub r19
If r = 20 Then: GoSub r20
If r = 21 Then: GoSub r21
If r = 22 Then: GoSub r22
If r = 23 Then: GoSub r23
If r = 24 Then: GoSub r24
If r = 25 Then: GoSub r25
If r = 26 Then: GoSub r26
If r = 27 Then: GoSub r27
If r = 28 Then: GoSub r28
If r = 29 Then: GoSub r29
If r = 30 Then: GoSub r30
If r = 31 Then: GoSub r31
If r = 32 Then: GoSub r32
If r = 33 Then: GoSub r33
If r = 34 Then: GoSub r34
If r = 35 Then: GoSub r35
If r = 36 Then: GoSub r36
If r = 37 Then: GoSub r37
If r = 38 Then: GoSub r38
If r = 39 Then: GoSub r39
If r = 40 Then: GoSub r40
If r = 41 Then: GoSub r41
If r = 42 Then: GoSub r42
If r = 43 Then: GoSub r43
If r = 44 Then: GoSub r44
If r = 45 Then: GoSub r45
If r = 46 Then: GoSub r46
If r = 47 Then: GoSub r47
If r = 48 Then: GoSub r48
If r = 49 Then: GoSub r49
If r = 50 Then: GoSub r50
If r = 51 Then: GoSub r51
If r = 52 Then: GoSub r52
If r = 53 Then: GoSub r53
If r = 54 Then: GoSub r54
If r = 55 Then: GoSub r55
If r = 56 Then: GoSub r56
If r = 57 Then: GoSub r57
If r = 58 Then: GoSub r58
If r = 59 Then: GoSub r59
If r = 60 Then: GoSub r60
If r = 61 Then: GoSub r61
If r = 62 Then: GoSub r62
If r = 63 Then: GoSub r63
If r = 64 Then: GoSub r64
If r = 65 Then: GoSub r65
If r = 66 Then: GoSub r66
If r = 67 Then: GoSub r67
If r = 68 Then: GoSub r68
If r = 69 Then: GoSub r69
If r = 70 Then: GoSub r70
If r = 71 Then: GoSub r71
If r = 72 Then: GoSub r72
If r = 73 Then: GoSub r73
If r = 74 Then: GoSub r74
If r = 75 Then: GoSub r75
If r = 76 Then: GoSub r76
If r = 77 Then: GoSub r77
If r = 78 Then: GoSub r78
If r = 79 Then: GoSub r79
If r = 80 Then: GoSub r80
If r = 81 Then: GoSub r81
If r = 82 Then: GoSub r82
If r = 83 Then: GoSub r83
If r = 84 Then: GoSub r84
If r = 85 Then: GoSub r85
If r = 86 Then: GoSub r86
If r = 87 Then: GoSub r87
If r = 88 Then: GoSub r88
If r = 89 Then: GoSub r89
If r = 90 Then: GoSub r90
If r = 91 Then: GoSub r91
If r = 92 Then: GoSub r92
If r = 93 Then: GoSub r93
If r = 94 Then: GoSub r94
If r = 95 Then: GoSub r95
If r = 96 Then: GoSub r96
If r = 97 Then: GoSub r97
If r = 98 Then: GoSub r98
If r = 99 Then: GoSub r99
If r = 100 Then: GoSub r100
If r = 101 Then: GoSub r101
If r = 102 Then: GoSub r102
If r = 103 Then: GoSub r103
If r = 104 Then: GoSub r104
If r = 105 Then: GoSub r105
If r = 106 Then: GoSub r106
If r = 107 Then: GoSub r107
If r = 108 Then: GoSub r108
If r = 109 Then: GoSub r109
If r = 110 Then: GoSub r110
If r = 111 Then: GoSub r111
If r = 112 Then: GoSub r112
If r = 113 Then: GoSub r113
If r = 114 Then: GoSub r114
If r = 115 Then: GoSub r115
If r = 116 Then: GoSub r116
If r = 117 Then: GoSub r117
If r = 118 Then: GoSub r118
If r = 119 Then: GoSub r119
If r = 120 Then: GoSub r120
If r = 121 Then: GoSub r121
If r = 122 Then: GoSub r122
If r = 123 Then: GoSub r123
If r = 124 Then: GoSub r124
If r = 125 Then: GoSub r125
If r = 126 Then: GoSub r126
If r = 127 Then: GoSub r127
If r = 128 Then: GoSub r128
If r = 129 Then: GoSub r129
If r = 130 Then: GoSub r130
If r = 131 Then: GoSub r131
If r = 132 Then: GoSub r132
If r = 133 Then: GoSub r133
If r = 134 Then: GoSub r134
If r = 135 Then: GoSub r135
If r = 136 Then: GoSub r136
If r = 137 Then: GoSub r137
If r = 138 Then: GoSub r138
If r = 139 Then: GoSub r139
If r = 140 Then: GoSub r140
If r = 141 Then: GoSub r141
If r = 142 Then: GoSub r142
If r = 143 Then: GoSub r143
If r = 144 Then: GoSub r144
If r = 145 Then: GoSub r145
If r = 146 Then: GoSub r146
If r = 147 Then: GoSub r147
If r = 148 Then: GoSub r148
If r = 149 Then: GoSub r149
If r = 150 Then: GoSub r150
If r = 151 Then: GoSub r151
If r = 152 Then: GoSub r152
If r = 153 Then: GoSub r153
If r = 154 Then: GoSub r154
If r = 155 Then: GoSub r155
If r = 156 Then: GoSub r156
If r = 157 Then: GoSub r157
If r = 158 Then: GoSub r158
If r = 159 Then: GoSub r159
If r = 160 Then: GoSub r160
If r = 161 Then: GoSub r161
If r = 162 Then: GoSub r162
If r = 163 Then: GoSub r163
If r = 164 Then: GoSub r164
If r = 165 Then: GoSub r165
If r = 166 Then: GoSub r166
If r = 167 Then: GoSub r167
If r = 168 Then: GoSub r168
If r = 169 Then: GoSub r169
If r = 170 Then: GoSub r170
If r = 171 Then: GoSub r171
If r = 172 Then: GoSub r172
If r = 173 Then: GoSub r173
If r = 174 Then: GoSub r174
If r = 175 Then: GoSub r175
If r = 176 Then: GoSub r176
If r = 177 Then: GoSub r177
If r = 178 Then: GoSub r178
If r = 179 Then: GoSub r179
If r = 180 Then: GoSub r180
If r = 181 Then: GoSub r181
If r = 182 Then: GoSub r182
If r = 183 Then: GoSub r183
If r = 184 Then: GoSub r184
If r = 185 Then: GoSub r185
If r = 186 Then: GoSub r186
If r = 187 Then: GoSub r187
If r = 188 Then: GoSub r188
If r = 189 Then: GoSub r189
If r = 190 Then: GoSub r190
If r = 191 Then: GoSub r191
If r = 192 Then: GoSub r192
If r = 193 Then: GoSub r193
If r = 194 Then: GoSub r194
If r = 195 Then: GoSub r195
If r = 196 Then: GoSub r196
If r = 197 Then: GoSub r197
If r = 198 Then: GoSub r198
If r = 199 Then: GoSub r199
If r = 200 Then: GoSub r200
If r = 201 Then: GoSub r201
Return
parser:
Print "> ";
cmd$ = GrabInput
cmd$ = LTrim$(RTrim$(UCase$(cmd$)))
If cmd$ = "END" Or cmd$ = "QUIT" Or cmd$ = "EXIT" Or cmd$ = "Q" Then
End
End If
If cmd$ = "HELP" Or cmd$ = "H" Or cmd$ = "?" Then
Cls
Print "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..."
Print
Print "NORTH, EAST ,SOUTH, AND WEST - MOVE TO AN AVAILABLE LOCATION"
Print "EXAMINE (OBJECT) - EXAMINE AN OBJECT"
Print "USE (OBJECT) - USE AN OBJECT"
Print "TAKE (OBJECT) - TAKE OR MOVE AN OBJECT"
Print "TALK - TALK TO SOMEONE"
Print "INVENTORY - VIEW YOUR INVENTORY"
Print "HELP - VIEW THIS SCREEN"
Print "END - END GAME"
Print
Print "PRESS ANY KEY...": Sleep
Do: Loop Until InKey$ = ""
Do: Loop Until InKey$ <> ""
End If
If cmd$ = "INVENTORY" Or cmd$ = "INV" Or cmd$ = "ITEMS" Or cmd$ = "I" Then
Cls
Print "INVENTORY..."
Print
If gotlantern = 1 Then: Print "/ Lantern / An old dented tin lantern to vanquish the darkness."
If gotsword = 1 Then: Print "/ Sword / Crafted out of only the finest steel in the region."
If gotbookofzolon = 1 Then: Print "/ Book / An unreadable book."
Print "PRESS ANY KEY..."
Do: Loop Until InKey$ = ""
Do: Loop Until InKey$ <> ""
End If
If cmd$ = "GO NORTH" Or cmd$ = "NORTH" Or cmd$ = "N" Then
If r = 4 Then: r = 3: GoTo moved
If r = 3 Then: r = 2: GoTo moved
If r = 2 Then: r = 1: GoTo moved
If r = 6 Then: r = 7: GoTo moved
If r = 7 Then: r = 8: GoTo moved
If r = 13 Then: r = 12: GoTo moved
If r = 12 Then: r = 11: GoTo moved
If r = 11 Then: r = 10: GoTo moved
If r = 10 Then: r = 5: GoTo moved
If r = 29 Then: r = 30: GoTo moved
If r = 30 Then: r = 23: GoTo moved
If r = 23 Then: r = 14: GoTo moved
If r = 14 Then: r = 15: GoTo moved
If r = 15 Then: r = 22: GoTo moved
If r = 22 Then: r = 21: GoTo moved
If r = 27 Then: r = 26: GoTo moved
If r = 26 Then: r = 25: GoTo moved
If r = 17 Then: r = 18: GoTo moved
If r = 18 Then: r = 19: GoTo moved
If r = 32 Then: r = 31: GoTo moved
If r = 31 Then: r = 38: GoTo moved
If r = 34 Then: r = 35: GoTo moved
If r = 35 Then: r = 36: GoTo moved
If r = 43 Then: r = 42: GoTo moved
If r = 42 Then: r = 41: GoTo moved
If r = 49 Then: r = 48: GoTo moved
If r = 48 Then: r = 47: GoTo moved
If r = 46 Then: r = 45: GoTo moved
If r = 45 Then: r = 44: GoTo moved
If r = 64 Then: r = 65: GoTo moved
If r = 65 Then: r = 66: GoTo moved
If r = 51 Then: r = 52: GoTo moved
If r = 61 Then: r = 62: GoTo moved
If r = 62 Then: r = 63: GoTo moved
If r = 53 Then: r = 60: GoTo moved
If r = 60 Then: r = 59: GoTo moved
If r = 70 Then: r = 69: GoTo moved
If r = 69 Then: r = 68: GoTo moved
If r = 73 Then: r = 74: GoTo moved
If r = 74 Then: r = 75: GoTo moved
If r = 71 Then: r = 72: GoTo moved
If r = 55 Then: r = 56: GoTo moved
If r = 56 Then: r = 57: GoTo moved
If r = 79 Then: r = 78: GoTo moved
If r = 78 Then: r = 77: GoTo moved
If r = 98 Then: r = 97: GoTo moved
If r = 97 Then: r = 95: GoTo moved
If r = 95 Then: r = 94: GoTo moved
If r = 84 Then: r = 83: GoTo moved
If r = 83 Then: r = 82: GoTo moved
If r = 92 Then: r = 86: GoTo moved
If r = 86 Then: r = 85: GoTo moved
If r = 88 Then: r = 91: GoTo moved
If r = 89 Then: r = 90: GoTo moved
If r = 100 Then: r = 102: GoTo moved
If r = 102 Then: r = 103: GoTo moved
If r = 103 Then: r = 104: GoTo moved
If r = 105 Then: r = 106: GoTo moved
If r = 108 Then: r = 109: GoTo moved
If r = 110 Then: r = 113: GoTo moved
If r = 111 Then: r = 112: GoTo moved
If r = 124 Then: r = 123: GoTo moved
If r = 123 Then: r = 122: GoTo moved
If r = 122 Then: r = 121: GoTo moved
If r = 121 Then: r = 120: GoTo moved
If r = 120 Then: r = 119: GoTo moved
If r = 119 Then: r = 118: GoTo moved
If r = 118 Then: r = 117: GoTo moved
If r = 117 Then: r = 116: GoTo moved
If r = 116 Then: r = 115: GoTo moved
If r = 115 Then: r = 114: GoTo moved
If r = 114 Then: r = 33: GoTo moved
If r = 155 Then: r = 156: GoTo moved
If r = 156 Then: r = 157: GoTo moved
If r = 132 Then: r = 133: GoTo moved
If r = 130 Then: r = 131: GoTo moved
If r = 139 Then: r = 137: GoTo moved
If r = 137 Then: r = 136: GoTo moved
If r = 136 Then: r = 135: GoTo moved
If r = 127 Then: r = 128: GoTo moved
If r = 128 Then: r = 129: GoTo moved
If r = 145 Then: r = 144: GoTo moved
If r = 144 Then: r = 140: GoTo moved
If r = 141 Then: r = 142: GoTo moved
If r = 152 Then: r = 151: GoTo moved
If r = 151 Then: r = 150: GoTo moved
If r = 150 Then: r = 149: GoTo moved
If r = 149 Then: r = 148: GoTo moved
If r = 148 Then: r = 147: GoTo moved
If r = 147 Then: r = 146: GoTo moved
If r = 161 Then: r = 160: GoTo moved
If r = 160 Then: r = 154: GoTo moved
If r = 184 Then: r = 178: GoTo moved
If r = 178 Then: r = 177: GoTo moved
If r = 177 Then: r = 171: GoTo moved
If r = 171 Then: r = 165: GoTo moved
If r = 165 Then: r = 164: GoTo moved
If r = 164 Then: r = 163: GoTo moved
If r = 180 Then: r = 183: GoTo moved
If r = 181 Then: r = 182: GoTo moved
If r = 170 Then: r = 167: GoTo moved
If r = 169 Then: r = 168: GoTo moved
If r = 173 Then: r = 174: GoTo moved
If r = 176 Then: r = 175: GoTo moved
If r = 188 Then: r = 185: GoTo moved
If r = 189 Then: r = 187: GoTo moved
If r = 187 Then: r = 186: GoTo moved
If r = 194 Then: r = 193: GoTo moved
If r = 193 Then: r = 192: GoTo moved
If r = 197 Then: r = 196: GoTo moved
If r = 196 Then: r = 195: GoTo moved
If r = 201 Then: r = 198: GoTo moved
If r = 200 Then: r = 199: GoTo moved
End If
If cmd$ = "GO EAST" Or cmd$ = "EAST" Or cmd$ = "E" Then
If r = 2 Then: r = 9: GoTo moved
If r = 9 Then: r = 8: GoTo moved
If r = 4 Then: r = 5: GoTo moved
If r = 5 Then: r = 6: GoTo moved
If r = 19 Then: r = 20: GoTo moved
If r = 20 Then: r = 21: GoTo moved
If r = 22 Then: r = 11: GoTo moved
If r = 17 Then: r = 16: GoTo moved
If r = 16 Then: r = 15: GoTo moved
If r = 14 Then: r = 13: GoTo moved
If r = 25 Then: r = 24: GoTo moved
If r = 24 Then: r = 23: GoTo moved
If r = 38 Then: r = 37: GoTo moved
If r = 37 Then: r = 36: GoTo moved
If r = 30 Then: r = 31: GoTo moved
If r = 27 Then: r = 28: GoTo moved
If r = 28 Then: r = 29: GoTo moved
If r = 32 Then: r = 33: GoTo moved
If r = 33 Then: r = 34: GoTo moved
If r = 41 Then: r = 40: GoTo moved
If r = 40 Then: r = 39: GoTo moved
If r = 39 Then: r = 18: GoTo moved
If r = 44 Then: r = 43: GoTo moved
If r = 57 Then: r = 58: GoTo moved
If r = 58 Then: r = 59: GoTo moved
If r = 59 Then: r = 61: GoTo moved
If r = 61 Then: r = 45: GoTo moved
If r = 46 Then: r = 47: GoTo moved
If r = 55 Then: r = 54: GoTo moved
If r = 54 Then: r = 53: GoTo moved
If r = 51 Then: r = 50: GoTo moved
If r = 50 Then: r = 49: GoTo moved
If r = 70 Then: r = 63: GoTo moved
If r = 63 Then: r = 64: GoTo moved
If r = 71 Then: r = 68: GoTo moved
If r = 68 Then: r = 67: GoTo moved
If r = 67 Then: r = 66: GoTo moved
If r = 79 Then: r = 72: GoTo moved
If r = 72 Then: r = 73: GoTo moved
If r = 77 Then: r = 76: GoTo moved
If r = 76 Then: r = 75: GoTo moved
If r = 85 Then: r = 84: GoTo moved
If r = 90 Then: r = 91: GoTo moved
If r = 89 Then: r = 88: GoTo moved
If r = 88 Then: r = 87: GoTo moved
If r = 87 Then: r = 86: GoTo moved
If r = 92 Then: r = 93: GoTo moved
If r = 93 Then: r = 94: GoTo moved
If r = 95 Then: r = 96: GoTo moved
If r = 99 Then: r = 97: GoTo moved
If r = 101 Then: r = 100: GoTo moved
If r = 100 Then: r = 82: GoTo moved
If r = 82 Then: r = 81: GoTo moved
If r = 81 Then: r = 80: GoTo moved
If r = 80 Then: r = 77: GoTo moved
If r = 108 Then: r = 104: GoTo moved
If r = 104 Then: r = 105: GoTo moved
If r = 106 Then: r = 107: GoTo moved
If r = 111 Then: r = 110: GoTo moved
If r = 110 Then: r = 109: GoTo moved
If r = 112 Then: r = 113: GoTo moved
If r = 116 Then: r = 134: GoTo moved
If r = 134 Then: r = 135: GoTo moved
If r = 138 Then: r = 137: GoTo moved
If r = 137 Then: r = 143: GoTo moved
If r = 143 Then: r = 142: GoTo moved
If r = 139 Then: r = 140: GoTo moved
If r = 140 Then: r = 141: GoTo moved
If r = 120 Then: r = 133: GoTo moved
If r = 132 Then: r = 131: GoTo moved
If r = 145 Then: r = 146: GoTo moved
If r = 130 Then: r = 129: GoTo moved
If r = 124 Then: r = 125: GoTo moved
If r = 125 Then: r = 126: GoTo moved
If r = 126 Then: r = 127: GoTo moved
If r = 157 Then: r = 158: GoTo moved
If r = 158 Then: r = 159: GoTo moved
If r = 159 Then: r = 150: GoTo moved
If r = 155 Then: r = 154: GoTo moved
If r = 154 Then: r = 153: GoTo moved
If r = 153 Then: r = 152: GoTo moved
If r = 161 Then: r = 162: GoTo moved
If r = 162 Then: r = 163: GoTo moved
If r = 168 Then: r = 167: GoTo moved
If r = 167 Then: r = 166: GoTo moved
If r = 166 Then: r = 165: GoTo moved
If r = 169 Then: r = 170: GoTo moved
If r = 171 Then: r = 172: GoTo moved
If r = 172 Then: r = 173: GoTo moved
If r = 173 Then: r = 176: GoTo moved
If r = 174 Then: r = 175: GoTo moved
If r = 182 Then: r = 183: GoTo moved
If r = 181 Then: r = 180: GoTo moved
If r = 180 Then: r = 179: GoTo moved
If r = 179 Then: r = 178: GoTo moved
If r = 184 Then: r = 185: GoTo moved
If r = 185 Then: r = 186: GoTo moved
If r = 188 Then: r = 187: GoTo moved
If r = 192 Then: r = 191: GoTo moved
If r = 191 Then: r = 190: GoTo moved
If r = 190 Then: r = 189: GoTo moved
If r = 194 Then: r = 195: GoTo moved
If r = 197 Then: r = 198: GoTo moved
If r = 198 Then: r = 199: GoTo moved
If r = 201 Then: r = 200: GoTo moved
End If
If cmd$ = "GO SOUTH" Or cmd$ = "SOUTH" Or cmd$ = "S" Then
If r = 1 Then: r = 2: GoTo moved
If r = 2 Then: r = 3: GoTo moved
If r = 3 Then: r = 4: GoTo moved
If r = 8 Then: r = 7: GoTo moved
If r = 7 Then: r = 6: GoTo moved
If r = 5 Then: r = 10: GoTo moved
If r = 10 Then: r = 11: GoTo moved
If r = 11 Then: r = 12: GoTo moved
If r = 12 Then: r = 13: GoTo moved
If r = 21 Then: r = 22: GoTo moved
If r = 22 Then: r = 15: GoTo moved
If r = 15 Then: r = 14: GoTo moved
If r = 14 Then: r = 23: GoTo moved
If r = 23 Then: r = 30: GoTo moved
If r = 30 Then: r = 29: GoTo moved
If r = 25 Then: r = 26: GoTo moved
If r = 26 Then: r = 27: GoTo moved
If r = 19 Then: r = 18: GoTo moved
If r = 18 Then: r = 17: GoTo moved
If r = 38 Then: r = 31: GoTo moved
If r = 31 Then: r = 32: GoTo moved
If r = 36 Then: r = 35: GoTo moved
If r = 35 Then: r = 34: GoTo moved
If r = 41 Then: r = 42: GoTo moved
If r = 42 Then: r = 43: GoTo moved
If r = 47 Then: r = 48: GoTo moved
If r = 48 Then: r = 49: GoTo moved
If r = 66 Then: r = 65: GoTo moved
If r = 65 Then: r = 64: GoTo moved
If r = 44 Then: r = 45: GoTo moved
If r = 45 Then: r = 46: GoTo moved
If r = 63 Then: r = 62: GoTo moved
If r = 62 Then: r = 61: GoTo moved
If r = 52 Then: r = 51: GoTo moved
If r = 75 Then: r = 74: GoTo moved
If r = 74 Then: r = 73: GoTo moved
If r = 68 Then: r = 69: GoTo moved
If r = 69 Then: r = 70: GoTo moved
If r = 59 Then: r = 60: GoTo moved
If r = 60 Then: r = 53: GoTo moved
If r = 72 Then: r = 71: GoTo moved
If r = 77 Then: r = 78: GoTo moved
If r = 78 Then: r = 79: GoTo moved
If r = 57 Then: r = 56: GoTo moved
If r = 56 Then: r = 55: GoTo moved
If r = 94 Then: r = 95: GoTo moved
If r = 95 Then: r = 97: GoTo moved
If r = 97 Then: r = 98: GoTo moved
If r = 82 Then: r = 83: GoTo moved
If r = 83 Then: r = 84: GoTo moved
If r = 85 Then: r = 86: GoTo moved
If r = 86 Then: r = 92: GoTo moved
If r = 91 Then: r = 88: GoTo moved
If r = 90 Then: r = 89: GoTo moved
If r = 106 Then: r = 105: GoTo moved
If r = 104 Then: r = 103: GoTo moved
If r = 103 Then: r = 102: GoTo moved
If r = 102 Then: r = 100: GoTo moved
If r = 109 Then: r = 108: GoTo moved
If r = 113 Then: r = 110: GoTo moved
If r = 112 Then: r = 111: GoTo moved
If r = 33 Then: r = 114: GoTo moved
If r = 114 Then: r = 115: GoTo moved
If r = 115 Then: r = 116: GoTo moved
If r = 116 Then: r = 117: GoTo moved
If r = 117 Then: r = 118: GoTo moved
If r = 118 Then: r = 119: GoTo moved
If r = 119 Then: r = 120: GoTo moved
If r = 120 Then: r = 121: GoTo moved
If r = 121 Then: r = 122: GoTo moved
If r = 122 Then: r = 123: GoTo moved
If r = 123 Then: r = 124: GoTo moved
If r = 133 Then: r = 132: GoTo moved
If r = 157 Then: r = 156: GoTo moved
If r = 156 Then: r = 155: GoTo moved
If r = 135 Then: r = 136: GoTo moved
If r = 136 Then: r = 137: GoTo moved
If r = 137 Then: r = 139: GoTo moved
If r = 131 Then: r = 130: GoTo moved
If r = 140 Then: r = 144: GoTo moved
If r = 144 Then: r = 145: GoTo moved
If r = 129 Then: r = 128: GoTo moved
If r = 128 Then: r = 127: GoTo moved
If r = 142 Then: r = 141: GoTo moved
If r = 146 Then: r = 147: GoTo moved
If r = 147 Then: r = 148: GoTo moved
If r = 148 Then: r = 149: GoTo moved
If r = 149 Then: r = 150: GoTo moved
If r = 150 Then: r = 151: GoTo moved
If r = 151 Then: r = 152: GoTo moved
If r = 154 Then: r = 160: GoTo moved
If r = 160 Then: r = 161: GoTo moved
If r = 163 Then: r = 164: GoTo moved
If r = 164 Then: r = 165: GoTo moved
If r = 165 Then: r = 171: GoTo moved
If r = 171 Then: r = 177: GoTo moved
If r = 177 Then: r = 178: GoTo moved
If r = 178 Then: r = 184: GoTo moved
If r = 183 Then: r = 180: GoTo moved
If r = 182 Then: r = 181: GoTo moved
If r = 167 Then: r = 170: GoTo moved
If r = 168 Then: r = 169: GoTo moved
If r = 174 Then: r = 173: GoTo moved
If r = 175 Then: r = 176: GoTo moved
If r = 185 Then: r = 188: GoTo moved
If r = 186 Then: r = 187: GoTo moved
If r = 187 Then: r = 189: GoTo moved
If r = 192 Then: r = 193: GoTo moved
If r = 193 Then: r = 194: GoTo moved
If r = 195 Then: r = 196: GoTo moved
If r = 196 Then: r = 197: GoTo moved
If r = 198 Then: r = 201: GoTo moved
If r = 199 Then: r = 200: GoTo moved
End If
If cmd$ = "GO WEST" Or cmd$ = "WEST" Or cmd$ = "W" Then
If r = 8 Then: r = 9: GoTo moved
If r = 9 Then: r = 2: GoTo moved
If r = 6 Then: r = 5: GoTo moved
If r = 5 Then: r = 4: GoTo moved
If r = 21 Then: r = 20: GoTo moved
If r = 20 Then: r = 19: GoTo moved
If r = 11 Then: r = 22: GoTo moved
If r = 15 Then: r = 16: GoTo moved
If r = 16 Then: r = 17: GoTo moved
If r = 13 Then: r = 14: GoTo moved
If r = 23 Then: r = 24: GoTo moved
If r = 24 Then: r = 25: GoTo moved
If r = 36 Then: r = 37: GoTo moved
If r = 37 Then: r = 38: GoTo moved
If r = 31 Then: r = 30: GoTo moved
If r = 29 Then: r = 28: GoTo moved
If r = 28 Then: r = 27: GoTo moved
If r = 34 Then: r = 33: GoTo moved
If r = 33 Then: r = 32: GoTo moved
If r = 18 Then: r = 39: GoTo moved
If r = 39 Then: r = 40: GoTo moved
If r = 40 Then: r = 41: GoTo moved
If r = 43 Then: r = 44: GoTo moved
If r = 45 Then: r = 61: GoTo moved
If r = 61 Then: r = 59: GoTo moved
If r = 59 Then: r = 58: GoTo moved
If r = 58 Then: r = 57: GoTo moved
If r = 47 Then: r = 46: GoTo moved
If r = 53 Then: r = 54: GoTo moved
If r = 54 Then: r = 55: GoTo moved
If r = 49 Then: r = 50: GoTo moved
If r = 50 Then: r = 51: GoTo moved
If r = 64 Then: r = 63: GoTo moved
If r = 63 Then: r = 70: GoTo moved
If r = 66 Then: r = 67: GoTo moved
If r = 67 Then: r = 68: GoTo moved
If r = 68 Then: r = 71: GoTo moved
If r = 73 Then: r = 72: GoTo moved
If r = 72 Then: r = 79: GoTo moved
If r = 75 Then: r = 76: GoTo moved
If r = 76 Then: r = 77: GoTo moved
If r = 84 Then: r = 85: GoTo moved
If r = 91 Then: r = 90: GoTo moved
If r = 86 Then: r = 87: GoTo moved
If r = 87 Then: r = 88: GoTo moved
If r = 88 Then: r = 89: GoTo moved
If r = 94 Then: r = 93: GoTo moved
If r = 93 Then: r = 92: GoTo moved
If r = 96 Then: r = 95: GoTo moved
If r = 97 Then: r = 99: GoTo moved
If r = 77 Then: r = 80: GoTo moved
If r = 80 Then: r = 81: GoTo moved
If r = 81 Then: r = 82: GoTo moved
If r = 82 Then: r = 100: GoTo moved
If r = 100 Then: r = 101: GoTo moved
If r = 105 Then: r = 104: GoTo moved
If r = 104 Then: r = 108: GoTo moved
If r = 107 Then: r = 106: GoTo moved
If r = 109 Then: r = 110: GoTo moved
If r = 110 Then: r = 111: GoTo moved
If r = 113 Then: r = 112: GoTo moved
If r = 135 Then: r = 134: GoTo moved
If r = 134 Then: r = 116: GoTo moved
If r = 142 Then: r = 143: GoTo moved
If r = 143 Then: r = 137: GoTo moved
If r = 137 Then: r = 138: GoTo moved
If r = 141 Then: r = 140: GoTo moved
If r = 140 Then: r = 139: GoTo moved
If r = 133 Then: r = 120: GoTo moved
If r = 131 Then: r = 132: GoTo moved
If r = 146 Then: r = 145: GoTo moved
If r = 129 Then: r = 130: GoTo moved
If r = 127 Then: r = 126: GoTo moved
If r = 126 Then: r = 125: GoTo moved
If r = 125 Then: r = 124: GoTo moved
If r = 150 Then: r = 159: GoTo moved
If r = 159 Then: r = 158: GoTo moved
If r = 158 Then: r = 157: GoTo moved
If r = 152 Then: r = 153: GoTo moved
If r = 153 Then: r = 154: GoTo moved
If r = 154 Then: r = 155: GoTo moved
If r = 163 Then: r = 162: GoTo moved
If r = 162 Then: r = 161: GoTo moved
If r = 165 Then: r = 166: GoTo moved
If r = 166 Then: r = 167: GoTo moved
If r = 167 Then: r = 168: GoTo moved
If r = 170 Then: r = 169: GoTo moved
If r = 175 Then: r = 174: GoTo moved
If r = 176 Then: r = 173: GoTo moved
If r = 173 Then: r = 172: GoTo moved
If r = 172 Then: r = 171: GoTo moved
If r = 183 Then: r = 182: GoTo moved
If r = 178 Then: r = 179: GoTo moved
If r = 179 Then: r = 180: GoTo moved
If r = 180 Then: r = 181: GoTo moved
If r = 186 Then: r = 185: GoTo moved
If r = 185 Then: r = 184: GoTo moved
If r = 187 Then: r = 188: GoTo moved
If r = 189 Then: r = 190: GoTo moved
If r = 190 Then: r = 191: GoTo moved
If r = 191 Then: r = 192: GoTo moved
If r = 195 Then: r = 194: GoTo moved
If r = 199 Then: r = 198: GoTo moved
If r = 198 Then: r = 197: GoTo moved
If r = 200 Then: r = 201: GoTo moved
End If
'''ITEMS
If (cmd$ = "EXAMINE LANTERN") And gotlantern = 1 Then
Cls
Print "/ It's been in the family for generations. It will help me to see what"
Print "/ awaits me in the darkness."
Do: Loop Until InKey$ = ""
Do: Loop Until InKey$ <> ""
End If
If (cmd$ = "EXAMINE SWORD") And gotsword = 1 Then
Cls
Print "/ A fine sword crafted by a local blacksmith in the village. Perfect"
Print "/ for combat."
Do: Loop Until InKey$ = ""
Do: Loop Until InKey$ <> ""
End If
If (cmd$ = "EXAMINE BOOK OF ZOLON") And gotbookofzolon = 1 Then
Cls
Print "/ An old book that contains great power. Though, you can't read it."
Do: Loop Until InKey$ = ""
Do: Loop Until InKey$ <> ""
End If
'''OBJECTS
'''''''''''''''''''''''''''''''''''''''''''
If (cmd$ = "EXAMINE MESSAGE") And r = 11 Then
Cls
Print "/ It's written on an old sheet of parchment paper and hung into"
Print "/ place with what appears to be rusted nails."
Do: Loop Until InKey$ = ""
Do: Loop Until InKey$ <> ""
End If
If (cmd$ = "READ MESSAGE") And r = 11 Then
Cls
Print "/ For whom enters this place of death and misery? Must remember that"
Print "/ the book of law will give guidance and protection within this place."
Do: Loop Until InKey$ = ""
Do: Loop Until InKey$ <> ""
End If
If (cmd$ = "EXAMINE COFFIN") And r = 17 Then