From dd5583cc33c4f81b0e849482a1112f541e52458c Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Wed, 14 Aug 2024 14:16:58 +0200
Subject: [PATCH] Fade in/out

---
 dino.asm |  41 +++++++++++++++++++++++++----------------
 dino.xex | Bin 5044 -> 5061 bytes
 td.xex   | Bin 38725 -> 38742 bytes
 3 files changed, 25 insertions(+), 16 deletions(-)

diff --git a/dino.asm b/dino.asm
index bb6452b..ee07274 100644
--- a/dino.asm
+++ b/dino.asm
@@ -126,21 +126,26 @@ FirstSTART
     jsr ClearScreen
     jsr GenerateCharsets
     jsr GenerateClouds
-    jsr FadeColorsIN
     ;AnyKey
     jsr SetGameScreen
 NewGame    
     jsr SetStatusToR
     jsr SetStart        
+    jsr WorldToScreen
+    jsr FadeColorsIN
     jsr GameR
     jsr GameOverR
     AnyKey
+    jsr FadeColorsOUT
     jsr HiScoreR
     jsr SetStatusToL
     jsr SetStart        
+    jsr WorldToScreen
+    jsr FadeColorsIN
     jsr GameL
     jsr GameOverL
     AnyKey
+    jsr FadeColorsOUT
     jsr HiScoreL   
     jmp NewGame
     rts
@@ -1209,13 +1214,19 @@ higher5
 FadeColor
     sty COLOR2
     sty COLOR4
+    sty PCOLR0
+    sty PCOLR1
+    sty PCOLR2
+    sty PCOLR3
     waitRTC
     iny
     cpy #$10
     bne FadeColor
-    lda #$0f
-    sta COLOR4
-    sta COLOR2
+    lda #$0c
+    sta PCOLR0
+    sta PCOLR1
+    sta PCOLR2
+    sta PCOLR3
     rts
 .endp
 ;-----------------------------------------------
@@ -1224,12 +1235,13 @@ FadeColor
 FadeColor
     sty COLOR2
     sty COLOR4
+    sty PCOLR0
+    sty PCOLR1
+    sty PCOLR2
+    sty PCOLR3
     waitRTC
     dey
     bpl FadeColor
-    lda #$00
-    sta COLOR2
-    sta COLOR4
     rts
 .endp
 ;-----------------------------------------------
@@ -1242,18 +1254,15 @@ FadeColor
     mva #>PMgraph PMBASE
     lda #%00000010    ; P/M on
     sta GRACTL
-    lda #$0c
-    sta PCOLR0
-    sta PCOLR1
-    sta PCOLR2
-    sta PCOLR3
-    lda #90
+    ;lda #$0c
+    ;sta PCOLR0
+    ;sta PCOLR1
+    ;sta PCOLR2
+    ;sta PCOLR3
+    lda #0
     sta HPOSP0
-    lda #70
     sta HPOSP1
-    lda #60
     sta HPOSP2
-    lda #80
     sta HPOSP3 
     rts
 .endp
diff --git a/dino.xex b/dino.xex
index fdd01dfe321bb0994564f7efd1bff36a5b7d2dbe..ed83e940b24dca813b3c027e70d84f2e082a5c37 100644
GIT binary patch
delta 726
zcmdm@epG#f2|HuWW>a<*#=x1@3h7n~q1Fnl&I;zX3Ktv|c3LZJb5h8#RFJV!FmYCR
z?xgU`Q9%bu>X4;^157Hy$w$vJ0i@@f?b7xO{tA;O&*o6F_-w6EZ?n>*_Y2cfk)t9X
z{;Xu|Wx1m8)@G#!LWl(@<dXr^e92njq&-ygR}LjDpynK#l_97qL7F`fLLl>e4sCYi
zv}fe1bm^^f>8*C@t(n}#6>dG#dJ#ig)82;`1}rNSoNS*pEo*w<aN&J|0z_h^R%<gz
zl5NGZW`()7$C{xEUMB$EF2k)QQ|q$Q!QyX{%POF%3wAGndcUpZx}?eY!Dwym<Roq*
z<w}=#RW9$UUEb9|$%J#2F6XLT&Q-gdtAUV{w{t6U*Sf5&bvY?|f%#nR<j36cjFpp}
zdDPilTv{7;22U>F3579F^F*<oa0ZH=o2<>7E>`DqlIcUqN#+a8K6dseS%6fR{Q`!`
z3Vg<s<@x0&pXTS8%*OW#rsE%9Dnv&SSO>QwSVySi0v4E#&8PWw8P)r&S2DD=w6^xv
zy0o^h6j;PEx6ESha*I;}-xn|gy*IPcr9<Gmg2ZHb!IREC2bg*eGW8r{>NyOJzY_-p
zE<9ez(|dra_aIa6A*SBLObHA4dyX;noM6IK-68OFvZ#;}7eg<@g<i%By-XJ-hYA@p
zdQa{YN@44ny=rG|?c~owW!_h=-1+k4&l?sQ6&?{C6B}m;aDf6LL4ICtP7Zc9RusSh
Y1a&U0E{sgfEG*1Sj1QO|GAUUC0DJ2m(*OVf

delta 692
zcmX@AzD0e52|Hu<W>a<*MyD=og$OGJH*1CEP6`j46f|rV4mv7CS}O2bDJVNDymnNO
z1&eI9R4@dKcsltQS|%v0vQ~I*yR`j+ze4lmRUAqdPplORY*w1|eqmZFa#ZBQpOuWg
zELRln*{sw+2(bW#d?JCG4_hnjvWIGB;Z)KBYL2y88G@=3q}c-@1TxQO^X33fdq%Dd
zm)=a5-Yl2i?8!5^!mYck7csOo?R{urz_LQY*!Ee|vZe<P7v3i*KqOXbwKjt!*;XuT
zR_L=m)(lnfIsxc*ZEh`@9G8_27Jma>RsmIAuzLa2`)w`PB~8W;Mr(5>7jhdZXSlq}
zba|KM@-7=nCY;M~IhW~jF3aUyHiVpfj9ZaA$7OAf%Sq7-%;$0@f8vg3%$OX+qt0gR
z(%P`oX>vVJD2#cFCyH&mGf;HzWGmiuv0RsvOdm>4GGAc!(YHUz0;H<#7cflL=QEzH
z$1gwm7C+BqQNB+w9lZRh5FJHe9e*6aI@}x=u)uU|zQwQ0$W?E>lA*PwwY4{AvY?<C
zdxlGgz;^}C$$Ek(bs<r7;()+~_bd5(PcZc!V@g=S-*b$q=L9tRIs`thWB>{SB_~@6
zDarBl9$@M{$kcm?srN9`%BWt33oG4v8857~>1DdGGGKC=kTIjx<XJ)~Y}H*eSLEbO
zW)Uv)K79D}<IAsaf94kc%`B~~?F<DjF3v7MASB4o%gxEb&c=!Y7=R$xrNo7iiJ66k
NnThcM(?cdDO8{Bi3myOf

diff --git a/td.xex b/td.xex
index ea62a6cf49beab3d76abbbf349d326efa9c2d64b..d880602964066d330205920f47f639e2493cfa04 100644
GIT binary patch
delta 741
zcmZXRUr19?9LIOhz0T5=E3AYDot9vY6=8!m@8<rU2f;x^NfAOL2z}@wLWKRf7V1?Q
z_iVaTixGn%xV*x|5CS1VCmXJZaT%kh9+dt<Wg|r)47zh0CVd~y`SJaJKZkQT=~?h@
z7R;pslz%=GXr``5S=iGCyI5G`gjX$4vcm-yzIMP~6V$XpgA;ynz~6SL|0hbBpsgC+
zcDOE?+$Cn)GBqk)gJGf<w8l*qJ~oR6yalEj(~ZSlk-|&?{xFN@_bo=YT)i@!XJOV_
zfky<bPKF<t#hVA4CAeeXDxK#_&F2LxRp&w2i?9!2KRF$|#YWjl#mL~|y74kI4IP%x
zgNea4oAlES%Ymrlhf1MxIxz%emdsG4@XamXJsH$#I3(JPf9|0fxh1uKmD%lNUH$@9
zY)x`xGuV30gEqWq!-qEfmDQc|pqv-wd?@EHucRY%ww^;t4rNbBbdDo^p}Ula6hbXZ
zg!m^5HwZP}RUNy>?<iNDvYR7s#(Pc<pe!i%Woe0awOg}{yalXr1$i}bh0KM|kZz(P
z&nJFWiBR}{nRv8E)Z6!nE_<A*67${UBGnRPMFl_1^O!^YsHmP~V*SS0OXFMhPMnsX
z7xkbq^$u(zb5FBQVF?J!Ku7^$rSgBPOKRzZsKQGCF9Vzccm=rQ4MGM8tKk3knEDe*
zJkuUkV1<M!2?Gh!lAAoNJw>QU6X<mAjja)vQg|`5z;R?a(%)Gqyx;n``<>A=s~YtN
lv$HHz(eYyqN9qqBs#Vq;kV4h~;t>UChM@tq2G)Vr^cQ(@G<pC4

delta 698
zcmY+BUr19?7{GVWy)070i`gIggQr<&3n{gSZFg&b?m-F$B^0I*-Ir+YUO_^9@u6_t
zl(FN~lM5e=AvisP66_(0L~S^>2IErEOAv}tfiUe4`H(?(e?&SD-}(4`-|yobz7O+Y
zWga|R2{Lj#89dE+f&#p0gDnD__P|vStard=H*B}U12$MI!VNb(Ss-yMY%Gu~9&e*n
zg0lkr>X;hPuEGEjLMF>+0e0KzMf?j)Rj*WU?NA1D@8Ksqt=~hOj=b%<oDkqkXGtCl
znasL;%TBNV-<g*$@1guWZ#=#hax!H;ggX)TBP<j1P@51GCJm4J7uGBnxEa{&_|hNi
zUv+7l5-b*|Sq<ci#+g_E4mpy6Qp1L%zx~ya`GkU~%ksAs&FWp+rEj|Xd#>#5S!Szg
zP9Y%NRO>^zPL%VboLq`h)`zm4DC<XAxfn@X_*A)q<`k4Zq_J6r1j4r&A6XCA8Jm&%
z;Dv|q!#8$QdAP&)T-50T$qe5;+=bF$t0&EBtoOV#&FNR4Gio49Bh6%Sw1&u}g2YCC
z>>5u;?-Y%D1!KomFk0MEZr6y*q=BisFHnQ}P*t&l)B(y*audCliD}ClemlzQ-y8R#
zL4F(VCyS5M4aJ?MmUwNGR^k-ENgzclLrD-ymG(Kvf2Rf=>qU|oGnp#z62Qv<zXmt~
zXa_cEv;{L7wPT>sYnas}(!K8psfrv0HnEV35wEc?I6k8&WGvEqERo2pzuWluv;5#6
g_IT|%v2+j;$(biLRb8kDF@WVb7BH(|4VbL|047Q+s{jB1