From 51dfadd02707abfa6f0fbe103b6b1dd2f339b439 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Wed, 19 Feb 2025 16:05:04 +0100
Subject: [PATCH] Joy Up = Level UP :) (test only)

---
 lumber.asm |  29 ++++++++++++++++++++++++++++-
 lumber.xex | Bin 10593 -> 10639 bytes
 2 files changed, 28 insertions(+), 1 deletion(-)

diff --git a/lumber.asm b/lumber.asm
index de04a6d..209555a 100644
--- a/lumber.asm
+++ b/lumber.asm
@@ -28,6 +28,7 @@ display = $a000
     .zpvar PowerValue .byte ; power: 0 - 48
     .zpvar PowerTimer .byte
     .zpvar PowerDownSpeed .byte
+    .zpvar LevelValue .byte
     .zpvar LumberjackDir .byte ; 2 - on left , 1 - on right
     .zpvar PaddleState .byte
     .zpvar LowCharsetBase .byte
@@ -274,6 +275,12 @@ loop
     cmp #@kbcode._right
     beq right_pressed
     ; other keys or no key
+    cmp #@kbcode._up
+    bne NoNextLevel
+    ; next level if joy UP
+    jsr LevelUp
+    jsr WaitForKeyRelease
+NoNextLevel
     lda PowerValue
     beq LevelDeath
     lda branches_list+5
@@ -298,6 +305,7 @@ LevelDeath
     ; restart game
     jsr InitBranches
     jsr draw_branches
+    mva #1 LevelValue
     mva #24 PowerValue  ; half power
     jsr draw_PowerBar
     jmp loop
@@ -422,6 +430,7 @@ LevelOver
 
     JSR AudioInit
     
+    mva #1 LevelValue
     jsr InitBranches
     jsr draw_branches
     mva #24 PowerValue  ; half power
@@ -527,7 +536,11 @@ ScoreReady
 ;--------------------------------------------------
 .proc LevelToScreen
 ;--------------------------------------------------
-    ldx #6
+    lda LevelValue
+    clc
+    adc #"0"
+    sta screen_level+6
+    ldx #5
 @   lda level,x
     sta screen_level,x
     dex
@@ -535,6 +548,20 @@ ScoreReady
     rts
 .endp
 ;--------------------------------------------------
+.proc LevelUp
+;--------------------------------------------------
+    inc LevelValue
+    lda LevelValue
+    cmp #10
+    bne not_max_lev
+    mva #9 LevelValue
+not_max_lev
+    dec PowerDownSpeed
+    dec PowerDownSpeed    
+    jsr LevelToScreen
+    rts
+.endp
+;--------------------------------------------------
 .proc PowerUp
 ;--------------------------------------------------
     inc PowerValue
diff --git a/lumber.xex b/lumber.xex
index a862348677970e6153edf70f9d4847dbde772477..76e862dec30285846f5077e8ddf73e67d5679032 100644
GIT binary patch
delta 900
zcmZva%}X0W6u_hF8o$s$Lz_m>v6{F^W2y85wS|IhW1g;urqD}!*j6YF_zyIG<a0F9
zE{)8o2O$Ux9qCF-q2M9VLk+H{MTDM(5PE4?=s^&now3>k(!I>Q-~8syyxDgce*5_2
ztuEn_ERcMUn{0Jn{QRnG|AH%5Tr%z2GG0O*lk$sFNXwb7a!y+%;eN?0%IHfF9fzn5
zy#|yFQac|Dz-cOo4uX7ABKiK=nawGq*^&&q<uW?WX7mG)C~MfdqQ_t-Yjw-aeFNwO
z(9MbJyd%WsdfUG0HW5qEXZ}Kd8BI*m2ArWTjFD@S%c88%0lZ3{4?LX?Pf?rd4$u*`
zJD@ptoYo0CN2B#<tRCH|L8R5=Z_X-IV#!B6)#T$f&e?hQ>(PUH^sokzLyx~9OFF#0
z4XY&J?e*mF8vTt4DusA`XO;e~k~%T_1q^4&tTz}-gPsP%ZF;FgO+zIGdWwgaSeSxJ
z67(bwTUeNcN&*z>*bvqeu;(~dHiSX~){g>vjw40OxFQbq+0ceqz_9*gh_iA=%NT8D
z6K%zr;&O2r9e`5C8a9R*yMFrQN_!DInyBqGAZTzn76<FbCKX41#-WXW?^jNTNEXNG
z)rbuzwxUqDE8}G0o{UqUl56qZuX*!GKhq;V<^{O-VGg#rx6Qr0t==^Lne$cCS*xO5
zV0YHzq%_!fd7&zuJKxg$VA3ObUM~KBRjI_;elSE+Kr>UU-4xbR3@w5h1APJ1MbPI#
zT>yO!)OpaOpw5BC9>i*Az3LMT!E9tZqM)$OM4N<4{q5tjDe37(s}EV^yX3d8;1#|~
QT71`<Zp-hYWXw1C2bsrnH~;_u

delta 923
zcmZvaUr19?9LJ}3I#bX^Bi95yrkk71Fv2o>>(BJpZao<F(nFVC+STdQ-XhX;N9W)&
z>pb-!jKRQD9Vr6Ahe1e6*N3=_(6=B6AEMTU9;A@$oT+WG?!!61-}m?V{m$?H_$97?
z>VMf)C$-2DNjAF3V(rn_p}Oo5XJT#Iu%&14H2MhgozH#ggyGyuq~oN&#p~G&qNM=(
z+D9$uE}+Q(wTb&V2z4reJ_LlZL6R-u8xMkdrP-+4%-S?IkFz0IjhPKHC+-7!56IJ7
zuzw4iRcAGqfp}W8@dNDy(XlJki81;D0^AHLv=zrmr1jR-)*!WLE<f$o8vJR;s>9qt
z2hzDxsi#yrUnG%wcY9?_p<Z6R*Ig)np@`Xk?_#NRsZ_dLB$4m#_Ocjpd78@Nq{q|L
zoWOH*7e7H8egFI+bznYlT83lfp(ijt25by;m*JsyZ47dwz($2z&)reTjQ|@FZWVV&
zAQu6J+Edbe1lH}pl$4Z-!2Gs<-M+1)Dl_+B{$_`;w{RNkrwl9Y%#T!A!*(mR?Abih
zIhT(t_#~$~LvFXB@nJAeKcf}h--e-Dd<*gXrOx6BdP23}M~flI)XI1=b6CbxuO=T)
zynB;0w%I<e`Z(to+zS<!1-C4?q@|S9|B?d*@>(&9mH@2)FP%#2l2M+T(5?JbrlWf;
zsk}f({;9!2frI?FQPC8Uz3%bw|D#H7Sk%@l3<-6KwNv<daVZSi5U@ee!oUVV8w93;
zHUKOHnhGYLo>{|p)+dRUct!{mzNKP+cg>$kOZ2M3>asqoVPl7~`mS-75z|{;<B$z6
fi<X<sXoXbx+HJFVR-}<LzLVA}`DuuRd~JUKaT|Z8