mirror of
https://github.com/Pecusx/dino-game.git
synced 2026-05-21 06:39:38 +02:00
Cactuses
This commit is contained in:
Pecusx
Binary file not shown.
+17
-3
@@ -80,9 +80,19 @@ bird_2a
|
|||||||
.by $52, $52 ; '##'
|
.by $52, $52 ; '##'
|
||||||
cactus_0
|
cactus_0
|
||||||
.by $ff, $ff ; '..'
|
.by $ff, $ff ; '..'
|
||||||
.by $54, $54 ; '##'
|
.by $ff, $ff ; '..'
|
||||||
.by $54, $54 ; '##'
|
.by $46, $47 ; '##'
|
||||||
.by $52, $52 ; '##'
|
.by $44, $45 ; '##'
|
||||||
|
cactus_1
|
||||||
|
.by $ff, $ff ; '..'
|
||||||
|
.by $ff, $ff ; '..'
|
||||||
|
.by $4a, $4b ; '##'
|
||||||
|
.by $48, $49 ; '##'
|
||||||
|
cactus_2
|
||||||
|
.by $ff, $ff ; '..'
|
||||||
|
.by $50, $51 ; '##'
|
||||||
|
.by $4e, $4f ; '##'
|
||||||
|
.by $4c, $4d ; '##'
|
||||||
|
|
||||||
ShapesTableL
|
ShapesTableL
|
||||||
.by <ground_0
|
.by <ground_0
|
||||||
@@ -94,6 +104,8 @@ ShapesTableL
|
|||||||
.by <bird_2
|
.by <bird_2
|
||||||
.by <bird_2a
|
.by <bird_2a
|
||||||
.by <cactus_0
|
.by <cactus_0
|
||||||
|
.by <cactus_1
|
||||||
|
.by <cactus_2
|
||||||
ShapesTableH
|
ShapesTableH
|
||||||
.by >ground_0
|
.by >ground_0
|
||||||
.by >ground_0
|
.by >ground_0
|
||||||
@@ -104,6 +116,8 @@ ShapesTableH
|
|||||||
.by >bird_2
|
.by >bird_2
|
||||||
.by >bird_2a
|
.by >bird_2a
|
||||||
.by >cactus_0
|
.by >cactus_0
|
||||||
|
.by >cactus_1
|
||||||
|
.by >cactus_2
|
||||||
diff_object_gap ; min distance between obstacles by difficulty level
|
diff_object_gap ; min distance between obstacles by difficulty level
|
||||||
:DIFF_LEVELS .by 20-#
|
:DIFF_LEVELS .by 20-#
|
||||||
;----------vars----------
|
;----------vars----------
|
||||||
|
|||||||
@@ -218,8 +218,10 @@ insertObject
|
|||||||
lda RANDOM
|
lda RANDOM
|
||||||
and #%00000001 ; insert 50/50
|
and #%00000001 ; insert 50/50
|
||||||
beq noInsert
|
beq noInsert
|
||||||
mva #6 WorldTable+WORLD_LENGTH-2
|
randomize 8 10 ; cactuses
|
||||||
mva #6+$80 WorldTable+WORLD_LENGTH-1
|
sta WorldTable+WORLD_LENGTH-2
|
||||||
|
ora #$80
|
||||||
|
sta WorldTable+WORLD_LENGTH-1
|
||||||
inc diff_level
|
inc diff_level
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -611,66 +611,68 @@ FFFD 0000 @KBCODE
|
|||||||
00 3987 WORLDSHIFT.SHIFT
|
00 3987 WORLDSHIFT.SHIFT
|
||||||
00 39A1 WORLDSHIFT.1@
|
00 39A1 WORLDSHIFT.1@
|
||||||
00 39AB WORLDSHIFT.INSERTOBJECT
|
00 39AB WORLDSHIFT.INSERTOBJECT
|
||||||
00 39BF WORLDSHIFT.NOINSERT
|
00 39C6 WORLDSHIFT.NOINSERT
|
||||||
00 39C0 ANIMATE
|
00 39C7 ANIMATE
|
||||||
00 39C2 ANIMATE.2@
|
00 39C9 ANIMATE.2@
|
||||||
00 39D4 ANIMATE.NOBIRD
|
00 39DB ANIMATE.NOBIRD
|
||||||
00 39EC ANIMATE.ENDJUMP
|
00 39F3 ANIMATE.ENDJUMP
|
||||||
00 39F2 ANIMATE.NOJUMP
|
00 39F9 ANIMATE.NOJUMP
|
||||||
00 39F3 SHOWOBJECT
|
00 39FA SHOWOBJECT
|
||||||
00 39FF SHOWOBJECT.OBJECTLOOP
|
00 3A06 SHOWOBJECT.OBJECTLOOP
|
||||||
00 3A06 SHOWOBJECT.3@
|
00 3A0D SHOWOBJECT.3@
|
||||||
00 3A18 SHOWOBJECT.4@
|
00 3A1F SHOWOBJECT.4@
|
||||||
00 3A2A SHOWOBJECT.5@
|
00 3A31 SHOWOBJECT.5@
|
||||||
00 3A3C SHOWOBJECT.6@
|
00 3A43 SHOWOBJECT.6@
|
||||||
00 3A4E SHOWDINO
|
00 3A55 SHOWDINO
|
||||||
00 3A69 SHOWDINO.DINOLOOP
|
00 3A70 SHOWDINO.DINOLOOP
|
||||||
00 3A70 SHOWDINO.7@
|
00 3A77 SHOWDINO.7@
|
||||||
00 3A82 SHOWDINO.8@
|
00 3A89 SHOWDINO.8@
|
||||||
00 3A94 SHOWDINO.9@
|
00 3A9B SHOWDINO.9@
|
||||||
00 3AA6 SHOWDINO.10@
|
00 3AAD SHOWDINO.10@
|
||||||
00 3AB8 SHOWDINO.JUMP
|
00 3ABF SHOWDINO.JUMP
|
||||||
00 3AC8 SHOWDINO.JPHASE1
|
00 3ACF SHOWDINO.JPHASE1
|
||||||
00 3ACA SHOWDINO.DINOLOOP1
|
00 3AD1 SHOWDINO.DINOLOOP1
|
||||||
00 3AD1 SHOWDINO.11@
|
00 3AD8 SHOWDINO.11@
|
||||||
00 3AE3 SHOWDINO.12@
|
00 3AEA SHOWDINO.12@
|
||||||
00 3AF5 SHOWDINO.13@
|
00 3AFC SHOWDINO.13@
|
||||||
00 3B07 SHOWDINO.14@
|
00 3B0E SHOWDINO.14@
|
||||||
00 3B19 SHOWDINO.JPHASE2
|
00 3B20 SHOWDINO.JPHASE2
|
||||||
00 3B1B SHOWDINO.DINOLOOP2
|
00 3B22 SHOWDINO.DINOLOOP2
|
||||||
00 3B22 SHOWDINO.15@
|
00 3B29 SHOWDINO.15@
|
||||||
00 3B34 SHOWDINO.16@
|
00 3B3B SHOWDINO.16@
|
||||||
00 3B46 SHOWDINO.17@
|
00 3B4D SHOWDINO.17@
|
||||||
00 3B58 SHOWDINO.18@
|
00 3B5F SHOWDINO.18@
|
||||||
00 3B6A SHOWDINO.JPHASE3
|
00 3B71 SHOWDINO.JPHASE3
|
||||||
00 3B6C SHOWDINO.DINOLOOP3
|
00 3B73 SHOWDINO.DINOLOOP3
|
||||||
00 3B73 SHOWDINO.19@
|
00 3B7A SHOWDINO.19@
|
||||||
00 3B85 SHOWDINO.20@
|
00 3B8C SHOWDINO.20@
|
||||||
00 3B97 SHOWDINO.21@
|
00 3B9E SHOWDINO.21@
|
||||||
00 3BA9 SHOWDINO.22@
|
00 3BB0 SHOWDINO.22@
|
||||||
00 3BBB CHECKJOY
|
00 3BC2 CHECKJOY
|
||||||
00 3BD3 CHECKJOY.NOCHANGE
|
00 3BDA CHECKJOY.NOCHANGE
|
||||||
00 3BD4 CHECKJOY.UP
|
00 3BDB CHECKJOY.UP
|
||||||
00 3BDD CHECKJOY.DOWN
|
00 3BE4 CHECKJOY.DOWN
|
||||||
00 3BE2 SETSTART
|
00 3BE9 SETSTART
|
||||||
00 3BEE SETGAMESCREEN
|
00 3BF5 SETGAMESCREEN
|
||||||
00 3C03 DINO_RUN_0
|
00 3C0A DINO_RUN_0
|
||||||
00 3C17 DINO_RUN_1
|
00 3C1E DINO_RUN_1
|
||||||
00 3C2B DINO_RUN_2
|
00 3C32 DINO_RUN_2
|
||||||
00 3C3F DINO_CROUCH_1
|
00 3C46 DINO_CROUCH_1
|
||||||
00 3C53 DINO_CROUCH_2
|
00 3C5A DINO_CROUCH_2
|
||||||
00 3C67 DINOSHAPESTABLEL
|
00 3C6E DINOSHAPESTABLEL
|
||||||
00 3C6D DINOSHAPESTABLEH
|
00 3C74 DINOSHAPESTABLEH
|
||||||
00 3C73 GROUND_0
|
00 3C7A GROUND_0
|
||||||
00 3C7B BIRD_0
|
00 3C82 BIRD_0
|
||||||
00 3C83 BIRD_1
|
00 3C8A BIRD_1
|
||||||
00 3C8B BIRD_2
|
00 3C92 BIRD_2
|
||||||
00 3C93 BIRD_0A
|
00 3C9A BIRD_0A
|
||||||
00 3C9B BIRD_1A
|
00 3CA2 BIRD_1A
|
||||||
00 3CA3 BIRD_2A
|
00 3CAA BIRD_2A
|
||||||
00 3CAB CACTUS_0
|
00 3CB2 CACTUS_0
|
||||||
00 3CB3 SHAPESTABLEL
|
00 3CBA CACTUS_1
|
||||||
00 3CBC SHAPESTABLEH
|
00 3CC2 CACTUS_2
|
||||||
00 3CC5 DIFF_OBJECT_GAP
|
00 3CCA SHAPESTABLEL
|
||||||
00 3CD5 DIFF_LEVEL
|
00 3CD5 SHAPESTABLEH
|
||||||
00 3CD6 DINOJUMPTR
|
00 3CE0 DIFF_OBJECT_GAP
|
||||||
|
00 3CF0 DIFF_LEVEL
|
||||||
|
00 3CF1 DINOJUMPTR
|
||||||
|
|||||||
@@ -972,7 +972,7 @@ Source: dino.asm
|
|||||||
46 = 3000 .ds $100*SCR_HEIGHT
|
46 = 3000 .ds $100*SCR_HEIGHT
|
||||||
47 ; display list
|
47 ; display list
|
||||||
48 3800 GameDL
|
48 3800 GameDL
|
||||||
49 3800-3CD4> 70 70 70 70 + :10 .byte SKIP8 ; empty lines
|
49 3800-3CEF> 70 70 70 70 + :10 .byte SKIP8 ; empty lines
|
||||||
50
|
50
|
||||||
51 .rept SCR_HEIGHT, #
|
51 .rept SCR_HEIGHT, #
|
||||||
52 .BYTE MODE2+LMS+SCH
|
52 .BYTE MODE2+LMS+SCH
|
||||||
@@ -1014,9 +1014,9 @@ Source: dino.asm
|
|||||||
62 ;---------------------------------------------------
|
62 ;---------------------------------------------------
|
||||||
63 3865 FirstSTART
|
63 3865 FirstSTART
|
||||||
64 3865 20 20 39 jsr GenerateCharsets
|
64 3865 20 20 39 jsr GenerateCharsets
|
||||||
65 3868 20 E2 3B jsr SetStart
|
65 3868 20 E9 3B jsr SetStart
|
||||||
66 386B 20 EE 3B jsr SetGameScreen
|
66 386B 20 F5 3B jsr SetGameScreen
|
||||||
67 386E A9 00 8D D5 3C mva #0 diff_level
|
67 386E A9 00 8D F0 3C mva #0 diff_level
|
||||||
68
|
68
|
||||||
69 ; test only (some object in the world)
|
69 ; test only (some object in the world)
|
||||||
70 3873 A9 01 lda #1 ;bird0
|
70 3873 A9 01 lda #1 ;bird0
|
||||||
@@ -1028,25 +1028,25 @@ Source: dino.asm
|
|||||||
76 ;
|
76 ;
|
||||||
77 3882 A2 05 ldx #5 ; position
|
77 3882 A2 05 ldx #5 ; position
|
||||||
78 3884 A0 00 ldy #0 ; shape
|
78 3884 A0 00 ldy #0 ; shape
|
||||||
79 3886 20 4E 3A jsr ShowDino
|
79 3886 20 55 3A jsr ShowDino
|
||||||
80 3889 A2 0A ldx #10 ; position
|
80 3889 A2 0A ldx #10 ; position
|
||||||
81 388B A0 01 ldy #1 ; shape
|
81 388B A0 01 ldy #1 ; shape
|
||||||
82 388D 20 4E 3A jsr ShowDino
|
82 388D 20 55 3A jsr ShowDino
|
||||||
83 3890 A2 0F ldx #15 ; position
|
83 3890 A2 0F ldx #15 ; position
|
||||||
84 3892 A0 02 ldy #2 ; shape
|
84 3892 A0 02 ldy #2 ; shape
|
||||||
85 3894 20 4E 3A jsr ShowDino
|
85 3894 20 55 3A jsr ShowDino
|
||||||
86 3897 A2 14 ldx #20 ; position
|
86 3897 A2 14 ldx #20 ; position
|
||||||
87 3899 A0 03 ldy #3 ; shape
|
87 3899 A0 03 ldy #3 ; shape
|
||||||
88 389B 20 4E 3A jsr ShowDino
|
88 389B 20 55 3A jsr ShowDino
|
||||||
89 389E A2 19 ldx #25 ; position
|
89 389E A2 19 ldx #25 ; position
|
||||||
90 38A0 A0 04 ldy #4 ; shape
|
90 38A0 A0 04 ldy #4 ; shape
|
||||||
91 38A2 20 4E 3A jsr ShowDino
|
91 38A2 20 55 3A jsr ShowDino
|
||||||
92 38A5 A9 50 8D 20 37 mva #$50 screen+$700+32
|
92 38A5 A9 50 8D 20 37 mva #$50 screen+$700+32
|
||||||
93 38AA EndLoop
|
93 38AA EndLoop
|
||||||
94 38AA 20 85 39 jsr WorldShift
|
94 38AA 20 85 39 jsr WorldShift
|
||||||
95 38AD 20 6C 39 jsr WorldToScreen
|
95 38AD 20 6C 39 jsr WorldToScreen
|
||||||
96 38B0 20 BB 3B jsr CheckJoy
|
96 38B0 20 C2 3B jsr CheckJoy
|
||||||
97 38B3 20 4E 3A jsr ShowDino
|
97 38B3 20 55 3A jsr ShowDino
|
||||||
98 38B6 waitRTC ; or waitRTC ?
|
98 38B6 waitRTC ; or waitRTC ?
|
||||||
Macro: WAITRTC [Source: MACRO.ASM]
|
Macro: WAITRTC [Source: MACRO.ASM]
|
||||||
1 38B6 A5 14 lda RTCLOK+2
|
1 38B6 A5 14 lda RTCLOK+2
|
||||||
@@ -1099,7 +1099,7 @@ Macro: WAITRTC [Source: MACRO.ASM]
|
|||||||
3 38FC F0 FC beq ?wa
|
3 38FC F0 FC beq ?wa
|
||||||
Source: dino.asm
|
Source: dino.asm
|
||||||
114 ;key
|
114 ;key
|
||||||
115 38FE 20 C0 39 jsr Animate
|
115 38FE 20 C7 39 jsr Animate
|
||||||
116 3901 A9 20 8D F4 02 mva #>font1 chbas
|
116 3901 A9 20 8D F4 02 mva #>font1 chbas
|
||||||
117 3906 waitRTC ; or waitRTC ?
|
117 3906 waitRTC ; or waitRTC ?
|
||||||
Macro: WAITRTC [Source: MACRO.ASM]
|
Macro: WAITRTC [Source: MACRO.ASM]
|
||||||
@@ -1175,7 +1175,7 @@ Source: dino.asm
|
|||||||
176 3973 BD 25 38 lda WorldTable,x
|
176 3973 BD 25 38 lda WorldTable,x
|
||||||
177 3976 30 04 bmi NothingToDraw
|
177 3976 30 04 bmi NothingToDraw
|
||||||
178 3978 A8 tay
|
178 3978 A8 tay
|
||||||
179 3979 20 F3 39 jsr ShowObject
|
179 3979 20 FA 39 jsr ShowObject
|
||||||
180 397C NothingToDraw
|
180 397C NothingToDraw
|
||||||
181 397C E6 82 inc temp_b
|
181 397C E6 82 inc temp_b
|
||||||
182 397E A6 82 ldx temp_b
|
182 397E A6 82 ldx temp_b
|
||||||
@@ -1199,16 +1199,16 @@ Source: dino.asm
|
|||||||
200 ; check if there is enough of the gap between obstacles
|
200 ; check if there is enough of the gap between obstacles
|
||||||
201
|
201
|
||||||
202 ; get the gap for the given difficulty level
|
202 ; get the gap for the given difficulty level
|
||||||
203 3997 AE D5 3C ldx diff_level
|
203 3997 AE F0 3C ldx diff_level
|
||||||
204 399A A9 40 lda #WORLD_LENGTH
|
204 399A A9 40 lda #WORLD_LENGTH
|
||||||
205 399C 38 sec
|
205 399C 38 sec
|
||||||
206 399D FD C5 3C sbc diff_object_gap,x
|
206 399D FD E0 3C sbc diff_object_gap,x
|
||||||
207 39A0 AA tax
|
207 39A0 AA tax
|
||||||
208
|
208
|
||||||
209 ; is there a gap?
|
209 ; is there a gap?
|
||||||
210 @
|
210 @
|
||||||
211 39A1 BD 25 38 lda WorldTable,x
|
211 39A1 BD 25 38 lda WorldTable,x
|
||||||
212 39A4 D0 19 bne noInsert
|
212 39A4 D0 20 bne noInsert
|
||||||
213 39A6 E8 inx
|
213 39A6 E8 inx
|
||||||
214 39A7 E0 40 cpx #WORLD_LENGTH
|
214 39A7 E0 40 cpx #WORLD_LENGTH
|
||||||
215 39A9 D0 F6 bne @-
|
215 39A9 D0 F6 bne @-
|
||||||
@@ -1216,363 +1216,386 @@ Source: dino.asm
|
|||||||
217 39AB insertObject
|
217 39AB insertObject
|
||||||
218 39AB AD 0A D2 lda RANDOM
|
218 39AB AD 0A D2 lda RANDOM
|
||||||
219 39AE 29 01 and #%00000001 ; insert 50/50
|
219 39AE 29 01 and #%00000001 ; insert 50/50
|
||||||
220 39B0 F0 0D beq noInsert
|
220 39B0 F0 14 beq noInsert
|
||||||
221 39B2 A9 06 8D 63 38 mva #6 WorldTable+WORLD_LENGTH-2
|
221 39B2 randomize 8 10 ; cactuses
|
||||||
222 39B7 A9 86 8D 64 38 mva #6+$80 WorldTable+WORLD_LENGTH-1
|
Macro: RANDOMIZE [Source: MACRO.ASM]
|
||||||
223 39BC EE D5 3C inc diff_level
|
6 39B2 ?rand
|
||||||
224
|
7 39B2 AD 0A D2 lda random
|
||||||
225
|
8 39B5 C9 03 cmp #10+1-8 ;ceiling
|
||||||
|
9 39B7 B0 F9 bcs ?rand
|
||||||
|
11 39B9 69 08 adc #8
|
||||||
|
Source: dino.asm
|
||||||
|
222 39BB 8D 63 38 sta WorldTable+WORLD_LENGTH-2
|
||||||
|
223 39BE 09 80 ora #$80
|
||||||
|
224 39C0 8D 64 38 sta WorldTable+WORLD_LENGTH-1
|
||||||
|
225 39C3 EE F0 3C inc diff_level
|
||||||
226
|
226
|
||||||
227 39BF noInsert
|
227
|
||||||
228 39BF 60 rts
|
228
|
||||||
229 .endp
|
229 39C6 noInsert
|
||||||
230 ;-----------------------------------------------
|
230 39C6 60 rts
|
||||||
231 39C0 .proc Animate
|
231 .endp
|
||||||
232 39C0 A0 40 ldy #WORLD_LENGTH
|
232 ;-----------------------------------------------
|
||||||
233 39C2 B9 25 38 @ lda WorldTable,y
|
233 39C7 .proc Animate
|
||||||
234 39C5 AA tax
|
234 39C7 A0 40 ldy #WORLD_LENGTH
|
||||||
235 39C6 29 7F and #%01111111
|
235 39C9 B9 25 38 @ lda WorldTable,y
|
||||||
236 39C8 F0 0A beq NoBird
|
236 39CC AA tax
|
||||||
237 39CA C9 08 cmp #8 ; first cactus
|
237 39CD 29 7F and #%01111111
|
||||||
238 39CC B0 06 bcs NoBird
|
238 39CF F0 0A beq NoBird
|
||||||
239 ; then animate bird
|
239 39D1 C9 08 cmp #8 ; first cactus
|
||||||
240 39CE 8A txa
|
240 39D3 B0 06 bcs NoBird
|
||||||
241 39CF 49 01 eor #%0000001
|
241 ; then animate bird
|
||||||
242 39D1 99 25 38 sta WorldTable,y
|
242 39D5 8A txa
|
||||||
243 39D4 NoBird
|
243 39D6 49 01 eor #%0000001
|
||||||
244 39D4 88 dey
|
244 39D8 99 25 38 sta WorldTable,y
|
||||||
245 39D5 10 EB bpl @-
|
245 39DB NoBird
|
||||||
246 ; animate Dino
|
246 39DB 88 dey
|
||||||
247 39D7 A5 83 lda DinoWalkPhase
|
247 39DC 10 EB bpl @-
|
||||||
248 39D9 49 01 eor #%00000001
|
248 ; animate Dino
|
||||||
249 39DB 85 83 sta DinoWalkPhase
|
249 39DE A5 83 lda DinoWalkPhase
|
||||||
250 ; jump
|
250 39E0 49 01 eor #%00000001
|
||||||
251 39DD A5 84 lda DinoState
|
251 39E2 85 83 sta DinoWalkPhase
|
||||||
252 39DF C9 04 cmp #4 ; jump state
|
252 ; jump
|
||||||
253 39E1 D0 0F bne NoJump
|
253 39E4 A5 84 lda DinoState
|
||||||
254 39E3 A5 85 lda JumpPhase
|
254 39E6 C9 04 cmp #4 ; jump state
|
||||||
255 39E5 C9 06 cmp #6 ; max jump phase
|
255 39E8 D0 0F bne NoJump
|
||||||
256 39E7 F0 03 beq EndJump
|
256 39EA A5 85 lda JumpPhase
|
||||||
257 39E9 E6 85 inc JumpPhase
|
257 39EC C9 06 cmp #6 ; max jump phase
|
||||||
258 39EB 60 rts
|
258 39EE F0 03 beq EndJump
|
||||||
259 39EC EndJump
|
259 39F0 E6 85 inc JumpPhase
|
||||||
260 39EC A9 00 lda #0
|
260 39F2 60 rts
|
||||||
261 39EE 85 85 sta JumpPhase
|
261 39F3 EndJump
|
||||||
262 39F0 85 84 sta DinoState
|
262 39F3 A9 00 lda #0
|
||||||
263 39F2 NoJump
|
263 39F5 85 85 sta JumpPhase
|
||||||
264 39F2 60 rts
|
264 39F7 85 84 sta DinoState
|
||||||
265 .endp
|
265 39F9 NoJump
|
||||||
266 ;-----------------------------------------------
|
266 39F9 60 rts
|
||||||
267 ; Show Object on screen
|
267 .endp
|
||||||
268 ; X - y position
|
268 ;-----------------------------------------------
|
||||||
269 ; Y - shape nr
|
269 ; Show Object on screen
|
||||||
270 ;-----------------------------------------------
|
270 ; X - y position
|
||||||
271 39F3 .proc ShowObject
|
271 ; Y - shape nr
|
||||||
272 39F3 B9 B3 3C lda ShapesTableL,y
|
272 ;-----------------------------------------------
|
||||||
273 39F6 85 80 sta temp_w
|
273 39FA .proc ShowObject
|
||||||
274 39F8 B9 BC 3C lda ShapesTableH,y
|
274 39FA B9 CA 3C lda ShapesTableL,y
|
||||||
275 39FB 85 81 sta temp_w+1
|
275 39FD 85 80 sta temp_w
|
||||||
276 39FD A0 00 ldy #0
|
276 39FF B9 D5 3C lda ShapesTableH,y
|
||||||
277 39FF ObjectLoop
|
277 3A02 85 81 sta temp_w+1
|
||||||
278 39FF B1 80 lda (temp_w),y
|
278 3A04 A0 00 ldy #0
|
||||||
279 3A01 30 03 bmi @+
|
279 3A06 ObjectLoop
|
||||||
280 3A03 9D 00 34 sta screen+$400,x
|
280 3A06 B1 80 lda (temp_w),y
|
||||||
281 3A06 18 A5 80 69 02 85 + @ adw temp_w #2
|
281 3A08 30 03 bmi @+
|
||||||
282 3A11 B1 80 lda (temp_w),y
|
282 3A0A 9D 00 34 sta screen+$400,x
|
||||||
283 3A13 30 03 bmi @+
|
283 3A0D 18 A5 80 69 02 85 + @ adw temp_w #2
|
||||||
284 3A15 9D 00 35 sta screen+$500,x
|
284 3A18 B1 80 lda (temp_w),y
|
||||||
285 3A18 18 A5 80 69 02 85 + @ adw temp_w #2
|
285 3A1A 30 03 bmi @+
|
||||||
286 3A23 B1 80 lda (temp_w),y
|
286 3A1C 9D 00 35 sta screen+$500,x
|
||||||
287 3A25 30 03 bmi @+
|
287 3A1F 18 A5 80 69 02 85 + @ adw temp_w #2
|
||||||
288 3A27 9D 00 36 sta screen+$600,x
|
288 3A2A B1 80 lda (temp_w),y
|
||||||
289 3A2A 18 A5 80 69 02 85 + @ adw temp_w #2
|
289 3A2C 30 03 bmi @+
|
||||||
290 3A35 B1 80 lda (temp_w),y
|
290 3A2E 9D 00 36 sta screen+$600,x
|
||||||
291 3A37 30 03 bmi @+
|
291 3A31 18 A5 80 69 02 85 + @ adw temp_w #2
|
||||||
292 3A39 9D 00 37 sta screen+$700,x
|
292 3A3C B1 80 lda (temp_w),y
|
||||||
293 3A3C 38 A5 80 E9 06 85 + @ sbw temp_w #6
|
293 3A3E 30 03 bmi @+
|
||||||
294 3A47 E8 inx
|
294 3A40 9D 00 37 sta screen+$700,x
|
||||||
295 3A48 C8 iny
|
295 3A43 38 A5 80 E9 06 85 + @ sbw temp_w #6
|
||||||
296 3A49 C0 02 cpy #2 ; object width
|
296 3A4E E8 inx
|
||||||
297 3A4B D0 B2 bne ObjectLoop
|
297 3A4F C8 iny
|
||||||
298 3A4D 60 rts
|
298 3A50 C0 02 cpy #2 ; object width
|
||||||
299 .endp
|
299 3A52 D0 B2 bne ObjectLoop
|
||||||
300 ;-----------------------------------------------
|
300 3A54 60 rts
|
||||||
301 ; Show Dino on screen (test)
|
301 .endp
|
||||||
302 ;-----------------------------------------------
|
302 ;-----------------------------------------------
|
||||||
303 3A4E .proc ShowDino
|
303 ; Show Dino on screen (test)
|
||||||
304 3A4E A2 05 ldx #5 ; position
|
304 ;-----------------------------------------------
|
||||||
305 3A50 A5 84 lda DinoState
|
305 3A55 .proc ShowDino
|
||||||
306 3A52 05 83 ora DinoWalkPhase ; shape
|
306 3A55 A2 05 ldx #5 ; position
|
||||||
307 3A54 A8 tay
|
307 3A57 A5 84 lda DinoState
|
||||||
308 3A55 B9 67 3C lda DinoShapesTableL,y
|
308 3A59 05 83 ora DinoWalkPhase ; shape
|
||||||
309 3A58 85 80 sta temp_w
|
309 3A5B A8 tay
|
||||||
310 3A5A B9 6D 3C lda DinoShapesTableH,y
|
310 3A5C B9 6E 3C lda DinoShapesTableL,y
|
||||||
311 3A5D 85 81 sta temp_w+1
|
311 3A5F 85 80 sta temp_w
|
||||||
312 3A5F C0 04 cpy #4 ; jump
|
312 3A61 B9 74 3C lda DinoShapesTableH,y
|
||||||
313 3A61 F0 55 beq Jump
|
313 3A64 85 81 sta temp_w+1
|
||||||
314 3A63 C0 05 cpy #5 ; jump
|
314 3A66 C0 04 cpy #4 ; jump
|
||||||
315 3A65 F0 51 beq Jump
|
315 3A68 F0 55 beq Jump
|
||||||
316 3A67 A0 00 ldy #0
|
316 3A6A C0 05 cpy #5 ; jump
|
||||||
317 3A69 DinoLoop
|
317 3A6C F0 51 beq Jump
|
||||||
318 3A69 B1 80 lda (temp_w),y
|
318 3A6E A0 00 ldy #0
|
||||||
319 3A6B 30 03 bmi @+
|
319 3A70 DinoLoop
|
||||||
320 3A6D 9D 00 34 sta screen+$400,x
|
320 3A70 B1 80 lda (temp_w),y
|
||||||
321 3A70 18 A5 80 69 05 85 + @ adw temp_w #5
|
321 3A72 30 03 bmi @+
|
||||||
322 3A7B B1 80 lda (temp_w),y
|
322 3A74 9D 00 34 sta screen+$400,x
|
||||||
323 3A7D 30 03 bmi @+
|
323 3A77 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
324 3A7F 9D 00 35 sta screen+$500,x
|
324 3A82 B1 80 lda (temp_w),y
|
||||||
325 3A82 18 A5 80 69 05 85 + @ adw temp_w #5
|
325 3A84 30 03 bmi @+
|
||||||
326 3A8D B1 80 lda (temp_w),y
|
326 3A86 9D 00 35 sta screen+$500,x
|
||||||
327 3A8F 30 03 bmi @+
|
327 3A89 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
328 3A91 9D 00 36 sta screen+$600,x
|
328 3A94 B1 80 lda (temp_w),y
|
||||||
329 3A94 18 A5 80 69 05 85 + @ adw temp_w #5
|
329 3A96 30 03 bmi @+
|
||||||
330 3A9F B1 80 lda (temp_w),y
|
330 3A98 9D 00 36 sta screen+$600,x
|
||||||
331 3AA1 30 03 bmi @+
|
331 3A9B 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
332 3AA3 9D 00 37 sta screen+$700,x
|
332 3AA6 B1 80 lda (temp_w),y
|
||||||
333 3AA6 38 A5 80 E9 0F 85 + @ sbw temp_w #15
|
333 3AA8 30 03 bmi @+
|
||||||
334 3AB1 E8 inx
|
334 3AAA 9D 00 37 sta screen+$700,x
|
||||||
335 3AB2 C8 iny
|
335 3AAD 38 A5 80 E9 0F 85 + @ sbw temp_w #15
|
||||||
336 3AB3 C0 05 cpy #5 ; dino width
|
336 3AB8 E8 inx
|
||||||
337 3AB5 D0 B2 bne DinoLoop
|
337 3AB9 C8 iny
|
||||||
338 3AB7 60 rts
|
338 3ABA C0 05 cpy #5 ; dino width
|
||||||
339 3AB8 Jump
|
339 3ABC D0 B2 bne DinoLoop
|
||||||
340 3AB8 A4 85 ldy JumpPhase
|
340 3ABE 60 rts
|
||||||
341 3ABA B9 D6 3C lda DinoJumpTr,y
|
341 3ABF Jump
|
||||||
342 3ABD C9 02 cmp #2
|
342 3ABF A4 85 ldy JumpPhase
|
||||||
343 3ABF F0 58 beq jPhase2
|
343 3AC1 B9 F1 3C lda DinoJumpTr,y
|
||||||
344 3AC1 C9 03 cmp #3
|
344 3AC4 C9 02 cmp #2
|
||||||
345 3AC3 D0 03 4C 6A 3B jeq jPhase3
|
345 3AC6 F0 58 beq jPhase2
|
||||||
346 3AC8 jPhase1
|
346 3AC8 C9 03 cmp #3
|
||||||
347 3AC8 A0 00 ldy #0
|
347 3ACA D0 03 4C 71 3B jeq jPhase3
|
||||||
348 3ACA DinoLoop1
|
348 3ACF jPhase1
|
||||||
349 3ACA B1 80 lda (temp_w),y
|
349 3ACF A0 00 ldy #0
|
||||||
350 3ACC 30 03 bmi @+
|
350 3AD1 DinoLoop1
|
||||||
351 3ACE 9D 00 33 sta screen+$300,x
|
351 3AD1 B1 80 lda (temp_w),y
|
||||||
352 3AD1 18 A5 80 69 05 85 + @ adw temp_w #5
|
352 3AD3 30 03 bmi @+
|
||||||
353 3ADC B1 80 lda (temp_w),y
|
353 3AD5 9D 00 33 sta screen+$300,x
|
||||||
354 3ADE 30 03 bmi @+
|
354 3AD8 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
355 3AE0 9D 00 34 sta screen+$400,x
|
355 3AE3 B1 80 lda (temp_w),y
|
||||||
356 3AE3 18 A5 80 69 05 85 + @ adw temp_w #5
|
356 3AE5 30 03 bmi @+
|
||||||
357 3AEE B1 80 lda (temp_w),y
|
357 3AE7 9D 00 34 sta screen+$400,x
|
||||||
358 3AF0 30 03 bmi @+
|
358 3AEA 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
359 3AF2 9D 00 35 sta screen+$500,x
|
359 3AF5 B1 80 lda (temp_w),y
|
||||||
360 3AF5 18 A5 80 69 05 85 + @ adw temp_w #5
|
360 3AF7 30 03 bmi @+
|
||||||
361 3B00 B1 80 lda (temp_w),y
|
361 3AF9 9D 00 35 sta screen+$500,x
|
||||||
362 3B02 30 03 bmi @+
|
362 3AFC 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
363 3B04 9D 00 36 sta screen+$600,x
|
363 3B07 B1 80 lda (temp_w),y
|
||||||
364 3B07 38 A5 80 E9 0F 85 + @ sbw temp_w #15
|
364 3B09 30 03 bmi @+
|
||||||
365 3B12 E8 inx
|
365 3B0B 9D 00 36 sta screen+$600,x
|
||||||
366 3B13 C8 iny
|
366 3B0E 38 A5 80 E9 0F 85 + @ sbw temp_w #15
|
||||||
367 3B14 C0 05 cpy #5 ; dino width
|
367 3B19 E8 inx
|
||||||
368 3B16 D0 B2 bne DinoLoop1
|
368 3B1A C8 iny
|
||||||
369 3B18 60 rts
|
369 3B1B C0 05 cpy #5 ; dino width
|
||||||
370 3B19 jPhase2
|
370 3B1D D0 B2 bne DinoLoop1
|
||||||
371 3B19 A0 00 ldy #0
|
371 3B1F 60 rts
|
||||||
372 3B1B DinoLoop2
|
372 3B20 jPhase2
|
||||||
373 3B1B B1 80 lda (temp_w),y
|
373 3B20 A0 00 ldy #0
|
||||||
374 3B1D 30 03 bmi @+
|
374 3B22 DinoLoop2
|
||||||
375 3B1F 9D 00 32 sta screen+$200,x
|
375 3B22 B1 80 lda (temp_w),y
|
||||||
376 3B22 18 A5 80 69 05 85 + @ adw temp_w #5
|
376 3B24 30 03 bmi @+
|
||||||
377 3B2D B1 80 lda (temp_w),y
|
377 3B26 9D 00 32 sta screen+$200,x
|
||||||
378 3B2F 30 03 bmi @+
|
378 3B29 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
379 3B31 9D 00 33 sta screen+$300,x
|
379 3B34 B1 80 lda (temp_w),y
|
||||||
380 3B34 18 A5 80 69 05 85 + @ adw temp_w #5
|
380 3B36 30 03 bmi @+
|
||||||
381 3B3F B1 80 lda (temp_w),y
|
381 3B38 9D 00 33 sta screen+$300,x
|
||||||
382 3B41 30 03 bmi @+
|
382 3B3B 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
383 3B43 9D 00 34 sta screen+$400,x
|
383 3B46 B1 80 lda (temp_w),y
|
||||||
384 3B46 18 A5 80 69 05 85 + @ adw temp_w #5
|
384 3B48 30 03 bmi @+
|
||||||
385 3B51 B1 80 lda (temp_w),y
|
385 3B4A 9D 00 34 sta screen+$400,x
|
||||||
386 3B53 30 03 bmi @+
|
386 3B4D 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
387 3B55 9D 00 35 sta screen+$500,x
|
387 3B58 B1 80 lda (temp_w),y
|
||||||
388 3B58 38 A5 80 E9 0F 85 + @ sbw temp_w #15
|
388 3B5A 30 03 bmi @+
|
||||||
389 3B63 E8 inx
|
389 3B5C 9D 00 35 sta screen+$500,x
|
||||||
390 3B64 C8 iny
|
390 3B5F 38 A5 80 E9 0F 85 + @ sbw temp_w #15
|
||||||
391 3B65 C0 05 cpy #5 ; dino width
|
391 3B6A E8 inx
|
||||||
392 3B67 D0 B2 bne DinoLoop2
|
392 3B6B C8 iny
|
||||||
393 3B69 60 rts
|
393 3B6C C0 05 cpy #5 ; dino width
|
||||||
394 3B6A jPhase3
|
394 3B6E D0 B2 bne DinoLoop2
|
||||||
395 3B6A A0 00 ldy #0
|
395 3B70 60 rts
|
||||||
396 3B6C DinoLoop3
|
396 3B71 jPhase3
|
||||||
397 3B6C B1 80 lda (temp_w),y
|
397 3B71 A0 00 ldy #0
|
||||||
398 3B6E 30 03 bmi @+
|
398 3B73 DinoLoop3
|
||||||
399 3B70 9D 00 31 sta screen+$100,x
|
399 3B73 B1 80 lda (temp_w),y
|
||||||
400 3B73 18 A5 80 69 05 85 + @ adw temp_w #5
|
400 3B75 30 03 bmi @+
|
||||||
401 3B7E B1 80 lda (temp_w),y
|
401 3B77 9D 00 31 sta screen+$100,x
|
||||||
402 3B80 30 03 bmi @+
|
402 3B7A 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
403 3B82 9D 00 32 sta screen+$200,x
|
403 3B85 B1 80 lda (temp_w),y
|
||||||
404 3B85 18 A5 80 69 05 85 + @ adw temp_w #5
|
404 3B87 30 03 bmi @+
|
||||||
405 3B90 B1 80 lda (temp_w),y
|
405 3B89 9D 00 32 sta screen+$200,x
|
||||||
406 3B92 30 03 bmi @+
|
406 3B8C 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
407 3B94 9D 00 33 sta screen+$300,x
|
407 3B97 B1 80 lda (temp_w),y
|
||||||
408 3B97 18 A5 80 69 05 85 + @ adw temp_w #5
|
408 3B99 30 03 bmi @+
|
||||||
409 3BA2 B1 80 lda (temp_w),y
|
409 3B9B 9D 00 33 sta screen+$300,x
|
||||||
410 3BA4 30 03 bmi @+
|
410 3B9E 18 A5 80 69 05 85 + @ adw temp_w #5
|
||||||
411 3BA6 9D 00 34 sta screen+$400,x
|
411 3BA9 B1 80 lda (temp_w),y
|
||||||
412 3BA9 38 A5 80 E9 0F 85 + @ sbw temp_w #15
|
412 3BAB 30 03 bmi @+
|
||||||
413 3BB4 E8 inx
|
413 3BAD 9D 00 34 sta screen+$400,x
|
||||||
414 3BB5 C8 iny
|
414 3BB0 38 A5 80 E9 0F 85 + @ sbw temp_w #15
|
||||||
415 3BB6 C0 05 cpy #5 ; dino width
|
415 3BBB E8 inx
|
||||||
416 3BB8 D0 B2 bne DinoLoop3
|
416 3BBC C8 iny
|
||||||
417 3BBA 60 rts
|
417 3BBD C0 05 cpy #5 ; dino width
|
||||||
418 .endp
|
418 3BBF D0 B2 bne DinoLoop3
|
||||||
419 ;-----------------------------------------------
|
419 3BC1 60 rts
|
||||||
420 3BBB .proc CheckJoy
|
420 .endp
|
||||||
421 3BBB A5 84 lda DinoState
|
421 ;-----------------------------------------------
|
||||||
422 3BBD C9 04 cmp #4 ; jump state
|
422 3BC2 .proc CheckJoy
|
||||||
423 3BBF F0 12 beq NoChange
|
423 3BC2 A5 84 lda DinoState
|
||||||
424 3BC1 AD 78 02 lda STICK0
|
424 3BC4 C9 04 cmp #4 ; jump state
|
||||||
425 3BC4 29 02 and #%00000010 ; down
|
425 3BC6 F0 12 beq NoChange
|
||||||
426 3BC6 F0 15 beq Down
|
426 3BC8 AD 78 02 lda STICK0
|
||||||
427 3BC8 AD 78 02 lda STICK0
|
427 3BCB 29 02 and #%00000010 ; down
|
||||||
428 3BCB 29 01 and #%00000001 ; up
|
428 3BCD F0 15 beq Down
|
||||||
429 3BCD F0 05 beq Up
|
429 3BCF AD 78 02 lda STICK0
|
||||||
430 ; no change state (temporary set to 0)
|
430 3BD2 29 01 and #%00000001 ; up
|
||||||
431 3BCF A9 00 lda #0
|
431 3BD4 F0 05 beq Up
|
||||||
432 3BD1 85 84 sta DinoState
|
432 ; no change state (temporary set to 0)
|
||||||
433 3BD3 NoChange
|
433 3BD6 A9 00 lda #0
|
||||||
434 3BD3 60 rts
|
434 3BD8 85 84 sta DinoState
|
||||||
435 3BD4 A9 04 Up lda #4
|
435 3BDA NoChange
|
||||||
436 3BD6 85 84 sta DinoState
|
436 3BDA 60 rts
|
||||||
437 3BD8 A9 00 lda #0
|
437 3BDB A9 04 Up lda #4
|
||||||
438 3BDA 85 85 sta JumpPhase
|
438 3BDD 85 84 sta DinoState
|
||||||
439 3BDC 60 rts
|
439 3BDF A9 00 lda #0
|
||||||
440 3BDD Down
|
440 3BE1 85 85 sta JumpPhase
|
||||||
441 3BDD A9 02 lda #2
|
441 3BE3 60 rts
|
||||||
442 3BDF 85 84 sta DinoState
|
442 3BE4 Down
|
||||||
443 3BE1 60 rts
|
443 3BE4 A9 02 lda #2
|
||||||
444 .endp
|
444 3BE6 85 84 sta DinoState
|
||||||
445 ;-----------------------------------------------
|
445 3BE8 60 rts
|
||||||
446 3BE2 .proc SetStart
|
446 .endp
|
||||||
447 3BE2 20 4A 39 jsr ClearWorld
|
447 ;-----------------------------------------------
|
||||||
448 3BE5 A9 00 lda #0
|
448 3BE9 .proc SetStart
|
||||||
449 3BE7 85 83 sta DinoWalkPhase
|
449 3BE9 20 4A 39 jsr ClearWorld
|
||||||
450 3BE9 A9 00 lda #0
|
450 3BEC A9 00 lda #0
|
||||||
451 3BEB 85 84 sta DinoState
|
451 3BEE 85 83 sta DinoWalkPhase
|
||||||
452 3BED 60 rts
|
452 3BF0 A9 00 lda #0
|
||||||
453 .endp
|
453 3BF2 85 84 sta DinoState
|
||||||
454 ;-----------------------------------------------
|
454 3BF4 60 rts
|
||||||
455 3BEE .proc SetGameScreen
|
455 .endp
|
||||||
456 3BEE A9 00 8D 30 02 A9 + mwa #GameDL dlptrs
|
456 ;-----------------------------------------------
|
||||||
457 3BF8 A9 3E lda #%00111110 ; normal screen width, DL on, P/M on
|
457 3BF5 .proc SetGameScreen
|
||||||
458 3BFA 8D 2F 02 sta dmactls
|
458 3BF5 A9 00 8D 30 02 A9 + mwa #GameDL dlptrs
|
||||||
459 3BFD A9 20 8D F4 02 mva #>font1 chbas
|
459 3BFF A9 3E lda #%00111110 ; normal screen width, DL on, P/M on
|
||||||
460 3C02 60 rts
|
460 3C01 8D 2F 02 sta dmactls
|
||||||
461 .endp
|
461 3C04 A9 20 8D F4 02 mva #>font1 chbas
|
||||||
462 ;--------------------------------------------------
|
462 3C09 60 rts
|
||||||
463 3C03 icl 'artwork/shapes.asm'
|
463 .endp
|
||||||
|
464 ;--------------------------------------------------
|
||||||
|
465 3C0A icl 'artwork/shapes.asm'
|
||||||
Source: shapes.asm
|
Source: shapes.asm
|
||||||
1 ; @com.wudsn.ide.asm.mainsourcefile=dino.asm
|
1 ; @com.wudsn.ide.asm.mainsourcefile=dino.asm
|
||||||
2
|
2
|
||||||
3 .IF *>0 ;this is a trick that prevents compiling this file alone
|
3 .IF *>0 ;this is a trick that prevents compiling this file alone
|
||||||
4
|
4
|
||||||
5 ; dno run
|
5 ; dno run
|
||||||
6 3C03 dino_run_0 ; anly '0' jumps
|
6 3C0A dino_run_0 ; anly '0' jumps
|
||||||
7 3C03 FF 23 27 2B FF .by $ff, $23, $27, $2b, $ff ; '. .'
|
7 3C0A FF 23 27 2B FF .by $ff, $23, $27, $2b, $ff ; '. .'
|
||||||
8 3C08 20 24 28 2C FF .by $20, $24, $28, $2c, $ff ; ' ## .'
|
8 3C0F 20 24 28 2C FF .by $20, $24, $28, $2c, $ff ; ' ## .'
|
||||||
9 3C0D 21 25 29 FF FF .by $21, $25, $29, $ff, $ff ; '## ..'
|
9 3C14 21 25 29 FF FF .by $21, $25, $29, $ff, $ff ; '## ..'
|
||||||
10 3C12 22 26 2A FF FF .by $22, $26, $2a, $ff, $ff ; '## ..'
|
10 3C19 22 26 2A FF FF .by $22, $26, $2a, $ff, $ff ; '## ..'
|
||||||
11 3C17 dino_run_1
|
11 3C1E dino_run_1
|
||||||
12 3C17 FF 23 27 2B FF .by $ff, $23, $27, $2b, $ff ; '. .'
|
12 3C1E FF 23 27 2B FF .by $ff, $23, $27, $2b, $ff ; '. .'
|
||||||
13 3C1C 20 24 28 2C FF .by $20, $24, $28, $2c, $ff ; ' ## .'
|
13 3C23 20 24 28 2C FF .by $20, $24, $28, $2c, $ff ; ' ## .'
|
||||||
14 3C21 21 25 29 FF FF .by $21, $25, $29, $ff, $ff ; '## ..'
|
14 3C28 21 25 29 FF FF .by $21, $25, $29, $ff, $ff ; '## ..'
|
||||||
15 3C26 2D 2E 2F FF FF .by $2d, $2e, $2f, $ff, $ff ; '## ..'
|
15 3C2D 2D 2E 2F FF FF .by $2d, $2e, $2f, $ff, $ff ; '## ..'
|
||||||
16 3C2B dino_run_2
|
16 3C32 dino_run_2
|
||||||
17 3C2B FF 23 27 2B FF .by $ff, $23, $27, $2b, $ff ; '. .'
|
17 3C32 FF 23 27 2B FF .by $ff, $23, $27, $2b, $ff ; '. .'
|
||||||
18 3C30 20 24 28 2C FF .by $20, $24, $28, $2c, $ff ; ' ## .'
|
18 3C37 20 24 28 2C FF .by $20, $24, $28, $2c, $ff ; ' ## .'
|
||||||
19 3C35 21 25 29 FF FF .by $21, $25, $29, $ff, $ff ; '## ..'
|
19 3C3C 21 25 29 FF FF .by $21, $25, $29, $ff, $ff ; '## ..'
|
||||||
20 3C3A 30 31 32 FF FF .by $30, $31, $32, $ff, $ff ; '## ..'
|
20 3C41 30 31 32 FF FF .by $30, $31, $32, $ff, $ff ; '## ..'
|
||||||
21 3C3F dino_crouch_1
|
21 3C46 dino_crouch_1
|
||||||
22 3C3F FF FF FF FF FF .by $ff, $ff, $ff, $ff, $ff ; '.....'
|
22 3C46 FF FF FF FF FF .by $ff, $ff, $ff, $ff, $ff ; '.....'
|
||||||
23 3C44 FF FF FF FF FF .by $ff, $ff, $ff, $ff, $ff ; '.....'
|
23 3C4B FF FF FF FF FF .by $ff, $ff, $ff, $ff, $ff ; '.....'
|
||||||
24 3C49 33 34 35 36 37 .by $33, $34, $35, $36, $37 ; '#### '
|
24 3C50 33 34 35 36 37 .by $33, $34, $35, $36, $37 ; '#### '
|
||||||
25 3C4E 38 39 3A 3B 3C .by $38, $39, $3a, $3b, $3c ; '#### '
|
25 3C55 38 39 3A 3B 3C .by $38, $39, $3a, $3b, $3c ; '#### '
|
||||||
26 3C53 dino_crouch_2
|
26 3C5A dino_crouch_2
|
||||||
27 3C53 FF FF FF FF FF .by $ff, $ff, $ff, $ff, $ff ; '.....'
|
27 3C5A FF FF FF FF FF .by $ff, $ff, $ff, $ff, $ff ; '.....'
|
||||||
28 3C58 FF FF FF FF FF .by $ff, $ff, $ff, $ff, $ff ; '.....'
|
28 3C5F FF FF FF FF FF .by $ff, $ff, $ff, $ff, $ff ; '.....'
|
||||||
29 3C5D 33 34 35 36 37 .by $33, $34, $35, $36, $37 ; '#### '
|
29 3C64 33 34 35 36 37 .by $33, $34, $35, $36, $37 ; '#### '
|
||||||
30 3C62 3D 3E 3F 3B 3C .by $3d, $3e, $3f, $3b, $3c ; '#### '
|
30 3C69 3D 3E 3F 3B 3C .by $3d, $3e, $3f, $3b, $3c ; '#### '
|
||||||
31 3C67 DinoShapesTableL
|
31 3C6E DinoShapesTableL
|
||||||
32 3C67 17 .by <dino_run_1
|
32 3C6E 1E .by <dino_run_1
|
||||||
33 3C68 2B .by <dino_run_2
|
33 3C6F 32 .by <dino_run_2
|
||||||
34 3C69 3F .by <dino_crouch_1
|
34 3C70 46 .by <dino_crouch_1
|
||||||
35 3C6A 53 .by <dino_crouch_2
|
35 3C71 5A .by <dino_crouch_2
|
||||||
36 3C6B 03 .by <dino_run_0 ; jump
|
36 3C72 0A .by <dino_run_0 ; jump
|
||||||
37 3C6C 03 .by <dino_run_0 ; jump
|
37 3C73 0A .by <dino_run_0 ; jump
|
||||||
38 3C6D DinoShapesTableH
|
38 3C74 DinoShapesTableH
|
||||||
39 3C6D 3C .by >dino_run_1
|
39 3C74 3C .by >dino_run_1
|
||||||
40 3C6E 3C .by >dino_run_2
|
40 3C75 3C .by >dino_run_2
|
||||||
41 3C6F 3C .by >dino_crouch_1
|
41 3C76 3C .by >dino_crouch_1
|
||||||
42 3C70 3C .by >dino_crouch_2
|
42 3C77 3C .by >dino_crouch_2
|
||||||
43 3C71 3C .by >dino_run_0 ; jump
|
43 3C78 3C .by >dino_run_0 ; jump
|
||||||
44 3C72 3C .by >dino_run_0 ; jump
|
44 3C79 3C .by >dino_run_0 ; jump
|
||||||
45 ; other objects
|
45 ; other objects
|
||||||
46 3C73 ground_0
|
46 3C7A ground_0
|
||||||
47 3C73 FF FF .by $ff, $ff ; '..'
|
47 3C7A FF FF .by $ff, $ff ; '..'
|
||||||
48 3C75 FF FF .by $ff, $ff ; '..'
|
48 3C7C FF FF .by $ff, $ff ; '..'
|
||||||
49 3C77 FF FF .by $ff, $ff ; '..'
|
49 3C7E FF FF .by $ff, $ff ; '..'
|
||||||
50 3C79 52 52 .by $52, $52 ; '##'
|
50 3C80 52 52 .by $52, $52 ; '##'
|
||||||
51 3C7B bird_0
|
51 3C82 bird_0
|
||||||
52 3C7B FF FF .by $ff, $ff ; '..'
|
52 3C82 FF FF .by $ff, $ff ; '..'
|
||||||
53 3C7D FF FF .by $ff, $ff ; '..'
|
53 3C84 FF FF .by $ff, $ff ; '..'
|
||||||
54 3C7F 40 41 .by $40, $41 ; '##'
|
54 3C86 40 41 .by $40, $41 ; '##'
|
||||||
55 3C81 52 52 .by $52, $52 ; '##'
|
55 3C88 52 52 .by $52, $52 ; '##'
|
||||||
56 3C83 bird_1
|
56 3C8A bird_1
|
||||||
57 3C83 FF FF .by $ff, $ff ; '..'
|
57 3C8A FF FF .by $ff, $ff ; '..'
|
||||||
58 3C85 40 41 .by $40, $41 ; '##'
|
58 3C8C 40 41 .by $40, $41 ; '##'
|
||||||
59 3C87 FF FF .by $ff, $ff ; '..'
|
59 3C8E FF FF .by $ff, $ff ; '..'
|
||||||
60 3C89 52 52 .by $52, $52 ; '##'
|
60 3C90 52 52 .by $52, $52 ; '##'
|
||||||
61 3C8B bird_2
|
61 3C92 bird_2
|
||||||
62 3C8B 40 41 .by $40, $41 ; '##'
|
62 3C92 40 41 .by $40, $41 ; '##'
|
||||||
63 3C8D FF FF .by $ff, $ff ; '..'
|
63 3C94 FF FF .by $ff, $ff ; '..'
|
||||||
64 3C8F FF FF .by $ff, $ff ; ''.'
|
64 3C96 FF FF .by $ff, $ff ; ''.'
|
||||||
65 3C91 52 52 .by $52, $52 ; '##'
|
65 3C98 52 52 .by $52, $52 ; '##'
|
||||||
66 3C93 bird_0a
|
66 3C9A bird_0a
|
||||||
67 3C93 FF FF .by $ff, $ff ; '..'
|
67 3C9A FF FF .by $ff, $ff ; '..'
|
||||||
68 3C95 FF FF .by $ff, $ff ; '..'
|
68 3C9C FF FF .by $ff, $ff ; '..'
|
||||||
69 3C97 42 43 .by $42, $43 ; '##'
|
69 3C9E 42 43 .by $42, $43 ; '##'
|
||||||
70 3C99 52 52 .by $52, $52 ; '##'
|
70 3CA0 52 52 .by $52, $52 ; '##'
|
||||||
71 3C9B bird_1a
|
71 3CA2 bird_1a
|
||||||
72 3C9B FF FF .by $ff, $ff ; '..'
|
72 3CA2 FF FF .by $ff, $ff ; '..'
|
||||||
73 3C9D 42 43 .by $42, $43 ; '##'
|
73 3CA4 42 43 .by $42, $43 ; '##'
|
||||||
74 3C9F FF FF .by $ff, $ff ; '..'
|
74 3CA6 FF FF .by $ff, $ff ; '..'
|
||||||
75 3CA1 52 52 .by $52, $52 ; '##'
|
75 3CA8 52 52 .by $52, $52 ; '##'
|
||||||
76 3CA3 bird_2a
|
76 3CAA bird_2a
|
||||||
77 3CA3 42 43 .by $42, $43 ; '##'
|
77 3CAA 42 43 .by $42, $43 ; '##'
|
||||||
78 3CA5 FF FF .by $ff, $ff ; '..'
|
78 3CAC FF FF .by $ff, $ff ; '..'
|
||||||
79 3CA7 FF FF .by $ff, $ff ; ''.'
|
79 3CAE FF FF .by $ff, $ff ; ''.'
|
||||||
80 3CA9 52 52 .by $52, $52 ; '##'
|
80 3CB0 52 52 .by $52, $52 ; '##'
|
||||||
81 3CAB cactus_0
|
81 3CB2 cactus_0
|
||||||
82 3CAB FF FF .by $ff, $ff ; '..'
|
82 3CB2 FF FF .by $ff, $ff ; '..'
|
||||||
83 3CAD 54 54 .by $54, $54 ; '##'
|
83 3CB4 FF FF .by $ff, $ff ; '..'
|
||||||
84 3CAF 54 54 .by $54, $54 ; '##'
|
84 3CB6 46 47 .by $46, $47 ; '##'
|
||||||
85 3CB1 52 52 .by $52, $52 ; '##'
|
85 3CB8 44 45 .by $44, $45 ; '##'
|
||||||
86
|
86 3CBA cactus_1
|
||||||
87 3CB3 ShapesTableL
|
87 3CBA FF FF .by $ff, $ff ; '..'
|
||||||
88 3CB3 73 .by <ground_0
|
88 3CBC FF FF .by $ff, $ff ; '..'
|
||||||
89 3CB4 73 .by <ground_0
|
89 3CBE 4A 4B .by $4a, $4b ; '##'
|
||||||
90 3CB5 7B .by <bird_0
|
90 3CC0 48 49 .by $48, $49 ; '##'
|
||||||
91 3CB6 93 .by <bird_0a
|
91 3CC2 cactus_2
|
||||||
92 3CB7 83 .by <bird_1
|
92 3CC2 FF FF .by $ff, $ff ; '..'
|
||||||
93 3CB8 9B .by <bird_1a
|
93 3CC4 50 51 .by $50, $51 ; '##'
|
||||||
94 3CB9 8B .by <bird_2
|
94 3CC6 4E 4F .by $4e, $4f ; '##'
|
||||||
95 3CBA A3 .by <bird_2a
|
95 3CC8 4C 4D .by $4c, $4d ; '##'
|
||||||
96 3CBB AB .by <cactus_0
|
96
|
||||||
97 3CBC ShapesTableH
|
97 3CCA ShapesTableL
|
||||||
98 3CBC 3C .by >ground_0
|
98 3CCA 7A .by <ground_0
|
||||||
99 3CBD 3C .by >ground_0
|
99 3CCB 7A .by <ground_0
|
||||||
100 3CBE 3C .by >bird_0
|
100 3CCC 82 .by <bird_0
|
||||||
101 3CBF 3C .by >bird_0a
|
101 3CCD 9A .by <bird_0a
|
||||||
102 3CC0 3C .by >bird_1
|
102 3CCE 8A .by <bird_1
|
||||||
103 3CC1 3C .by >bird_1a
|
103 3CCF A2 .by <bird_1a
|
||||||
104 3CC2 3C .by >bird_2
|
104 3CD0 92 .by <bird_2
|
||||||
105 3CC3 3C .by >bird_2a
|
105 3CD1 AA .by <bird_2a
|
||||||
106 3CC4 3C .by >cactus_0
|
106 3CD2 B2 .by <cactus_0
|
||||||
107 3CC5 diff_object_gap ; min distance between obstacles by difficulty level
|
107 3CD3 BA .by <cactus_1
|
||||||
108 3CC5 14 13 12 11 10 0F + :DIFF_LEVELS .by 20-#
|
108 3CD4 C2 .by <cactus_2
|
||||||
109 ;----------vars----------
|
109 3CD5 ShapesTableH
|
||||||
110 = 3CD5 diff_level .ds 1
|
110 3CD5 3C .by >ground_0
|
||||||
111 3CD6-3CDB> 01 02 03 03 + DinoJumpTr .by 1,2,3,3,2,1
|
111 3CD6 3C .by >ground_0
|
||||||
112 .endif ; .IF *>0
|
112 3CD7 3C .by >bird_0
|
||||||
464 ;--------------------------------------------------
|
113 3CD8 3C .by >bird_0a
|
||||||
465
|
114 3CD9 3C .by >bird_1
|
||||||
466 02E0-02E1> 65 38 run FirstSTART
|
115 3CDA 3C .by >bird_1a
|
||||||
|
116 3CDB 3C .by >bird_2
|
||||||
|
117 3CDC 3C .by >bird_2a
|
||||||
|
118 3CDD 3C .by >cactus_0
|
||||||
|
119 3CDE 3C .by >cactus_1
|
||||||
|
120 3CDF 3C .by >cactus_2
|
||||||
|
121 3CE0 diff_object_gap ; min distance between obstacles by difficulty level
|
||||||
|
122 3CE0 14 13 12 11 10 0F + :DIFF_LEVELS .by 20-#
|
||||||
|
123 ;----------vars----------
|
||||||
|
124 = 3CF0 diff_level .ds 1
|
||||||
|
125 3CF1-3CF6> 01 02 03 03 + DinoJumpTr .by 1,2,3,3,2,1
|
||||||
|
126 .endif ; .IF *>0
|
||||||
|
466 ;--------------------------------------------------
|
||||||
|
467
|
||||||
|
468 02E0-02E1> 65 38 run FirstSTART
|
||||||
|
|||||||
Reference in New Issue
Block a user