From 84f60da57622315e5832336bf40f30eeb66768a4 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Sun, 16 Feb 2025 21:40:22 +0100
Subject: [PATCH] Power works :)

---
 lumber.asm |  64 ++++++++++++++++++++++++++++++++++++++++++++++++++++-
 lumber.xex | Bin 10401 -> 10481 bytes
 2 files changed, 63 insertions(+), 1 deletion(-)

diff --git a/lumber.asm b/lumber.asm
index 1bd15ba..055c762 100644
--- a/lumber.asm
+++ b/lumber.asm
@@ -25,6 +25,7 @@ display = $a000
     .zpvar temp .word = $80
     .zpvar temp2 .word
     .zpvar tempbyte .byte
+    .zpvar PowerValue .byte ; power: 0 - 48
     .zpvar PaddleState .byte
     .zpvar LowCharsetBase .byte
     .zpvar displayposition .word
@@ -67,6 +68,7 @@ lastline_addr
     .by $41
     .wo dl_level
 ;---------------------------------------------------
+Power = power_bar+32+10
 gamescreen_middle
     .ds 32*18   ; 18 lines
 screen_score = gamescreen_middle+6*32+14  
@@ -261,10 +263,12 @@ loop
     bne loop
 right_pressed
     jsr ScoreUp
+    jsr PowerUp
     jsr AnimationR
     jmp loop
 left_pressed
     jsr ScoreUp
+    jsr PowerDown
     jsr AnimationL
     jmp loop
 
@@ -388,6 +392,8 @@ LevelOver
     JSR AudioInit
     
     jsr draw_branches
+    mva #0 PowerValue
+    jsr draw_PowerBar
     
 /*     ;RMT INIT
     ldx #<MODUL                 ;low byte of RMT module to X reg
@@ -494,6 +500,58 @@ ScoreReady
     rts
 .endp
 ;--------------------------------------------------
+.proc PowerUp
+;--------------------------------------------------
+    inc PowerValue
+    lda PowerValue
+    cmp #49
+    bne not_max_pwr
+    mva #48 PowerValue
+not_max_pwr
+    jsr draw_PowerBar
+    rts
+.endp
+;--------------------------------------------------
+.proc PowerDown
+;--------------------------------------------------
+    dec PowerValue
+    bpl not_min_pwr
+    mva #0 PowerValue
+not_min_pwr
+    jsr draw_PowerBar
+    rts
+.endp
+;--------------------------------------------------
+.proc draw_PowerBar
+;--------------------------------------------------
+    lda PowerValue
+    tay
+    and #%00000011
+    clc
+    adc #PowerChar0
+    tax ; code of last char in bar
+    tya
+    :2 lsr  ; value/4   - number of full char in bar
+    sta tempbyte
+    ldy #0
+    lda #PowerCharFull
+draw_bar_loop
+    cpy tempbyte
+    bne not_last_bar_char
+    ; last char in bar
+    txa
+    sta Power,y
+    lda #PowerCharEmpty ; becouse naxt in bar chars are empty
+    bne next_char
+not_last_bar_char
+    sta Power,y
+next_char
+    iny
+    cpy #12
+    bne draw_bar_loop
+    rts
+.endp
+;--------------------------------------------------
 .proc draw_branches
 ;--------------------------------------------------
     ; branch 0 (off-screen if phase 0)
@@ -809,7 +867,11 @@ branch_addr_tableH
     .by >branch0
     .by >branch1
     .by >branch2
-    
+
+;--------------------------------
+PowerChar0 = $87    ; power bar first (0) character 
+PowerCharFull = $8b
+PowerCharEmpty = PowerChar0    
 ;--------------------------------
 joyToKeyTable
     .by $ff             ;00
diff --git a/lumber.xex b/lumber.xex
index 9e21ace89dccf5aace2b3d7ae37fe8e854c95e13..d9c7eb989c5e3b31a19635e1b92ae6c9ece39ffc 100644
GIT binary patch
delta 820
zcmZva&ubGw6vtyWO-uZdV5^o0$t2ldv8hx<sCx6qHZNNby$I6FDk27Yw*{fGW)iGf
zL`Fdiku)0URJT-m>LJjB)^0B@`4^NPL_^d=Knpt4s07nJ?0fI~KJR^J*_j{vI<|bu
zFRbVSDTRV$>A>NYoBmqw{=(?BkI72G>E9|;@?<2Y%2PUesiEa0b)gWTTN>@=@hWh2
zQbV@JlR5G@Hj(h_wzqN6?ryl9?`Q~67SK0slo2d{1ZaJP=To{tMVu#!IDV;?qAoL-
zpu^_TM5XU-Ut=5nl}>j`XF8>`Z4!Ae4(!R3pKW{3wYC3Po$r(`bV?W7B=TI+*xpZ4
zxVL~!`U^imb4m0Ls0(9MB8OycS_Ml5JLt$XV5(48z*2a5gp~@^Ww2yk_OMchx&#Id
zl!c-Mn}HujS*S`-Y$i4XO{46s#-Vt5kmp;tg6$KIhYoQUFxGLv({co(f*0aKe>%VT
zB$dM1l53jYf0K23W}lMdH17y3Y^?2bJ{y(@jgyPCYxs)@KK?As?u7I`oS_407rwI;
zhUzmN&s67ieE0Rt!_3B7$!W5=78hq+f^)ABta5IZb0yb*<PD!MZT~|fyQ63V&?K<c
z<&rHp?sCTVu(y%Rwye@@esISs+Bwg@jvb2JR;2OR?p>oU^4)fqBcKl{_IC_+vzQbG
zGX_=!%qUn0%m`RvFcDb3T3q1AU{n|kb}3OvC)-MN?+e{gt*pBdLDxxKJ?72f9BY#+
GYVtQ;cvI;B

delta 756
zcmZva&ubGw6vww&n`-@$m~4LSijGY;ZZx@AgsL}xZ1b{F2((^uaM6oF@6l6Z%mg&9
zAXATl7zjAkEf!Bb1ba|$i^$TyK|E<#@emN9&a_m7?Hp#_`@YY7-(#4c<(K8R=R)Fb
zLnPhfGFdqie|IOe89m%C-TGSSx83BocE3gD(pn~Kpw~KDE>Hm-1ys}N1V872tM_%}
z=sZ{=FVgoi?~6{*3po>B!2N~NfWGS`R%XHa91pUFNvCm(<fkhOjUp8+IY(zLCD)fe
zO5Pu|E1maC7yQyizcfQuRpr20Rxqi?`i!ZSYrCeG{P<<Rbj2@S{ZArP)yG=IQ%@Xf
z<EL~BKSN6eR3lRveNh2h0Y`Q-G;Ap_l);vHnqa96!xY#lp6+L93WiBAX}BkLlCTl}
zZT7@L5;~*YMtEfQf`enwxsm6wod9oUnU2r?NWdgtubyll)yKF_&r}8ca3unR>jrKN
z%8LemwAy%H|Fqt9N9^Jbm}Ov&gKwg+#=*5R<GO;MbpDaj-XyvS=q@nlUe^)bK(FrX
zW4qaE?sQ65nL&QLRm^Yjp~;6LpHHck_}*1>nBeBlxGN%3L^bw6g2kj5SaGl=uwr0G
y!IHp^fE5LMax*LPIT#fIlYK4prASKJ)WLbf)$C@#JBcLnKsz187_%~=TH!CjS}I8Z