From 099332d1a8bc1ba3bca865a2ce7eddccdc168abb Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Mon, 30 Jun 2025 09:03:47 +0200
Subject: [PATCH] Smaller clouds code

---
 lumber.asm | 151 +++++++----------------------------------------------
 lumber.xex | Bin 38440 -> 38211 bytes
 2 files changed, 18 insertions(+), 133 deletions(-)

diff --git a/lumber.asm b/lumber.asm
index 83412bf..2ec6fcc 100644
--- a/lumber.asm
+++ b/lumber.asm
@@ -2660,7 +2660,7 @@ make_cloud1
     dex
     bpl @-
     randomize 0 (19-5-datalines_clouds)
-    adc #(datalines_clouds-1+5)
+    adc #5
     tay
     randomize 0 2
     clc
@@ -2676,7 +2676,7 @@ make_cloud2
     dex
     bpl @-
     randomize 0 (35-20-datalines_clouds)
-    adc #(datalines_clouds-1+20)
+    adc #20
     tay
     randomize 0 2
     clc
@@ -2692,7 +2692,7 @@ make_cloud3
     dex
     bpl @-
     randomize 0 (51-36-datalines_clouds)
-    adc #(datalines_clouds-1+36)
+    adc #36
     tay
     randomize 0 3
     clc
@@ -2708,149 +2708,34 @@ make_cloud4
     dex
     bpl @-
     randomize 0 (74-52-datalines_clouds)
-    adc #(datalines_clouds-1+52)
+    adc #52
     tay
     randomize 0 2  ; (0 to 2 = shapes 1 to 3)
     ; fill cloud PMG memory
 fill_cloud
-    ldx #datalines_clouds-1
     and #%00001111
-    bne not_shape_1
-    ; shape1
+    ; now we have shape number in A
+    ; calculate offset (each cloud dataset = 12 bytes)
+    ; calculate A*12
+    :2 asl  ; A*4
+    sta tempbyte
+    asl ; A*2 (shape*8)
+    adc tempbyte
+    tax ; shape number * 12 in X register
+    ; shape 1-10
+    mva #datalines_clouds-1 tempbyte
 @   lda cloud1_P2,x
     sta PMmemory+$300,y
     lda cloud1_P3,x
     sta PMmemory+$380,y
     lda cloud1_M,x
     sta PMmemory+$180,y
-    dey
-    dex
-    bpl @-
-    rts
-not_shape_1
-    cmp #1
-    bne not_shape_2
-    ; shape 2
-@   lda cloud2_P2,x
-    sta PMmemory+$300,y
-    lda cloud2_P3,x
-    sta PMmemory+$380,y
-    lda cloud2_M,x
-    sta PMmemory+$180,y
-    dey
-    dex
-    bpl @-
-    rts
-not_shape_2
-    cmp #2
-    bne not_shape_3
-    ; shape 3
-@   lda cloud3_P2,x
-    sta PMmemory+$300,y
-    lda cloud3_P3,x
-    sta PMmemory+$380,y
-    lda cloud3_M,x
-    sta PMmemory+$180,y
-    dey
-    dex
-    bpl @-
-    rts
-not_shape_3
-    cmp #3
-    bne not_shape_4
-    ; shape 4
-@   lda cloud4_P2,x
-    sta PMmemory+$300,y
-    lda cloud4_P3,x
-    sta PMmemory+$380,y
-    lda cloud4_M,x
-    sta PMmemory+$180,y
-    dey
-    dex
-    bpl @-
-    rts
-not_shape_4
-    cmp #4
-    bne not_shape_5
-    ; shape 5
-@   lda cloud5_P2,x
-    sta PMmemory+$300,y
-    lda cloud5_P3,x
-    sta PMmemory+$380,y
-    lda cloud5_M,x
-    sta PMmemory+$180,y
-    dey
-    dex
-    bpl @-
-    rts
-not_shape_5
-    cmp #5
-    bne not_shape_6
-    ; shape 6
-@   lda cloud6_P2,x
-    sta PMmemory+$300,y
-    lda cloud6_P3,x
-    sta PMmemory+$380,y
-    lda cloud6_M,x
-    sta PMmemory+$180,y
-    dey
-    dex
-    bpl @-
-    rts
-not_shape_6
-    cmp #6
-    bne not_shape_7
-    ; shape 7
-@   lda cloud7_P2,x
-    sta PMmemory+$300,y
-    lda cloud7_P3,x
-    sta PMmemory+$380,y
-    lda cloud7_M,x
-    sta PMmemory+$180,y
-    dey
-    dex
-    bpl @-
-    rts
-not_shape_7
-    cmp #7
-    bne not_shape_8
-    ; shape 8
-@   lda cloud8_P2,x
-    sta PMmemory+$300,y
-    lda cloud8_P3,x
-    sta PMmemory+$380,y
-    lda cloud8_M,x
-    sta PMmemory+$180,y
-    dey
-    dex
-    bpl @-
-    rts
-not_shape_8
-    cmp #8
-    bne not_shape_9
-    ; shape 9
-@   lda cloud9_P2,x
-    sta PMmemory+$300,y
-    lda cloud9_P3,x
-    sta PMmemory+$380,y
-    lda cloud9_M,x
-    sta PMmemory+$180,y
-    dey
-    dex
-    bpl @-
-    rts
-not_shape_9
-    ; shape 10
-@   lda cloud10_P2,x
-    sta PMmemory+$300,y
-    lda cloud10_P3,x
-    sta PMmemory+$380,y
-    lda cloud10_M,x
-    sta PMmemory+$180,y
-    dey
-    dex
+    iny
+    inx
+    dec tempbyte
     bpl @-
     rts
+
 ; clouds data
 ; shapes 1 to 10 for clouds
 ; player 2
diff --git a/lumber.xex b/lumber.xex
index e69dd265ca3e65e9d3e188736160a97ed326e742..fc1181fe93484c01162ac70840e25dfbe73ea0e9 100644
GIT binary patch
delta 3908
zcmZ`+4OCQR8lGRkL0|}6#-H?()G{5m9am40tIOzCnq7(1)YdI0OLs9-N;hj2XZX1z
zqIU#u@<DLtn;o1EcaC=!4q8%Nouh$V1iVc4yZz9~Ls+|<o2RWzj_&)-05zSKGv~YS
z&+|R+`+h&~y|f(HoeSz(Z`q*hM(vp!_UV3i0h#sGclF(el*9nb9HRc#kW+8V3^dqM
zOf7!BprO+I!cC@u()$BQzNsct>FsYlzDetpQRqBUXAK!u%gB&XG59rV!jMVP`Hi0Q
zi254Qzuha!NS>`wf`*lmXo^_%YNo7J68#!Ls0pLz2?HQQJxI+N8Onya8cz=zN>Wnt
zOc7hs1QYnF8;IV$H;`#fRHhH~A|=zGp#><Ifmfc^daXE(?M3aUHtsMO`jNVn8{2X>
z_vF*76Z(;?9aq(usvB3Go1<R+xSF~psv2TyJHO>C-G)7l)O`misgX*qg>?`cDW{vF
z>xu2D{lY9_*mQu}TSM=1!%xT}hO8=jm0Ku<WT<;RP`H9%@v6y`K}4Odr3P!MWgInl
zl>5ARnUiJ?3r$Q7ZQL)Euq*AtPPWi4IATV>R!qJmn`^FJG4&^3s<{qB>-ApcOA3-o
zZ<G^MgPf>L3DiEQWoqdU-Ez7zg_5hlOFP|iwtB0ar%n%K$Vtkea1*j1zN{)C7ZRf@
z-HvEdoUpYZ<Gp(7l}4(yL9j3f1ug7<Sp#={t37!-0<Bt@21RiXJTo`7r!G%HHdCNh
zNuWyVx!uqF>5rhNf^HIFk&UXJ+JBhTOri-!wjYgWnyscmF3B+4tU^LM<;z&~dp(3F
zbK81ztfC)r+}>@!$+&>T4%Br-eKC6Kbjma;o$K6|ot$1zZET>XBk>gCMz+n#kLhD|
zpsQwJPoM$^>C|dUJVZvm8b;WL3$PumkV19{;*x+|!LxbWS0n1xM(X4%fWUU)LDpyg
zslJNnY#d}YF&(M-DQX2V#S=XgBZ{#;K$Pi(h5Ky#Z0Fr^d>dlO$rPR@dPy8)Gcm=7
z{4+7d6FnXyiiKQHl(9MpDd?CZ4k4F$Stw)$yKq0tZQqgdM0~an$EHr^u$JiYWv?Tq
z_#BFeDW2$&7!fJ+iTLcEjCm$Q{FUhOWfl`te27iN6i@V2jEH-D$LybN9v$;chFC-N
z_$nSHruYymi7CE{!WdC(C6^K9|83qAG2~>(Ekuv6>Mz6;A95ox#aHEs5ye72MwA~n
zj~um$pPn3|10{2Q|4&4}#0s9+mIm!q5Cx9(cOZ2kwAYz%Z`9-%*AC!v#KdQa2rlmP
zlKCrMZ44ZNzIYeJ5%S=0Y@c8P08ot2CYg-SCMU`P3-QyV6tojM$8!bQyPMRck;}hU
zzEvrQ<ZDuOwdIoBG+eIehATk4+QfyQ%X0Q1D&(Qgd;BKK?iuYvVjr{(<tv9Uk8ue+
zQwF*T{w$kajH^aBT;>plnQ~zlQ!(xUPdQT#o(hr_u$}k#G6hX-d6oJ4Bpoyt1M!7C
zK21j%Kj>0ZYRsWN)N5Oq;^{-?FM7fT<%<{`dKC1n$7F-LI67&d4}k-w<_BC?5}5Kp
z*%b{_0amW&d5f(N_4gyCXVUFz)peKo(mM9=wXQ1j_avtQB<R_T2>KzUz`g(cf?Ebq
z=pvGKH`TiQMyMJ*-0Ypyd>v`vsdAz^16uWM&>m+iJOF!#bnp($^;|@B=rHIbLssRg
zU$2ac7ZLZ|&W!v4r0BsV62huO0|X}LDk%{9Vyx$aVRQhA1Eeq`Ferg&E9N?P&ey@&
z`FiKQ<dL_lg!+ZP4-Nl_pkd%$2mO-k+?8({e-}|(8ryH|%GK(=J<8?25YZaB>n~Wf
zncVHWt=b&!;oa7G3tGr~SP$=EjWx|=V%(<9?x2v&xTWHk8#HsJ&t7hD&6OTI+ThCW
z8R>SLN7_9vZq+7UJxUqss4VX0OLt}4>iDU*Nn7jqL$_7+npKD2Bps{crEIAc#<@~w
zU3=l*vDPq%4)fgCd$QpBgFTPf9^{bjXk!0hmuyXJf!$HPVue*3lomFz%k0wPCU&{q
zF?t$_r;$8Eu?c4OG#ZtVC?R>8qNmn2fOQ5~B?R(lClWgeE(t81X!K3w5X^o(|0e1+
z|KJecMC?aP0Kk5{1m?5OPnG~H`{@$m$-gqhmhs>uLOBn9B2@5zAVMWCo{0*3crhFm
z_VVJ{s8Gs_=c2+sUhIkrPG0Pe3NGH^Pn6Ce{zH4O`8&vkJ%iXVV$UM>9K`QJY&Y_0
zDm`t78J4<G4}efN8W|ay(Q5Q`BjuqWjG-<#M8wdAl!ZYUL+8c~=a6Czdd{KHSup$x
z5NDBM3Bni(k0ZiJNep_zX!Hys^uwNG(NGTY+ETV#H*@%4;GjHDF$gy1Abd19x(}KS
zaC(T$`AX+G-$3g8pkU1Z&l}NeZEC3|x7$>l3b)-}tYOMRCy?|&6H_id*u+${mDjp@
z!an6YaU5P8n!p`Di8=_bgW!CcNhBmS2`&Wi5<+_XwF&Ug(d!7>?~@I1#awQ8ESb^C
zd9P2*`!UE{?r1t(!@eBnsb6+GM&Cd{3w=yab-x0iQKSuk=@eo+koY=cPa*L&#J-Ni
zlZbr{i6;<y5~;9GY8v?<)~ZR-M{uN?J%JqKUraaEYp|~?9b#I<YETlzDG`}l<V>A9
zlUME$D|M<3?jyI>xmdTSkvr<l&9^r-oIq7@L;_V^RqB|-f74y>*Z5i~jUP6o-XUfx
z)>L(>zd+J9@uN%0VFLN1#`ga@JGEK37P~Yq%4OGtT`reT6SjxLxHQn-Q?^t$%TK@8
zOsmawk)K{3pf@$U`zrgF`(6?>4WD|sJ1XaC{oMM>J952kJ^W>_py5Znf|mccS8(wf
zJThcZJ_z($iVaL}&CKBo^a(%rYULcKSGivr@-ltWWiQj;IpV!B;%)0=BGv+Vv6|j`
z53hRp`*2TN-wNwKV2ScgpjK>&z%LN7s{A+JA-&QT_<;G4U61K?&2oV{6C7c6is{Zf
zAqCpl3>+W;J;;HGEg5v?gBwoJd;RdA%oO5}D)eSQ6xnP0p;Lox-&4;v(`%YzX$1ZS
zf!f~U4VY1S;F*M(LC9!1_UYOb-VA9fd}ega!~CMCuqHar!oDQ%<zSx)9=RA+gu+mc
ziFaBsKjv)#Yd$X4@Kdocm0y5~Zo>|0d0=2YR?>&x54_*?o~nm6BguV!Oz<%m{dy@0
zt5=zR3DW87oQlb^k)qxv!=;}3kIlHoq$WWu3zjl5aKnnE-TIBUr9<-%=AFRX*3^~`
zXE|mD0`E+(z<d#wa&Yv2vJ`2|Ybnhonb8}MeUgJa^Km$(#wIPo=G*H(UVxRvXqt-t
z#sW;jE078^*tq~l^Oo{({uM1OfMmgDi}a0G&1jJ*Y$=_Eq3oK3`YUEw$H3dX9b26x
zsxfeh9y%teUd!f7mQov*7uO`h;VHsG0c?Fs+kmBX%*)fb*QTexZ5G$ylt*#OTAZ>D
z2i@<Ac5I#@7GZ0enjzBI^6YZV7Gk(|t8n!cL-6vuO0KvBTT|r(Wsdj=fmx2<k2}Jc
zrD623i&heF5rB(;P0%`yy$dv<BFt(c9&JQii9?TIRu}Q;BVr*At-`D!;xR_VhjC~%
LZr{8Ac<TQEnf96>

delta 4112
zcmZ`+3v?4@7S5{=Qrbq_+E@^#fNtY<H3(;|3O03Bu!d3*1jWaQQmrEIBg-C2Ld(=r
zn9z2F{wba0C+$clbYerQXS>_kQ_m`rF0eyH@NGSCYKyx)vmQ@<z$ttGNokGi_T>Dz
z_kQ31-TOasXZrV`p`+8#b^U6?Q54Buz0+_<7qS?s&%DR?DJcTW?4zD&nS<=vg4dpI
z?g$t~9hKQ8US+(Lu}x@>URBem(a5_`t<k$eDAbA6=>tisb!Z?-F$HvL@_<<}1d=?R
zh&qRyx9^ZbC^|!-L>(JKk~wBGs@YM!k`mAXLros(BnrR`Nl2YDG>{K-bsh-~q$=r!
z=9oS8niAmD1?1eeL&&zJC^w#d6Diq&EIm*m47$;rt{*Ei**8(-&(CZynT{d#KJH4z
z@4086e>C|Rit5K*HSQY5UDsL-HIBO(6`E^`yAi(P8^db4mAZcq6=<c>8et!rS}9j8
zHP=gG&%Gv2CxJD4s2vT?t+ntGb4eh#&bh2stb$^wyF9S)w-9VzJ(==0qW;!MooS>N
zan#!fxeJwxTyvTIBF{89lU@@yvP&G|7PibGJ`fKE^itZ{sHNe@Ve_f9vkjMF=(^mm
zT%w?;(L>Q>)f7!prU;D>>6u37C$-V*lqpoS4p677Hkz;A6fIP56tbeJ${F!0R6(%Z
zI<Wu>bMCICwW2ujrQ)n!FXd{b4z!3?X0ND+^RH;(F2CeR8*2uyUd(|-aSy&cJ40$N
zd<)slLZgyQt?+W&UVh>a;AenumSB^UR3r7;ezIngO-y2sq47%d)l8@*4Q5+ZD9E5(
zif6yeLv*s&t+K>dG|A(3tovP77m|GFy(aaK+O0DvIn*fEyDmR%6jArLP-D#!kGP?A
zGmGN>SHxE>pq@+#dz~5el(dhGd_9bC3|(*>te8$t2=bDIT=6S~>x&Szx0Px+1Ps4J
ze2B%4pZm**zd3>OC<!$+{G3%vLWx2T$A#jm4-#jr8K!Vwt)JnVmY}yf&YURWdE&1~
zpsXdK#FS5xP@>RNaiMt1RmAy<q!bNI6D<}nuZv}@2zQI+)^A9EI<eZN@u?FvJVyM)
zWv?Wm#2U&;C{gH<xDZ+9(}~qR8%HKmyh!}SWmb|<Vv02+lqmFET!?#W!;D`Xo->Y2
zq*zY;#8s>yp~MtRNGNd?WpSbSPA($O|2w>=<IIVa6~s?m)e9t)nDQACN?a8k7mBBR
zoH&z*N3PnnkC9xWJsW4<^Ez^FXGKr^NP`Y)KN6Zw`H*@ywAX3yyHV5PS{p!%j+-wN
z6Cm!w#(AZCTZJa*i?=}@u@ElD`fEx+0EzM0q>}O3<VMl35kJ35K?jkeHx=hU$*ZYD
z7k{ISsuV3VylQBymP7ntwPF~o0rNc1^=-;^g%K6<Q15#JX3F6i2_q>CZA1Bn7H?qO
zqL0}Hz8U_kYu${y!7#Xs76+MXaVt|Z4ggZkR0C2&iUPIwJvdv`HCESIE>Flob1@Mt
z<iWb03f~#Gn%-aug;Br#?sQKWS-w8eXHve7)1gN}-+DZ1QWt8IPKOZyFttc<4<|F#
z!meQ*Qv*@1VYAg9MyHM;<-`Q+?lK(Tg)@6-U!%Lu@&l<Uf<z<Rji4Vw3EW4U=U*Q|
zp>8BU$v3(KNw8`_xEWihd0&$To)Jw^^PpAFg7!E=;epscV1Q>}fu|ceL;JxW8n7wf
z28_yx)Qz}JTe6BGNHGE=5y85B5kiX=DCv;8JKl34FcLvhge)ux6cj;g#a!=}c?P&U
z|JiaE`6}GHk@}Us4-LOb)G_d^gMP{NZY?s8KZ~e`TO(sz3-pFh4{`;s#`G5M@~bxe
zOz!4wHvR3~(rq?ZaR+%08{s*u3#8dHm0Y>(fLAwLK7PRKo-N;d(Cf~x>$hB@;d155
zPiRm~gGwhM13(oT^o0gJHVGL4+N?pBG-%BvWCCcXOT$JrZ2csb1X#TW86Y@Y{?jCs
z4A4Oh%Fv+NNhk%NfClAhP}3xo3Q$OcZqXp$IApy<%YV`0cWCk8wJ8yC+e`YC^9QNn
zgVYr+Z~JZeInDgkS@P0me%~zE5tR;@<vq>3oG%}MakhN8Ia0aZuXnwTw)#Yhz1Jab
zVv8MOAG?THiyd$_A;fkfRzkF##sfjl;ekQdmzLV}L3t(*OnDX$RC=ThNo^>ar`Sac
z+lEF0ND826j$)+lX@O`SL<0!yk;6zjOn9jfIgCayqFtgTVB|6CxBNs)7_py~0E7L!
z1O(VGN<fwUvV;Id!vk!E4=`f9-~*T#FZzH%j7p!>t{JpX5;WskpL9es*7&3j&3Miy
z1vTS&pLA3+*7|5yAVqFR{3nin%l9-?)s9#Ju}2Wwf!H8ok0Pww?FsK^SgOklc<3k^
z8XCy!O7a{<%ELhzLqYiUkU$VAcL!k%b&Ll(kYWpZI#B2c1a1Jv5u{jyFouM2hJci`
zl%PjIBkc(ExrQA#WmL4#$M;%H@blP9-jM#fW3J1O)OkTMsp#K+t#6q->Ph=DS7tyv
zb5!b>T_G=$f6Ft~@@+g*6RvJ_pXkHN_tH4MGIWjC*@AiquZQrkZh{H9C&*<$E+L|w
zhsMb{zho~UY|dSkm)H8gdhgb1nYr$&IWGR!VS2=mKmmHPkve(^UJ13{kKo0M^&zPh
zu{@FvA+{AsEr>mYBrjrHkP2I(W|EhCy_%|h1&8WcFQUia{;sM&!ci@urOcSkq@+kw
zVo`48&Wx!#pK_<P+o0N^w{V+wE;P`sT-VNmqMLcI7uCU`3w7_+saNR0)mjwL;Vw$o
z278ZaDO<5+s8a*Q@?a}Jav!-KV87EEvABBmxwsL#b#BV-(Dk|9ZmjEb^!4GYHzF6@
z_Zg<QInTE{)plojn{)9S&Nc0|CwHG(jJJzA@0WhAq-L(ZjoVUlOMyRpg1_h&b^MTD
z)bs!Hi*8<rhXzc_$3nlg(!}&POdI@%v%8IZr)H+huRI_R_?eUPML%<@cgR0B<PV=@
zVz%PwLiM_?J9*X5-;Ym(PnOztf{Lbhja6C^gO3oisr+~T0izNYK4v~)S7GPM_Gqy>
z4S+s%iuu-Cp#*1AJ7|Cb@?Z-wdm8x6$73$=``h5ZvMB`D9Ov3LSY*Hbr(PYl|3JOc
z?p)p;FGKhg5{2L8O_)(mz;`NU&Ok+rF*bx1-U4MRe6}_gVt#>UEZ4^A7^ea@2V*mQ
z6=2vA3d3^DyvvIDEB+3M7U4=AKNX8p`T3amc1%-?-#EPrE7uKvBz*MVdDRGeMvA*2
zh=-Yf28?nlR=;IV$xzP8-l>>u8(Gu`WH@^QeQv=GW;GRZS+SgrK^t}?^QQ0o9X+}L
z^P%v8Eu*8yRgIa`!iP83V7?s7bFlXRWx9ODZ>=gIl{udgzL<l1i*R3hgI!*LEjOdj
z=VK*BD^oF!&Br9Y0;Mo#dgo)UZn+Q_4eMb8WGl8<<?sAzR)<VsYt?iN%Wg<U!xq>_
z;RD`*ZLW=Kl5o~JAjqoUy7sKK%8sK88&cr%lw+|Nj=m#&+FEtR&pUCy-RK-`mzLx7
z6*&DdoW2qVYtKmzY{`?#u`N^0lAPH3%3{oxVd(M8aQzfh@Zve8Kq|qujA*hlQ+kBZ
ztep?wo<7VvVLZ$(SVG9<KrRP0QBSv@1DQ}cW_2--J|-=}p+_)lh<S`LsSJmfVb&D$
RB*mnqIP@rvG}m@!{1>({=1>3t