Better jump

This commit is contained in:
Pecusx
2024-08-11 15:00:27 +02:00
parent bc0d40d4fc
commit d413d9e153
7 changed files with 8 additions and 118 deletions
+2 -1
View File
@@ -122,5 +122,6 @@ diff_object_gap ; min distance between obstacles by difficulty level
:DIFF_LEVELS .by 20-#
;----------vars----------
diff_level .ds 1
DinoJumpTr .by 1,2,3,3,2,1
DinoJumpTr .by 1,2,3,3,3,2,1
JumpLen = 7
.endif ; .IF *>0
-2
View File
@@ -1,2 +0,0 @@
mads 2.1.7 build 3 (13 Sep 23)
Label table:
-111
View File
@@ -1,111 +0,0 @@
mads 2.1.7 build 3 (13 Sep 23)
Source: shapes.asm
1 ; @com.wudsn.ide.asm.mainsourcefile=dino.asm
2
3 .IF *>0 ;this is a trick that prevents compiling this file alone
4
5 ; dno run
6 dino_run_0 ; anly '0' jumps
7 .by $ff, $23, $27, $2b, $ff ; '. .'
8 .by $20, $24, $28, $2c, $ff ; ' ## .'
9 .by $21, $25, $29, $ff, $ff ; '## ..'
10 .by $22, $26, $2a, $ff, $ff ; '## ..'
11 dino_run_1
12 .by $ff, $23, $27, $2b, $ff ; '. .'
13 .by $20, $24, $28, $2c, $ff ; ' ## .'
14 .by $21, $25, $29, $ff, $ff ; '## ..'
15 .by $2d, $2e, $2f, $ff, $ff ; '## ..'
16 dino_run_2
17 .by $ff, $23, $27, $2b, $ff ; '. .'
18 .by $20, $24, $28, $2c, $ff ; ' ## .'
19 .by $21, $25, $29, $ff, $ff ; '## ..'
20 .by $30, $31, $32, $ff, $ff ; '## ..'
21 dino_crouch_1
22 .by $ff, $ff, $ff, $ff, $ff ; '.....'
23 .by $ff, $ff, $ff, $ff, $ff ; '.....'
24 .by $33, $34, $35, $36, $37 ; '#### '
25 .by $38, $39, $3a, $3b, $3c ; '#### '
26 dino_crouch_2
27 .by $ff, $ff, $ff, $ff, $ff ; '.....'
28 .by $ff, $ff, $ff, $ff, $ff ; '.....'
29 .by $33, $34, $35, $36, $37 ; '#### '
30 .by $3d, $3e, $3f, $3b, $3c ; '#### '
31 DinoShapesTableL
32 .by <dino_run_0
33 .by <dino_run_1
34 .by <dino_run_2
35 .by <dino_crouch_1
36 .by <dino_crouch_2
37 DinoShapesTableH
38 .by >dino_run_0
39 .by >dino_run_1
40 .by >dino_run_2
41 .by >dino_crouch_1
42 .by >dino_crouch_2
43 ; other objects
44 ground_0
45 .by $ff, $ff ; '..'
46 .by $ff, $ff ; '..'
47 .by $ff, $ff ; '..'
48 .by $52, $ff ; '#.'
49 bird_0
50 .by $ff, $ff ; '..'
51 .by $ff, $ff ; '..'
52 .by $40, $41 ; '##'
53 .by $52, $ff ; '#.'
54 bird_1
55 .by $ff, $ff ; '..'
56 .by $40, $41 ; '##'
57 .by $ff, $ff ; '..'
58 .by $52, $ff ; '#.'
59 bird_2
60 .by $40, $41 ; '##'
61 .by $ff, $ff ; '..'
62 .by $ff, $ff ; ''.'
63 .by $52, $ff ; '#.'
64 bird_0a
65 .by $ff, $ff ; '..'
66 .by $ff, $ff ; '..'
67 .by $42, $43 ; '##'
68 .by $52, $ff ; '#.'
69 bird_1a
70 .by $ff, $ff ; '..'
71 .by $42, $43 ; '##'
72 .by $ff, $ff ; '..'
73 .by $52, $ff ; '#.'
74 bird_2a
75 .by $42, $43 ; '##'
76 .by $ff, $ff ; '..'
77 .by $ff, $ff ; ''.'
78 .by $52, $ff ; '#.'
79 cactus_0
80 .by $ff, $ff ; '..'
81 .by $54, $54 ; '##'
82 .by $54, $54 ; '##'
83 .by $52, $52 ; '##'
84
85 ShapesTableL
86 .by <ground_0
87 .by <bird_0
88 .by <bird_0a
89 .by <bird_1
90 .by <bird_1a
91 .by <bird_2
92 .by <bird_2a
93 .by <cactus_0
94 ShapesTableH
95 .by >ground_0
96 .by >bird_0
97 .by >bird_0a
98 .by >bird_1
99 .by >bird_1a
100 .by >bird_2
101 .by >bird_2a
102 .by >cactus_0
103 diff_object_gap ; min distance between obstacles by difficulty level
104 :DIFF_LEVELS .by 20-#
105 ;----------vars----------
106 diff_level .ds 1
107
108
109 .endif ; .IF *>0
+1 -1
View File
@@ -254,7 +254,7 @@ NoBird
cmp #4 ; jump state
bne NoJump
lda JumpPhase
cmp #6 ; max jump phase
cmp #JumpLen ; max jump phase
beq EndJump
inc JumpPhase
rts
+1
View File
@@ -676,3 +676,4 @@ FFFD 0000 @KBCODE
00 3CE0 DIFF_OBJECT_GAP
00 3CF0 DIFF_LEVEL
00 3CF1 DINOJUMPTR
00 0007 JUMPLEN
+4 -3
View File
@@ -1260,7 +1260,7 @@ Source: dino.asm
254 39E6 C9 04 cmp #4 ; jump state
255 39E8 D0 0F bne NoJump
256 39EA A5 85 lda JumpPhase
257 39EC C9 06 cmp #6 ; max jump phase
257 39EC C9 07 cmp #JumpLen ; max jump phase
258 39EE F0 03 beq EndJump
259 39F0 E6 85 inc JumpPhase
260 39F2 60 rts
@@ -1594,8 +1594,9 @@ Source: shapes.asm
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
125 3CF1-3CF7> 01 02 03 03 + DinoJumpTr .by 1,2,3,3,3,2,1
126 = 0007 JumpLen = 7
127 .endif ; .IF *>0
466 ;--------------------------------------------------
467
468 02E0-02E1> 65 38 run FirstSTART
BIN
View File
Binary file not shown.