From 691d85291e2344747697896dba968eeeae6ccd8f Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Mon, 12 Aug 2024 13:54:07 +0200
Subject: [PATCH] Show Dino opty

---
 artwork/shapes.asm |   5 -----
 dino.asm           |  38 +++++---------------------------------
 dino.asm.bak       |  22 +++++-----------------
 dino.xex           | Bin 6130 -> 5999 bytes
 4 files changed, 10 insertions(+), 55 deletions(-)

diff --git a/artwork/shapes.asm b/artwork/shapes.asm
index 7fc2cdf..097e427 100644
--- a/artwork/shapes.asm
+++ b/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 ; '#### '
diff --git a/dino.asm b/dino.asm
index d46411e..ab2dbc3 100644
--- a/dino.asm
+++ b/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
diff --git a/dino.asm.bak b/dino.asm.bak
index 57a6858..8ac5508 100644
--- a/dino.asm.bak
+++ b/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
diff --git a/dino.xex b/dino.xex
index 2505a0d807b43d74e3fc1a75050451f2ea7bcb1a..5f3f06baf3a7149601757aec1cb25fa75e5091a1 100644
GIT binary patch
delta 374
zcmeyQ|6Xr{h5)0{WKDsYBAR{*Tz(2(z6wHK3U=O0+b;Mh2u{8x5Y3pi*+|fmk=@vT
zrGv#^<;g`ts*J{yX9$(CvHG_*>=c<SA{-;!=?7%?`?WS6VEGVxfb~P<0*1*KL_{V>
ziO5gBDlDeT)!MLu=~&~769-r?tV&qYy3@q}B-4kIlgt;GecF6ZvH+<|K9d`TLqsf=
zHoQbuJvRYp)O-<7USz>lle<K$F_dlxDa{boM^SoY@)A)Opo3qEzSLGw(a`y?sH*w@
zzml5P|NjWCuAV+J*TB$dvY@z_fU$|GnYpc<y|s;ROm>x>-DDf_GKZ;C=WboPckR)$
wSMNT3`}MCMDi9GC5)|O)<K^Mz;^bgwV>R)&_Ge^bW?^AwVtl~#kZFns0EAkP`Tzg`

delta 457
zcmaE__ep<)h5+N%$(jN)MJD?xl=vxZ@l_D=Qn2%0+IGQ5p?dN)foR4nn~el58QHh_
zuXM2ZyKHiikSgQ0$uoq?*gE`M8+J~gEFv5u$OB>u`L{M6VEIsUfb~Pg<d4E3leY<r
zY4Eo;Y+yRp_~OI?)(hPUOImks_dm&Wf!Qa~=Oi<bI^%Pa1xRW6P7W7wpFCYyUeID`
z!%GxRlh=z_Pp%hH=0z5rG5NQM-sICF%1X$hOA{6_Y-})Kp3C4Mv9uwRwY6aa)3e6O
z|3vgrG;f-0CF%n7M7`+C`v1!6+W!?)G<5zes%rlKucW5+|38|TuAV-In1P`YPz(-?
zO-#+qEiA39ZQw%x!D6;{_SQCgE<E|MVuc?VK;(mhK(vEn(ByMsi4GDH3Kkj;1|9(s
v2^j?y4gRP=L|8~rfS-?-hntI&gPo0ayZ=6aMkZz!7G@^K2TTu{rg#7VtiZ&L