Show Dino opty

artwork/shapes.asm

@@ -4,27 +4,22 @@
 
 ; dno run
 dino_run_0  ; anly '0' jumps
-    .by $ff, $23, $27, $2b, $ff ; '.   .'
     .by $20, $24, $28, $2c, $ff ; ' ## .'
     .by $21, $25, $29, $ff, $ff ; '## ..'
     .by $22, $26, $2a, $ff, $ff ; '## ..'
 dino_run_1
-    .by $ff, $23, $27, $2b, $ff ; '.   .'
     .by $20, $24, $28, $2c, $ff ; ' ## .'
     .by $21, $25, $29, $ff, $ff ; '## ..'
     .by $2d, $2e, $2f, $ff, $ff ; '## ..'
 dino_run_2
-    .by $ff, $23, $27, $2b, $ff ; '.   .'
     .by $20, $24, $28, $2c, $ff ; ' ## .'
     .by $21, $25, $29, $ff, $ff ; '## ..'
     .by $30, $31, $32, $ff, $ff ; '## ..'
 dino_crouch_1
-    .by $ff, $ff, $ff, $ff, $ff ; '.....'
     .by $ff, $ff, $ff, $ff, $ff ; '.....'
     .by $33, $34, $35, $36, $37 ; '#### '
     .by $38, $39, $3a, $3b, $3c ; '#### '
 dino_crouch_2
-    .by $ff, $ff, $ff, $ff, $ff ; '.....'
     .by $ff, $ff, $ff, $ff, $ff ; '.....'
     .by $33, $34, $35, $36, $37 ; '#### '
     .by $3d, $3e, $3f, $3b, $3c ; '#### '

dino.asm

@@ -414,18 +414,6 @@ ObjectLoop
     beq Jump
     ldy #0
 DinoLoop
-    lda (temp_w),y
-    bmi @+
-    lda screen+$400,x   ; check obstacle
-    beq NotHit0a
-    lda #$5b    ; make hit mark
-    sta Hit
-    bne Hit0a
-NotHit0a
-    lda (temp_w),y
-Hit0a
-    sta screen+$400,x
-@   adw temp_w #5
     lda (temp_w),y
     bmi @+
     lda screen+$500,x
@@ -453,7 +441,7 @@ Hit0c
     lda (temp_w),y
     bmi @+
     sta screen+$700,x
-@   sbw temp_w #15
+@   sbw temp_w #10
     inx
     iny
     cpy #5  ; dino width
@@ -471,10 +459,6 @@ Jump
 jPhase1
     ldy #0
 DinoLoop1
-    lda (temp_w),y
-    bmi @+
-    sta screen+$300,x
-@   adw temp_w #5
     lda (temp_w),y
     bmi @+
     lda screen+$400,x   ; check obstacle
@@ -510,7 +494,7 @@ NotHit1c
     lda (temp_w),y
 Hit1c
     sta screen+$600,x
-@   sbw temp_w #15
+@   sbw temp_w #10
     inx
     iny
     cpy #5  ; dino width
@@ -519,10 +503,6 @@ Hit1c
 jPhase2
     ldy #0
 DinoLoop2
-    lda (temp_w),y
-    bmi @+
-    sta screen+$200,x
-@   adw temp_w #5
     lda (temp_w),y
     bmi @+
     sta screen+$300,x
@@ -550,7 +530,7 @@ NotHit2b
     lda (temp_w),y
 Hit2b
     sta screen+$500,x
-@   sbw temp_w #15
+@   sbw temp_w #10
     inx
     iny
     cpy #5  ; dino width
@@ -559,10 +539,6 @@ Hit2b
 jPhase3
     ldy #0
 DinoLoop3
-    lda (temp_w),y
-    bmi @+
-    sta screen+$100,x
-@   adw temp_w #5
     lda (temp_w),y
     bmi @+
     sta screen+$200,x
@@ -582,7 +558,7 @@ NotHit3a
     lda (temp_w),y
 Hit3a
     sta screen+$400,x
-@   sbw temp_w #15
+@   sbw temp_w #10
     inx
     iny
     cpy #5  ; dino width
@@ -591,10 +567,6 @@ Hit3a
 jPhase4
     ldy #0
 DinoLoop4
-    lda (temp_w),y
-    bmi @+
-    sta screen,x
-@   adw temp_w #5
     lda (temp_w),y
     bmi @+
     sta screen+$100,x
@@ -606,7 +578,7 @@ DinoLoop4
     lda (temp_w),y
     bmi @+
     sta screen+$300,x
-@   sbw temp_w #15
+@   sbw temp_w #10
     inx
     iny
     cpy #5  ; dino width

dino.asm.bak

@@ -95,18 +95,18 @@ EndLoop
     ;lda #$5f
     ;sta COLBAK
     jsr CheckJoy
-    mva #>font2l chbas
+    mva #>font2 chbas
     waitRTC                   ; or waitRTC ?
     mva #3 hscrol
-    mva #>font3l chbas
+    mva #>font3 chbas
     waitRTC                   ; or waitRTC ?
     mva #2 hscrol
     jsr WorldShift  ; better place (flickering)
-    mva #>font4l chbas
+    mva #>font4 chbas
     waitRTC                   ; or waitRTC ?
     mva #1 hscrol
     jsr Animate
-    mva #>font1l chbas
+    mva #>font1 chbas
     waitRTC                   ; or waitRTC ?
     mva #4 hscrol
     jmp EndLoop
@@ -414,18 +414,6 @@ ObjectLoop
     beq Jump
     ldy #0
 DinoLoop
-    lda (temp_w),y
-    bmi @+
-    lda screen+$400,x   ; check obstacle
-    beq NotHit0a
-    lda #$5b    ; make hit mark
-    sta Hit
-    bne Hit0a
-NotHit0a
-    lda (temp_w),y
-Hit0a
-    sta screen+$400,x
-@   adw temp_w #5
     lda (temp_w),y
     bmi @+
     lda screen+$500,x
@@ -453,7 +441,7 @@ Hit0c
     lda (temp_w),y
     bmi @+
     sta screen+$700,x
-@   sbw temp_w #15
+@   sbw temp_w #10
     inx
     iny
     cpy #5  ; dino width