From efb27493c92ef58345efe4b83d6d6b6359434f66 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Thu, 20 Feb 2025 16:44:59 +0100
Subject: [PATCH] LevelUp every 100pts. and ...

---
 lumber.asm |  28 ++++++++++++++++++++--------
 lumber.xex | Bin 10759 -> 10776 bytes
 2 files changed, 20 insertions(+), 8 deletions(-)

diff --git a/lumber.asm b/lumber.asm
index 7d7174c..bde791b 100644
--- a/lumber.asm
+++ b/lumber.asm
@@ -338,9 +338,7 @@ LevelDeath
     jsr ScoreClear
     jsr InitBranches
     jsr draw_branches
-    mva #1 LevelValue
-    jsr LevelToScreen
-    mva #20 PowerDownSpeed
+    jsr LevelReset
     mva #24 PowerValue  ; half power
     jsr draw_PowerBar
     mva #0 StateFlag
@@ -466,13 +464,12 @@ LevelOver
 
     JSR AudioInit
     
-    mva #1 LevelValue
+    jsr LevelReset
     jsr InitBranches
     jsr draw_branches
     mva #24 PowerValue  ; half power
+    mva #1 PowerTimer   ; reset timer ( 1, not 0! )
     jsr draw_PowerBar
-    mva #20 PowerDownSpeed
-    sta PowerTimer
     mva #1 LumberjackDir    ; right side
     
 /*     ;RMT INIT
@@ -539,6 +536,7 @@ level
     bne ScoreReady
     lda #"0"    ; 0 character code
     sta score+2
+    jsr LevelUp ; every 100pts.
     inc score+1
     lda score+1
     cmp #"9"+1  ; 9+1 character code
@@ -584,6 +582,16 @@ ScoreReady
     rts
 .endp
 ;--------------------------------------------------
+.proc LevelReset
+;--------------------------------------------------
+; set level to 1 and PowerDownSpeed to ??
+    mvx #1 LevelValue
+    lda PowerSpeedTable,x
+    sta PowerDownSpeed
+    jsr LevelToScreen
+    rts
+.endp
+;--------------------------------------------------
 .proc LevelUp
 ;--------------------------------------------------
     inc LevelValue
@@ -592,8 +600,9 @@ ScoreReady
     bne not_max_lev
     mva #9 LevelValue
 not_max_lev
-    dec PowerDownSpeed
-    dec PowerDownSpeed    
+    tax
+    lda PowerSpeedTable,x
+    sta PowerDownSpeed
     jsr LevelToScreen
     rts
 .endp
@@ -986,6 +995,9 @@ branch_addr_tableH
     .by >branch0
     .by >branch1
     .by >branch2
+; Level to power speed table
+PowerSpeedTable
+    .by 20,20,18,16,14,12,11,10,9,8
 
 ;--------------------------------
 PowerChar0 = $87    ; power bar first (0) character 
diff --git a/lumber.xex b/lumber.xex
index c786fc00b019ce55e2e6391976be3bde44bff27b..bc020ba134acb30e89094df71e509b3282ff425e 100644
GIT binary patch
delta 887
zcmZvaO-vI(7>0Md{1%0cG^AFeLnzoK#rhMHsu!bJ{gx#jY>WpF>%kwq7`;fM2E^_{
zB^zVrARb7Xh8~8vMq@k>Q=<tG7cZ+vPihFIly0|Nh{l66f`p{(VRz@5cfNVQH{VEn
zJpQV?N%*D+IJGZ;UpBV9xzY5!nIFT@*4>d%&|D1N1j3<3KzfYSvTv8n=vWLb#Mn<9
zPqqyNCB>?7FIcs%-)gjL&{Y{Fl#K2Um@6>**uAYR#LN|ZGT6EE7odAGnmoHs?gl%f
z>*W49N{C0(Oz&4CU?W<v)h@Bi2z4Q&OEU3mI(jA(PSdCqCGd~nmA)^%gfjwR5;gXO
zGrn1$`v?6;$12hBN_1ii!cW@AHY=XmvaxZ==}Od7iOy_6_<F~kmN-!N>us<e2(OLM
zKJaRXJXi*^3|7FFh-j3-alv%iGC-Fu&=j2#m?cK)C@F#CfJ(%)FyX+w_*+d2SqCQ8
z!t>&qno0WmMdNZ;x;ncG6BoM}OY?d%`%%$GQID)HCNoLPYgdtaEjhJ8_fo89bn7t1
zhyJCj&go(mjhH5lXAd0l7QsC_MXIC4BIZN>!5n1YDcW%My`nvOJ^Xa&(}$G3W){KA
zo_<LiBH?~cd-!4rrkQS<=~7&!(%Mw!w^yR5Oik0u>69hdp7fAaMc;Tl)VzDS^2AJn
zxxh1__G^XhcU7kdw3=0I3+QJr9VnH~4MhboR=`{aqX1?ejAbyFz{rD{17itXnuOax
z2T~H433?(2DjjSj;qy{k!)L_~nF){Eif-WtQiM-nQ;O_=t31!aC{3T|JRHvv$RCVE
Se7;>`<BkSzeH|`KEq?*iii}|Z

delta 919
zcmZvaO=uHA6vsCoZET87z@Tjenc6fqZEF0WSoKo;h`#OiWbssRy)`GX2=)?MYc@?<
z7A$koLm>nMj&zD*K`I12*x*(VOK#$&LaBH#uIWcU8i}(_KLT+sZ{KhJGjHC1-_ya#
z!B;&tlOmXK?1U4~HywR5Y+E^E2w`aJaR&vI@}m(T9Qp$&>?amI_V7BL_M=t5{xO7~
zw~e|^3QE0pOR;FpN|RcTL>>i&L|7Z8Iar#~?hC7an!|mr&ckLNJ>b#YjS6|_>g=nK
z&`m~&QIe=NEjv}jE^JkQ>&4;%de0Ms6h#7098!cdOJVecC!8d)BPfW!y6z4v_Y+Qb
zdP%Q*+?#MLIkXbmLl<k&rCM~k3gOB2>HQn8RBh}Qxmt^^)uQWF2;Xs!v<$&c7nOc?
zn_&G&llX_5A1eVZf#Ou%#4eX0vki1xPmi&58!|<pMLj*l(jsIEAQF4rG+TgWdr^#=
zk_DK}d6(@uF%fMJ*yW+_cwO=@%--(S*;+IaRjjI+G)U1@Bo$#sifiFSSUJnsnH@Jp
zYbtCvGf$bd_{*ttV|mcdza(|Nzw%(!*Nds05Qs|Sq$|KlkLI(GTo9y*<Xb^{{CZ+$
z{L_b+nxnh&fQRY4x^8YA7IodCu8VQCN@ZWUaiDZmOHm)so=o$2rlYlG^FXwx`54j*
z<If%KV_W~<6*GBYPgCkt6Z+QA=1FAZ!q67TIiQ;$Zvou^c@yY5$QwYjAg_bQ{LmWN
zJbFxuNj0()SrFM=>$6$b3NbD;AW~b}V^%G+A+40v3l!h;SR3C7Y6lG&wN^BYLmr<Y
qh!;G*u6f~E79#9#7&s$m;0XLY?emo@%fdo^+16BEF@87t{r><`Dx$Ce