thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2025-09-17 02:40:50 +12:00
Code Issues Actions Packages Projects Releases Wiki Activity

PP decrement during battle.

Browse source 
hg-commit-id: 7ea8b204a6b9
This commit is contained in:
IIMarckus 2011-12-28 20:28:51 -07:00
parent fa9c66dc63
commit 98de3ed35f
1 changed files with 32 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
pokered.asm
View file

@ -12120,7 +12120,38 @@ Tset17_Block:
INCBIN "baserom.gbc",$67B50,$68000-$67B50 INCBIN "baserom.gbc",$67B50,$68000-$67B50
SECTION "bank1A",DATA,BANK[$1A] SECTION "bank1A",DATA,BANK[$1A]
INCBIN "baserom.gbc",$68000,$6807F-$68000
DecrementPP:
; after using a move, decrement pp in battle and (if not transformed?) in party
ld a,[de]
cp a,STRUGGLE
ret z
ld hl,$D062
ld a,[hli]
and a,7
ret nz
bit 6,[hl]
ret nz
ld hl,$D02D ; PP of first move (in battle)
call .DecrementPP\@
ld a,[$D064]
bit 3,a ; XXX transform status?
ret nz
ld hl,$D188 ; PP of first move (in party)
ld a,[$CC2F] ; which mon in party is active
ld bc,$2C
call AddNTimes
.DecrementPP\@
ld a,[$CC2E] ; which move (0, 1, 2, 3) did we use?
ld c,a
ld b,0
add hl,bc
dec [hl] ; Decrement PP
ret
INCBIN "baserom.gbc",$6802F,$6807F-$6802F
Tset05_GFX: Tset05_GFX:
INCBIN "baserom.gbc",$6807F,$6867F-$6807F INCBIN "baserom.gbc",$6807F,$6867F-$6807F
Tset05_Block: Tset05_Block: