Posts: 33
Threads: 3
Joined: Oct 2003
we call those dollars. :wink:
You can't get a job in the games industry, until you've had at least 2 years experience in the industry, which wont happen until you get a job in the industry. " - random recruitment agency
Posts: 2,765
Threads: 138
Joined: Nov 2002
Quote:we call those dollars. :wink:
you don't say...
Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.
Posts: 1,688
Threads: 119
Joined: Jun 2003
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.
Jumping Jahoolipers!
Posts: 4,307
Threads: 63
Joined: May 2003
The second one was very nice indeed. Though the first one was a little wierd, i always got killed =)
Posts: 33
Threads: 3
Joined: Oct 2003
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.
You can't get a job in the games industry, until you've had at least 2 years experience in the industry, which wont happen until you get a job in the industry. " - random recruitment agency
Posts: 33
Threads: 3
Joined: Oct 2003
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...
You can't get a job in the games industry, until you've had at least 2 years experience in the industry, which wont happen until you get a job in the industry. " - random recruitment agency
Posts: 4,307
Threads: 63
Joined: May 2003
: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>*
Posts: 538
Threads: 62
Joined: Apr 2003
*where the f*** did i put my glasses. dizzy *walks into door*
url=http://www.spreadfirefox.com/?q=affiliates&id=0&t=79] [/url]
Posts: 33
Threads: 3
Joined: Oct 2003
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
You can't get a job in the games industry, until you've had at least 2 years experience in the industry, which wont happen until you get a job in the industry. " - random recruitment agency
Posts: 33
Threads: 3
Joined: Oct 2003
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.
You can't get a job in the games industry, until you've had at least 2 years experience in the industry, which wont happen until you get a job in the industry. " - random recruitment agency
|