Better jump

artwork/shapes.asm

@@ -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

artwork/shapes.lab

@@ -1,2 +0,0 @@
-mads 2.1.7 build 3 (13 Sep 23)
-Label table:

artwork/shapes.lst

@@ -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

dino.asm

@@ -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

dino.lab

@@ -676,3 +676,4 @@ FFFD	0000	@KBCODE
 00	3CE0	DIFF_OBJECT_GAP
 00	3CF0	DIFF_LEVEL
 00	3CF1	DINOJUMPTR
+00	0007	JUMPLEN

dino.lst

@@ -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
+   125 3CF1-3CF7> 01 02 03 03 + DinoJumpTr  .by 1,2,3,3,3,2,1
-   126 				.endif  ; .IF *>0
+   126 = 0007			JumpLen = 7
+   127 				.endif  ; .IF *>0
    466 				;--------------------------------------------------
    467
    468 02E0-02E1> 65 38		    run FirstSTART