From bf5dc4d876e6d81ab975f581ae0c5cb3e91b46b6 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Wed, 16 Apr 2025 15:02:52 +0200
Subject: [PATCH] RIP colored

---
 lumber.asm |  78 ++++++++++++++++++++++++++++++++++++++++++++++++++---
 lumber.xex | Bin 25781 -> 25872 bytes
 2 files changed, 75 insertions(+), 3 deletions(-)

diff --git a/lumber.asm b/lumber.asm
index 9854fe5..3ba1699 100644
--- a/lumber.asm
+++ b/lumber.asm
@@ -151,7 +151,8 @@ c_horizonB = 13    ; thin horizon line B
 c_grass = 14    ; green grass
 c_hat = 15
 c_buckle = 16    ; button and buckle
-c_pants = 17    ; blue pants   
+c_pants = 17    ; blue pants
+c_greyRIP = 18
 ;---------------------------------------------------
     icl 'art/anim_exported.asm'
 ; Animations:
@@ -684,6 +685,7 @@ LevelDeath
     bne branch_ok
     mva #0 branches_list+5  ; branches at Lumberjack level and position - remove it
 branch_ok
+    jsr PrepareLevelPM
     jsr SetLumberjackPosition
     jsr LevelReset
     mva #24 PowerValue  ; half power
@@ -706,15 +708,18 @@ LevelOver
 ;--------------------------------------------------
     :5 WaitForSync
     mva #>font_game_rip LowCharsetBase
+    jsr HidePM
+    jsr PrepareRIPPM
     lda LumberjackDir    ; RIP direction
     cmp #1
     bne leftRIP
     mwa #last_line_RIP_r lastline_addr
+    jsr SetPMr_RIP
     jmp afterLastLine
 leftRIP
     mwa #last_line_RIP_l lastline_addr
+    jsr SetPMl_RIP
 afterLastLine
-    jsr HidePM
     lda LumberjackDir    ; branch and Lumberjack ?
     cmp branches_list+5
     beq BranchDeath
@@ -887,8 +892,24 @@ no_branch_l
     rts
 .endp
 ;--------------------------------------------------
+.proc ClearLowerPM
+;--------------------------------------------------
+    ; clear PMG memory under horizon line
+    ldx #90
+    lda #0
+@   sta PMmemory+$180,x
+    sta PMmemory+$200,x
+    sta PMmemory+$280,x
+    sta PMmemory+$300,x
+    sta PMmemory+$380,x
+    inx
+    bpl @-
+    rts
+.endp
+;--------------------------------------------------
 .proc PrepareLevelPM
 ;--------------------------------------------------
+    jsr ClearLowerPM
     ; Lumberjack shirt
     ldx #datalinesP2-1
 @   lda P2_data,x
@@ -987,6 +1008,41 @@ HoffsetP1=103
 datalinesP1=5
 .endp
 ;--------------------------------------------------
+.proc PrepareRIPPM
+;--------------------------------------------------
+    jsr ClearLowerPM
+    ; RIP
+    ldx #datalinesP0-1
+@   lda P0_data,x
+    sta PMmemory+$200+HoffsetP0,x
+    dex
+    bpl @-
+    mva #1 SIZEP0_d
+    mva GameColors+c_greyRIP COLPM0_d
+    rts
+; RIP data
+P0_data
+    .by %00111110
+    .by %01111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+    .by %11111111
+HoffsetP0=102
+datalinesP0=17
+.endp
+;--------------------------------------------------
 .proc PrepareBirdsPM
 ;--------------------------------------------------
     ; bird 2, 1 and 3
@@ -1378,6 +1434,18 @@ datalines_clouds=12
     rts
 .endp
 ;--------------------------------------------------
+.proc SetPMl_RIP
+;--------------------------------------------------
+    mva #$4f HPOSP0_d
+    rts
+.endp
+;--------------------------------------------------
+.proc SetPMr_RIP
+;--------------------------------------------------
+    mva #$9f HPOSP0_d
+    rts
+.endp
+;--------------------------------------------------
 .proc RmtSongSelect
 ;  starting song line 0-255 to A reg
 ;--------------------------------------------------
@@ -1951,7 +2019,9 @@ PAL_colors
     ; button and buckle
     .by $ea
     ; blue pants
-    .by $94    
+    .by $94
+    ; grey RIP
+    .by $06
 NTSC_colors
     ; black
     .by $00
@@ -1989,6 +2059,8 @@ NTSC_colors
     .by $fa
     ; blue pants
     .by $a4    
+    ; grey RIP
+    .by $06
 ;--------------------------------------------------
 
 initial_branches_list
diff --git a/lumber.xex b/lumber.xex
index 1048dfc883bcab2308f0065b05385f5383161f88..9e6fc0f29c631475ef337a933a6f59fa50c748c8 100644
GIT binary patch
delta 3173
zcmbVOYfKbZ6y8~25fI%{RLV-ZuxO=e!3Ppbt*x!ER!~7jD<UKK!q!sLrZv!Z7uaF%
zGOSj|M!`%ZtE(B)Nqj_GTZcERLt{EI@zFp2FezHot{c;;*ay95MiytWjkwwD&iTG`
zzw?@zdr!&Km%Y@nOL4~OjVG_fWz44Ta;Abz%X}tp<975i<Bd;`RPwz|$`~>FV)}h0
z5gp`~7Nlj%jBt%<_BDI=4>D2cHemaG`@QutrNsEK66tj@7;SfXcgX{R7!=QPM+^Q=
zuVhhq6*|JAoI1gP&SDf-B}Br1tP6+<Rj8&4E-ai<m>L=9KzALelIt%_3b$fU1UF~d
zcy8*lbXzCxX;i}UR#vO(MkSu;%cj5<IWq99JVuFNcA<qXuTyo&tEnR9j~JD?kQIv^
zIFLb794B_-K(uUBOz6rNdAJ(2eNKLdz{nZ^Z`*X>k<S3!Sq*4V)AUf&IH*Yx&2n%-
zi$Gb^1dvlTtL-{)2E;`cRXMp<Ff#Qhf|XO0e$o=Ml++m^7~GwtQx0^x7Uj5v1SZyr
z94>)k>Pc;+J?oZRww7Sj!lG{*h;L$+@S59_^{D+0*n4#@ivXHd_o&xwfb>GIYeJf8
zE*Ms#!cj$uwpC!gq0@X<^A4u55$r0R%O-&IVOI|qD%OOwuti{)K!tRtkrt*fI|RYa
zH5bKlJ6A-6R6a*r8B8G$Y<=bV0O?a0N#)5lebFT$5jTUaFS=rQ#HTAdElbF8a|eoI
zL#m!1l0zZb`l^==&tU;T`gt$Zgr0ETWtw-e*&l$dFTD~VeY48}()Vz^CiE2Zep_1^
zOkp|L`pQ=Tq)%Zam50uILrBCA!PXbOZFt0|EBe3Y{booGi^0}cy<~U}ZvmvA_gqa#
zYy7KV{NMAvR`U)vdkfh5(%%C}-|SL=^z)`QAua4mFrM`Jo~Nx0rmz%jedPrJ=~Ea<
z<)QOl7ZUM(u=Pc69UgInMZ;@&@Vg4$bW@of$X|ypIJ}Kyw=xS+ZgMZY;+~X+zQK9L
zwZbo8=YV|zdmAs1%`BJrSzxn?(c1bcNs87kKY~lKlUrPzWocnSF_1wzF1$qEr1GE;
z;rZf;aaR2B1^ZB+z&{j!p6jm@(%h9s!NBYm2ADm_LiTTFAK8x39u}R1P02|%B&_XA
zjj&n4&dre9iK|^RFMYLO;O!~AA(gkM@&+q!x85}SY4m5EXRO3H_%f^Xm4m--mAu^L
zHP2_Ca`2_8z2<u)#Bp(3HuJq_lyog6={pC1Ev47|yC+<_k&@Kq;BSBh4rd8;o_n!m
zc`itrrJo)AMpb|!0@Xx-o^2b@f5?$We(qR*g_+rlk{NQ^;dYi}Ql(s5NdmQryIO)G
z4>Cw*&~0v@q{Y@(-(;{#^PNq0t8|$Brr=)lEt+(Ef^<iv3RUXF5M?CPKPt6WrCNum
zFhWH;L2!#o^$t<tgc`3>pQzMjjamS~A_$kNa<wXVeQ249P#G$<L#6ydO3GE?W)*&L
zazp7Q$|fvf1X?&ierU>IG*AZ0Og@R0iI&7e&-l+_@f?;Dl^KHBeGdD5SoC3eoDzms
zxd@s>P#-4O<bdVx!D0`%jv`<W_IG1iFnhxIZql3wv?omJ#{9i3GDq6WCRCW+Yi4>P
zr1Q9dFPaIUhpK0L>l>u|EaO6HF1nBPvU0Q%E<`b`YBwC#NLu_j+wC*<IlWGK8sVoh
zaQ>lvPIEZ9L&){+vgy%XI56X=5Rvm+7dNXc!6sqp4$IU^f3Qs5@!DPX^X)ClJ+TW%
z!>1yhu?txh2BzlgR(uBh&VXNwVYsIp^lW>)CrW_iiL$3f4p)pGd%c51m`s9Hkfk%#
zAnn7Kb~_*)uD@)Ot>f`5?eD@wmW(|N$qnQggNK<w9hjU3#dhrOz+xMAw_~vtyW6lR
zVRtJIkd6e#!f~Anj8gxO-fVD7m`3E}P0q*zf&LbQBcB$>UQ7>HBE_hSGRK#XiLo{+
zQ$&X`kb+ior^_>`O0KUw^Mzm8CJAGhAJfAG{-VWrC4Ed_v?p2miRCM@)gdNJK5o|f
g#CVfo^uDyobEjwJhL2v-ee3G(2Zv1D=Jomi0`CJv*8l(j

delta 3132
zcmbVOYfKbZ6y8}D5JXrJ5m}LoV3lfw%1RVlsjU`ULFG}5f-sfku{<?t8UwY<V~4%F
z!&-4n6wRh&>(&l+T8%cw=%h`m)TL=Mu^5~Fz{DTgT8rDnNHMnbo*CF>KwIL5Fmt}|
zyXV|<&di*9c!2uaOP#$Lt-ZybzZJb|19h4U$xkzkSaYimpdqU#CN)&b^YloOLiml;
zzod9n#O=sW$!uo$A?8H?3D3z1CJglgcC!DZr_)PGv-`0W>ajBzCE7jR-Z9^7blJi6
z<^P=;%c6>Aw2eh8J9rJMz$m(z4~6Rm48($F)Yc3)QJhq;B=lhiI&DRW8!brC4cgqn
z+{VIKF1;|-V#e3Hq@diLEwXp56hr)bLwvQ~P~SXnq!i3_qlegIlO?%r&BXiwqcA%f
zv<WrXw~B0WzF@|_aIaPhL4zOVGA-!JLGnKU>e>K&U{QgmJ_N9<1yH}wi{n1E6Fw>8
zlLiUe0-hD003Mco9%xm8=@1vi$(|Rr^IE18opE@Rq)}25vXtZ*%xj!xjQZNqZOq3p
zHnhTG=P9O>B!*&HnqSTw;(2F^kzeavY9!itBmb(?U__A^<*=ySp+K(zG|7Gk>@6zE
zR)CgvOjd1}?kL-7m<OH|w^<+<w4ogCK~ZAEpX4SGau;xu>?*KVs6ti)qz<_oAhn|s
z#gP)R7>tV$@o;gx<#n*snQm0n{>*d1R%e<AkUH$MGkr#)EUA4L&95X?_d2=JqB)jQ
z@TT7Jo+*2%0b8BAdHNn^oH|RM6S4=T^PH<V+M+JOTT{XpfUPb;;q>r10I3~qQ5;R_
zwW<X2gU9_-G-pcp_bN;MZD<5rU4kZn)NQB$NL@>l;%J85e_K)e!xn+9PW@eg)L~yN
z_2+fJa>^d|fvrw`|MWe~IQ9SQ{u@)mZv$Ihg6-48zX_1K`<oO;O6Avs0dM+@x?iR&
z^|zrGY;_6h08+Q193XY~X~mJUhn-;j*So)2QTxO009&1UK0xZQFP8fAy8qskJ=BA(
zPQ79J9%h`n(tY@@lD~Dzh4dtyIppaggKZ8U2D4xtnFYDI?fh>Og8|*?@O1r1hF%sC
z83Z$zT@p{3x!om3Lk<foeXB@i$3JW1!-S~#l10&jHua1l@U4=AS$8`46lar`*Dy!;
zG3F?WA|stSPKFd(&!XLS7**s`iO~v}R$XX(m^0)V;trK=j*1e?t**VvVw2T%Ct0*`
zPfHhPer$D>FB#B}5J%^P{h7>V_bhQJDdDKqHIy`<f8^GQ_mUD^R@XhSKyZaXZf?h(
zqPgUV;$3)l)U0QYA<0TkFWk_cG)m7!mc>zV+_EwhTEw7c2K92=%6cuwI(sz9;z(yt
zYqGf0*3+7V2lV%8Qkezfr!o~pz+|x^Kxql}l}ts+R8xQoBGhG>GRRa*fYK4_dzo4$
zQ#OUlfndRe`$^_9WR43g3nA2PnaY-_PyCely9{rY;V;f#D8ETrXiB5iP#Q{4e({Dy
zhWJx+ha0ibh`sSr2CsKE;^77?G+^(1DF}@Lnn2J7Ozz1sX}BH>^#INyU_BnL!!)mV
z2f6A<NuJQ|Ah8a+MvSB>w1<r|>z$=*+`(cKb``Gy%uRLXumhbA(Zw=$^aG~vvL4nO
zF6sC%hLvr{X9`IR?`JyuwRdeEoA(vMr^89cPWRjNI?`@(&+Xc~+ER;s8GU^4+COS>
zIQ%|$$QQGnY2`D_8m8?_6BduLOuKl3WjfBaceh^uwpSVv#^vTzqBDZ-OeMYqx=Wzz
z)l64<{mQC<GG?+AeS=8`LM^wr!mzM9AezuzwL)O7pkk?|=GiPgTuatt(&`|z&p}=a
zntaCyRD;QhPN>Gt8Z1;{XEhcov9k&bChV-lK2i@~6dbuJ-z@pk_p8Hc!ZbPU!8v!#
zH`=SQ=FvjbjZ~c!Dumtea*rz_XJ2Qf<$_h~OF|SEWlE!BxolHfVK>`j!Wg>8Tw{Ds
zX(2{Rjr2vh6GaQ_GH1#?OcWa??llqk(PQJ1l$Ui8*%yAf-hTh6CgOO?OPf|3vvd*L
QuipRp$dgmtcc#350mbj^-~a#s