From eda9f582522f076dfcfb44f9717f20fd0d1269e7 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Sat, 28 Jun 2025 17:42:09 +0200
Subject: [PATCH] Now we have 4 clouds

---
 lumber.asm |  94 +++++++++++++++++++++++++++++++++++++++--------------
 lumber.xex | Bin 38359 -> 38444 bytes
 2 files changed, 69 insertions(+), 25 deletions(-)

diff --git a/lumber.asm b/lumber.asm
index ed8ca7e..0f3d41e 100644
--- a/lumber.asm
+++ b/lumber.asm
@@ -204,27 +204,28 @@ dl_go
     .wo gamescreen_middle   ; branches
     .by $84  ; DLI2 - second clouds
     :3 .by $04
-    .by $84     ; DLI3 - last clouds
-    :4 .by $04
-    .by $84     ; DLI4 - GO line
+    .by $84     ; DLI3 - 3th clouds
+    :3 .by $04
+    .by $84     ; DLI4 - last clouds
+    .by $84     ; DLI5 - GO line
     .by $30
     .by $45
 go_addr
     .wo go_text-32 ; empty line before
-    .by $10+$80; DLI5 - end GO line
+    .by $10+$80; DLI6 - end GO line
     .by $10
     .by $44
     .wo gamescreen_middle+32*13
     :2 .by $04
-    .by $84 ; DLI6
+    .by $84 ; DLI7
     .by $44
 ;animation_addr
     .wo gamescreen_r_ph1p1
-    .by $84 ; DLI7
-    :3 .by $04
     .by $84 ; DLI8
+    :3 .by $04
     .by $84 ; DLI9
-    .by $04+$80 ; DLI10 - shadow
+    .by $84 ; DLI10
+    .by $04+$80 ; DLI11 - shadow
     .by $44
 ;lastline_addr
     .wo last_line_r
@@ -240,17 +241,19 @@ dl_level
     .wo gamescreen_middle   ; branches
     .by $84  ; DLI2 - second clouds
     :3 .by $04
-    .by $84     ; DLI3 - last clouds
-    :11 .by $04
-    .by $84 ; DLI4
+    .by $84     ; DLI3 - 3th clouds
+    :3 .by $04
+    .by $84     ; DLI4 - last clouds
+    :7 .by $04
+    .by $84 ; DLI5
     .by $44
 animation_addr
     .wo gamescreen_r_ph1p1
-    .by $84 ; DLI5
-    :3 .by $04
     .by $84 ; DLI6
+    :3 .by $04
     .by $84 ; DLI7
-    .by $04+$80 ; DLI8 - shadow
+    .by $84 ; DLI8
+    .by $04+$80 ; DLI9 - shadow
     .by $44
 lastline_addr
     .wo last_line_r
@@ -609,6 +612,20 @@ no_new_cloud2
 cloud3_fly
     dec clouds3Hpos
 no_new_cloud3
+    lda StateFlag
+    beq no_new_cloud4   ; no cloud 4 on Start (Menu) screem
+    lda clouds4Hpos
+    bne cloud4_fly
+    ; if no cloud 3 then randomize new cloud 3 start
+    lda RANDOM
+    and #%11111000  ;   1:32
+    bne no_new_cloud4
+    ; then create new cloud 3 shape
+    jsr PrepareCloudsPM.make_cloud4
+    mva #$de clouds4Hpos
+cloud4_fly
+    dec clouds4Hpos
+no_new_cloud4
 no_clouds_change
     rts
 .endp
@@ -1255,6 +1272,18 @@ DLI3
     pla
     rti
 DLI4
+    pha
+    ; set cloud 4 horizontal position
+    lda #0  ; hide 4 cloud on GO screen
+    sta HPOSM2
+    sta HPOSP2
+    sta HPOSP3
+    sta HPOSM3
+    mwa #GoDLI1.DLI5 VDSLST
+    pla
+    rti
+
+DLI5
     pha
     sta WSYNC
     mva #>font_titles CHBASE
@@ -1266,10 +1295,10 @@ DLI4
     mva GameColors+c_buckle COLBAK
     :14 sta WSYNC
     mva GameColors+c_font5 COLPF2
-    mwa #GoDLI1.DLI5 VDSLST
+    mwa #GoDLI1.DLI6 VDSLST
     pla
     rti
-DLI5
+DLI6
     pha
     sta WSYNC
     mva #>font_game_upper CHBASE
@@ -1279,7 +1308,7 @@ DLI5
     mva GameColors+c_white COLPF2   
     :2 sta WSYNC
     mva GameColors+c_sky COLBAK
-    mwa #IngameDLI1.DLI4 VDSLST ; !!! From here on, DLI interrupts are shared with the ingame screen
+    mwa #IngameDLI1.DLI5 VDSLST ; !!! From here on, DLI interrupts are shared with the ingame screen
     pla
     rti
 /* DLI6
@@ -1393,6 +1422,21 @@ DLI3
     pla
     rti
 DLI4
+    pha
+    ; set cloud 4 horizontal position
+    lda clouds4Hpos
+    clc
+    sta HPOSM2
+    adc #4
+    sta HPOSP2
+    adc #8
+    sta HPOSP3
+    adc #8
+    sta HPOSM3
+    mwa #IngameDLI1.DLI5 VDSLST
+    pla
+    rti
+DLI5
     pha
     sta WSYNC
     mva LowCharsetBase CHBASE
@@ -1415,19 +1459,19 @@ DLI4
     pla
     tax
     inc SyncByte
-    mwa #IngameDLI1.DLI5 VDSLST
+    mwa #IngameDLI1.DLI6 VDSLST
     pla
     rti
-DLI5
+DLI6
     pha
     sta WSYNC
     mva GameColors+c_hat COLPF2 ; hat
     :4 STA WSYNC
     mva GameColors+c_white COLPF2 ; white
-    mwa #IngameDLI1.DLI6 VDSLST
+    mwa #IngameDLI1.DLI7 VDSLST
     pla
     rti
-DLI6
+DLI7
     pha
     lda StateFlag
     sta WSYNC
@@ -1435,10 +1479,10 @@ DLI6
     beq @+
     mva GameColors+c_buckle COLPF2 ; button and buckle
 @   mva #>font_game_upper CHBASE
-    mwa #IngameDLI1.DLI7 VDSLST
+    mwa #IngameDLI1.DLI8 VDSLST
     pla
     rti
-DLI7
+DLI8
     pha
     lda StateFlag
     cmp #3  ; RIP screen
@@ -1447,10 +1491,10 @@ DLI7
     sta WSYNC
     sta WSYNC
     mva GameColors+c_pants COLPF2 ; blue pants
-@   mwa #IngameDLI1.DLI8 VDSLST
+@   mwa #IngameDLI1.DLI9 VDSLST
     pla
     rti
-DLI8
+DLI9
     pha
     lda StateFlag
     cmp #3  ; RIP screen
diff --git a/lumber.xex b/lumber.xex
index 128533c437fb264263523727a0052dcd58f985af..dd7a635b68e5fcf68725053885672704d956b8cb 100644
GIT binary patch
delta 4407
zcmZ`-3v?9K8Q$4f!a~S`i7Wx}h9D5-5h+%JC>yL2VL__(L3s@jAR82EK?DJJNircM
z%qE+Q$=#6IEE@)ykXaJmaL!U%Yh-D$1BYX)f<&t!!ZFTieSvc5e`oSwp>lF2_kQ1Z
zzyH6F`R{~(?lU$u8JiD}WQy^Tkz<(RgZ~~mej>B~;63y9G0X=1r}?Q<{~IonPHi_B
zeT<Rsf5CNmL(HNK3?01-HLC+d<}eqp4LywSSun@^;zsldUa{bzIfsbdgxUhF+m!^7
z=eDDTwIfJYiWtaBvh59<Bm+urkZy4SWNHv=Vz<=3=*G_XYE&~|HLfLJh_%W<*>*nj
zXXOd_#nqvY@aGH04;_MC|9TS{F)OBICMe59LFrFbKPqXc0gqicV&YjWeaZz}gJOL*
z(+B-PvHI3}u}n=7L%n$V4!}dLA^hsXpy!QEod-yynW#hCEUKfU&7zpY2G!bTQ;cDY
zubH5aiEI2O`2dLxQ;=lf4-gvIq^86eB_V78g=+0=rVgNtv=DVfM_W3KHTYUcTcVOQ
z#&$j{vD*oFbcMLy*rZKk@COG;s*)0BKngJU#!{QFyOa5YxPH+XM#g_%G=;f}`><mf
z2Y!@&l9`V;vJWtYco&<?{0(1aoz{N5!6?0jvlfqLCgZt_bD1I>Uc8jKf~`x&T2m?M
z!P!e5LQiW=o-yV-b9vi^o*#L@le|Nbmf_+h*-Sk?xg?kAzzIupp*?4*kGY61FCB94
zMLO8qGgz9)_qiY+!S=k#%ql!HFDGRc6>RAd$VW(w!2|NLnVTAY^KRNmY3p`M6yiB~
zQ&RM1oP|l#456ALO`|vCG-gfH*rQ<@acucK#)^mJr!%AR^cCqtXHc?O9|ikoRd}Pq
zn-o5QPTRd=8LZ?#R!kbanaVg_CVw-HuF4<{!YF?zlZ_wGPtTZln??*dz{_n0H+LfV
z!2=vO<3;&TG4EnAe-v{KpUp=eZHG#9U$HD^Qj>cZ|CSbJ9CiH#g|<EUPLx-NezOhj
zsY8AJ@CH@aAx{Z<BtWsHTcx2CSh5Xms&uU_fgfoQ1qPM6o-2_uH}eMx%J#v`j}v&u
z%IKIA1fBGwbAEK98a=g9GEfxbx82UPN4N?};3{2~t<q|KmQz~8&vr`BP!NCP9x@x!
zxUn;4Rn4&krH|-;hT;6Kk4s_$ls+g{3Q4*=C9!n%zStObuy{`_Q8_2wg0PeuR4R>z
zOkBk!Y<CtX@yi8|4LlV<MRh1pD>=AwiGg}ifW?9liQoCrM^!Yda|Nk6MgmNkluD-+
zsD!o3GD=SVVWVW^%Gl7Y;<D4lv*^6^Nww6BIZm={qF=G1xdC+3hbr-?l`qT$us?t{
zdOR(v32m*Q>p~NhEc_8d*BB<3t|mkJeZj)6!W@jsRXyQsA2sU=g5O^`C;1LN9{Eb9
z=Q}?b9wKs>yjP{J*9x3bN!1r^D)>GYOHh+y{nS2OjaaU}<SN+4)kr3&hBpYxtwly6
z?;@%lN{ba`mb?0wq4e$aIiL)lamp`ibfpoLqNbEVIj#%|R0_L&2zH&9lIW5_>fO28
zAP1{9t#4RY0si@wG|v=*D(X;hCyc3wz2-yC+xySa{<=8H^AxJ8yj?YeLh(j3btB#N
zY1%PT7ud)uRvN?YkXG@MQ+kTW!m6ZK?~e;GPaoQoQy%Tljgu^+P<#&aDHLzCKsVBJ
zc$s#-tU(nxdDZ<3;*)(=7xqMak@n+f{St-ZBhH~vywPtpBU}y<;!|0y5xwi2Py6w6
za#JWi!V(I_8!gq0=p63YIhRKCM))1=$Isyf3dKj5MWOgP%+`(cRhv#bzr1sv_~aJq
zLwnY7Iqk>Kas`Frb67;7cq3Lf(sP(gJ9Ovj;DxVZ>A~y%nNL9z)P^i>2Q6sLRbmyq
zJ$5OgpRPtHBE+?UmwY{aOvI|QVWLh3-4J+D)xLU^*B}b3H&@c89LD_Wi9;&tsG~X#
z61e@?Hada7xO(V7s7<5cG|%q#2iW$92R$$OTDL0K+xjYIa@t?Wh72v<u;CIbsEHk4
zj8eW=5gXkms78Nb^nlP_s2JOep!tcAmDt^B_X4<uMW4~qeVCw#554aT+mO@Od6>wD
zp@b>dSSgM3N<nT5^lk9ZvCPYPE9o$g)Xo)3Yq_E>2B<==5U3(LMX-C{7fO)~{=!oG
zPd$E6>CBXi_(F!`1;KM(HL21bIZV!ECHW2$`<2tD%*qvA4fPUg=-ilDeOw#!!C?Xf
zjGQETzp`?L9&yW82CfL;9?aWpY~2z{Zt>Ef*CDU7M~HIzPWpIW(C;m^|47q3N+c71
zj6l8CvvP=Dw?&_zWC)q5?k5<38w}HOh=pz&H%yyr(@_#RMxw0X_l7O7a^M8ZW^%2=
zsyoedjoxJap&+M0(H{<lahM{2{7jn>KHo<BjuBU+0{R_onaY2{CZ$t8Mq;Cs;qeh6
z1Q<ptWE!M&`%yY5Hd;x7^pENH3ILr)iF}kUm<9Y4QM+zfoWEuQQ-OD`nGDYl*F2kZ
z(k~%C;Q}0EX$1e85w2x=VF%z^*DvWhboX6ZOY12p;j4f@gqN?)wrQ6&SBajj!_wO9
z<)8Y)$<h2OVR1%ueU<Q8Mzj>3>1XWMVBj(CxU`5nA%8oK`-}YDH16H7IZCR8g~QL-
ze*n)T^7qrYQ{lwurS$uRD&Z20`W6)J>G$oa6545x3jPexKAijd3swkakDkU2uaC1_
zu7+=Q{Nd~A&rHMt+wg#Qcwooy(ld6I4JU{@9qz=v(J6Nj27_VhCWj-@kmYbp-DEJp
zcRf0b;Ts;l-c2Zd2X?Nz?s@L*fFUD#=IwwtBRZ`*;7te5t1P_8gQ5#H>O+m1-AfsP
zD$uCUHR|`hlnJPH8r7*$%X=v^P=y+GL!<tvQyv=30-R6dtbk@j-|8J^1*%q~25MAU
zFO>k)9*r8NQPsUvB2Wi3>OqYP_fXN38vJVwj#LK@KDvH2llVzB`nnn!YViIIW6|Im
zq2KW6^EJZuuJyG=`5Gab9u2@VBP!ybH-wp!xc<$XrW0g6uHWeJ93Xr%;adnBO&0hk
zoYBDoKh?>W&6ttNG)6N7e!4R{Qs8r)Z09>feuu=;lq|{4ze76r5P1)Yr79*gwHDAc
zK=%-6cZx(7sV)%^k#z1RtYi<Hgx%zf{RS)VCj7-55b&3BU_9^nGzVPy%Q=*p^i>;Q
z5CoDoRtABmjaP!8pp939@?Ncx7nCKfu`DR>(;CZza+B6r5tJiZBR?qb*Bb619JA<N
zB7E$GlMK1=dkHTQejnkRAby1K`$@=9>}#pucyuTLg2;Z-(b1OHZ1L?U%FIT1Mk4Uy
zQy@Z=$&K)gG<5+@M9FOQHIc|Z0PY3FKB71p;Te&-6cSMq8hsM!+)Jo^yKlD^ij}WV
z<6Dhs?d4*5>|w<WcUCznsAXHr?Phr0pp9p5p5SR9>aQ9l%cQRxw3=?)TSiN}&D|eL
zz0+;rwnPLH9WQW&(Fp=q)Kcj8o<0>)evrH5?nt+;DM*e}-Epde3#eNOIrWHVgE)tp
zHr02DbMI6;sX82rnV~9rOG@-)I(x>2?hf+T5}FR4{?-GYUH_kDI~xeN(qfGE?}V>^
zTJ8bbMffn0LxkT&<a)w~h#Vw*J&^^%2MPQifk92Ce|<A*qV}t?ql^~_+x2yOOT7-e
zI*XN)&u5yI1i8=o7{2ya|9<A6@~B*FRI_MJw0It8^6-<MOmn6X5b$cx$fT=vLgzGk
TP{LEA?;ULLOt{zhbjkk!ntTZ1

delta 4270
zcmZ`+32+ou8lLVs5+;U>fj~r#HzYzLS43361t)-O0+Wycf+1IDVju&`A%S8MoXODv
zLVC!|ljH?vhN-cp%8qmvid`+#sbyVAF)4K$Dtoz$M3?2VjJ>;*a)|8zdU6e{snpAR
z-}n93>(~G596QGT<vsTJZ>KOi{Qi{bjPB$=r_7qetUWoZ_&tWHz`rX=dExKDdhv9#
zhIKKlFtW#b=~ofGoE$j%5UNv>1LuPcvD(06cvNYDZsD8g4|sj)w1RSC(xL<HUCnY_
zNZ^~%h{Ne5YjmhRE7ACFP%COs(mUdPz8z`b3AIJ;D+wrc<ZPRw1FX$zyBs<!Cric)
znLo-4;ScXc4fyNQS>wAr*1zsTl7|b8&Ww}uLOyvURo#-up?o}}EPeb=EPl!RyZoV}
z1I!2%q}b7}qnI!AJIZ(Wm6Fb4qKxm=E2-Cd^|CIgQ4GCCnGNb)#RT!hI(D~IN+J_w
zBx;0GLIY@((Gf<D3u-{282XB-2T*pF5GDOuuNiDLt`gE4FDFhnUdW0c@B}>a5Nr8v
zHQmQPFC!`P=pX}9fWdDh<@jxTl2C>}D4)(8!k5c`!Cb&*ZU&>l%elqO5{$Vgm<{+8
zm&2UIY=y;eQ_!&D9-LE=!A!<mD{`2P_``}y=8t%yZHD0<CEvn@wrR{vyvH_?$-`dT
zJZ3Ncvn_{_@ubQem{(W2o;gE>PJv;oEjfa*C;BTH77Jr#@c~YpBaG;gDu}WO|G4hi
zN5s|Cv{p66S(VR?8MdabKp9~MwEucQJ8V6mWusbFtiiQa*<)&`McrUx)SGrdp~a?k
z*<-X+Q6Hnw4JbTR!Fcdj>x$F*hUr57RKXzIbpk8f;{`1p;$+c;%h#Kk+1R_jiXoV-
zo;x~&+VD}|(szr5R9U=?7l6osw^W;%4E&qw7nx1?PW9BOt;3|DCMX>8G)O<GHtDcq
z;s>e#=h(*^{uZ5XuurrldC_<KP@xyS-vTc{wii9wh<XXdM(!2IQy_6an%ZKW)Cj-g
zSPFcy*Lsf^_XuSKT^8UxzDnQ?X`&`o1liqaw;NTpq8V?B8j5=G4ZFqB%O4cIe2evX
zqqs%LvxwV-e2aK93I-V|p(kQ$xqaRESwc_CT^Nqv?UrvK$SrgvVo-FEIC(_Koy+iU
zE8iG-R33q9_5o{svN2*-CPbzykA+4>;^p(=eMp9KpX?PgAV2G@Mo!I52g%v7wBh;W
zjqPZr7cDs~rt$|w2AV($zOx~{EZ{~B9!OR!60%s)B0R;4GlW^Js1+v2NNNLRlbAw_
zU(zBr4oX<Qi3{9sXgb%BN6U}aUeY%GRgz^4xn%>=wWD`k=y|+*<IBqc90{P29wEJ=
zMY9jm?V}lsdZB{!S8G<1pq>P9VN#$dR=yFf;IcrS^#{S@Un@w8?#`edzxi5bYQPN+
z%ZZdn&U%!cY8PYW6coZAzn1Dq+0VC$TIg>fg8thMRY_K&n4pOmP*0Qf)PD5o0XlxX
zAI2DEOTUr@Wr3=BrI{*os1+Q5aySUhVj|rhNOK@BBh+C~OZbknrtBB-%GXn0zuJc8
zdr|HYusUiHbA^Cq_<99ho5^r!C50BW42PCdDAv)ksH3RYU($sHfpG7pNsjKAh{aLi
zU<R+!wJs)N6@_9WmQX0xQEAjsG~z3C(Lw`>EbrmO4E}8~Ul1+givr%XIk7Z0+2v8w
z!5mi8b!^pZC={DR0fk~66{?PCm8G%CRj9<!K3CIqY?XEj#YV7EDArM>>Ij!?p7g+z
zv#P{UgjIAMTf@r~ij9y*q1YPoqmH8c_!3?G%#$mN3I}&>9bL!Pw4Oq-5z8qQTN4*`
z6pdI!7eh~u9<zbp68bo`@ZM+fZ_}Pu><M|`Wig4J(I?wsL5qnsT@YP^>xCrb`7Dnp
z^FjAGyo5?ZG|Fa(!bPVW=~T+YUvHW7_<S$*sLX@}#OZKkHVrre{;93wlcDbnJ4qcD
zfXlZ&>0n)5d*$1`39^oybJuYJ%?W2vb1}iE#9zBSRsLQ<TzHO8Vcm7%Qs0$2nY~gE
z(?(xb{J`Rh6Tn&yHM<}uj-VnJdczeoqHlygjz}D|C;1yrJj**pA72Y=BmAURIeBLb
zHFJnp_&TwMukUAos^jZ`s;4D_yEj~c(W1s(x6gEU&>wU$9p#E#0nMot|9Pj9*kbDB
zNOxAEizBA1=T7V7t5G%dLg<f05uLI?wfUSQK!D}kkn_5MuXBWIuWR^vfCn+>aki^A
zkaWUHgWiU`KC2+|xd-V}Nq)C;pXnA&(?+1RR}$#O(X3KKPP;x@pr{GxsO~P<4}+ns
z)KHz>$UD?pkJ(6PB?%|^+|HmLb`CtjwrQ>AmY==OTIpRjG7_hZgIjAdbjOLZ4}5g@
zvhcB%;i@FoqJyx$)|)B+C#aSCq)HN*Do>70<CyJP0%3{{N;LGoW*fDNWXOq7RAuxg
z0ie%DBpcmEJvfv@^n$@3ZJWc)$I7<(Fixvko^5xFNQmo!qb;Tjn_0N6={?>Kmwoi^
z_M(UH%ENFGdO+!hXyy2$nt8_lI~?6Pf`6)+m%QH{ObU<k_$t!EX&&EKY2l}F?)Hh#
zF827!CU={D0MqxS?-%i>gYn^u<_S3--$iq`>1I$DzG9wG=<!{lD=PRsK&!ED`^yIK
zXbNw`x3<sJH?_idHlDV_%wF=~{2gQ2s~)_5$E2iujCNx9rVcg1wfZT>hj!d{+<UuS
zlNR27sNI<s{uV~_zHZYE4&KYL;Sq-@RjX3BhbR`P6qOQGO5ZwYr3K2YQtc}B=n$m?
zYKBUMRBA$$a?oIU;O42^36;wnGBW`6qDqBT>X{)b4yZzvil|if5ETzpsY?AxrSb-;
zuw8|}QsJW3_LI#!w=nUIt%$Uu_gb-T*9>%~)%VEc@K3G2=E<-Z3Kukn=eGI6=I|02
z)4~O~a95DA<D0wgIjTsS9}dSti?~&I!6Kd(UZS%c3q18wA`}y$gmB>xy&wpm@q&VD
zTDmlo=?H)B1!efW7o=R@3L>o_k#TaCXcAVCzCt1ul1PfIMK{_39S3M3fq7p6kqW3T
z9*_dkx12zSF$J~0<)qtmhm)2Q;UC$c5H4ne1L4bT@G4x&ro`Oqy+Vo~I64{Q2bxaC
z`awY_seWmtI!W?NtJI0fFRfN5kNTxG>Ll4O6{(X^erc^b8SUpB!MN~B;`_n^CzgY(
zRuW+q5mpmn4H1fnu$BZg4XzUhc>$HT1K+upT)Wmg?zrBymdMLGVC*b{x0nJ&M4sOP
zW9OQFU=5KoJ6vl>=V}1PfMPX~Q#)YnT-C2wMPy@Khiet-TS-tk-nnODV#;Bz>wrlI
zFV6w^TzzNHY-2uAp6(F!bHB~Um-eJOa!B|KFJBkF=;iBA)VZDKP6y;4q<pn;8||IY
z$SrmaUwbT<oT9o@R0r3_fD+0W6z79DTNN+;8Sys+#KAyB2VKkA*a&yS6r<7JH)yx)
zVY@SpG#%`H>j{VT|Fc|QK6Oi5C|Y|2zRzis2FOZ;JR&V4f|W>1iLi`FxkOk>q#PpT
z68P6#qa@LPh8ZPZ{nK%+Nys5w|2OD;<u*L2JWfiwkg1d7q!AY)*y0%Z$gh3!b5aAV
tWYMm**0F#|!o-oO>+!bd;Iob?iHE$tzD4xe2VV$pIeE)5dkp(;{(tcOhlc<F