From 1a65fc27d5d6e36f483062701f122dc15096ecb5 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Mon, 12 Aug 2024 14:00:59 +0200
Subject: [PATCH] Prepare to left game

---
 dino.asm     |  15 ++++++++++-----
 dino.asm.bak |  24 ++++--------------------
 dino.xex     | Bin 5999 -> 6003 bytes
 3 files changed, 14 insertions(+), 25 deletions(-)

diff --git a/dino.asm b/dino.asm
index ab2dbc3..429974c 100644
--- a/dino.asm
+++ b/dino.asm
@@ -86,6 +86,14 @@ FirstSTART
 NewGame    
     jsr SetStart        
 EndLoop
+    jsr GameR
+    key
+    jsr HiScoreR
+    jmp NewGame
+    rts
+
+;-----------------------------------------------
+.proc GameR
     ;lda #$32
     ;sta COLBAK
     jsr WorldToScreen
@@ -111,11 +119,8 @@ EndLoop
     mva #4 hscrol
     jmp EndLoop
 EndGame
-    key
-    jsr HiScoreR
-    jmp NewGame
     rts
-
+.endp
 ;-----------------------------------------------
 ; Generation of character sets 2,3 and 4 of 1
 ; By copying and horizontal shift dino
@@ -397,7 +402,7 @@ ObjectLoop
     rts
 .endp
 ;-----------------------------------------------
-; Show Dino on screen (test)
+; Show Dino on screen and check collisions
 ;-----------------------------------------------
 .proc ShowDino
     ldx #5 ; position
diff --git a/dino.asm.bak b/dino.asm.bak
index 8ac5508..ab2dbc3 100644
--- a/dino.asm.bak
+++ b/dino.asm.bak
@@ -459,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
@@ -498,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
@@ -507,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
@@ -538,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
@@ -547,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
@@ -570,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
@@ -579,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
@@ -594,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.xex b/dino.xex
index 5f3f06baf3a7149601757aec1cb25fa75e5091a1..f8dc91bdd3b653a4513a93b87641fc0a62bd097e 100644
GIT binary patch
delta 315
zcmaE__gQa)h5)14WKDr-hJv07x_%0LehPlR3cEZ!*79G{WclzDOkMbyp^)e6GuI<Q
zLCj0R$$M$r1s?^`$=3vw)b+hq>hykLS}Jl><inqpjJ+&Z6t;M+R6q!^0EK)OY&I3-
zU^M;dxrm{yX>W*!0m}-7=U&g6mNh+axbQwfp~Pze!_H8TnIRr04%lD#x{?9NT4(OR
z(!t`d`s5-ZRYvp4Gla_6IQ?52c1lbZ5sqQ&^#d{|Pc9Qq7q;*}$@HP*B=ZGkpDv%1
zEI{ho<`2THj9l+LS2DCVx3=_}Z>|?LVPp$T$ggv9n!Ho2%wgutg*#Us+<5Zh&4({P
t{$%t+0sbPwLV^PPe7ro|T$~*2Y^)ak_Wq1a%q%R-OpFhh9x_ew004S-c(VWi

delta 322
zcmeyY_g-&<h5)0{WKDr-;=G;;ntlpgehOZ`3PN5AcHT?dF8C-2PW~XEWUKA9Qm6L|
z(^8S6A|L*&Wb9?RqOiehr2;~T1t{dRz{6uL|0PY94?n@wg`XJ;S-w7VH(LsFFq(e#
zT*T1Uv^T`VfMtckW3OjT%bFfITzH?LP~f$IVP~kv%n*+g2kb9=UC97stuyvt>0t3!
zd2*SMDx>k_IYMP@tp2SHJ4Gf-2*<E>`T?2!ldFW&#Z3H9GJPmH$$Wv?r_JXi3y`|x
zvw&f8zKHSU*~0RhJw*%{xn6m$WN2+}ZRs`M+$?Is$mSc9U1euCd9PTR!_=vBw=Uhg
z_UPHGcb~rf`qvK?hzJV_3h?vs@^Eu;a<H?pn)qA$Gcqx=urM<*K45ytG{pk|L8E#*