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

Add macro TX_BCD for printing BCD numbers.

Browse source 
This fixes some more static wram addresses.
This commit is contained in:
yenatch 2014-05-27 11:09:08 -07:00
parent f16f07c5ca
commit ea05c44163
4 changed files with 15 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
macros.asm
View file

@ -131,6 +131,12 @@ TX_RAM: MACRO
dw \1
ENDM
TX_BCD: MACRO
db $2
dw \1
db \2
ENDM
; Predef macro.
PREDEF: MACRO
ld a, (\1 - PredefPointers) / 3

17
text.asm
View file

@ -992,13 +992,13 @@ _HiddenItemBagFullText:: ; 894e1 (22:54e1)
_FoundHiddenCoinsText:: ; 8950b (22:550b)
text $52, " found"
line "@"
db $2, $a0, $ff, $c2 ; XXX $2
TX_BCD $ffa0, $c2
text " coins!@@"
_FoundHiddenCoins2Text:: ; 89523 (22:5523)
text $52, " found"
line "@"
db $2, $a0, $ff, $c2 ; XXX $2 probably coins
TX_BCD $ffa0, $c2
text " coins!@@"
_DroppedHiddenCoinsText:: ; 8953b (22:553b)
@ -1091,8 +1091,7 @@ _EnemyMonFaintedText:: ; 0x896c7
_MoneyForWinningText:: ; 896dd (22:56dd)
text $52, " got ¥@"
;XXX $2
db $2, $79, $d0, $c3
TX_BCD wd079, $c3
db $0
line "for winning!"
prompt
@ -1549,12 +1548,10 @@ _SafariZoneAngryText:: ; 89d6a (22:5d6a)
prompt
; money related
; XXX $2 BCD macro
; $2, pointer, byte
_PickUpPayDayMoneyText:: ; 89d80 (22:5d80)
text $52, " picked up"
line "¥@"
db $2, $e5, $cc, $c3
TX_BCD wcce5, $c3
text "!"
prompt
@ -2468,7 +2465,7 @@ _PokemartTellBuyPriceText:: ; a2619 (28:6619)
text "?"
line "That will be"
cont "¥@"
db $2, $9f, $ff, $c3
TX_BCD $ff9f, $c3
text ". OK?"
done
@ -2495,7 +2492,7 @@ _PokemonSellingGreetingText:: ; a2690 (28:6690)
_PokemartTellSellPriceText:: ; a26ae (28:66ae)
text "I can pay you"
line "¥@"
db $2, $9f, $ff, $c3 ; XXX
TX_BCD $ff9f, $c3
text " for that."
done
@ -2881,7 +2878,7 @@ _PlayedFluteHadEffectText:: ; a6928 (29:6928)
_CoinCaseNumCoinsText:: ; a6940 (29:6940)
text "Coins"
line "@"
db $2, $a4, $d5, $c2 ; print BCD number
TX_BCD wPlayerCoins, $c2
text " "
prompt

2
text/maps/daycare_1.asm
View file

@ -41,7 +41,7 @@ DayCareMText_8ac67:: ; 8ac67 (22:6c67)
_DayCareMText_56428:: ; 8ac7d (22:6c7d)
text "You owe me ¥@"
db $2, $3f, $cd, $c2
TX_BCD wcd3f, $c2
db $0
line "for the return"
cont "of this #MON."

1
wram.asm
View file

@ -368,6 +368,7 @@ wTrainerSpriteOffset:: ; cd3d
wTrainerEngageDistance:: ; cd3e
ds 1
wTrainerFacingDirection:: ; cd3f
wcd3f::
ds 1
wTrainerScreenY:: ; cd40
ds 1