Collection of all my old, mostly rubbish QB games. Not TG

[otaku84]

we call those dollars. :wink:

[whitetiger0990]

we call those dollars. :wink:

you don't say...

[barok]

heh, maybe i'll post up my first game ever as well. It's a fighting game. My VERY first game (many years ago) is on a floppy disk (one of the big disks, forget name) so i can't show it. it's basica too. i don't even remember what it was about.

[TheBigBasicQ]

The second one was very nice indeed. Though the first one was a little wierd, i always got killed =)

[otaku84]

as promised. ASCII cell based castle game. Incomplete, never added all items, doors or enemies. Hidden bar/pub, some nice exploring. A little dull and VERY SIMPLE.
Longest Ive written, but thats due to POOR coding ability!
Maybe some noob wants to finish it.

Code:

SCREEN 12
CLS
CLEAR
COLOR 7
RANDOMIZE TIMER
A = 18
B = 51
AR = 0
BR = 0
RM = 16 'CASTLE ROOM
GT% = 0 'WETHER GATE IS OPEN OR CLOSED
HGA = 2: HGB = 26   'START OF HORIZON GATE
VGA = 2: VGB = 26    'START OF VERTICAL GATE
GN$ = "0"     'GATE NUMBER
HBLA = 22: HBLB = 29: HBLC = 22: HBLD = 29 'INITIAL WALL SETTINGS
VBLA = 5: VBLB = 78: VBLC = 5: VBLD = 26
I1$ = "?" 'Helmet"
I2$ = "?" '(B)ombs"
I3$ = "?" 'Lamp"
I4$ = "?" '(S)hovel"
I5$ = "?" 'Gold"
I6$ = "?" 'Silver"
K9 = 10    'KEY HELD RIGHT NOW!
IA = 2: IB = 26: ITM% = 0 'COLLISION DETETCION FOR ITEMS/ENEMIES

INPUT "music, Y or N ?", MZ$
CLS
LOCATE 3, 1
PRINT "You awake with no memory"
PRINT "of who you are."
PRINT "Behind, the gate is shut!"
PRINT
PRINT "Not knowing what to do,"
PRINT "you decide to try and"
PRINT "escape this infernal"
PRINT "Castle"
PRINT
PRINT "Gather the 8 Keys to"
PRINT "open doors"
PRINT "Collect items to kill"
PRINT "the castle demons."
PRINT "COMMANDS:"
PRINT "(Y)es (N)o (B)omb"

GOSUB MKRM

PLAY "mb"
'music1$ = "ML T90 o2 f7 f7 f+7 f7 g+7 g+8 f+8 f4 f8 f+8 f8 o3 c8 c8 o2 b8 a8 P35"
mflag = 2
flag = 1
PLAY "mb"                                 'play music in background
PLAY music1$                              'begin music
PLAY ON                                   'enable PLAY error trapping

999 'START OF LOOP
LOCATE 2, 1
PRINT A, B

IF MZ$ = "Y" THEN ON PLAY(1) GOSUB PLAYMUSIC

IF A <= 1 THEN SOUND 180, .9: A = 22: RM = RM + 10: GOSUB CHRM
IF A >= 23 THEN SOUND 180, .9: A = 2: RM = RM - 10: GOSUB CHRM
  IF B <= 25 THEN SOUND 180, .9: B = 78: RM = RM - 1: GOSUB CHRM
   IF B >= 79 THEN SOUND 180, .9: B = 26: RM = RM + 1: GOSUB CHRM

   IF K9 < KNH AND A = HGA AND B >= HGB AND B <= (HGB + 4) THEN A = A + AR: B = B + BR: SOUND 80, .8
  IF K9 < KNV AND A >= VGA AND A <= (VGA + 2) AND B = VGB THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A = IA AND B = IB THEN GOSUB COLI  ' ENEMEY ITEM COLLSION
IF A = HBLA AND B >= HBLB AND B <= (HBLB + 25) THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A = HBLC AND B >= HBLD AND B <= (HBLD + 25) THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A >= VBLA AND A <= (VBLA + 9) AND B = VBLB THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A >= VBLC AND A <= (VBLC + 9) AND B = VBLD THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A = 2 AND B >= 26 AND B <= 49 THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A = 2 AND B >= 55 AND B <= 78 THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A = 22 AND B >= 26 AND B <= 49 THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A = 22 AND B >= 55 AND B <= 78 THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A >= 2 AND A <= 10 AND B = 26 THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A >= 14 AND A <= 22 AND B = 26 THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A >= 2 AND A <= 10 AND B = 78 THEN A = A + AR: B = B + BR: SOUND 80, .8
IF A >= 14 AND A <= 22 AND B = 78 THEN A = A + AR: B = B + BR: SOUND 80, .8

LOCATE A, B
PRINT ""

SELECT CASE INKEY$
CASE CHR$(0) + "H": XX = XX - 1
CASE CHR$(0) + "P": XX = XX + 1
CASE CHR$(0) + "K": YY = YY - 1
CASE CHR$(0) + "M": YY = YY + 1
CASE CHR$(27): END
END SELECT
IF XX < 0 THEN GOSUB U
IF XX > 0 THEN GOSUB D
IF YY < 0 THEN GOSUB L
IF YY > 0 THEN GOSUB R
GOTO 999

U:
XX = 0
LOCATE A, B
PRINT " "
A = A - 1
AR = 1
BR = 0
RETURN

D:
XX = 0
LOCATE A, B
PRINT " "
A = A + 1
AR = -1
BR = 0
RETURN

L:
YY = 0
LOCATE A, B
PRINT " "
B = B - 1
AR = 0
BR = 1
RETURN

R:
YY = 0
LOCATE A, B
PRINT " "
B = B + 1
AR = 0
BR = -1
RETURN

CHRM:
WE = 1               'THIS WHOLE THING DELETES THE SCREEN
WE2 = 1
FOR i% = 1 TO 434
LOCATE WE, WE2
PRINT "    "
WE2 = WE2 + 4
IF WE2 >= 78 THEN WE2 = 1: WE = WE + 1
NEXT i%

LT = 0 'ERASES DARK LIGHT ITEMS
HGA = 2: HGB = 26    'START OF HORIZON GATE
VGA = 2: VGB = 26    'START OF VERTICAL GATE
GNV$ = "0": GNH$ = "0"         'GATE NUMBER
IA = 2: IB = 26: ITM% = 0 'COLLISION DETETCION FOR ITEMS/ENEMIES

IF RM = 2 THEN GOSUB 2
IF RM = 6 THEN GOSUB ENDING
IF RM = 7 THEN GOSUB 7
IF RM = 8 THEN GOSUB 8
IF RM = 10 THEN GOSUB 10
IF RM = 11 THEN GOSUB 11
IF RM = 12 THEN GOSUB 12
IF RM = 15 THEN GOSUB 15
IF RM = 16 THEN GOSUB 16
IF RM = 18 THEN GOSUB 18
IF RM = 19 THEN GOSUB 19
IF RM = 20 THEN GOSUB 20
IF RM = 21 THEN GOSUB 21
IF RM = 22 THEN GOSUB 22
IF RM = 23 THEN GOSUB 23
IF RM = 24 THEN GOSUB 24
IF RM = 25 THEN GOSUB 25
IF RM = 26 THEN GOSUB 26
IF RM = 27 THEN GOSUB 27
IF RM = 28 THEN GOSUB 28
IF RM = 29 THEN GOSUB 29
IF RM = 31 THEN GOSUB 31
IF RM = 32 THEN GOSUB 32
IF RM = 33 THEN GOSUB 33
IF RM = 34 THEN GOSUB 34
IF RM = 35 THEN GOSUB 35
IF RM = 36 THEN GOSUB 36
IF RM = 37 THEN GOSUB 37
IF RM = 38 THEN GOSUB 38
IF RM = 39 THEN GOSUB 39
IF RM = 41 THEN GOSUB 41
IF RM = 42 THEN GOSUB 42
IF RM = 43 THEN GOSUB 43
IF RM = 44 THEN GOSUB 44
IF RM = 45 THEN GOSUB 45
IF RM = 46 THEN GOSUB 46
IF RM = 47 THEN GOSUB 47
IF RM = 48 THEN GOSUB 48
IF RM = 49 THEN GOSUB 49
IF RM = 50 THEN GOSUB 50
IF RM = 51 THEN GOSUB 51
IF RM = 52 THEN GOSUB 52
IF RM = 53 THEN GOSUB 53
IF RM = 54 THEN GOSUB 54
IF RM = 55 THEN GOSUB 55
IF RM = 56 THEN GOSUB 56
IF RM = 57 THEN GOSUB 47
IF RM = 58 THEN GOSUB 46
IF RM = 59 THEN GOSUB 59
IF RM = 61 THEN GOSUB 61
IF RM = 62 THEN GOSUB 62
IF RM = 63 THEN GOSUB 63
IF RM = 64 THEN GOSUB 64
IF RM = 65 THEN GOSUB 65
IF RM = 66 THEN GOSUB 66
IF RM = 67 THEN GOSUB 77
IF RM = 68 THEN GOSUB 68
IF RM = 69 THEN GOSUB 69
IF RM = 70 THEN GOSUB 70
IF RM = 71 THEN GOSUB 71
IF RM = 72 THEN GOSUB 72
IF RM = 73 THEN GOSUB 73
IF RM = 74 THEN GOSUB 74
IF RM = 75 THEN GOSUB 55
IF RM = 76 THEN GOSUB 76
IF RM = 77 THEN GOSUB 77
IF RM = 78 THEN GOSUB 78
IF RM = 80 THEN GOSUB 80
IF RM = 82 THEN GOSUB 82
IF RM = 83 THEN GOSUB 83
IF RM = 84 THEN GOSUB 84
IF RM = 85 THEN GOSUB 55
IF RM = 86 THEN GOSUB 86
IF RM = 87 THEN GOSUB 87
IF RM = 88 THEN GOSUB 88
IF RM = 89 THEN GOSUB 89
IF RM = 90 THEN GOSUB 90
IF RM = 92 THEN GOSUB 92
IF RM = 94 THEN GOSUB 94
IF RM = 95 THEN GOSUB 65
IF RM = 98 THEN GOSUB 98
GOSUB MKRM
RETURN

2 :
HBLA = 22: HBLB = 29: HBLC = 20: HBLD = 38
VBLA = 5: VBLB = 78: VBLC = 5: VBLD = 26
IF K6 = 0 THEN IA = 21: IB = 52: ITM% = 54
RETURN

7 :
HBLA = 22: HBLB = 38: HBLC = 2: HBLD = 36
VBLA = 5: VBLB = 26: VBLC = 12: VBLD = 31
LOCATE 3, 1
PRINT "Armory Room"
PRINT "Soldiers used to keep"
PRINT "weapons here."
RETURN

8 :
HBLA = 22: HBLB = 38: HBLC = 12: HBLD = 26
VBLA = 2: VBLB = 52: VBLC = 5: VBLD = 78
RETURN

10 :
HBLA = 21: HBLB = 38: HBLC = 15: HBLD = 38
VBLA = 6: VBLB = 27: VBLC = 6: VBLD = 77
IF K4 = 0 THEN IA = 19: IB = 52: ITM% = 52
RETURN

11 :
HBLA = 22: HBLB = 29: HBLC = 21: HBLD = 38
VBLA = 5: VBLB = 78: VBLC = 5: VBLD = 26
RETURN

12 :
HBLA = 21: HBLB = 26: HBLC = 21: HBLD = 53
VBLA = 6: VBLB = 26: VBLC = 6: VBLD = 78
HGA = 2: HGB = 50
VGA = 19: VGB = 52
GNH$ = "4":  KNH = 4: GNV$ = "5": KNV = 5
RETURN

15 :
HBLA = 10: HBLB = 26: HBLC = 10: HBLD = 52
VBLA = 3: VBLB = 48: VBLC = 3: VBLD = 56
RETURN

16 :
IF GT% = 0 THEN HBLA = 22: HBLB = 29: HBLC = 22: HBLD = 29
VBLA = 5: VBLB = 78: VBLC = 5: VBLD = 26
LOCATE 3, 1
PRINT "This is the"
PRINT "Castle Courtyard"
PRINT
PRINT "The gate leading to"
PRINT "freedom is bolted shut."
RETURN

18 :
HBLA = 12: HBLB = 28: HBLC = 12: HBLD = 54
VBLA = 3: VBLB = 49: VBLC = 13: VBLD = 49
RETURN

19 :
HBLA = 22: HBLB = 38: HBLC = 14: HBLD = 52
VBLA = 3: VBLB = 40: VBLC = 13: VBLD = 40
LOCATE 12, 26
PRINT "#"
RETURN

20 :
HBLA = 14: HBLB = 51: HBLC = 3: HBLD = 27
VBLA = 4: VBLB = 50: VBLC = 13: VBLD = 77
COLOR 12
LOCATE 9, 63
PRINT ""
RETURN

21 :
HBLA = 10: HBLB = 35: HBLC = 11: HBLD = 35
VBLA = 6: VBLB = 26: VBLC = 6: VBLD = 27
RETURN

22 :
HBLA = 3: HBLB = 33: HBLC = 6: HBLD = 39
VBLA = 6: VBLB = 65: VBLC = 6: VBLD = 38
HGA = 22: HGB = 50
GNH$ = "4": KNH = 4
RETURN

23 :
HBLA = 22: HBLB = 33: HBLC = 16: HBLD = 33
VBLA = 6: VBLB = 58: VBLC = 8: VBLD = 78
RETURN

24 :
HBLA = 13: HBLB = 51: HBLC = 10: HBLD = 53
VBLA = 3: VBLB = 50: VBLC = 13: VBLD = 77
RETURN

25 :
HBLA = 9: HBLB = 53: HBLC = 16: HBLD = 53
VBLA = 7: VBLB = 30: VBLC = 8: VBLD = 59
VGA = 11: VGB = 78    'START OF VERTICAL GATE
GNV$ = "1":  KNV = 1 'GATE NUMBER
IF K2 = 0 THEN IA = 12: IB = 65: ITM% = 50
RETURN

26 :
HBLA = 10: HBLB = 26: HBLC = 14: HBLD = 53
VBLA = 2: VBLB = 49: VBLC = 13: VBLD = 55
VGA = 11: VGB = 26    'START OF VERTICAL GATE
GNV$ = "1": KNV = 1  'GATE NUMBER
RETURN

27 :
HBLA = 2: HBLB = 40: HBLC = 22: HBLD = 40
VBLA = 8: VBLB = 47: VBLC = 8: VBLD = 57
RETURN

28 :
HBLA = 3: HBLB = 38: HBLC = 9: HBLD = 38
VBLA = 4: VBLB = 45: VBLC = 4: VBLD = 57
COLOR 4
LOCATE 6, 48
PRINT "SAVE IT!"
RETURN

29 :
HBLA = 20: HBLB = 40: HBLC = 4: HBLD = 36
VBLA = 7: VBLB = 28: VBLC = 10: VBLD = 78
HGA = 2: HGB = 50    'START OF VERTICAL GATE
GNH$ = "4": KNH = 4  'GATE NUMBER
RETURN

31 :
HBLA = 16: HBLB = 53: HBLC = 7: HBLD = 53
VBLA = 7: VBLB = 26: VBLC = 7: VBLD = 53
HGA = 2: HGB = 50
GNH$ = "3":  KNH = 3
RETURN

32 :
HBLA = 8: HBLB = 39: HBLC = 12: HBLD = 44
VBLA = 6: VBLB = 44: VBLC = 9: VBLD = 52
RETURN

33 :
HBLA = 10: HBLB = 53: HBLC = 14: HBLD = 53
VBLA = 8: VBLB = 69: VBLC = 8: VBLD = 78
IF K3 = 0 THEN IA = 12: IB = 67: ITM% = 51
RETURN

34 :
HBLA = 2: HBLB = 40: HBLC = 15: HBLD = 40
VBLA = 7: VBLB = 26: VBLC = 7: VBLD = 78
RETURN

35 :
HBLA = 7: HBLB = 39: HBLC = 16: HBLD = 39
VBLA = 7: VBLB = 26: VBLC = 7: VBLD = 52
RETURN

36 :
HBLA = 6: HBLB = 39: HBLC = 16: HBLD = 39
VBLA = 7: VBLB = 38: VBLC = 7: VBLD = 65
LOCATE 3, 1
PRINT "In front of you there is"
PRINT "a giant well filled with"
PRINT "dirty water."
PRINT
PRINT "It smells like they've"
PRINT "thrown prisoners into it."
COLOR 9
FP = 15
FOR i% = 1 TO 8
LOCATE FP, 40
PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
FP = FP - 1
NEXT i%
RETURN

37 :
HBLA = 21: HBLB = 40: HBLC = 22: HBLD = 40
VBLA = 13: VBLB = 77: VBLC = 1: VBLD = 52
COLOR 6
FOR i% = 1 TO 30
FP = INT(RND * 20) + 3: FP2 = INT(RND * 51) + 26
LOCATE FP, FP2
PRINT "!"
NEXT i%
COLOR 7
LOCATE 3, 1
PRINT "The area is ankle deep"
PRINT "in sand."
PRINT "There seems to be many"
PRINT "footprints everywhere."
PRINT
PRINT "This room's use is a"
PRINT "mystery."
VGA = 11: VGB = 78    'START OF VERTICAL GATE
GNV$ = "1":  KNV = 1 'GATE NUMBER
RETURN

38 :
HBLA = 17: HBLB = 33: HBLC = 14: HBLD = 53
VBLA = 7: VBLB = 59: VBLC = 13: VBLD = 54
VGA = 11: VGB = 26    'START OF VERTICAL GATE
GNV$ = "1":  KNV = 1 'GATE NUMBER
RETURN

39 :
HBLA = 12: HBLB = 39: HBLC = 14: HBLD = 39
VBLA = 7: VBLB = 27: VBLC = 7: VBLD = 77
HGA = 22: HGB = 50    'START OF VERTICAL GATE
GNH$ = "4": KNH = 4  'GATE NUMBER
RETURN

41 :
HBLA = 14: HBLB = 28: HBLC = 10: HBLD = 51
VBLA = 4: VBLB = 27: VBLC = 11: VBLD = 77
HGA = 22: HGB = 50
GNH$ = "3":  KNH = 3
RETURN

42 :
HBLA = 10: HBLB = 28: HBLC = 14: HBLD = 51
VBLA = 11: VBLB = 27: VBLC = 4: VBLD = 77
HGA = 2: HGB = 50
GNH$ = "2":  KNH = 2
RETURN

43 :
HBLA = 3: HBLB = 40: HBLC = 20: HBLD = 49
VBLA = 5: VBLB = 26: VBLC = 10: VBLD = 75
VGA = 11: VGB = 78
GNV$ = "3": KNV = 3
RETURN

44 :
HBLA = 2: HBLB = 29: HBLC = 22: HBLD = 39
VBLA = 3: VBLB = 41: VBLC = 3: VBLD = 62
VGA = 11: VGB = 26
GNV$ = "3": KNV = 3
RETURN

45 :
HBLA = 3: HBLB = 26: HBLC = 3: HBLD = 53
VBLA = 13: VBLB = 77: VBLC = 2: VBLD = 77
LOCATE 3, 1
PRINT "Here is a save fountain."
PRINT "This place must have"
PRINT "been a garden before."
RETURN

46 :
HBLA = 3: HBLB = 40: HBLC = 21: HBLD = 40
VBLA = 7: VBLB = 27: VBLC = 7: VBLD = 77
COLOR 14
FOR i% = 1 TO 50
FP = INT(RND * 19) + 3: FP2 = INT(RND * 49) + 28
LOCATE FP, FP2
PRINT "$"
NEXT i%
COLOR 7
LOCATE 3, 1
PRINT "Treasury Room:"
PRINT "This room is blocked"
PRINT "off. You can't get"
PRINT "the gold, EVER."
RETURN

47 :
HBLA = 12: HBLB = 39: HBLC = 12: HBLD = 39
VBLA = 13: VBLB = 52: VBLC = 2: VBLD = 52
RETURN

48 :
HBLA = 3: HBLB = 39: HBLC = 17: HBLD = 40
VBLA = 5: VBLB = 27: VBLC = 5: VBLD = 77
RETURN

49 :
HBLA = 10: HBLB = 39: HBLC = 15: HBLD = 40
VBLA = 8: VBLB = 47: VBLC = 8: VBLD = 57
LOCATE 3, 1
PRINT "Art Gallery"
PRINT "There is a painting"
PRINT "of the designer."
PRINT "He looks crazy..."
COLOR 12
LOCATE 12, 51
PRINT "`Ù'"
LOCATE 13, 52
PRINT "ò"

RETURN

50 :
HBLA = 5: HBLB = 26: HBLC = 19: HBLD = 26
VBLA = 3: VBLB = 50: VBLC = 12: VBLD = 50
IF K5 = 0 THEN IA = 7: IB = 48: ITM% = 53
RETURN

51 :
HBLA = 13: HBLB = 26: HBLC = 8: HBLD = 35
VBLA = 8: VBLB = 26: VBLC = 8: VBLD = 35
HGA = 3: HGB = 50    'START OF VERTICAL GATE
GNH$ = "6":  KNH = 6 'GATE NUMBER
RETURN

52 :
HBLA = 2: HBLB = 38: HBLC = 13: HBLD = 37
VBLA = 3: VBLB = 52: VBLC = 3: VBLD = 50
HGA = 22: HGB = 50
GNH$ = "2":  KNH = 2
RETURN

53 :
HBLA = 3: HBLB = 40: HBLC = 12: HBLD = 39
VBLA = 8: VBLB = 33: VBLC = 8: VBLD = 70
RETURN

54 :
HBLA = 2: HBLB = 29: HBLC = 22: HBLD = 39
VBLA = 12: VBLB = 41: VBLC = 12: VBLD = 62
RETURN

55 :
HBLA = INT(RND * 19) + 3: HBLB = INT(RND * 27) + 26: HBLC = INT(RND * 19) + 3: HBLD = INT(RND * 27) + 26
VBLA = INT(RND * 11) + 2: VBLB = INT(RND * 52) + 26:  VBLC = INT(RND * 11) + 2: VBLD = INT(RND * 52) + 26
LOCATE 3, 1
PRINT "hAUNTED rOOM!"
PRINT "You can hear an unearthly"
PRINT "wailing coming from"
PRINT "the walls:"
PRINT
PRINT "'bEwArE!'"
PRINT "'HeAd LeFt!'"
PRINT "'rOoM 33 HoLdS tHe'"
PRINT "'GiFt Of ThReE kEy!'"
RETURN

56 :
HBLA = 17: HBLB = 50: HBLC = 9: HBLD = 27
VBLA = 7: VBLB = 50: VBLC = 6: VBLD = 77
HGA = 2: HGB = 50   'START OF VERTICAL GATE
GNH$ = "7":  KNH = 7 'GATE NUMBER
RETURN

59 :
HBLA = 13: HBLB = 40: HBLC = 10: HBLD = 40
VBLA = 8: VBLB = 52: VBLC = 6: VBLD = 77
HGA = 2: HGB = 50    'START OF VERTICAL GATE
GNH$ = "5":  KNH = 5 'GATE NUMBER
RETURN

61 :
HBLA = 2: HBLB = 40: HBLC = 8: HBLD = 40
VBLA = 8: VBLB = 26: VBLC = 8: VBLD = 65
VGA = 11: VGB = 78    'START OF VERTICAL GATE
GNV$ = "7":  KNV = 7 'GATE NUMBER
HGA = 2: HGB = 50    'START OF VERTICAL GATE
GNH$ = "6":  KNH = 6 'GATE NUMBER
RETURN

62 :
HBLA = 22: HBLB = 40: HBLC = 11: HBLD = 53
VBLA = 12: VBLB = 53: VBLC = 12: VBLD = 52
COLOR 14
LOCATE 12, 55
PRINT "           "
COLOR 13
LOCATE 12, 64
PRINT "í"
COLOR 7
LOCATE 3, 1
PRINT "Drinking Tavern:"
PRINT "There are drinks of ale"
PRINT "and wine on the bar."
PRINT
PRINT "They may be poisoned."
PRINT "So you leave well alone."
LOCATE 16, 65
PRINT ""
LOCATE 18, 63
PRINT "Yeah' mate!?"
RETURN

63 :
HBLA = 15: HBLB = 32: HBLC = 10: HBLD = 32
VBLA = 7: VBLB = 26: VBLC = 8: VBLD = 27
IF K8 = 0 THEN IA = 13: IB = 30: ITM% = 56
VGA = 11: VGB = 78    'START OF VERTICAL GATE
GNV$ = "8":  KNV = 7 'GATE NUMBER
RETURN

64 :
HBLA = 22: HBLB = 38: HBLC = 17: HBLD = 37
VBLA = 12: VBLB = 52: VBLC = 8: VBLD = 37
HGA = 2: HGB = 50    'START OF VERTICAL GATE
GNH$ = "8":  KNH = 8 'GATE NUMBER
VGA = 11: VGB = 26    'START OF VERTICAL GATE
GNV$ = "7":  KNV = 7 'GATE NUMBER
RETURN

65 :
HBLA = 3: HBLB = 41: HBLC = 17: HBLD = 39
VBLA = 12: VBLB = 64: VBLC = 12: VBLD = 38
VGA = 11: VGB = 78    'START OF VERTICAL GATE
GNV$ = "7":  KNV = 7 'GATE NUMBER
RETURN

66 :
HBLA = 10: HBLB = 26: HBLC = 14: HBLD = 26
VBLA = 9: VBLB = 76: VBLC = 7: VBLD = 77
HGA = 22: HGB = 50    'START OF VERTICAL GATE
GNH$ = "7":  KNH = 7 'GATE NUMBER
VGA = 11: VGB = 26    'START OF VERTICAL GATE
GNV$ = "7":  KNV = 7 'GATE NUMBER
RETURN

68 :
HBLA = 10: HBLB = 54: HBLC = 14: HBLD = 54
VBLA = 8: VBLB = 27: VBLC = 8: VBLD = 31
RETURN

69 :
HBLA = 3: HBLB = 40: HBLC = 16: HBLD = 40
VBLA = 4: VBLB = 42: VBLC = 4: VBLD = 63
RETURN

70 :
HBLA = 12: HBLB = 40: HBLC = 22: HBLD = 40
VBLA = 8: VBLB = 52: VBLC = 7: VBLD = 78
LOCATE 3, 1
PRINT "Church Chapel:"
PRINT "There is a large cross"
PRINT "No doubt unholy weddings"
PRINT "were held here."
PRINT "The walls are covered"
PRINT "in stained glass windows"
RETURN

71 :
HBLA = 7: HBLB = 54: HBLC = 18: HBLD = 54
VBLA = 8: VBLB = 53: VBLC = 8: VBLD = 52
VGA = 11: VGB = 78    'START OF VERTICAL GATE
GNV$ = "7":  KNV = 7 'GATE NUMBER
RETURN

72 :
HBLA = 7: HBLB = 40: HBLC = 10: HBLD = 40
VBLA = 7: VBLB = 45: VBLC = 7: VBLD = 60
VGA = 11: VGB = 26    'START OF VERTICAL GATE
GNV$ = "7":  KNV = 7 'GATE NUMBER
RETURN

73 :
HBLA = 21: HBLB = 40: HBLC = 8: HBLD = 52
VBLA = 7: VBLB = 27: VBLC = 3: VBLD = 65
RETURN

74 :
HBLA = 2: HBLB = 40: HBLC = 4: HBLD = 28
VBLA = 4: VBLB = 28: VBLC = 4: VBLD = 77
HGA = 22: HGB = 50    'START OF VERTICAL GATE
GNH$ = "8":  KNH = 8 'GATE NUMBER
RETURN

76 :
HBLA = 10: HBLB = 54: HBLC = 9: HBLD = 51
VBLA = 12: VBLB = 55: VBLC = 11: VBLD = 54
RETURN

77 :
IF A <= 9 THEN RM = 57: GOTO 47
IF A >= 15 THEN RM = 77
HBLA = 10: HBLB = 27: HBLC = 2: HBLD = 39
VBLA = 13: VBLB = 52: VBLC = 10: VBLD = 52
IF K1 = 0 THEN IA = 6: IB = 30: ITM% = 49
RETURN

78 :
HBLA = 11: HBLB = 52: HBLC = 13: HBLD = 52
VBLA = 11: VBLB = 27: VBLC = 12: VBLD = 67
RETURN

80 :
HBLA = 21: HBLB = 50: HBLC = 10: HBLD = 50
VBLA = 4: VBLB = 27: VBLC = 11: VBLD = 77
RETURN

82 :
HBLA = 6: HBLB = 28: HBLC = 17: HBLD = 28
VBLA = 7: VBLB = 27: VBLC = 7: VBLD = 54
HGA = 3: HGB = 50    'START OF VERTICAL GATE
GNH$ = "8":  KNH = 8 'GATE NUMBER
RETURN

83 :
HBLA = 2: HBLB = 38: HBLC = 7: HBLD = 40
VBLA = 8: VBLB = 52: VBLC = 7: VBLD = 78
RETURN

84 :
HBLA = 22: HBLB = 38: HBLC = 12: HBLD = 27
VBLA = 8: VBLB = 26: VBLC = 8: VBLD = 65
HGA = 3: HGB = 50    'START OF VERTICAL GATE
GNH$ = "6":  KNH = 6 'GATE NUMBER
RETURN

86 :
HBLA = 3: HBLB = 38: HBLC = 9: HBLD = 27
VBLA = 8: VBLB = 27: VBLC = 2: VBLD = 50
RETURN

87 :
HBLA = 2: HBLB = 38: HBLC = 22: HBLD = 29
VBLA = 13: VBLB = 52: VBLC = 2: VBLD = 52
RETURN

88 :
HBLA = 12: HBLB = 25: HBLC = 12: HBLD = 54
VBLA = 13: VBLB = 52: VBLC = 2: VBLD = 52
VGA = 11: VGB = 26    'START OF VERTICAL GATE
GNV$ = "6":  KNV = 6 'GATE NUMBER
RETURN

89 :
HBLA = 2: HBLB = 35: HBLC = 22: HBLD = 40
VBLA = 1: VBLB = 26: VBLC = 1: VBLD = 78
RETURN

90 :
HBLA = 13: HBLB = 52: HBLC = 9: HBLD = 40
VBLA = 3: VBLB = 50: VBLC = 7: VBLD = 56
HGA = 22: HGB = 50    'START OF VERTICAL GATE
GNH$ = "6":  KNH = 6 'GATE NUMBER
RETURN

92 :
HBLA = 10: HBLB = 27: HBLC = 10: HBLD = 52
VBLA = 11: VBLB = 27: VBLC = 11: VBLD = 77
RETURN

94 :
HBLA = 2: HBLB = 40: HBLC = 2: HBLD = 40
VBLA = 11: VBLB = 26: VBLC = 11: VBLD = 78
IF K7 = 0 THEN IA = 12: IB = 51: ITM% = 55
RETURN

98 :
HBLA = 3: HBLB = 40: HBLC = 19: HBLD = 40
VBLA = 6: VBLB = 27: VBLC = 8: VBLD = 77
RETURN

MKRM:
FOR i% = 1 TO 5       'THIS CRAP DRAWS GATES
LOCATE HGA, HGB
PRINT GNH$
HGB = HGB + 1
NEXT i%
HGB = HGB - 5
FOR i% = 1 TO 3
LOCATE VGA, VGB
PRINT GNV$
VGA = VGA + 1
NEXT i%
VGA = VGA - 3

LOCATE IA, IB
PRINT CHR$(ITM%)   'WHAT ITEM LOOKS LIKE!

IF LT = 0 THEN     'DECIDES IF ITS A DARK OF LIGHT ROOM
COLOR 7
LOCATE 2, 26
PRINT "²²²²²²²²²²²²²²²²²²²²²²²²"
LOCATE 2, 55
PRINT "²²²²²²²²²²²²²²²²²²²²²²²²" '55 BLOCKS
LOCATE 22, 26
PRINT "²²²²²²²²²²²²²²²²²²²²²²²²"
LOCATE 22, 55
PRINT "²²²²²²²²²²²²²²²²²²²²²²²²" '55 BLOCKS
WB = 3
FOR i% = 1 TO 8
LOCATE WB, 26
PRINT "²"
LOCATE WB, 78
PRINT "²"
WB = WB + 1
NEXT i%
WB = 14
FOR i% = 1 TO 8
LOCATE WB, 26
PRINT "²"
LOCATE WB, 78
PRINT "²"
WB = WB + 1
NEXT i%
FOR i% = 1 TO 26
LOCATE HBLA, HBLB
PRINT "²"
HBLB = HBLB + 1
NEXT i%
HBLB = HBLB - 26
  FOR i% = 1 TO 26
  LOCATE HBLC, HBLD
  PRINT "²"
  HBLD = HBLD + 1
  NEXT i%
  HBLD = HBLD - 26
   FOR i% = 1 TO 10
   LOCATE VBLA, VBLB
   PRINT "²"
   VBLA = VBLA + 1
   NEXT i%
   VBLA = VBLA - 10
    FOR i% = 1 TO 10
    LOCATE VBLC, VBLD
    PRINT "²"
    VBLC = VBLC + 1
    NEXT i%
    VBLC = VBLC - 10
    END IF
PR:
LOCATE 1, 1
PRINT "Castle Room:"; RM
LOCATE 24, 1
PRINT "Keys:"; K1; K2; K3; K4;
LOCATE 26, 6
PRINT K5; K6; K7; K8;
  LOCATE 24, 26
  PRINT "Items:  "; I1$; "   "; I2$; "   "; I3$
   LOCATE 26, 26
   PRINT "        "; I4$; "   "; I5$; "   "; I6$
RETURN

COLI:
IF ITM% = 49 THEN
K1 = 1
IF K9 < 1 THEN K9 = 1
SOUND 200, 2: SOUND 350, 3
END IF
IF ITM% = 50 THEN
K2 = 2
IF K9 < 2 THEN K9 = 2
SOUND 200, 2: SOUND 350, 3
END IF
IF ITM% = 51 THEN
K3 = 3
IF K9 < 3 THEN K9 = 3
SOUND 200, 2: SOUND 350, 3
END IF
IF ITM% = 52 THEN
K4 = 4
IF K9 < 4 THEN K9 = 4
SOUND 200, 2: SOUND 350, 3
END IF
IF ITM% = 53 THEN
K5 = 5
IF K9 < 5 THEN K9 = 5
SOUND 200, 2: SOUND 350, 3
END IF
IF ITM% = 54 THEN
K6 = 6
IF K9 < 6 THEN K9 = 6
SOUND 200, 2: SOUND 350, 3
END IF
IF ITM% = 55 THEN
K7 = 7
IF K9 < 7 THEN K9 = 7
SOUND 200, 2: SOUND 350, 3
END IF
IF ITM% = 56 THEN
K8 = 8
IF K9 < 6 THEN K9 = 8
SOUND 200, 2: SOUND 350, 3
END IF

GOSUB PR
IA = 2: IB = 26: ITM% = 0 'COLLISION DETETCION FOR ITEMS/ENEMIES
RETURN

PLAYMUSIC:
PLAY music1$
RETURN

ENDING:
CLS
PRINT "YOU MADE IT DUDE, YOU ARE FREE."
PRINT "FREE TO ROAM THE DESERT OF DREAMS FOR ALL ETERNITY"

Pretty poor huh? was going to have saving and other stuff, but I just lost interest. :barf:
later today, Ill put up my finished, graphics based version. Very similar to adventure on 2600.
cya then.

[otaku84]

here as promised is the full graphics adventure based game. think atari 2600, I made graphics blocky on purpose.

Code:

SCREEN 13
M = 100
N = 150
TRUN = 100
101
LOCATE 1, 1
PRINT 1001 - TRUN; "UP/DOWN TO CHANGE SPEED PUSH SPACE BAR  AT DESIRED SPEED"
SELECT CASE INKEY$
CASE CHR$(0) + "H": XX = XX - 1
CASE CHR$(0) + "P": XX = XX + 1
CASE CHR$(32): YY = YY + 1
END SELECT
IF XX < 0 THEN GOSUB HSPD
IF XX > 0 THEN GOSUB LSPD
IF YY > 0 THEN GOTO BEG
SPV = SPV + 1
IF SPV >= TRUN THEN GOSUB MMM
LINE (M, N)-(M + 4, N + 10), 15, BF             'THIS IS MONSTER
LINE (M, N + 4)-(M + 20, N + 10), 15, BF
LINE (M + 20, N)-(M + 24, N + 10), 15, BF
LINE (M + 6, N + 10)-(M + 18, N + 14), 15, BF
LINE (M + 6, N + 6)-(M + 8, N + 8), 0, BF
LINE (M + 16, N + 6)-(M + 18, N + 8), 0, BF
LINE (M + 6, N + 14)-(M + 7, N + 16), 15, BF
LINE (M + 11, N + 14)-(M + 13, N + 16), 15, BF
LINE (M + 17, N + 14)-(M + 18, N + 16), 15, BF
LINE (M - 5, N - 5)-(M + 25, N + 25), 0, BF
IF N <= 50 THEN N = 150
GOTO 101

MMM:
SPV = 0
N = N - 3
RETURN

LSPD:
XX = 0
TRUN = TRUN + 1
IF TRUN >= 1001 THEN TRUN = 1000
RETURN

HSPD:
XX = 0
TRUN = TRUN - 1
IF TRUN <= 0 THEN TRUN = 1
RETURN

BEG:
SCREEN 12
COLOR 7
PRINT "                                  ARCAMUS"
PRINT ""
PRINT "                       ABOVE THE LOST CITY OF ARCAMUS"
PRINT "                           FLOAT THE ETERNAL MAZES"
PRINT "AS A YOUNG SEEKER, A NAME GIVE TO THOSE WHO WIELD THE KNOWLEDGE OF THE ANCIENTS"
PRINT "                  YOU HAVE BECOME ENTRAPT IN THE MAZES "
PRINT "              YOUR ONLY HOPE IS TO SEEK THE DEUS IMPEDIUS"
PRINT "            AND BRING IT TO THE GOLDEN YOU ROOM YOU START IN"
PRINT "            NEVER BEFORE SEEN BY MORTAL MEN, LEGEND HAS IT"
PRINT "                    THAT IT RESEMBLES A GLOWING PYRAMID"
PRINT ""
PRINT "BEWARE THE DEMONS THAT ROAM THE MAZES, ANCIENT GHOSTS OF ARMIES LONG LOST"
PRINT "                       YOU MUST FIND AND USE THE KEYS"
PRINT "                 TO OPEN THE GATES, LOCKED BY THE GATEKEEPRS"
PRINT "        ONLY BY EXPLORING THE MAZES, CAN YOU FIND THE ANCIENT WEAPON"
PRINT "      THAT SLAYS THE BEASTS, ALLOWING YOU TO LOCATE THE DEUS IMPEDIUS"
PRINT "          BUT THERE ARE ALSO MANY SECRETS HELD BY THESE MAZE WALLS"
PRINT "                A TRUE SEEKER SHALL FIND THESE SECRETS"
PRINT
PRINT "SPACE BAR TO DROP ITEMS"
PRINT
PRINT "CREATED BY JOHN.W.SZCZEPANIAK"
PRINT "In honour of that old Atari 2600 game, 'Adventure'"
PRINT "Programmed in 3 days in QBASIC"
PRINT
PRINT
INPUT "ENTER", i$
SCREEN 13
CLS
COLOR 15
A = 220
B = 80
XX = 0
YY = 0
AR = 0
BR = 0
HFM = 4      'leave at 4
TC = 14
ITMS = 0
M = 210
N = 80
HTO = 6         'HOW MUCH TO TAKE OF WHEN RUNNING
DRGA = 1
DRGB = 1
DRGC = 1
DRGD = 1
EGG = 0        'CHANGE TO 0
DAC = 14
DBC = 9
DCC = 4
DDC = 0
EYEA = 12
EYEB = 12
EYEC = 12
EYED = 12
WAX = 308
WAY = 2
WBX = 308
WBY = 86
WCX = 400
WCY = 400
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
RV = 1
RH = 5
WKRH = 5
WKRV = 2
WKA = 190
WKB = 80
WK = 1
TKRH = 5
TKRV = 3
TKA = 260
TKB = 130
TK = 1
WRH = 4
WRV = 2
WA = 225
WB = 120
W = 1
TRH = 2
TRV = 4
TA = 190
TB = 80
T = 1
WG = 1 'WEAPON GATE
TG = 1  'TREASURE GATE
COL = 14  'WALL COLOR
GRND = 7  'GROND COLOR
LINE (125, 1)-(319, 171), 7, BF
LINE (20, 20)-(40, 40), 7, BF
LOCATE 1, 1
PRINT "ITEM"


99
TMR = TMR + 1
IF TMR >= TRUN THEN GOSUB AI

IF A <= 125 THEN
A = 314
RH = RH - 1
GOSUB CROOM
END IF
  IF A >= 315 THEN
  A = 126
  RH = RH + 1
  GOSUB CROOM
  END IF
    IF B <= 0 THEN
    B = 166
    RV = RV + 1
    GOSUB CROOM
    END IF
       IF B >= 167 THEN
       B = 1
       RV = RV - 1
       GOSUB CROOM
       END IF

IF EGG < 3 AND A >= (WAX - 2) AND A <= (WAX + 9) AND B >= (WAY - 2) AND B <= (WAY + 84) THEN
A = A + AR
B = B + BR
END IF
IF EGG < 3 AND A >= (WBX - 2) AND A <= (WBX + 9) AND B >= (WBY - 2) AND B <= (WBY + 84) THEN
A = A + AR
B = B + BR
END IF
  IF EGG < 3 AND A >= (WCX - 2) AND A <= (WCX + 9) AND B >= (WCY - 2) AND B <= (WCY + 84) THEN
  A = A + AR
  B = B + BR
  END IF
   IF EGG < 3 AND A >= (WDX - 2) AND A <= (WDX + 9) AND B >= (WDY - 2) AND B <= (WDY + 84) THEN
   A = A + AR
   B = B + BR
   END IF
    IF EGG < 3 AND A >= (WEX - 2) AND A <= (WEX + 96) AND B >= (WEY - 3) AND B <= (WEY + 9) THEN
    A = A + AR
    B = B + BR
    END IF
     IF EGG < 3 AND A >= (WFX - 2) AND A <= (WFX + 96) AND B >= (WFY - 3) AND B <= (WFY + 9) THEN
     A = A + AR
     B = B + BR
     END IF
      IF EGG < 3 AND A >= (WGX - 2) AND A <= (WGX + 96) AND B >= (WGY - 3) AND B <= (WGY + 9) THEN
      A = A + AR
      B = B + BR
      END IF
       IF EGG < 3 AND A >= (WHX - 2) AND A <= (WHX + 96) AND B >= (WHY - 3) AND B <= (WHY + 9) THEN
       A = A + AR
       B = B + BR
       END IF

IF A >= 248 AND A <= 262 AND WG = 1 AND RH = 3 AND RV = 2 AND WK = 0 AND ITMS = 1 THEN
WG = 0
ITMS = 0
WK = 1
WKA = 400
LINE (20, 20)-(40, 40), 7, BF
LINE (A - 20, B - 20)-(A + 20, B + 20), 7, BF
SOUND 200, 6
END IF
IF RH = 3 AND RV = 2 AND WG = 1 THEN
PSET (250, 86)
DRAW "C0 D20BR3U20 BR3 D20 BR3U20 BR2BD3L14 BD7R14 BD7 L14"  'GATE
END IF
  IF A >= 248 AND A <= 262 AND WG = 1 AND RH = 3 AND RV = 2 THEN
  A = A + AR
  B = B + BR
  END IF

IF A >= 213 AND A <= 223 AND TG = 1 AND RH = 4 AND RV = 4 AND TK = 0 AND ITMS = 2 THEN
TG = 0
ITMS = 0
TK = 1
TKA = 400
LINE (20, 20)-(40, 40), 7, BF
LINE (A - 20, B - 20)-(A + 20, B + 20), 7, BF
SOUND 200, 6
END IF
IF RH = 4 AND RV = 4 AND TG = 1 THEN
PSET (213, 86)
DRAW "C15 D20BR3U20 BR3 D20 BR3U20 BR2BD3L14 BD7R14 BD7 L14"  'GATE
END IF
IF A >= 213 AND A <= 223 AND TG = 1 AND RH = 4 AND RV = 4 THEN
A = A + AR
B = B + BR
END IF

IF RH = WKRH AND RV = WKRV AND WK = 1 THEN
PSET (WKA, WKB)
DRAW "C0 L2U2R2D4L1R1D2L1"   'KEY
END IF
IF RH = WKRH AND RV = WKRV AND WK = 1 AND A >= (WKA - 2) AND A < (WKA + 2) AND B >= (WKB - 2) AND B <= (WKB + 2) AND ITMS = 0 THEN
WK = 0
ITMS = 1
LINE (A - 5, B - 5)-(A + 5, B + 5), 7, BF
LINE (20, 20)-(40, 40), 7, BF
PSET (30, 30)
DRAW "C0 L2U2R2D4L1R1D2L1"   'KEY
SOUND 120, 3
END IF

IF RH = TKRH AND RV = TKRV AND TK = 1 THEN
PSET (TKA, TKB)
DRAW "C15 L2U2R2D4L1R1D2L1"   'KEY
END IF
IF RH = TKRH AND RV = TKRV AND TK = 1 AND A >= (TKA - 2) AND A < (TKA + 2) AND B >= (TKB - 2) AND B <= (TKB + 2) AND ITMS = 0 THEN
TK = 0
ITMS = 2
LINE (A - 5, B - 5)-(A + 5, B + 5), 7, BF
LINE (20, 20)-(40, 40), 7, BF
PSET (30, 30)
DRAW "C15 L2U2R2D4L1R1D2L1"   'KEY
SOUND 120, 3
END IF

IF TK = 0 THEN
TKA = A - 3
TKB = B
PSET (TKA, TKB)
DRAW "C15 L2U2R2D4L1R1D2L1"   'KEY
END IF

IF WK = 0 THEN
WKA = A - 3
WKB = B
PSET (WKA, WKB)
DRAW "C0 L2U2R2D4L1R1D2L1"   'KEY
END IF

IF WRH = RH AND WRV = RV AND W = 1 THEN
PSET (WA, WB)
DRAW "C8 R6L3U3D8"                'WAEPON
END IF
IF A >= (WA - 3) AND A <= (WA + 3) AND B >= (WB - 3) AND B <= (WB + 3) AND ITMS = 0 AND W = 1 AND WRH = RH AND WRV = RV THEN
W = 0
ITMS = 3
LINE (A - 10, B - 10)-(A + 10, B + 10), 7, BF
LINE (20, 20)-(40, 40), 7, BF
PSET (28, 28)
DRAW "C8 R6L3U3D8"                'WAEPON
SOUND 120, 3
END IF

IF RH = TRH AND RV = TRV AND T = 1 THEN
PSET (TA, TB)
DRAW "C=" + VARPTR$(TC) + " F5E5L10 R6BD2 P=" + VARPTR$(TC) + ",=" + VARPTR$(TC)    'TREASURE
END IF
IF A >= (TA - 2) AND A <= (TA + 5) AND B >= (TB - 2) AND B <= (TB + 5) AND ITMS = 0 AND T = 1 AND TRH = RH AND TRV = RV THEN
T = 0
ITMS = 4
LINE (A - 10, B - 10)-(A + 10, B + 10), 7, BF
LINE (20, 20)-(40, 40), 7, BF
PSET (25, 29)
DRAW "C14 F5E5L10 R6BD2 P14,14"    'TREASURE
SOUND 120, 3
END IF

IF T = 0 THEN
TA = A - 5
TB = B
PSET (TA, TB)
DRAW "C=" + VARPTR$(TC) + " F5E5L10 R6BD2 P=" + VARPTR$(TC) + ",=" + VARPTR$(TC)    'TREASURE
END IF

IF DRGA = 1 AND (M + 12) >= (A - 10) AND (M + 12) <= (A + 14) AND (N + 10) >= (B - 7) AND (N + 10) <= (B + 9) AND RH = 2 AND RV = 1 AND ITMS = 3 THEN
DAC = 15
EYEA = 0
DRGA = 0
SOUND 100, 10
END IF

IF DRGB = 1 AND (M + 12) >= (A - 10) AND (M + 12) <= (A + 14) AND (N + 10) >= (B - 7) AND (N + 10) <= (B + 9) AND RH = 2 AND RV = 3 AND ITMS = 3 THEN
DBC = 15
EYEB = 0
DRGB = 0
SOUND 100, 10
END IF

IF DRGC = 1 AND (M + 12) >= (A - 10) AND (M + 12) <= (A + 14) AND (N + 10) >= (B - 7) AND (N + 10) <= (B + 9) AND RH = 5 AND RV = 4 AND ITMS = 3 THEN
DCC = 15
DRGC = 0
EYEC = 0
SOUND 100, 10
END IF

IF DRGD = 1 AND (M + 12) >= (A - 10) AND (M + 12) <= (A + 14) AND (N + 10) >= (B - 7) AND (N + 10) <= (B + 9) AND RH = 3 AND RV = 4 AND ITMS = 3 THEN
DDC = 15
EYED = 0
DRGD = 0
SOUND 100, 10
END IF

IF DRGA = 1 AND (M + 12) >= (A - 10) AND (M + 12) <= (A + 14) AND (N + 10) >= (B - 7) AND (N + 10) <= (B + 9) AND RH = 2 AND RV = 1 THEN GOTO DEATH
IF DRGB = 1 AND (M + 12) >= (A - 10) AND (M + 12) <= (A + 14) AND (N + 10) >= (B - 7) AND (N + 10) <= (B + 9) AND RH = 2 AND RV = 3 THEN GOTO DEATH
IF DRGC = 1 AND (M + 12) >= (A - 10) AND (M + 12) <= (A + 14) AND (N + 10) >= (B - 7) AND (N + 10) <= (B + 9) AND RH = 5 AND RV = 4 THEN GOTO DEATH
IF DRGD = 1 AND (M + 12) >= (A - 10) AND (M + 12) <= (A + 14) AND (N + 10) >= (B - 7) AND (N + 10) <= (B + 9) AND RH = 3 AND RV = 4 THEN GOTO DEATH

LINE (A, B)-(A + 4, B + 4), COL, BF  'PLAYER

IF W = 0 THEN
WA = A
WB = B
PSET (WA - 1, WB + 1)
DRAW "C8 R6L3U3D8"                'WAEPON
END IF

IF RH = 5 AND RV = 4 AND EGG = 0 THEN
CIRCLE (270, 45), 7, TC
END IF
IF RH = 5 AND RV = 4 AND EGG = 1 THEN
CIRCLE (270, 105), 7, TC
END IF

IF RH = 5 AND RV = 4 AND A >= 265 AND A <= 275 AND B <= 110 AND B >= 100 AND EGG = 1 AND ITMS = 0 THEN
EGG = 3
SOUND 50, 5
SOUND 350, 5
ITMS = 6
HTO = 10
END IF

IF EGG = 3 THEN CIRCLE (A + 2, B + 2), 7, TC

IF RH = 4 AND RV = 2 THEN LINE (204, 72)-(204, 72), 7, BF

IF RH = 4 AND RV = 2 AND A <= 204 AND (A + 4) >= 204 AND B <= 72 AND (B + 4) >= 72 AND ITMS = 0 THEN
SOUND 120, 3
ITMS = 5
LINE (25, 25)-(26, 26), 8, B
END IF

SELECT CASE INKEY$
CASE CHR$(0) + "H": XX = XX - 1
CASE CHR$(0) + "P": XX = XX + 1
CASE CHR$(0) + "K": YY = YY - 1
CASE CHR$(0) + "M": YY = YY + 1
CASE CHR$(32): IT = IT + 1
CASE CHR$(27): END
END SELECT
IF XX < 0 THEN GOSUB U
IF XX > 0 THEN GOSUB D
IF YY < 0 THEN GOSUB L
IF YY > 0 THEN GOSUB R
IF IT > 0 THEN GOSUB ITEM
GOTO 99

U:
XX = 0

LINE (A - HTO, B - HTO)-(A + HTO, B + HTO), GRND, BF
LINE (WAX, WAY)-(WAX + 10, WAY + 85), COL, BF
LINE (WBX, WBY)-(WBX + 10, WBY + 85), COL, BF
LINE (WCX, WCY)-(WCX + 10, WCY + 85), COL, BF
LINE (WDX, WDY)-(WDX + 10, WDY + 85), COL, BF
LINE (WEX, WEY)-(WEX + 97, WEY + 10), COL, BF
LINE (WFX, WFY)-(WFX + 97, WFY + 10), COL, BF
LINE (WGX, WGY)-(WGX + 97, WGY + 10), COL, BF
LINE (WHX, WHY)-(WHX + 97, WHY + 10), COL, BF

B = B - HFM
AR = 0
BR = 6
RETURN

D:
XX = 0

LINE (A - HTO, B - HTO)-(A + HTO, B + HTO), GRND, BF
LINE (WAX, WAY)-(WAX + 10, WAY + 85), COL, BF
LINE (WBX, WBY)-(WBX + 10, WBY + 85), COL, BF
LINE (WCX, WCY)-(WCX + 10, WCY + 85), COL, BF
LINE (WDX, WDY)-(WDX + 10, WDY + 85), COL, BF
LINE (WEX, WEY)-(WEX + 97, WEY + 10), COL, BF
LINE (WFX, WFY)-(WFX + 97, WFY + 10), COL, BF
LINE (WGX, WGY)-(WGX + 97, WGY + 10), COL, BF
LINE (WHX, WHY)-(WHX + 97, WHY + 10), COL, BF

B = B + HFM
AR = 0
BR = -6
RETURN

L:
YY = 0
LINE (A - HTO, B - HTO)-(A + HTO, B + HTO), GRND, BF
LINE (WAX, WAY)-(WAX + 10, WAY + 85), COL, BF
LINE (WBX, WBY)-(WBX + 10, WBY + 85), COL, BF
LINE (WCX, WCY)-(WCX + 10, WCY + 85), COL, BF
LINE (WDX, WDY)-(WDX + 10, WDY + 85), COL, BF
LINE (WEX, WEY)-(WEX + 97, WEY + 10), COL, BF
LINE (WFX, WFY)-(WFX + 97, WFY + 10), COL, BF
LINE (WGX, WGY)-(WGX + 97, WGY + 10), COL, BF
LINE (WHX, WHY)-(WHX + 97, WHY + 10), COL, BF

A = A - HFM
AR = 6
BR = 0
RETURN

R:
YY = 0

LINE (A - HTO, B - HTO)-(A + 10, B + HTO), GRND, BF
LINE (WAX, WAY)-(WAX + 10, WAY + 85), COL, BF
LINE (WBX, WBY)-(WBX + 10, WBY + 85), COL, BF
LINE (WCX, WCY)-(WCX + 10, WCY + 85), COL, BF
LINE (WDX, WDY)-(WDX + 10, WDY + 85), COL, BF
LINE (WEX, WEY)-(WEX + 97, WEY + 10), COL, BF
LINE (WFX, WFY)-(WFX + 97, WFY + 10), COL, BF
LINE (WGX, WGY)-(WGX + 97, WGY + 10), COL, BF
LINE (WHX, WHY)-(WHX + 97, WHY + 10), COL, BF

A = A + HFM
AR = -6
BR = 0
RETURN

AI:
TMR = 0

IF RH = 2 AND RV = 1 AND DRGA = 1 THEN
IF M > A - 10 THEN
M = M - 4
LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
END IF
IF M < A - 10 THEN
M = M + 4
LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
END IF
  IF N < B - 6 THEN
  N = N + 4
  LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
  END IF
   IF N > B - 6 THEN
   N = N - 4
   LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
   END IF
   END IF
IF RH = 2 AND RV = 1 THEN
LINE (M, N)-(M + 4, N + 10), DAC, BF             'THIS IS MONSTER
LINE (M, N + 4)-(M + 20, N + 10), DAC, BF
LINE (M + 20, N)-(M + 24, N + 10), DAC, BF
LINE (M + 6, N + 10)-(M + 18, N + 14), DAC, BF
LINE (M + 6, N + 6)-(M + 8, N + 8), EYEA, BF
LINE (M + 16, N + 6)-(M + 18, N + 8), EYEA, BF
LINE (M + 6, N + 14)-(M + 7, N + 16), DAC, BF
LINE (M + 11, N + 14)-(M + 13, N + 16), DAC, BF
LINE (M + 17, N + 14)-(M + 18, N + 16), DAC, BF
END IF

IF RH = 2 AND RV = 3 AND DRGB = 1 THEN
IF M > A - 10 THEN
M = M - 4
LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
END IF
IF M < A - 10 THEN
M = M + 4
LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
END IF
  IF N < B - 6 THEN
  N = N + 4
  LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
  END IF
   IF N > B - 6 THEN
   N = N - 4
   LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
   END IF
   END IF
IF RH = 2 AND RV = 3 THEN
LINE (M, N)-(M + 4, N + 10), DBC, BF             'THIS IS MONSTER
LINE (M, N + 4)-(M + 20, N + 10), DBC, BF
LINE (M + 20, N)-(M + 24, N + 10), DBC, BF
LINE (M + 6, N + 10)-(M + 18, N + 14), DBC, BF
LINE (M + 6, N + 6)-(M + 8, N + 8), EYEB, BF
LINE (M + 16, N + 6)-(M + 18, N + 8), EYEB, BF
LINE (M + 6, N + 14)-(M + 7, N + 16), DBC, BF
LINE (M + 11, N + 14)-(M + 13, N + 16), DBC, BF
LINE (M + 17, N + 14)-(M + 18, N + 16), DBC, BF
END IF

IF RH = 5 AND RV = 4 AND DRGC = 1 THEN
IF M > A - 10 THEN
M = M - 4
LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
END IF
IF M < A - 10 THEN
M = M + 4
LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
END IF
  IF N < B - 6 THEN
  N = N + 4
  LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
  END IF
   IF N > B - 6 THEN
   N = N - 4
   LINE (M - 10, N - 10)-(M + 28, N + 20), 7, BF
   END IF
   END IF
IF RH = 5 AND RV = 4 THEN
LINE (M, N)-(M + 4, N + 10), DCC, BF             'THIS IS MONSTER
LINE (M, N + 4)-(M + 20, N + 10), DCC, BF
LINE (M + 20, N)-(M + 24, N + 10), DCC, BF
LINE (M + 6, N + 10)-(M + 18, N + 14), DCC, BF
LINE (M + 6, N + 6)-(M + 8, N + 8), EYEC, BF
LINE (M + 16, N + 6)-(M + 18, N + 8), EYEC, BF
LINE (M + 6, N + 14)-(M + 7, N + 16), DCC, BF
LINE (M + 11, N + 14)-(M + 13, N + 16), DCC, BF
LINE (M + 17, N + 14)-(M + 18, N + 16), DCC, BF
END IF

IF RH = 3 AND RV = 4 AND DRGD = 1 THEN
IF M > A - 10 THEN
M = M - 5
LINE (M - 10, N - 10)-(M + 29, N + 20), 7, BF
END IF
IF M < A - 10 THEN
M = M + 5
LINE (M - 10, N - 10)-(M + 29, N + 20), 7, BF
END IF
  IF N < B - 6 THEN
  N = N + 5
  LINE (M - 10, N - 10)-(M + 29, N + 20), 7, BF
  END IF
   IF N > B - 6 THEN
   N = N - 5
   LINE (M - 10, N - 10)-(M + 29, N + 20), 7, BF
   END IF
   END IF
IF RH = 3 AND RV = 4 THEN
LINE (M, N)-(M + 4, N + 10), DDC, BF             'THIS IS MONSTER
LINE (M, N + 4)-(M + 20, N + 10), DDC, BF
LINE (M + 20, N)-(M + 24, N + 10), DDC, BF
LINE (M + 6, N + 10)-(M + 18, N + 14), DDC, BF
LINE (M + 6, N + 6)-(M + 8, N + 8), EYED, BF
LINE (M + 16, N + 6)-(M + 18, N + 8), EYED, BF
LINE (M + 6, N + 14)-(M + 7, N + 16), DDC, BF
LINE (M + 11, N + 14)-(M + 13, N + 16), DDC, BF
LINE (M + 17, N + 14)-(M + 18, N + 16), DDC, BF
END IF

TC = TC + 1
IF TC > 15 THEN TC = 0
LINE (125, 172)-(319, 200), COL, BF
LINE (125, 1)-(319, 171), , B        ' THIS IS MAX AND MIN OF SCREEN PIX
LINE (100, 1)-(124, 171), 0, BF

LINE (WAX, WAY)-(WAX + 10, WAY + 85), COL, BF
LINE (WBX, WBY)-(WBX + 10, WBY + 85), COL, BF
LINE (WCX, WCY)-(WCX + 10, WCY + 85), COL, BF
LINE (WDX, WDY)-(WDX + 10, WDY + 85), COL, BF
LINE (WEX, WEY)-(WEX + 97, WEY + 10), COL, BF
LINE (WFX, WFY)-(WFX + 97, WFY + 10), COL, BF
LINE (WGX, WGY)-(WGX + 97, WGY + 10), COL, BF
LINE (WHX, WHY)-(WHX + 97, WHY + 10), COL, BF
RETURN

CROOM:
IF RH >= 6 THEN RH = 1
IF RV >= 5 THEN RV = 1
IF RH <= 0 THEN RH = 5
IF RV <= 0 THEN RV = 4

LINE (100, 1)-(124, 300), 0, BF
LINE (125, 1)-(319, 171), 7, BF

IF RH = 5 AND RV = 1 THEN
WAX = 308
WAY = 2
WBX = 308
WBY = 86
WCX = 400
WCY = 400
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 14
END IF

IF RH = 4 AND RV = 1 THEN
WAX = 225
WAY = 13
WBX = 126
WBY = 74
WCX = 265
WCY = 74
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 265
WHY = 160
COL = 10
END IF

IF RH = 3 AND RV = 1 THEN
WAX = 260
WAY = 13
WBX = 308
WBY = 74
WCX = 126
WCY = 13
WDX = 190
WDY = 74
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 9
END IF

IF RH = 2 AND RV = 1 THEN
WAX = 126
WAY = 2
WBX = 308
WBY = 13
WCX = 400
WCY = 400
WDX = 400
WDY = 400
WEX = 210
WEY = 88
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 4
END IF

IF RH = 1 AND RV = 1 THEN
WAX = 308
WAY = 2
WBX = 126
WBY = 86
WCX = 126
WCY = 2
WDX = 400
WDY = 400
WEX = 426
WEY = 2
WFX = 135
WFY = 80
WGX = 426
WGY = 160
WHX = 223
WHY = 160
COL = 5
END IF

IF RH = 5 AND RV = 2 THEN
WAX = 126
WAY = 2
WBX = 126
WBY = 85
WCX = 308
WCY = -29
WDX = 308
WDY = 113
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 6
END IF

IF RH = 4 AND RV = 2 THEN
WAX = 308
WAY = 2
WBX = 308
WBY = 86
WCX = 297
WCY = 2
WDX = 188
WDY = 2
WEX = 126
WEY = 2
WFX = 199
WFY = 77
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 4
END IF

IF RH = 3 AND RV = 2 THEN
WAX = 250
WAY = 1
WBX = 250
WBY = 106
WCX = 170
WCY = 86
WDX = 126
WDY = 1
WEX = 220
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 10
END IF

IF RH = 2 AND RV = 2 THEN
WAX = 126
WAY = -29
WBX = 126
WBY = 113
WCX = 308
WCY = 1
WDX = 223
WDY = 100
WEX = 126
WEY = 2
WFX = 400
WFY = 2
WGX = 180
WGY = 100
WHX = 225
WHY = 160
COL = 5
END IF

IF RH = 1 AND RV = 2 THEN
WAX = 308
WAY = 113
WBX = 126
WBY = 113
WCX = 400
WCY = 400
WDX = 400
WDY = 400
WEX = 126
WEY = 46
WFX = 223
WFY = 46
WGX = 126
WGY = 113
WHX = 223
WHY = 113
COL = 9
END IF

IF RH = 1 AND RV = 3 THEN
WAX = 126
WAY = -73
WBX = 308
WBY = -73
WCX = 400
WCY = 400
WDX = 400
WDY = 400
WEX = 126
WEY = 86
WFX = 223
WFY = 86
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 5
END IF

IF RH = 2 AND RV = 3 THEN
WAX = 220
WAY = 50
WBX = 308
WBY = 86
WCX = 400
WCY = 400
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 126
WHY = 86
COL = 4
END IF

IF RH = 3 AND RV = 3 THEN
WAX = 220
WAY = 74
WBX = 126
WBY = 86
WCX = 280
WCY = 2
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 400
WGY = 160
WHX = 220
WHY = 160
COL = 1
END IF

IF RH = 4 AND RV = 3 THEN
WAX = 308
WAY = 2
WBX = 213
WBY = 13
WCX = 202
WCY = 13
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 400
WFY = 2
WGX = 126
WGY = 160
WHX = 297
WHY = 160
COL = 9
END IF

IF RH = 5 AND RV = 3 THEN
WAX = 126
WAY = 2
WBX = 220
WBY = 86
WCX = 308
WCY = -73
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 223
WFY = 86
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 14
END IF

IF RH = 1 AND RV = 4 THEN
WAX = 308
WAY = 2
WBX = 308
WBY = 86
WCX = 126
WCY = 2
WDX = 126
WDY = 86
WEX = 400
WEY = 2
WFX = 223
WFY = 2
WGX = 400
WGY = 160
WHX = 400
WHY = 160
COL = 8
END IF

IF RH = 2 AND RV = 4 THEN
WAX = 126
WAY = 2
WBX = 126
WBY = 86
WCX = 400
WCY = 400
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 14
END IF

IF RH = 3 AND RV = 4 THEN
WAX = 408
WAY = 2
WBX = 408
WBY = 86
WCX = 400
WCY = 400
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
COL = 4
END IF

IF RH = 4 AND RV = 4 THEN
WAX = 213
WAY = 2
WBX = 213
WBY = 106
WCX = 400
WCY = 400
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 265
WFY = 2
WGX = 126
WGY = 160
WHX = 308
WHY = 160
COL = 5
END IF

IF RH = 5 AND RV = 4 THEN
WAX = 308
WAY = 2
WBX = 308
WBY = 86
WCX = 223
WCY = 2
WDX = 400
WDY = 400
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 80
COL = 4
END IF

SOUND 300, 1
LINE (125, 172)-(319, 200), COL, BF
M = 210
N = 80
LINE (WAX, WAY)-(WAX + 10, WAY + 85), COL, BF
LINE (WBX, WBY)-(WBX + 10, WBY + 85), COL, BF
LINE (WCX, WCY)-(WCX + 10, WCY + 85), COL, BF
LINE (WDX, WDY)-(WDX + 10, WDY + 85), COL, BF
LINE (WEX, WEY)-(WEX + 97, WEY + 10), COL, BF
LINE (WFX, WFY)-(WFX + 97, WFY + 10), COL, BF
LINE (WGX, WGY)-(WGX + 97, WGY + 10), COL, BF
LINE (WHX, WHY)-(WHX + 97, WHY + 10), COL, BF
RETURN

ITEM:
IT = 0

IF ITMS = 1 THEN
LINE (A - 5, B - 5)-(A + 5, B + 5), 7, BF
ITMS = 0
WK = 1
WKRH = RH
WKRV = RV
WKA = A - 5
WKB = B
SOUND 150, 4
END IF

IF ITMS = 2 THEN
LINE (A - 5, B - 5)-(A + 5, B + 5), 7, BF
ITMS = 0
TK = 1
TKRH = RH
TKRV = RV
TKA = A - 5
TKB = B
SOUND 150, 4
END IF

IF ITMS = 3 THEN
LINE (A - 5, B - 5)-(A + 5, B + 5), 7, BF
ITMS = 0
W = 1
WRH = RH
WRV = RV
WA = A - 5
WB = B
SOUND 150, 4
END IF

IF ITMS = 4 AND RH = 5 AND RV = 1 THEN GOTO WIN

IF ITMS = 4 THEN
LINE (A - 5, B - 5)-(A + 5, B + 5), 7, BF
ITMS = 0
T = 1
TRH = RH
TRV = RV
TA = A - 12
TB = B
SOUND 150, 4
END IF

IF RH = 1 AND RV = 4 AND ITMS = 5 AND DRGA = 0 AND DRGB = 0 AND DRGC = 0 AND DRGD = 0 AND EGG = 0 THEN
PSET (230, 50)
DRAW "C0U4R3L3D2R2L2D2R3BR3E4F4H2L3BR6U2R3L3D2R3D2L3BR8U4R3L6BR8D4R3L3U2R2L2U2R3BR3D4U4R3D2L2F2"
PSET (280, 50)
DRAW "C0U4R3L3D2R2L2D2R3BR2R3U2L2R2U2L2D2R2BR3U2R2D2L2R2D2L3"
CIRCLE (230, 62), 7, 0
PSET (255, 62)
DRAW "C0 L10E3G3F3"
LINE (265, 60)-(269, 64), 0, BF
FOR i% = 1 TO 5
SOUND 300, 1
SOUND 50, 1
SOUND 200, 1
NEXT i%
ITMS = 0
EGG = 1
END IF

IF ITMS = 5 THEN
ITMS = 0
SOUND 150, 4
END IF

LINE (20, 20)-(40, 40), 7, BF
RETURN

WIN:
FOR i% = 1 TO 15
WAX = 308
WAY = 2
WBX = 308
WBY = 86
WCX = 126
WCY = 2
WDX = 126
WDY = 86
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
LINE (WAX, WAY)-(WAX + 10, WAY + 85), COL, BF
LINE (WBX, WBY)-(WBX + 10, WBY + 85), COL, BF
LINE (WCX, WCY)-(WCX + 10, WCY + 85), COL, BF
LINE (WDX, WDY)-(WDX + 10, WDY + 85), COL, BF
LINE (WEX, WEY)-(WEX + 97, WEY + 10), COL, BF
LINE (WFX, WFY)-(WFX + 97, WFY + 10), COL, BF
LINE (WGX, WGY)-(WGX + 97, WGY + 10), COL, BF
LINE (WHX, WHY)-(WHX + 97, WHY + 10), COL, BF
IF COL = 14 THEN
COL = 15
ELSEIF COL = 15 THEN
COL = 7
ELSEIF COL = 7 THEN
COL = 14
END IF

SOUND 50, 2
SOUND 300, 2
SOUND 150, 2
NEXT i%

COLOR 14
LOCATE 5, 5
PRINT "HAVING CLAIMED THE DEUS IMPEDIUS AS YOURPRIZE"
PRINT "YOU ARE FREE TO LEAVE THE MAZES OF      ARCAMUS"
PRINT "BUT HAVE YOU FOUND ALL THAT THE MAZES   OFFER?"
PRINT "GO NOW, YOUNG SEEKER!"
PRINT
INPUT "PUSH ENTER", i$
END

DEATH:
LINE (125, 1)-(319, 171), 7, BF
PTCH = 200
COLOR 4
COL = 4
FOR i% = 1 TO 25
WAX = 308
WAY = 2
WBX = 308
WBY = 86
WCX = 126
WCY = 2
WDX = 126
WDY = 86
WEX = 126
WEY = 2
WFX = 223
WFY = 2
WGX = 126
WGY = 160
WHX = 223
WHY = 160
LINE (WAX, WAY)-(WAX + 10, WAY + 85), COL, BF
LINE (WBX, WBY)-(WBX + 10, WBY + 85), COL, BF
LINE (WCX, WCY)-(WCX + 10, WCY + 85), COL, BF
LINE (WDX, WDY)-(WDX + 10, WDY + 85), COL, BF
LINE (WEX, WEY)-(WEX + 97, WEY + 10), COL, BF
LINE (WFX, WFY)-(WFX + 97, WFY + 10), COL, BF
LINE (WGX, WGY)-(WGX + 97, WGY + 10), COL, BF
LINE (WHX, WHY)-(WHX + 97, WHY + 10), COL, BF
LINE (A, B)-(A + 4, B + 4), 4, BF
LINE (M, N)-(M + 4, N + 10), 4, BF             'THIS IS MONSTER
LINE (M, N + 4)-(M + 20, N + 10), 4, BF
LINE (M + 20, N)-(M + 24, N + 10), 4, BF
LINE (M + 6, N + 10)-(M + 18, N + 14), 4, BF
LINE (M + 6, N + 6)-(M + 8, N + 8), 15, BF
LINE (M + 16, N + 6)-(M + 18, N + 8), 15, BF
LINE (M + 6, N + 14)-(M + 7, N + 16), 4, BF
LINE (M + 11, N + 14)-(M + 13, N + 16), 4, BF
LINE (M + 17, N + 14)-(M + 18, N + 16), 4, BF
COL = COL + 1
IF COL > 4 THEN COL = 0
A = A + 2
B = B + 2
M = M + 2
N = N + 2
SOUND PTCH, 2
PTCH = PTCH - 5
NEXT i%
COLOR 15
LOCATE 5, 5
PRINT "YOU ARE THE PROPERTY OF THE DEMONS OF   THE MAZE"
PRINT "CURSED TO WANDER THESE CORRIDORS FOR    EVER MORE"
PRINT
INPUT "PUSH ENTER", i$
GOTO BEG

tomorow, I may put up my WW2 games, unless anyone objects, they could be viewed to be ever so risque. Ive done ASCII and graphics versions

until then...

[TheBigBasicQ]

:o Stop posting such huge pieces for code. It is annoying and I am getting dizzy scrolling.

*loses balance and falls of the chair with a resounding <thud>*

[Ruudboy]

*where the f*** did i put my glasses. dizzy *walks into door*

[otaku84]

heres the first half of my bi-plane game. Its so bad, that it CANT be compiled, I get something like a 1000 errors when I try. Officially the worst spaghetti code EVER? you decide. It was a case of biting off more than I could chew.

its in 2 parts, to mak scrolling easier.

1ST HALF:

Code:

BEG:
    DEF SEG = 0                     ' Turn off CapLock, NumLock and ScrollLock
    KeyFlags = PEEK(1047)
    POKE 1047, &H0
    DEF SEG
  
CLS
SCREEN 12
RANDOMIZE TIMER
UR$ = "F"
UL$ = "F"
DR$ = "F"
DL$ = "F"
U$ = "N"
D$ = "F"
R$ = "F"
L$ = "F"
RTF$ = "N"
ERTF$ = "N"
EUR$ = "F"
EUL$ = "F"
EDR$ = "F"
EDL$ = "F"
EU$ = "F"
ED$ = "N"
ER$ = "F"
EL$ = "F"
Z = 0
H = 200
J = 400
E = 500
EJ = 100
BUL = 100
EBUL = 100
p% = 4
COLOR 15
LOCATE 3, 25
PRINT "ACES HIGH."
LOCATE 24, 1
PRINT "PROGRAMED BY:"
PRINT "JOHN.W.SZCZEPANIAK."
'CLS
LOCATE 8, 5
PRINT "PLEASE INPUT GAME SPEED. (1-50)"
INPUT "    ", FGH
IF FGH > 49 THEN FGH = 49
IF FGH < 1 THEN FGH = 1
X = (50 - FGH)
LOCATE 10, 5
INPUT "BULLET SPEED (1-10)", FGJ
IF FGJ > 10 THEN FGJ = 10
IF FGJ < 1 THEN FGJ = 1
XX = (11 - FGJ)
CLS
LOCATE 10, 1
PRINT "BLACK PLANE IS 1P"
PRINT "RED PLANE IS   2P"
PRINT "1P USES ARROW KEYS, LEFT TO TURN ANTI CLOCKWISE, RIGHT FOR CLOCKWISE. UP TO FIRE"
PRINT "2P USES 'A' TO TURN ANTI CLOCKWISE, AND 'D' TO TURN CLOCKWISE. 'W' FIRES."
PRINT "REPEATEDLY SHOOT EACH OTHER UNTIL ENERGY IS ZERO AND ONE OF YOU DIE, CAREFUL THOUGH, YOU ONLY HAVE 10 ROUNDS EACH AND BOTH OF YOU ARE RUNNING OUT OF FUEL FAST!"; ""
INPUT "", i$

CLS
LINE (60, 1)-(640, 640), 11, BF
HT = 30
FL = 150
EH = 300
EHH = 1
HH = 1
FLL = 100

99
IF H < 63 THEN
LINE (60, 1)-(640, 640), 11, BF
H = 640
ELSEIF H > 640 THEN
LINE (60, 1)-(640, 640), 11, BF
H = 87
END IF
IF J < -5 THEN
LINE (60, 1)-(640, 640), 11, BF
J = 485
ELSEIF J > 485 THEN
LINE (60, 1)-(640, 640), 11, BF
J = -5
END IF

IF E < 63 THEN
LINE (60, 1)-(640, 640), 11, BF
E = 640
ELSEIF E > 640 THEN
LINE (60, 1)-(640, 640), 11, BF
E = 87
END IF
IF EJ < -5 THEN
LINE (60, 1)-(640, 640), 11, BF
EJ = 485
ELSEIF EJ > 485 THEN
LINE (60, 1)-(640, 640), 11, BF
EJ = -5
END IF

IF FH < 65 THEN
C = 0
F$ = "F"
UF$ = "F"
URF$ = "F"
RF$ = "F"
DRF$ = "F"
DF$ = "F"
DLF$ = "F"
LF$ = "F"
ULF$ = "F"
ELSEIF FH > 639 THEN
C = 0
F$ = "F"
UF$ = "F"
URF$ = "F"
RF$ = "F"
DRF$ = "F"
DF$ = "F"
DLF$ = "F"
LF$ = "F"
ULF$ = "F"
END IF
IF FJ < 2 THEN
C = 0
F$ = "F"
UF$ = "F"
URF$ = "F"
RF$ = "F"
DRF$ = "F"
DF$ = "F"
DLF$ = "F"
LF$ = "F"
ULF$ = "F"
ELSEIF FJ > 484 THEN
C = 0
F$ = "F"
UF$ = "F"
URF$ = "F"
RF$ = "F"
DRF$ = "F"
DF$ = "F"
DLF$ = "F"
LF$ = "F"
ULF$ = "F"
END IF

IF EFH < 65 THEN
CC = 0
EF$ = "F"
EUF$ = "F"
EURF$ = "F"
ERF$ = "F"
EDRF$ = "F"
EDF$ = "F"
EDLF$ = "F"
ELF$ = "F"
EULF$ = "F"
ELSEIF EFH > 639 THEN
CC = 0
EF$ = "F"
EUF$ = "F"
EURF$ = "F"
ERF$ = "F"
EDRF$ = "F"
EDF$ = "F"
EDLF$ = "F"
ELF$ = "F"
EULF$ = "F"
END IF
IF EFJ < 2 THEN
CC = 0
EF$ = "F"
EUF$ = "F"
EURF$ = "F"
ERF$ = "F"
EDRF$ = "F"
EDF$ = "F"
EDLF$ = "F"
ELF$ = "F"
EULF$ = "F"
ELSEIF EFJ > 484 THEN
CC = 0
EF$ = "F"
EUF$ = "F"
EURF$ = "F"
ERF$ = "F"
EDRF$ = "F"
EDF$ = "F"
EDLF$ = "F"
ELF$ = "F"
EULF$ = "F"
END IF

IF EFH > (H - 12) AND EFH < (H + 12) AND EFJ > (J - 12) AND EFJ < (J + 12) AND EF$ = "N" THEN
EF$ = "F"
CC = 0
RTY = INT(RND * 23) + 20
HT = HT + RTY
HH = HH - RTY
SOUND 100, 1
END IF
IF FH > (E - 12) AND FH < (E + 12) AND FJ > (EJ - 12) AND FJ < (EJ + 12) AND F$ = "N" THEN
F$ = "F"
C = 0
RTE = INT(RND * 23) + 20
EH = EH + RTE
EHH = EHH - RTE
SOUND 100, 1
END IF

IF HH < 1 THEN GOSUB PIN
IF EHH < 1 THEN GOSUB NIP
IF FLL < 0 THEN GOSUB FLIN

IF BUL = 0 THEN
HH = 1
HT = 129
RTF$ = "F"
END IF

IF EBUL = 0 THEN
ERTF$ = "F"
EHH = 1
EH = 399
END IF


COLOR 15
LOCATE 3, 3
PRINT "1P"
LOCATE 11, 3
PRINT "FUEL"
LOCATE 21, 3
PRINT "2P"

LOCATE 4, 3
PRINT "AMMO="
LOCATE 5, 3
PRINT BUL
LOCATE 22, 3
PRINT "AMMO="
LOCATE 23, 3
PRINT EBUL

LINE (1, HT)-(5, 130), 4, BF        'YOUR HEALTH
LINE (1, 30)-(5, HT), 14, BF

LINE (1, FL)-(5, 250), 6, BF      'FUEL
LINE (1, 150)-(5, FL), 14, BF

LINE (1, EH)-(5, 400), 4, BF        'ENEMY HLTH
LINE (1, 300)-(5, EH), 14, BF


IF U$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA0BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U
15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4
R2U13L10BU7BR11E3BD30R20L40D1R40
D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C0L24D1
R24D1BL12C14G2F2E2H2F2BD3C0L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF UR$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA45BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U
15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4
R2U13L10BU7BR11E3BD30R20L40D1R40D1L40BU21R15D1L10D1R1
0BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2F2E2H2F
2BD3C0L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF R$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA90BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U
15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4
R2U13L10BU7BR11E3BD30R20L40D1R40D1L40BU21R15D1L10D1R1
0BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2F2E2H2F
2BD3C0L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF DR$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA135BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40D1L40BU21R15D1L10D1R
10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2F2E2H2
F2BD3C0L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF D$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA180BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40D1L40BU21R15D1L10D1R
10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2F2E2H2
F2BD3C0L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF DL$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN                                                                                                                                                                                    
DRAW "C0TA225BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40D1L40BU21R15D1L10D1R
10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2F2E2H2
F2BD3C0L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF L$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA270BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40D1L40BU21R15D1L10D1R
10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2F2E2H2
F2BD3C0L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF UL$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA315BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40D1L40BU21R15D1L10D1R
10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2F2E2H2
F2BD3C0L4R4BF16C11L40R40D1L40R28U15
R10L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2F2E2F2
E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

END IF

IF EU$ = "N" THEN
PSET (E, EJ)    'H= ACROSS J = UP DOWN
DRAW "C4TA0BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U1
5L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4R
2U13L10BU7BR11E3BD30R20L40D1R40
D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C4L24D1
R24D1BL12C0G2F2E2H2F2BD3C4L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF EUR$ = "N" THEN
PSET (E, EJ)    'H= ACROSS J = UP DOWN
DRAW "C4TA45BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U
15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4
R2U13L10BU7BR11E3BD30R20L40D1R40
D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C4L24D1
R24D1BL12C0G2F2E2H2F2BD3C4L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF ER$ = "N" THEN
PSET (E, EJ)    'H= ACROSS J = UP DOWN
DRAW "C4TA90BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U
15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4
R2U13L10BU7BR11E3BD30R20L40D1R40
D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C4L24D1
R24D1BL12C0G2F2E2H2F2BD3C4L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF EDR$ = "N" THEN
PSET (E, EJ)    'H= ACROSS J = UP DOWN
DRAW "C4TA135BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40
D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C4L24D1
R24D1BL12C0G2F2E2H2F2BD3C4L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF ED$ = "N" THEN
PSET (E, EJ)    'H= ACROSS J = UP DOWN
DRAW "C4TA180BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40
D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C4L24D1
R24D1BL12C0G2F2E2H2F2BD3C4L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF EDL$ = "N" THEN
PSET (E, EJ)    'H= ACROSS J = UP DOWN
DRAW "C4TA225BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40
D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C4L24D1
R24D1BL12C0G2F2E2H2F2BD3C4L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF EL$ = "N" THEN
PSET (E, EJ)    'H= ACROSS J = UP DOWN
DRAW "C4TA270BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40
D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C4L24D1
R24D1BL12C0G2F2E2H2F2BD3C4L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF EUL$ = "N" THEN
PSET (E, EJ)    'H= ACROSS J = UP DOWN
DRAW "C4TA315BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2
U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U
4R2U13L10BU7BR11E3BD30R20L40D1R40
D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C4L24D1
R24D1BL12C0G2F2E2H2F2BD3C4L4R4BF16C11L40R40D1L40
R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2
F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

END IF

IF F$ = "N" THEN
PSET (FH, FJ)
DRAW "C8E2G4E2F2H4 C14BF4BH2G2BE4G2 BD3C11R3U6L6D6R7U7L8D8R9U9L10D10R11U11L12D12R12"
END IF

IF EF$ = "N" THEN
PSET (EFH, EFJ)
DRAW "C8E2G4E2F2H4 C14BF4BH2G2BE4G2 BD3C11R3U6L6D6R7U7L8D8R9U9L10D10R11U11L12D12R12"
END IF

IF (H + 8) > (E - 8) AND (H - 8) < (E + 8) AND (J + 8) > (EJ - 8) AND (J - 8) < (EJ + 8) THEN GOSUB CRSH

Z = Z + 1
IF Z >= X THEN GOSUB FIN

FLK = FLK + 1                     'RATE OF FUEL DEPLETION
IF FLK = (X * 50) THEN GOSUB DEC

BF = BF + 1
IF BF = XX THEN GOSUB MV

IF REZ$ = "N" THEN POI = POI + 1
IF POI = 12 THEN GOSUB REZ

IF REZZ$ = "N" THEN PIO = PIO + 1
IF PIO = 12 THEN GOSUB REZZ

SELECT CASE INKEY$
CASE CHR$(0) + "H": C = C + 1
CASE CHR$(0) + "K": A = A - 1
CASE CHR$(0) + "M": A = A + 1

CASE CHR$(119): CC = CC + 1
CASE CHR$(100): CA = CA - 1
CASE CHR$(97): CA = CA + 1

CASE CHR$(27): END
END SELECT
IF A = -1 THEN GOSUB R
IF A = 1 THEN GOSUB L
IF C = 1 AND RTF$ = "N" THEN GOSUB FR
IF CA = 1 THEN GOSUB ER
IF CA = -1 THEN GOSUB EL
IF CC = 1 AND ERTF$ = "N" THEN GOSUB EFR


'LOOP UNTIL INKEY$ = CHR$(27)
'END
GOTO 99

[otaku84]

2ND HALF of bi-plane game:

Code:

R:
A = -2
REZ$ = "N"
LINE (1, 1)-(59, 640), 0, BF
LINE (60, 1)-(640, 640), 11, BF
IF U$ = "N" THEN
U$ = "F"
UR$ = "N"
ELSEIF UR$ = "N" THEN
UR$ = "F"
R$ = "N"
ELSEIF R$ = "N" THEN
R$ = "F"
DR$ = "N"
ELSEIF DR$ = "N" THEN
DR$ = "F"
D$ = "N"
ELSEIF D$ = "N" THEN
D$ = "F"
DL$ = "N"
ELSEIF DL$ = "N" THEN
DL$ = "F"
L$ = "N"
ELSEIF L$ = "N" THEN
L$ = "F"
UL$ = "N"
ELSEIF UL$ = "N" THEN
UL$ = "F"
U$ = "N"
END IF
RETURN

L:
A = 2
REZ$ = "N"
LINE (60, 1)-(640, 640), 11, BF
LINE (1, 1)-(59, 640), 0, BF
IF U$ = "N" THEN
U$ = "F"
UL$ = "N"
ELSEIF UL$ = "N" THEN
UL$ = "F"
L$ = "N"
ELSEIF L$ = "N" THEN
L$ = "F"
DL$ = "N"
ELSEIF DL$ = "N" THEN
DL$ = "F"
D$ = "N"
ELSEIF D$ = "N" THEN
D$ = "F"
DR$ = "N"
ELSEIF DR$ = "N" THEN
DR$ = "F"
R$ = "N"
ELSEIF R$ = "N" THEN
R$ = "F"
UR$ = "N"
ELSEIF UR$ = "N" THEN
UR$ = "F"
U$ = "N"
END IF
RETURN

FR:
SOUND 50, 1
BUL = BUL - 1
C = 2
FH = H
FJ = J
F$ = "N"
IF U$ = "N" THEN
UF$ = "N"
ELSEIF UR$ = "N" THEN
URF$ = "N"
ELSEIF R$ = "N" THEN
RF$ = "N"
ELSEIF DR$ = "N" THEN
DRF$ = "N"
ELSEIF D$ = "N" THEN
DF$ = "N"
ELSEIF DL$ = "N" THEN
DLF$ = "N"
ELSEIF L$ = "N" THEN
LF$ = "N"
ELSEIF UL$ = "N" THEN
ULF$ = "N"
END IF
RETURN


FIN:
Z = 0
IF EUR$ = "N" THEN
E = E - 2
EJ = EJ - 2
ELSEIF EUL$ = "N" THEN
E = E + 2
EJ = EJ - 2
ELSEIF EDR$ = "N" THEN
E = E - 2
EJ = EJ + 2
ELSEIF EDL$ = "N" THEN
E = E + 2
EJ = EJ + 2
ELSEIF EU$ = "N" THEN
EJ = EJ - 2
ELSEIF ED$ = "N" THEN
EJ = EJ + 2
ELSEIF EL$ = "N" THEN
E = E + 2
ELSEIF ER$ = "N" THEN
E = E - 2
END IF
IF UR$ = "N" THEN
H = H - 2
J = J - 2
ELSEIF UL$ = "N" THEN
H = H + 2
J = J - 2
ELSEIF DR$ = "N" THEN
H = H - 2
J = J + 2
ELSEIF DL$ = "N" THEN
H = H + 2
J = J + 2
ELSEIF U$ = "N" THEN
J = J - 2
ELSEIF D$ = "N" THEN
J = J + 2
ELSEIF L$ = "N" THEN
H = H + 2
ELSEIF R$ = "N" THEN
H = H - 2
END IF
RETURN

MV:
BF = 0
IF URF$ = "N" THEN
FH = FH - 4
FJ = FJ - 4
ELSEIF ULF$ = "N" THEN
FH = FH + 4
FJ = FJ - 4
ELSEIF DRF$ = "N" THEN
FH = FH - 4
FJ = FJ + 4
ELSEIF DLF$ = "N" THEN
FH = FH + 4
FJ = FJ + 4
ELSEIF UF$ = "N" THEN
FJ = FJ - 4
ELSEIF DF$ = "N" THEN
FJ = FJ + 4
ELSEIF LF$ = "N" THEN
FH = FH + 4
ELSEIF RF$ = "N" THEN
FH = FH - 4
END IF

IF EURF$ = "N" THEN
EFH = EFH - 4
EFJ = EFJ - 4
ELSEIF EULF$ = "N" THEN
EFH = EFH + 4
EFJ = EFJ - 4
ELSEIF EDRF$ = "N" THEN
EFH = EFH - 4
EFJ = EFJ + 4
ELSEIF EDLF$ = "N" THEN
EFH = EFH + 4
EFJ = EFJ + 4
ELSEIF EUF$ = "N" THEN
EFJ = EFJ - 4
ELSEIF EDF$ = "N" THEN
EFJ = EFJ + 4
ELSEIF ELF$ = "N" THEN
EFH = EFH + 4
ELSEIF ERF$ = "N" THEN
EFH = EFH - 4
END IF
RETURN

DEC:
FLK = 0
FL = FL + 1
FLL = FLL - 1
RETURN

ER:
CA = 2
REZZ$ = "N"
LINE (1, 1)-(59, 640), 0, BF
LINE (60, 1)-(640, 640), 11, BF
IF EU$ = "N" THEN
EU$ = "F"
EUR$ = "N"
ELSEIF EUR$ = "N" THEN
EUR$ = "F"
ER$ = "N"
ELSEIF ER$ = "N" THEN
ER$ = "F"
EDR$ = "N"
ELSEIF EDR$ = "N" THEN
EDR$ = "F"
ED$ = "N"
ELSEIF ED$ = "N" THEN
ED$ = "F"
EDL$ = "N"
ELSEIF EDL$ = "N" THEN
EDL$ = "F"
EL$ = "N"
ELSEIF EL$ = "N" THEN
EL$ = "F"
EUL$ = "N"
ELSEIF EUL$ = "N" THEN
EUL$ = "F"
EU$ = "N"
END IF
RETURN

EL:
CA = -2
REZZ$ = "N"
LINE (60, 1)-(640, 640), 11, BF
LINE (1, 1)-(59, 640), 0, BF
IF EU$ = "N" THEN
EU$ = "F"
EUL$ = "N"
ELSEIF EUL$ = "N" THEN
EUL$ = "F"
EL$ = "N"
ELSEIF EL$ = "N" THEN
EL$ = "F"
EDL$ = "N"
ELSEIF EDL$ = "N" THEN
EDL$ = "F"
ED$ = "N"
ELSEIF ED$ = "N" THEN
ED$ = "F"
EDR$ = "N"
ELSEIF EDR$ = "N" THEN
EDR$ = "F"
ER$ = "N"
ELSEIF ER$ = "N" THEN
ER$ = "F"
EUR$ = "N"
ELSEIF EUR$ = "N" THEN
EUR$ = "F"
EU$ = "N"
END IF
RETURN

EFR:
SOUND 50, 1
EBUL = EBUL - 1
CC = 2
EFH = E
EFJ = EJ
EF$ = "N"
IF EU$ = "N" THEN
EUF$ = "N"
ELSEIF EUR$ = "N" THEN
EURF$ = "N"
ELSEIF ER$ = "N" THEN
ERF$ = "N"
ELSEIF EDR$ = "N" THEN
EDRF$ = "N"
ELSEIF ED$ = "N" THEN
EDF$ = "N"
ELSEIF EDL$ = "N" THEN
EDLF$ = "N"
ELSEIF EL$ = "N" THEN
ELF$ = "N"
ELSEIF EUL$ = "N" THEN
EULF$ = "N"
END IF
RETURN

PIN:
SOUND 50, 5
RANDOMIZE TIMER: FOR L = 1 TO 1000: OP = INT(RND * 40) + H: B = INT(RND * 4) + 1: UP = INT(RND * 40) + J: SHIP = INT(RND * 30) + 1
IF B = 1 THEN B = 0
IF B = 2 THEN B = 12
IF B = 3 THEN B = 14
IF B = 4 THEN B = 4
CIRCLE (OP, UP), SHIP, B: NEXT L

CLS
LOCATE 10, 10
PRINT "PLAYER 2 IS THE WINNER!"
INPUT "", i$
END

NIP:
SOUND 40, 5
RANDOMIZE TIMER: FOR L = 1 TO 1000: OP = INT(RND * 40) + E: B = INT(RND * 4) + 1: UP = INT(RND * 40) + EJ: SHIP = INT(RND * 30) + 1
IF B = 1 THEN B = 0
IF B = 2 THEN B = 12
IF B = 3 THEN B = 14
IF B = 4 THEN B = 4
CIRCLE (OP, UP), SHIP, B: NEXT L

CLS
LOCATE 10, 10
PRINT "PLAYER 1 IS THE WINNER!"
INPUT "", i$
END

FLIN:
CLS
LOCATE 10, 10
PRINT "THE PLANES BOTH RAN OUT OF FUEL AND YOU BOTH END UP CRASHING IN THE SEA, BEING EATEN BY SHARKS!"
INPUT "", i$
END


CRSH:
SOUND 50, 10
RANDOMIZE TIMER: FOR L = 1 TO 1000: OP = INT(RND * 80) + H: B = INT(RND * 4) + 1: UP = INT(RND * 70) + J: SHIP = INT(RND * 80) + 1
IF B = 1 THEN B = 12
IF B = 2 THEN B = 11
IF B = 3 THEN B = 14
IF B = 4 THEN B = 4
CIRCLE (OP, UP), SHIP, B: NEXT L

CLS
LOCATE 10, 10
PRINT "THE 2 PLANES CRASH INTO EACH OTHER, BOTH PILOTS ARE DEAD!"
INPUT "", i$
END

REZ:
A = 0
POI = 0
REZ$ = "F"
RETURN

REZZ:
REZZ$ = "F"
CA = 0
PIO = 0
RETURN

Try compiling and see all the errors. Actually its not even too much fun
ADVICE to new programmers, dont try and bite off more than you can chew, take it slow, and learn piece by piece, until you feel very comfortable.