pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2024-09-09 09:51:34 -07:00
Code Issues Packages Projects Releases Wiki Activity

Rename the concept of Money to Coins (#7)

Browse Source
This commit is contained in:
xCrystal 2023-09-02 23:16:35 +02:00
parent 5d95ff952a
commit eb728d5151
35 changed files with 372 additions and 370 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
constants/engine_flags.asm
View File

@ -11,8 +11,8 @@
const ENGINE_DAY_CARE_MAN_HAS_MON
; wDayCareLady
const ENGINE_DAY_CARE_LADY_HAS_MON
; wMomSavingMoney
const ENGINE_MOM_SAVING_MONEY
; wMomSavingCoins
const ENGINE_MOM_SAVING_COINS
const ENGINE_MOM_ACTIVE
; wStatusFlags
const ENGINE_POKEDEX

8
constants/misc_constants.asm
View File

@ -34,10 +34,10 @@ DEF NOON_HOUR EQU 12 ; 12 PM
DEF MAX_DAYS EQU 36 * 7 ; 252
; significant money values
DEF START_MONEY EQU 3000
DEF MOM_MONEY EQU 2300
DEF MAX_MONEY EQU 999999
; significant coins values
DEF START_COINS EQU 3000
DEF MOM_COINS EQU 2300
DEF MAX_COINS EQU 999999
DEF MAX_CHIPS EQU 9999
; link record

8
constants/script_constants.asm
View File

@ -11,12 +11,12 @@ DEF NUM_STRING_BUFFERS EQU const_value
DEF STRING_BUFFER_LENGTH EQU 19
; checkmoney/takemoney accounts
; checkcoins/takecoins accounts
const_def
const YOUR_MONEY ; 0
const MOMS_MONEY ; 1
const YOUR_COINS ; 0
const MOMS_COINS ; 1
; checkmoney/checkchips return values
; checkcoins/checkchips return values
const_def
const HAVE_MORE ; 0
const HAVE_AMOUNT ; 1

4
constants/text_constants.asm
View File

@ -36,12 +36,12 @@ DEF OW_TEXTBOX_FRAME_TILES EQU 14
; PrintNum bit flags
const_def 5
const PRINTNUM_MONEY_F ; 5
const PRINTNUM_COINS_F ; 5
const PRINTNUM_LEFTALIGN_F ; 6
const PRINTNUM_LEADINGZEROS_F ; 7
; PrintNum arguments (see engine/math/print_num.asm)
DEF PRINTNUM_MONEY EQU 1 << PRINTNUM_MONEY_F
DEF PRINTNUM_COINS EQU 1 << PRINTNUM_COINS_F
DEF PRINTNUM_LEFTALIGN EQU 1 << PRINTNUM_LEFTALIGN_F
DEF PRINTNUM_LEADINGZEROS EQU 1 << PRINTNUM_LEADINGZEROS_F

2
constants/trainer_data_constants.asm
View File

@ -2,7 +2,7 @@
rsreset
DEF TRNATTR_ITEM1 rb ; 0
DEF TRNATTR_ITEM2 rb ; 1
DEF TRNATTR_BASEMONEY rb ; 2
DEF TRNATTR_BASECOINS rb ; 2
DEF TRNATTR_AI_MOVE_WEIGHTS rw ; 3
DEF TRNATTR_AI_ITEM_SWITCH rw ; 5
DEF NUM_TRAINER_ATTRIBUTES EQU _RS

10
constants/wram_constants.asm
View File

@ -212,13 +212,13 @@ DEF SPAWN_RED EQU 2
const STATUSFLAGS2_REACHED_GOLDENROD_F ; 6
const STATUSFLAGS2_ROCKETS_IN_MAHOGANY_F ; 7
; wMomSavingMoney::
DEF MOM_SAVING_SOME_MONEY_F EQU 0
DEF MOM_SAVING_HALF_MONEY_F EQU 1
DEF MOM_SAVING_ALL_MONEY_F EQU 2
; wMomSavingCoins::
DEF MOM_SAVING_SOME_COINS_F EQU 0
DEF MOM_SAVING_HALF_COINS_F EQU 1
DEF MOM_SAVING_ALL_COINS_F EQU 2
DEF MOM_ACTIVE_F EQU 7
DEF MOM_SAVING_MONEY_MASK EQU (1 << MOM_SAVING_SOME_MONEY_F) | (1 << MOM_SAVING_HALF_MONEY_F) | (1 << MOM_SAVING_ALL_MONEY_F)
DEF MOM_SAVING_COINS_MASK EQU (1 << MOM_SAVING_SOME_COINS_F) | (1 << MOM_SAVING_HALF_COINS_F) | (1 << MOM_SAVING_ALL_COINS_F)
; wJohtoBadges::
const_def

4
data/events/engine_flags.asm
View File

@ -20,8 +20,8 @@ EngineFlags:
engine_flag wDayCareMan, DAYCAREMAN_HAS_MON_F
engine_flag wDayCareLady, DAYCARELADY_HAS_MON_F
engine_flag wMomSavingMoney, MOM_SAVING_SOME_MONEY_F
engine_flag wMomSavingMoney, MOM_ACTIVE_F
engine_flag wMomSavingCoins, MOM_SAVING_SOME_COINS_F
engine_flag wMomSavingCoins, MOM_ACTIVE_F
engine_flag wStatusFlags, STATUSFLAGS_POKEDEX_F
engine_flag wStatusFlags, STATUSFLAGS_UNOWN_DEX_F

4
data/events/special_pointers.asm
View File

@ -85,8 +85,8 @@ SpecialsPointers::
add_special BillsGrandfather
add_special CheckPokerus
add_special DisplayChipCaseBalance
add_special DisplayMoneyAndChipBalance
add_special PlaceMoneyTopRight
add_special DisplayCoinsAndChipBalance
add_special PlaceCoinsTopRight
add_special CheckForLuckyNumberWinners
add_special CheckLuckyNumberShowFlag
add_special ResetLuckyNumberShowFlag

2
data/items/mom_phone.asm
View File

@ -1,5 +1,5 @@
MACRO momitem
; money to trigger, cost, kind, item
; coins to trigger, cost, kind, item
dt \1
dt \2
db \3, \4

6
data/text/battle.asm
View File

@ -1,9 +1,9 @@
BattleText:: ; used only for BANK(BattleText)
BattleText_PlayerPickedUpPayDayMoney:
BattleText_PlayerPickedUpPayDayCoins:
text "<PLAYER> picked up"
line "<COIN>@"
text_decimal wPayDayMoney, 3, 6
text_decimal wPayDayCoins, 3, 6
text "!"
prompt
@ -166,7 +166,7 @@ BattleText_EnemyMonFainted:
line "fainted!"
prompt
GotMoneyForWinningText:
GotCoinsForWinningText:
text "<PLAYER> got <COIN>@"
text_decimal wBattleReward, 3, 6
text_start

42
data/text/common_1.asm
View File

@ -359,9 +359,9 @@ _MomFoundAnItemText::
line "item shopping, so"
prompt
_MomBoughtWithYourMoneyText::
_MomBoughtWithYourCoinsText::
text "I bought it with"
line "your money. Sorry!"
line "your coins. Sorry!"
prompt
_MomItsInPCText::
@ -1553,18 +1553,19 @@ _MomLeavingText1::
line "for you?"
para "I know! I'll save"
line "money for you."
line "coins for you."
para "On a long journey,"
line "money's important."
line "coins are"
cont "important."
para "Do you want me to"
line "save your money?"
line "save your coins?"
done
_MomLeavingText2::
text "OK, I'll take care"
line "of your money."
line "of your coins."
para "<……><……><……>"
prompt
@ -1579,7 +1580,7 @@ _MomLeavingText3::
para "Now, go on!"
done
_MomIsThisAboutYourMoneyText::
_MomIsThisAboutYourCoinsText::
text "Hi! Welcome home!"
line "You're trying very"
cont "hard, I see."
@ -1588,7 +1589,7 @@ _MomIsThisAboutYourMoneyText::
line "room tidy."
para "Or is this about"
line "your money?"
line "your coins?"
done
_MomBankWhatDoYouWantToDoText::
@ -1596,19 +1597,19 @@ _MomBankWhatDoYouWantToDoText::
line "to do?"
done
_MomStoreMoneyText::
_MomStoreCoinsText::
text "How much do you"
line "want to save?"
done
_MomTakeMoneyText::
_MomTakeCoinsText::
text "How much do you"
line "want to take?"
done
_MomSaveMoneyText::
_MomSaveCoinsText::
text "Do you want to"
line "save some money?"
line "save some coins?"
done
_MomHaventSavedThatMuchText::
@ -1631,20 +1632,21 @@ _MomNotEnoughRoomInBankText::
line "that much."
prompt
_MomStartSavingMoneyText::
_MomStartSavingCoinsText::
text "OK, I'll save your"
line "money. Trust me!"
line "coins. Trust me!"
para "<PLAYER>, stick"
line "with it!"
done
_MomStoredMoneyText::
text "Your money's safe"
line "here! Get going!"
_MomStoredCoinsText::
text "Your coins are"
line "safe here! Get"
cont "going!"
done
_MomTakenMoneyText::
_MomTakenCoinsText::
text "<PLAYER>, don't"
line "give up!"
done
@ -1804,9 +1806,9 @@ _HaveNoRoomText::
line "for it."
prompt
_NotEnoughMoneyText::
_NotEnoughCoinsText::
text "You don't have"
line "enough money."
line "enough coins."
prompt
_OhFineThenText::

24
data/text/common_3.asm
View File

@ -380,7 +380,7 @@ _MartFinalPriceText::
text_ram wStringBuffer2
text "(S)"
line "will be <COIN>@"
text_decimal hMoneyTemp, 3, 6
text_decimal hCoinsTemp, 3, 6
text "."
done
@ -409,7 +409,7 @@ _HerbalLadyFinalPriceText::
text_ram wStringBuffer2
text "(S)"
line "will be <COIN>@"
text_decimal hMoneyTemp, 3, 6
text_decimal hCoinsTemp, 3, 6
text "."
done
@ -423,9 +423,9 @@ _HerbalLadyPackFullText::
line "full, dear."
done
_HerbalLadyNoMoneyText::
_HerbalLadyNoCoinsText::
text "Hehehe… You don't"
line "have the money."
line "have the coins."
done
_HerbalLadyComeAgainText::
@ -448,7 +448,7 @@ _BargainShopFinalPriceText::
text_ram wStringBuffer2
text " costs"
line "<COIN>@"
text_decimal hMoneyTemp, 3, 6
text_decimal hCoinsTemp, 3, 6
text ". Want it?"
done
@ -492,7 +492,7 @@ _PharmacyFinalPriceText::
text_ram wStringBuffer2
text "(S)"
line "will cost <COIN>@"
text_decimal hMoneyTemp, 3, 6
text_decimal hCoinsTemp, 3, 6
text "."
done
@ -505,9 +505,9 @@ _PharmacyPackFullText::
line "more space."
done
_PharmacyNoMoneyText::
_PharmacyNoCoinsText::
text "Huh? That's not"
line "enough money."
line "enough coins."
done
_PharmacyComeAgainText::
@ -527,7 +527,7 @@ _MartSellHowManyText::
_MartSellPriceText::
text "I can pay you"
line "<COIN>@"
text_decimal hMoneyTemp, 3, 6
text_decimal hCoinsTemp, 3, 6
text "."
para "Is that OK?"
@ -543,9 +543,9 @@ _MartThanksText::
line "Thank you!"
done
_MartNoMoneyText::
_MartNoCoinsText::
text "You don't have"
line "enough money."
line "enough coins."
done
_MartPackFullText::
@ -569,7 +569,7 @@ _MartAskMoreText::
_MartBoughtText::
text "Got <COIN>@"
text_decimal hMoneyTemp, 3, 6
text_decimal hCoinsTemp, 3, 6
text " for"
line "@"
text_ram wStringBuffer2

4
data/text/std_text.asm
View File

@ -331,9 +331,9 @@ ChipVendor_Buy500ChipsText:
line "are 500 chips."
done
ChipVendor_NotEnoughMoneyText:
ChipVendor_NotEnoughCoinsText:
text "You don't have"
line "enough money."
line "enough coins."
done
ChipVendor_ChipCaseFullText:

10
docs/event_commands.md
View File

@ -123,13 +123,13 @@ Until this document is filled out, the [G/S Scripting Compendium](https://hax.ii
## `$21`: <code>checkitem <i>item_id</i></code>
## `$22`: <code>givemoney <i>account</i>, <i>value</i></code>
## `$22`: <code>givecoins <i>account</i>, <i>value</i></code>
## `$23`: <code>takemoney <i>account</i>, <i>value</i></code>
## `$23`: <code>takecoins <i>account</i>, <i>value</i></code>
## `$24`: <code>checkmoney <i>account</i>, <i>value</i></code>
## `$24`: <code>checkcoins <i>account</i>, <i>value</i></code>
## `$25`: <code>givechips <i>value</i></code>
@ -204,9 +204,9 @@ Until this document is filled out, the [G/S Scripting Compendium](https://hax.ii
## `$3C`: <code>warp <i>map</i>, <i>x</i>, <i>y</i></code>
## `$3D`: <code>getmoney <i>string_buffer</i>, <i>account</i></code>
## `$3D`: <code>getcoins <i>string_buffer</i>, <i>account</i></code>
<code>GetStringBuffer(<i>string_buffer</i>) = PrintNum(GetMoneyAccount(<i>account</i>))</code>
<code>GetStringBuffer(<i>string_buffer</i>) = PrintNum(GetCoinsAccount(<i>account</i>))</code>
## `$3E`: <code>getchips <i>string_buffer</i></code>

72
engine/battle/core.asm
View File

@ -2325,19 +2325,19 @@ WinTrainerBattle:
call PrintWinLossText
.skip_win_loss_text
jp .give_money
jp .give_coins
.give_money
.give_coins
ld a, [wAmuletCoin]
and a
call nz, .DoubleReward
call .CheckMaxedOutMomMoney
call .CheckMaxedOutMomCoins
push af
ld a, FALSE
jr nc, .okay
ld a, [wMomSavingMoney]
and MOM_SAVING_MONEY_MASK
cp (1 << MOM_SAVING_SOME_MONEY_F) | (1 << MOM_SAVING_HALF_MONEY_F)
ld a, [wMomSavingCoins]
and MOM_SAVING_COINS_MASK
cp (1 << MOM_SAVING_SOME_COINS_F) | (1 << MOM_SAVING_HALF_COINS_F)
jr nz, .okay
inc a ; TRUE
@ -2348,7 +2348,7 @@ WinTrainerBattle:
ld a, b
and a
jr z, .loop2
call .AddMoneyToMom
call .AddCoinsToMom
dec c
dec b
jr .loop
@ -2357,7 +2357,7 @@ WinTrainerBattle:
ld a, c
and a
jr z, .done
call .AddMoneyToWallet
call .AddCoinsToWallet
dec c
jr .loop2
@ -2366,8 +2366,8 @@ WinTrainerBattle:
call .DoubleReward
pop af
jr nc, .KeepItAll
ld a, [wMomSavingMoney]
and MOM_SAVING_MONEY_MASK
ld a, [wMomSavingCoins]
and MOM_SAVING_COINS_MASK
jr z, .KeepItAll
ld hl, .SentToMomTexts
dec a
@ -2381,22 +2381,22 @@ WinTrainerBattle:
jp StdBattleTextbox
.KeepItAll:
ld hl, GotMoneyForWinningText
ld hl, GotCoinsForWinningText
jp StdBattleTextbox
.AddMoneyToMom:
.AddCoinsToMom:
push bc
ld hl, wBattleReward + 2
ld de, wMomsMoney + 2
call AddBattleMoneyToAccount
ld de, wMomsCoins + 2
call AddBattleCoinsToAccount
pop bc
ret
.AddMoneyToWallet:
.AddCoinsToWallet:
push bc
ld hl, wBattleReward + 2
ld de, wMoney + 2
call AddBattleMoneyToAccount
ld de, wCoins + 2
call AddBattleCoinsToAccount
pop bc
ret
@ -2420,17 +2420,17 @@ WinTrainerBattle:
dw SentHalfToMomText
dw SentAllToMomText
.CheckMaxedOutMomMoney:
ld hl, wMomsMoney + 2
.CheckMaxedOutMomCoins:
ld hl, wMomsCoins + 2
ld a, [hld]
cp LOW(MAX_MONEY)
cp LOW(MAX_COINS)
ld a, [hld]
sbc HIGH(MAX_MONEY) ; mid
sbc HIGH(MAX_COINS) ; mid
ld a, [hl]
sbc HIGH(MAX_MONEY >> 8)
sbc HIGH(MAX_COINS >> 8)
ret
AddBattleMoneyToAccount:
AddBattleCoinsToAccount:
ld c, 3
and a
push de
@ -2450,17 +2450,17 @@ AddBattleMoneyToAccount:
jr nz, .loop
pop hl
ld a, [hld]
cp LOW(MAX_MONEY)
cp LOW(MAX_COINS)
ld a, [hld]
sbc HIGH(MAX_MONEY) ; mid
sbc HIGH(MAX_COINS) ; mid
ld a, [hl]
sbc HIGH(MAX_MONEY >> 8)
sbc HIGH(MAX_COINS >> 8)
ret c
ld [hl], HIGH(MAX_MONEY >> 8)
ld [hl], HIGH(MAX_COINS >> 8)
inc hl
ld [hl], HIGH(MAX_MONEY) ; mid
ld [hl], HIGH(MAX_COINS) ; mid
inc hl
ld [hl], LOW(MAX_MONEY)
ld [hl], LOW(MAX_COINS)
ret
PlayVictoryMusic:
@ -2476,7 +2476,7 @@ PlayVictoryMusic:
call IsAnyMonHoldingExpShare
pop de
jr nz, .play_music
ld hl, wPayDayMoney
ld hl, wPayDayCoins
ld a, [hli]
or [hl]
jr nz, .play_music
@ -8142,7 +8142,7 @@ CleanUpBattleRAM:
ret
CheckPayDay:
ld hl, wPayDayMoney
ld hl, wPayDayCoins
ld a, [hli]
or [hl]
inc hl
@ -8151,7 +8151,7 @@ CheckPayDay:
ld a, [wAmuletCoin]
and a
jr z, .okay
ld hl, wPayDayMoney + 2
ld hl, wPayDayCoins + 2
sla [hl]
dec hl
rl [hl]
@ -8164,10 +8164,10 @@ CheckPayDay:
ld [hl], a
.okay
ld hl, wPayDayMoney + 2
ld de, wMoney + 2
call AddBattleMoneyToAccount
ld hl, BattleText_PlayerPickedUpPayDayMoney
ld hl, wPayDayCoins + 2
ld de, wCoins + 2
call AddBattleCoinsToAccount
ld hl, BattleText_PlayerPickedUpPayDayCoins
call StdBattleTextbox
ret

2
engine/battle/move_effects/pay_day.asm
View File

@ -11,7 +11,7 @@ BattleCommand_PayDay:
.ok
add a
ld hl, wPayDayMoney + 2
ld hl, wPayDayCoins + 2
add [hl]
ld [hld], a
jr nc, .done

26
engine/events/money.asm → engine/events/coins.asm
View File

@ -1,12 +1,12 @@
GiveMoney::
GiveCoins::
ld a, 3
call AddMoney
ld bc, MaxMoney
call AddCoins
ld bc, MaxCoins
ld a, 3
call CompareMoney
call CompareCoins
jr z, .not_maxed_out
jr c, .not_maxed_out
ld hl, MaxMoney
ld hl, MaxCoins
ld a, [hli]
ld [de], a
inc de
@ -22,14 +22,14 @@ GiveMoney::
and a
ret
MaxMoney:
dt MAX_MONEY
MaxCoins:
dt MAX_COINS
TakeMoney::
TakeCoins::
ld a, 3
call SubtractMoney
call SubtractCoins
jr nc, .okay
; leave with 0 money
; leave with 0 coins
xor a
ld [de], a
inc de
@ -43,7 +43,7 @@ TakeMoney::
and a
ret
CompareMoney::
CompareCoins::
ld a, 3
CompareFunds:
; a: number of bytes
@ -91,7 +91,7 @@ CompareFunds:
pop hl
ret
SubtractMoney:
SubtractCoins:
ld a, 3
SubtractFunds:
; a: number of bytes
@ -126,7 +126,7 @@ SubtractFunds:
pop hl
ret
AddMoney:
AddCoins:
ld a, 3
AddFunds:
; a: number of bytes

32
engine/events/daycare.asm
View File

@ -17,7 +17,7 @@
const DAYCARETEXT_GOT_BACK
const DAYCARETEXT_TOO_SOON
const DAYCARETEXT_PARTY_FULL
const DAYCARETEXT_NOT_ENOUGH_MONEY
const DAYCARETEXT_NOT_ENOUGH_COINS
const DAYCARETEXT_OH_FINE
const DAYCARETEXT_COME_AGAIN
@ -45,7 +45,7 @@ DayCareMan:
call DayCare_AskWithdrawBreedMon
jr c, .print_text
farcall RetrieveMonFromDayCareMan
call DayCare_GetBackMonForMoney
call DayCare_GetBackMonForCoins
ld hl, wDayCareMan
res DAYCAREMAN_HAS_MON_F, [hl]
res DAYCAREMAN_MONS_COMPATIBLE_F, [hl]
@ -83,7 +83,7 @@ DayCareLady:
call DayCare_AskWithdrawBreedMon
jr c, .print_text
farcall RetrieveMonFromDayCareLady
call DayCare_GetBackMonForMoney
call DayCare_GetBackMonForCoins
ld hl, wDayCareLady
res DAYCARELADY_HAS_MON_F, [hl]
ld hl, wDayCareMan
@ -187,7 +187,7 @@ DayCare_AskWithdrawBreedMon:
call PrintDayCareText
call YesNoBox
jr c, .refused
jr .check_money
jr .check_coins
.grew_at_least_one_level
ld a, DAYCARETEXT_GENIUSES
@ -199,11 +199,11 @@ DayCare_AskWithdrawBreedMon:
call YesNoBox
jr c, .refused
.check_money
ld de, wMoney
.check_coins
ld de, wCoins
ld bc, wStringBuffer2 + 2
farcall CompareMoney
jr c, .not_enough_money
farcall CompareCoins
jr c, .not_enough_coins
ld a, [wPartyCount]
cp PARTY_LENGTH
jr nc, .party_full
@ -215,8 +215,8 @@ DayCare_AskWithdrawBreedMon:
scf
ret
.not_enough_money
ld a, DAYCARETEXT_NOT_ENOUGH_MONEY
.not_enough_coins
ld a, DAYCARETEXT_NOT_ENOUGH_COINS
scf
ret
@ -225,10 +225,10 @@ DayCare_AskWithdrawBreedMon:
scf
ret
DayCare_GetBackMonForMoney:
DayCare_GetBackMonForCoins:
ld bc, wStringBuffer2 + 2
ld de, wMoney
farcall TakeMoney
ld de, wCoins
farcall TakeCoins
ld a, DAYCARETEXT_WITHDRAW
call PrintDayCareText
ld a, [wCurPartySpecies]
@ -290,7 +290,7 @@ PrintDayCareText:
dw .GotBackMonText ; 0e
dw .BackAlreadyText ; 0f
dw .HaveNoRoomText ; 10
dw .NotEnoughMoneyText ; 11
dw .NotEnoughCoinsText ; 11
dw .OhFineThenText ; 12
dw .ComeAgainText ; 13
@ -362,8 +362,8 @@ PrintDayCareText:
text_far _HaveNoRoomText
text_end
.NotEnoughMoneyText:
text_far _NotEnoughMoneyText
.NotEnoughCoinsText:
text_far _NotEnoughCoinsText
text_end
.OhFineThenText:

128
engine/events/mom.asm
View File

@ -23,24 +23,24 @@ BankOfMom:
.dw
dw .CheckIfBankInitialized
dw .InitializeBank
dw .IsThisAboutYourMoney
dw .IsThisAboutYourCoins
dw .AccessBankOfMom
dw .StoreMoney
dw .TakeMoney
dw .StopOrStartSavingMoney
dw .StoreCoins
dw .TakeCoins
dw .StopOrStartSavingCoins
dw .JustDoWhatYouCan
dw .AskDST
.CheckIfBankInitialized:
ld a, [wMomSavingMoney]
ld a, [wMomSavingCoins]
bit MOM_ACTIVE_F, a
jr nz, .savingmoneyalready
jr nz, .savingcoinsalready
set MOM_ACTIVE_F, a
ld [wMomSavingMoney], a
ld [wMomSavingCoins], a
ld a, $1
jr .done_0
.savingmoneyalready
.savingcoinsalready
ld a, $2
.done_0
@ -51,25 +51,25 @@ BankOfMom:
ld hl, MomLeavingText1
call PrintText1bpp
call YesNoBox
jr c, .DontSaveMoney
jr c, .DontSaveCoins
ld hl, MomLeavingText2
call PrintText1bpp
ld a, (1 << MOM_ACTIVE_F) | (1 << MOM_SAVING_SOME_MONEY_F)
ld a, (1 << MOM_ACTIVE_F) | (1 << MOM_SAVING_SOME_COINS_F)
jr .done_1
.DontSaveMoney:
.DontSaveCoins:
ld a, 1 << MOM_ACTIVE_F
.done_1
ld [wMomSavingMoney], a
ld [wMomSavingCoins], a
ld hl, MomLeavingText3
call PrintText1bpp
ld a, $8
ld [wJumptableIndex], a
ret
.IsThisAboutYourMoney:
ld hl, MomIsThisAboutYourMoneyText
.IsThisAboutYourCoins:
ld hl, MomIsThisAboutYourCoinsText
call PrintText1bpp
call YesNoBox
jr c, .nope
@ -119,8 +119,8 @@ BankOfMom:
ld [wJumptableIndex], a
ret
.StoreMoney:
ld hl, MomStoreMoneyText
.StoreCoins:
ld hl, MomStoreCoinsText
call PrintText1bpp
xor a
ld hl, wStringBuffer2
@ -141,29 +141,29 @@ BankOfMom:
inc hl
or [hl]
jr z, .CancelDeposit
ld de, wMoney
ld de, wCoins
ld bc, wStringBuffer2
farcall CompareMoney
farcall CompareCoins
jr c, .InsufficientFundsInWallet
ld hl, wStringBuffer2
ld de, wStringBuffer2 + 3
ld bc, 3
call CopyBytes
ld bc, wMomsMoney
ld bc, wMomsCoins
ld de, wStringBuffer2
farcall GiveMoney
farcall GiveCoins
jr c, .NotEnoughRoomInBank
ld bc, wStringBuffer2 + 3
ld de, wMoney
farcall TakeMoney
ld de, wCoins
farcall TakeCoins
ld hl, wStringBuffer2
ld de, wMomsMoney
ld de, wMomsCoins
ld bc, 3
call CopyBytes
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
ld hl, MomStoredMoneyText
ld hl, MomStoredCoinsText
call PrintText1bpp
ld a, $8
jr .done_4
@ -185,8 +185,8 @@ BankOfMom:
ld [wJumptableIndex], a
ret
.TakeMoney:
ld hl, MomTakeMoneyText
.TakeCoins:
ld hl, MomTakeCoinsText
call PrintText1bpp
xor a
ld hl, wStringBuffer2
@ -211,25 +211,25 @@ BankOfMom:
ld de, wStringBuffer2 + 3
ld bc, 3
call CopyBytes
ld de, wMomsMoney
ld de, wMomsCoins
ld bc, wStringBuffer2
farcall CompareMoney
farcall CompareCoins
jr c, .InsufficientFundsInBank
ld bc, wMoney
ld bc, wCoins
ld de, wStringBuffer2
farcall GiveMoney
farcall GiveCoins
jr c, .NotEnoughRoomInWallet
ld bc, wStringBuffer2 + 3
ld de, wMomsMoney
farcall TakeMoney
ld de, wMomsCoins
farcall TakeCoins
ld hl, wStringBuffer2
ld de, wMoney
ld de, wCoins
ld bc, 3
call CopyBytes
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
ld hl, MomTakenMoneyText
ld hl, MomTakenCoinsText
call PrintText1bpp
ld a, $8
jr .done_5
@ -251,22 +251,22 @@ BankOfMom:
ld [wJumptableIndex], a
ret
.StopOrStartSavingMoney:
ld hl, MomSaveMoneyText
.StopOrStartSavingCoins:
ld hl, MomSaveCoinsText
call PrintText1bpp
call YesNoBox
jr c, .StopSavingMoney
ld a, (1 << MOM_ACTIVE_F) | (1 << MOM_SAVING_SOME_MONEY_F)
ld [wMomSavingMoney], a
ld hl, MomStartSavingMoneyText
jr c, .StopSavingCoins
ld a, (1 << MOM_ACTIVE_F) | (1 << MOM_SAVING_SOME_COINS_F)
ld [wMomSavingCoins], a
ld hl, MomStartSavingCoinsText
call PrintText1bpp
ld a, $8
ld [wJumptableIndex], a
ret
.StopSavingMoney:
.StopSavingCoins:
ld a, 1 << MOM_ACTIVE_F
ld [wMomSavingMoney], a
ld [wMomSavingCoins], a
ld a, $7
ld [wJumptableIndex], a
ret
@ -297,22 +297,22 @@ Mom_ContinueMenuSetup:
ld de, Mom_SavedString
call PlaceString
hlcoord 12, 2
ld de, wMomsMoney
lb bc, PRINTNUM_MONEY | 3, 6
ld de, wMomsCoins
lb bc, PRINTNUM_COINS | 3, 6
call PrintNum
hlcoord 1, 4
ld de, Mom_HeldString
call PlaceString
hlcoord 12, 4
ld de, wMoney
lb bc, PRINTNUM_MONEY | 3, 6
ld de, wCoins
lb bc, PRINTNUM_COINS | 3, 6
call PrintNum
hlcoord 1, 6
pop de
call PlaceString
hlcoord 12, 6
ld de, wStringBuffer2
lb bc, PRINTNUM_MONEY | PRINTNUM_LEADINGZEROS | 3, 6
lb bc, PRINTNUM_COINS | PRINTNUM_LEADINGZEROS | 3, 6
call PrintNum
call UpdateSprites
call CopyTilemapAtOnce
@ -342,7 +342,7 @@ Mom_WithdrawDepositMenuJoypad:
call ByteFill
hlcoord 12, 6
ld de, wStringBuffer2
lb bc, PRINTNUM_MONEY | PRINTNUM_LEADINGZEROS | 3, 6
lb bc, PRINTNUM_COINS | PRINTNUM_LEADINGZEROS | 3, 6
call PrintNum
ldh a, [hVBlankCounter]
and $10
@ -405,7 +405,7 @@ Mom_WithdrawDepositMenuJoypad:
ld c, l
ld b, h
ld de, wStringBuffer2
farcall GiveMoney
farcall GiveCoins
ret
.decrementdigit
@ -414,7 +414,7 @@ Mom_WithdrawDepositMenuJoypad:
ld c, l
ld b, h
ld de, wStringBuffer2
farcall TakeMoney
farcall TakeCoins
ret
.getdigitquantity
@ -462,24 +462,24 @@ MomLeavingText3:
text_far _MomLeavingText3
text_end
MomIsThisAboutYourMoneyText:
text_far _MomIsThisAboutYourMoneyText
MomIsThisAboutYourCoinsText:
text_far _MomIsThisAboutYourCoinsText
text_end
MomBankWhatDoYouWantToDoText:
text_far _MomBankWhatDoYouWantToDoText
text_end
MomStoreMoneyText:
text_far _MomStoreMoneyText
MomStoreCoinsText:
text_far _MomStoreCoinsText
text_end
MomTakeMoneyText:
text_far _MomTakeMoneyText
MomTakeCoinsText:
text_far _MomTakeCoinsText
text_end
MomSaveMoneyText:
text_far _MomSaveMoneyText
MomSaveCoinsText:
text_far _MomSaveCoinsText
text_end
MomHaventSavedThatMuchText:
@ -498,16 +498,16 @@ MomNotEnoughRoomInBankText:
text_far _MomNotEnoughRoomInBankText
text_end
MomStartSavingMoneyText:
text_far _MomStartSavingMoneyText
MomStartSavingCoinsText:
text_far _MomStartSavingCoinsText
text_end
MomStoredMoneyText:
text_far _MomStoredMoneyText
MomStoredCoinsText:
text_far _MomStoredCoinsText
text_end
MomTakenMoneyText:
text_far _MomTakenMoneyText
MomTakenCoinsText:
text_far _MomTakenCoinsText
text_end
MomJustDoWhatYouCanText:

58
engine/events/mom_phone.asm
View File

@ -61,37 +61,37 @@ CheckBalance_MomItem2:
jr nc, .nope
call GetItemFromMom
ld a, [hli]
ldh [hMoneyTemp], a
ldh [hCoinsTemp], a
ld a, [hli]
ldh [hMoneyTemp + 1], a
ldh [hCoinsTemp + 1], a
ld a, [hli]
ldh [hMoneyTemp + 2], a
ld de, wMomsMoney
ld bc, hMoneyTemp
farcall CompareMoney
jr nc, .have_enough_money
ldh [hCoinsTemp + 2], a
ld de, wMomsCoins
ld bc, hCoinsTemp
farcall CompareCoins
jr nc, .have_enough_coins
.nope
jr .check_have_2300
.have_enough_money
.have_enough_coins
scf
ret
.check_have_2300
ld hl, hMoneyTemp
ld [hl], HIGH(MOM_MONEY >> 8)
ld hl, hCoinsTemp
ld [hl], HIGH(MOM_COINS >> 8)
inc hl
ld [hl], HIGH(MOM_MONEY) ; mid
ld [hl], HIGH(MOM_COINS) ; mid
inc hl
ld [hl], LOW(MOM_MONEY)
ld [hl], LOW(MOM_COINS)
.loop
ld de, wMomItemTriggerBalance
ld bc, wMomsMoney
farcall CompareMoney
ld bc, wMomsCoins
farcall CompareCoins
jr z, .exact
jr nc, .less_than
call .AddMoney
call .AddCoins
jr .loop
.less_than
@ -99,7 +99,7 @@ CheckBalance_MomItem2:
ret
.exact
call .AddMoney
call .AddCoins
ld a, NUM_MOM_ITEMS_1
call RandomRange
inc a
@ -107,10 +107,10 @@ CheckBalance_MomItem2:
scf
ret
.AddMoney:
.AddCoins:
ld de, wMomItemTriggerBalance
ld bc, hMoneyTemp
farcall AddMoney
ld bc, hCoinsTemp
farcall AddCoins
ret
MomBuysItem_DeductFunds:
@ -118,14 +118,14 @@ MomBuysItem_DeductFunds:
ld de, 3 ; cost
add hl, de
ld a, [hli]
ldh [hMoneyTemp], a
ldh [hCoinsTemp], a
ld a, [hli]
ldh [hMoneyTemp + 1], a
ldh [hCoinsTemp + 1], a
ld a, [hli]
ldh [hMoneyTemp + 2], a
ld de, wMomsMoney
ld bc, hMoneyTemp
farcall TakeMoney
ldh [hCoinsTemp + 2], a
ld de, wMomsCoins
ld bc, hCoinsTemp
farcall TakeCoins
ret
Mom_GiveItemOrDoll:
@ -165,14 +165,14 @@ Mom_GetScriptPointer:
.ItemScript:
writetext MomHiHowAreYouText
writetext MomFoundAnItemText
writetext MomBoughtWithYourMoneyText
writetext MomBoughtWithYourCoinsText
writetext MomItsInPCText
end
.DollScript:
writetext MomHiHowAreYouText
writetext MomFoundADollText
writetext MomBoughtWithYourMoneyText
writetext MomBoughtWithYourCoinsText
writetext MomItsInYourRoomText
end
@ -212,8 +212,8 @@ MomFoundAnItemText:
text_far _MomFoundAnItemText
text_end
MomBoughtWithYourMoneyText:
text_far _MomBoughtWithYourMoneyText
MomBoughtWithYourCoinsText:
text_far _MomBoughtWithYourCoinsText
text_end
MomItsInPCText:

18
engine/events/std_scripts.asm
View File

@ -779,7 +779,7 @@ ChipVendor_IntroScript:
farwritetext ChipVendor_IntroText
.loop
special DisplayMoneyAndChipBalance
special DisplayCoinsAndChipBalance
loadmenu .MenuHeader
verticalmenu
closewindow
@ -790,10 +790,10 @@ ChipVendor_IntroScript:
.Buy50:
checkchips MAX_CHIPS - 50
ifequal HAVE_MORE, .ChipCaseFull
checkmoney YOUR_MONEY, 1000
ifequal HAVE_LESS, .NotEnoughMoney
checkcoins YOUR_COINS, 1000
ifequal HAVE_LESS, .NotEnoughCoins
givechips 50
takemoney YOUR_MONEY, 1000
takecoins YOUR_COINS, 1000
waitsfx
playsound SFX_TRANSACTION
farwritetext ChipVendor_Buy50ChipsText
@ -803,18 +803,18 @@ ChipVendor_IntroScript:
.Buy500:
checkchips MAX_CHIPS - 500
ifequal HAVE_MORE, .ChipCaseFull
checkmoney YOUR_MONEY, 10000
ifequal HAVE_LESS, .NotEnoughMoney
checkcoins YOUR_COINS, 10000
ifequal HAVE_LESS, .NotEnoughCoins
givechips 500
takemoney YOUR_MONEY, 10000
takecoins YOUR_COINS, 10000
waitsfx
playsound SFX_TRANSACTION
farwritetext ChipVendor_Buy500ChipsText
waitbutton
sjump .loop
.NotEnoughMoney:
farwritetext ChipVendor_NotEnoughMoneyText
.NotEnoughCoins:
farwritetext ChipVendor_NotEnoughCoinsText
waitbutton
closetext
end

8
engine/events/whiteout.asm
View File

@ -14,7 +14,7 @@ Script_Whiteout:
special HealParty
checkflag ENGINE_BUG_CONTEST_TIMER
iftrue .bug_contest
callasm HalveMoney
callasm HalveCoins
callasm GetWhiteoutSpawn
farscall Script_AbortBugContest
special WarpToSpawnPoint
@ -42,9 +42,9 @@ BattleBGMap:
call SetPalettes
ret
HalveMoney:
; Halve the player's money.
ld hl, wMoney
HalveCoins:
; Halve the player's coins.
ld hl, wCoins
ld a, [hl]
srl a
ld [hli], a

6
engine/items/buy_sell_toss.asm
View File

@ -187,7 +187,7 @@ Sell_HalvePrice:
BuySell_DisplaySubtotal:
push hl
ld hl, hMoneyTemp
ld hl, hCoinsTemp
ldh a, [hProduct + 1]
ld [hli], a
ldh a, [hProduct + 2]
@ -196,8 +196,8 @@ BuySell_DisplaySubtotal:
ld [hl], a
pop hl
inc hl
ld de, hMoneyTemp
lb bc, PRINTNUM_MONEY | 3, 6
ld de, hCoinsTemp
lb bc, PRINTNUM_COINS | 3, 6
call PrintNum
call WaitBGMap
ret

54
engine/items/mart.asm
View File

@ -1,7 +1,7 @@
const_def
const MARTTEXT_HOW_MANY
const MARTTEXT_COSTS_THIS_MUCH
const MARTTEXT_NOT_ENOUGH_MONEY
const MARTTEXT_NOT_ENOUGH_COINS
const MARTTEXT_BAG_FULL
const MARTTEXT_HERE_YOU_GO
const MARTTEXT_SOLD_OUT
@ -398,7 +398,7 @@ GetMartDialogGroup:
.StandardMartPointers:
dw MartHowManyText
dw MartFinalPriceText
dw MartNoMoneyText
dw MartNoCoinsText
dw MartPackFullText
dw MartThanksText
dw BuyMenuLoop
@ -406,7 +406,7 @@ GetMartDialogGroup:
.HerbShopPointers:
dw HerbalLadyHowManyText
dw HerbalLadyFinalPriceText
dw HerbalLadyNoMoneyText
dw HerbalLadyNoCoinsText
dw HerbalLadyPackFullText
dw HerbalLadyThanksText
dw BuyMenuLoop
@ -422,13 +422,13 @@ GetMartDialogGroup:
.PharmacyPointers:
dw PharmacyHowManyText
dw PharmacyFinalPriceText
dw PharmacyNoMoneyText
dw PharmacyNoCoinsText
dw PharmacyPackFullText
dw PharmacyThanksText
dw BuyMenuLoop
BuyMenuLoop:
farcall PlaceMoneyTopRight
farcall PlaceCoinsTopRight
call UpdateSprites
ld hl, MenuHeader_Buy
call CopyMenuHeader
@ -453,10 +453,10 @@ BuyMenuLoop:
jr c, .cancel
call MartConfirmPurchase
jr c, .cancel
ld de, wMoney
ld bc, hMoneyTemp
ld de, wCoins
ld bc, hCoinsTemp
ld a, 3 ; useless load
call CompareMoney
call CompareCoins
jr c, .insufficient_funds
ld hl, wNumItems
call ReceiveItem
@ -468,9 +468,9 @@ BuyMenuLoop:
ld hl, wBargainShopFlags
call FlagAction
call PlayTransactionSound
ld de, wMoney
ld bc, hMoneyTemp
call TakeMoney
ld de, wCoins
ld bc, hCoinsTemp
call TakeCoins
ld a, MARTTEXT_HERE_YOU_GO
call LoadBuyMenuText
call JoyWaitAorB
@ -492,7 +492,7 @@ BuyMenuLoop:
ret
.insufficient_funds
ld a, MARTTEXT_NOT_ENOUGH_MONEY
ld a, MARTTEXT_NOT_ENOUGH_COINS
call LoadBuyMenuText
call JoyWaitAorB
and a
@ -539,11 +539,11 @@ BargainShopAskPurchaseQuantity:
add hl, de
inc hl
ld a, [hli]
ldh [hMoneyTemp + 2], a
ldh [hCoinsTemp + 2], a
ld a, [hl]
ldh [hMoneyTemp + 1], a
ldh [hCoinsTemp + 1], a
xor a
ldh [hMoneyTemp], a
ldh [hCoinsTemp], a
and a
ret
@ -619,7 +619,7 @@ MenuHeader_Buy:
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
ld c, PRINTNUM_LEADINGZEROS | PRINTNUM_MONEY | 3
ld c, PRINTNUM_LEADINGZEROS | PRINTNUM_COINS | 3
call PrintBCDNumber
ret
@ -643,8 +643,8 @@ HerbalLadyPackFullText:
text_far _HerbalLadyPackFullText
text_end
HerbalLadyNoMoneyText:
text_far _HerbalLadyNoMoneyText
HerbalLadyNoCoinsText:
text_far _HerbalLadyNoCoinsText
text_end
HerbalLadyComeAgainText:
@ -699,8 +699,8 @@ PharmacyPackFullText:
text_far _PharmacyPackFullText
text_end
PharmacyNoMoneyText:
text_far _PharmacyNoMoneyText
PharmacyNoCoinsText:
text_far _PharmacyNoCoinsText
text_end
PharmacyComeAgainText:
@ -765,7 +765,7 @@ SellMenu:
.okay_to_sell
ld hl, MartSellHowManyText
call PrintText1bpp
farcall PlaceMoneyAtTopLeftOfTextbox
farcall PlaceCoinsAtTopLeftOfTextbox
farcall SelectQuantityToSell
call ExitMenu
jr c, .declined
@ -776,9 +776,9 @@ SellMenu:
call PrintTextboxText
call YesNoBox
jr c, .declined
ld de, wMoney
ld bc, hMoneyTemp
call GiveMoney
ld de, wCoins
ld bc, hCoinsTemp
call GiveCoins
ld a, [wMartItemID]
ld hl, wNumItems
call TossItem
@ -789,7 +789,7 @@ SellMenu:
ld hl, MartBoughtText
call PrintTextboxText
call PlayTransactionSound
farcall PlaceMoneyBottomLeft
farcall PlaceCoinsBottomLeft
call JoyWaitAorB
.declined
@ -826,8 +826,8 @@ MartThanksText:
text_far _MartThanksText
text_end
MartNoMoneyText:
text_far _MartNoMoneyText
MartNoCoinsText:
text_far _MartNoCoinsText
text_end
MartPackFullText:

16
engine/math/print_num.asm
View File

@ -5,7 +5,7 @@ _PrintNum::
; The high nybble of the c register specifies how many of the total amount of
; digits will be in front of the decimal point.
; Some extra flags can be given in bits 5-7 of b.
; Bit 5: money if set (unless left-aligned without leading zeros)
; Bit 5: coins if set (unless left-aligned without leading zeros)
; Bit 6: left-aligned if set
; Bit 7: print leading zeros if set
@ -14,11 +14,11 @@ _PrintNum::
bit 5, b
jr z, .main
bit 7, b
jr nz, .moneyflag
jr nz, .coinsflag
bit 6, b
jr z, .main
.moneyflag ; 101xxxxx or 011xxxxx
.coinsflag ; 101xxxxx or 011xxxxx
ld a, "<COIN>"
ld [hli], a
res 5, b ; 100xxxxx or 010xxxxx
@ -150,11 +150,11 @@ _PrintNum::
ld b, a
ldh a, [hPrintNumBuffer + 0]
or c
jr nz, .money
jr nz, .coins
call .PrintLeadingZero
jr .money_leading_zero
jr .coins_leading_zero
.money
.coins
call .PrintCoin
push af
ld a, "0"
@ -164,11 +164,11 @@ _PrintNum::
ldh [hPrintNumBuffer + 0], a
inc e
dec e
jr nz, .money_leading_zero
jr nz, .coins_leading_zero
inc hl
ld [hl], "."
.money_leading_zero
.coins_leading_zero
call .AdvancePointer
call .PrintCoin
ld a, "0"

20
engine/menus/intro_menu.asm
View File

@ -160,24 +160,24 @@ _ResetWRAM:
ld [wChips], a
ld [wChips + 1], a
if START_MONEY >= $10000
ld a, HIGH(START_MONEY >> 8)
if START_COINS >= $10000
ld a, HIGH(START_COINS >> 8)
endc
ld [wMoney], a
ld a, HIGH(START_MONEY) ; mid
ld [wMoney + 1], a
ld a, LOW(START_MONEY)
ld [wMoney + 2], a
ld [wCoins], a
ld a, HIGH(START_COINS) ; mid
ld [wCoins + 1], a
ld a, LOW(START_COINS)
ld [wCoins + 2], a
xor a
ld [wWhichMomItem], a
ld hl, wMomItemTriggerBalance
ld [hl], HIGH(MOM_MONEY >> 8)
ld [hl], HIGH(MOM_COINS >> 8)
inc hl
ld [hl], HIGH(MOM_MONEY) ; mid
ld [hl], HIGH(MOM_COINS) ; mid
inc hl
ld [hl], LOW(MOM_MONEY)
ld [hl], LOW(MOM_COINS)
call InitializeNPCNames

42
engine/menus/menu_2.asm
View File

@ -27,38 +27,38 @@ PlaceMenuItemQuantity:
.done
ret
PlaceMoneyTopRight:
ld hl, MoneyTopRightMenuHeader
PlaceCoinsTopRight:
ld hl, CoinsTopRightMenuHeader
call CopyMenuHeader
jr PlaceMoneyTextbox
jr PlaceCoinsTextbox
PlaceMoneyBottomLeft:
ld hl, MoneyBottomLeftMenuHeader
PlaceCoinsBottomLeft:
ld hl, CoinsBottomLeftMenuHeader
call CopyMenuHeader
jr PlaceMoneyTextbox
jr PlaceCoinsTextbox
PlaceMoneyAtTopLeftOfTextbox:
ld hl, MoneyTopRightMenuHeader
PlaceCoinsAtTopLeftOfTextbox:
ld hl, CoinsTopRightMenuHeader
lb de, 0, 11
call OffsetMenuHeader
PlaceMoneyTextbox:
PlaceCoinsTextbox:
call MenuBox
call MenuBoxCoord2Tile
ld de, SCREEN_WIDTH + 1
add hl, de
ld de, wMoney
lb bc, PRINTNUM_MONEY | 3, 6
ld de, wCoins
lb bc, PRINTNUM_COINS | 3, 6
call PrintNum
ret
MoneyTopRightMenuHeader:
CoinsTopRightMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 11, 0, SCREEN_WIDTH - 1, 2
dw NULL
db 1 ; default option
MoneyBottomLeftMenuHeader:
CoinsBottomLeftMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 11, 8, 13
dw NULL
@ -74,7 +74,7 @@ DisplayChipCaseBalance:
ld de, ChipString
call PlaceString
hlcoord 17, 1
ld de, ShowMoney_TerminatorString
ld de, ShowCoins_TerminatorString
call PlaceString
ld de, wChips
lb bc, 2, 4
@ -82,17 +82,17 @@ DisplayChipCaseBalance:
call PrintNum
ret
DisplayMoneyAndChipBalance:
DisplayCoinsAndChipBalance:
hlcoord 5, 0
ld b, 3
ld c, 13
call Textbox1bpp
hlcoord 6, 1
ld de, MoneyString
ld de, CoinsString
call PlaceString
hlcoord 12, 1
ld de, wMoney
lb bc, PRINTNUM_MONEY | 3, 6
ld de, wCoins
lb bc, PRINTNUM_COINS | 3, 6
call PrintNum
hlcoord 6, 3
ld de, ChipString
@ -103,11 +103,11 @@ DisplayMoneyAndChipBalance:
call PrintNum
ret
MoneyString:
db "MONEY@"
CoinsString:
db "COINS@"
ChipString:
db "CHIP@"
ShowMoney_TerminatorString:
ShowCoins_TerminatorString:
db "@"
StartMenu_PrintSafariGameStatus: ; unreferenced

10
engine/menus/trainer_card.asm
View File

@ -228,7 +228,7 @@ TrainerCard_PrintTopHalfOfCard:
ld d, 5
call TrainerCard_InitBorder
hlcoord 2, 2
ld de, .Name_Money
ld de, .Name_Coins
call PlaceString
hlcoord 2, 4
ld de, .ID_No
@ -241,8 +241,8 @@ TrainerCard_PrintTopHalfOfCard:
lb bc, PRINTNUM_LEADINGZEROS | 2, 5
call PrintNum
hlcoord 7, 6
ld de, wMoney
lb bc, PRINTNUM_MONEY | 3, 6
ld de, wCoins
lb bc, PRINTNUM_COINS | 3, 6
call PrintNum
hlcoord 1, 3
ld de, .HorizontalDivider
@ -254,10 +254,10 @@ TrainerCard_PrintTopHalfOfCard:
predef PlaceGraphic
ret
.Name_Money:
.Name_Coins:
db "NAME/"
next ""
next "MONEY@"
next "COINS@"
.ID_No:
db $27, $28, -1 ; ID NO

56
engine/overworld/scripting.asm
View File

@ -98,9 +98,9 @@ ScriptCommandTable:
dw Script_giveitem ; 1f
dw Script_takeitem ; 20
dw Script_checkitem ; 21
dw Script_givemoney ; 22
dw Script_takemoney ; 23
dw Script_checkmoney ; 24
dw Script_givecoins ; 22
dw Script_takecoins ; 23
dw Script_checkcoins ; 24
dw Script_givechips ; 25
dw Script_takechips ; 26
dw Script_checkchips ; 27
@ -125,7 +125,7 @@ ScriptCommandTable:
dw Script_warpmod ; 3a
dw Script_blackoutmod ; 3b
dw Script_warp ; 3c
dw Script_getmoney ; 3d
dw Script_getcoins ; 3d
dw Script_getchips ; 3e
dw Script_getnum ; 3f
dw Script_getmonname ; 40
@ -1650,9 +1650,9 @@ Script_gettrainerclassname:
ld [wNamedObjectType], a
jr ContinueToGetName
Script_getmoney:
Script_getcoins:
call ResetStringBuffer1
call GetMoneyAccount
call GetCoinsAccount
ld hl, wStringBuffer1
lb bc, PRINTNUM_LEFTALIGN | 3, 6
call PrintNum
@ -1771,24 +1771,24 @@ Script_checkitem:
ld [wScriptVar], a
ret
Script_givemoney:
call GetMoneyAccount
call LoadMoneyAmountToMem
farcall GiveMoney
Script_givecoins:
call GetCoinsAccount
call LoadCoinsAmountToMem
farcall GiveCoins
ret
Script_takemoney:
call GetMoneyAccount
call LoadMoneyAmountToMem
farcall TakeMoney
Script_takecoins:
call GetCoinsAccount
call LoadCoinsAmountToMem
farcall TakeCoins
ret
Script_checkmoney:
call GetMoneyAccount
call LoadMoneyAmountToMem
farcall CompareMoney
Script_checkcoins:
call GetCoinsAccount
call LoadCoinsAmountToMem
farcall CompareCoins
CompareMoneyAction:
CompareCoinsAction:
jr c, .less
jr z, .exact
ld a, HAVE_MORE
@ -1802,16 +1802,16 @@ CompareMoneyAction:
ld [wScriptVar], a
ret
GetMoneyAccount:
GetCoinsAccount:
call GetScriptByte
and a
ld de, wMoney ; YOUR_MONEY
ld de, wCoins ; YOUR_COINS
ret z
ld de, wMomsMoney ; MOMS_MONEY
ld de, wMomsCoins ; MOMS_COINS
ret
LoadMoneyAmountToMem:
ld bc, hMoneyTemp
LoadCoinsAmountToMem:
ld bc, hCoinsTemp
push bc
call GetScriptByte
ld [bc], a
@ -1837,14 +1837,14 @@ Script_takechips:
Script_checkchips:
call LoadChipAmountToMem
farcall CheckChips
jr CompareMoneyAction
jr CompareCoinsAction
LoadChipAmountToMem:
call GetScriptByte
ldh [hMoneyTemp + 1], a
ldh [hCoinsTemp + 1], a
call GetScriptByte
ldh [hMoneyTemp], a
ld bc, hMoneyTemp
ldh [hCoinsTemp], a
ld bc, hCoinsTemp
ret
Script_checktime:

10
home/print_bcd.asm
View File

@ -15,8 +15,8 @@ PrintBCDNumber::
ld b, c ; save flags in b
res PRINTNUM_LEADINGZEROS_F, c
res PRINTNUM_LEFTALIGN_F, c
res PRINTNUM_MONEY_F, c ; c now holds the length
bit PRINTNUM_MONEY_F, b
res PRINTNUM_COINS_F, c ; c now holds the length
bit PRINTNUM_COINS_F, b
jr z, .loop
bit PRINTNUM_LEADINGZEROS_F, b
jr nz, .loop ; skip currency symbol
@ -39,7 +39,7 @@ PrintBCDNumber::
; the string is left-aligned; it needs to be moved back one space
dec hl
.skipLeftAlignmentAdjustment
bit PRINTNUM_MONEY_F, b
bit PRINTNUM_COINS_F, b
jr z, .skipCurrencySymbol
ld [hl], "<COIN>" ; currency symbol
inc hl
@ -58,11 +58,11 @@ PrintBCDDigit::
bit PRINTNUM_LEADINGZEROS_F, b ; have any non-space characters been printed?
jr z, .outputDigit
; if bit 7 is set, then no numbers have been printed yet
bit PRINTNUM_MONEY_F, b
bit PRINTNUM_COINS_F, b
jr z, .skipCurrencySymbol
ld [hl], "<COIN>"
inc hl
res PRINTNUM_MONEY_F, b
res PRINTNUM_COINS_F, b
.skipCurrencySymbol
res PRINTNUM_LEADINGZEROS_F, b ; unset 7 to indicate that a nonzero digit has been reached
.outputDigit

4
macros/legacy.asm
View File

@ -190,8 +190,8 @@ MACRO stringtotext
getstring \2, \1
ENDM
MACRO readmoney
getmoney \2, \1
MACRO readcoins
getcoins \2, \1
ENDM
DEF RAM2MEM EQUS "getnum"

30
macros/scripts/events.asm
View File

@ -225,25 +225,25 @@ MACRO checkitem
db \1 ; item
ENDM
const givemoney_command ; $22
MACRO givemoney
db givemoney_command
const givecoins_command ; $22
MACRO givecoins
db givecoins_command
db \1 ; account
dt \2 ; money
dt \2 ; coins
ENDM
const takemoney_command ; $23
MACRO takemoney
db takemoney_command
const takecoins_command ; $23
MACRO takecoins
db takecoins_command
db \1 ; account
dt \2 ; money
dt \2 ; coins
ENDM
const checkmoney_command ; $24
MACRO checkmoney
db checkmoney_command
const checkcoins_command ; $24
MACRO checkcoins
db checkcoins_command
db \1 ; account
dt \2 ; money
dt \2 ; coins
ENDM
const givechips_command ; $25
@ -407,9 +407,9 @@ MACRO warp
db \3 ; y
ENDM
const getmoney_command ; $3d
MACRO getmoney
db getmoney_command
const getcoins_command ; $3d
MACRO getcoins
db getcoins_command
db \2 ; account
db \1 ; string_buffer
ENDM

2
main.asm
View File

@ -76,7 +76,7 @@ INCLUDE "engine/overworld/spawn_points.asm"
INCLUDE "engine/overworld/map_setup.asm"
INCLUDE "engine/events/pokecenter_pc.asm"
INCLUDE "engine/items/mart.asm"
INCLUDE "engine/events/money.asm"
INCLUDE "engine/events/coins.asm"
INCLUDE "data/items/marts.asm"
INCLUDE "engine/events/mom.asm"
INCLUDE "engine/events/daycare.asm"

2
ram/hram.asm
View File

@ -92,7 +92,7 @@ hCurSpriteOAMFlags:: db
ENDU
UNION
hMoneyTemp:: ds 3
hCoinsTemp:: ds 3
NEXTU
hMGJoypadPressed:: db
hMGJoypadReleased:: db

14
ram/wram.asm
View File

@ -406,7 +406,7 @@ wEnemyItemState:: db
wCurEnemyMoveNum:: db
wEnemyHPAtTimeOfPlayerSwitch:: dw
wPayDayMoney:: ds 3
wPayDayCoins:: ds 3
wSafariMonAngerCount:: db ; unreferenced
wSafariMonEating:: db
@ -2329,13 +2329,13 @@ wStatusFlags2::
; bit 7: rockets in mahogany
db
wMoney:: ds 3
wMomsMoney:: ds 3
wCoins:: ds 3
wMomsCoins:: ds 3
wMomSavingMoney::
; bit 0: saving some money
; bit 1: saving half money (unused)
; bit 2: saving all money (unused)
wMomSavingCoins::
; bit 0: saving some coins
; bit 1: saving half coins (unused)
; bit 2: saving all coins (unused)
; bit 7: active
db