mirror of
https://github.com/pret/pokered.git
synced 2024-10-24 07:25:21 +00:00
47 lines
990 B
NASM
47 lines
990 B
NASM
|
ResetStatusAndHalveMoneyOnBlackout::
|
||
|
; Reset player status on blackout.
|
||
|
xor a
|
||
|
ld [wBattleResult], a
|
||
|
ld [wWalkBikeSurfState], a
|
||
|
ld [wIsInBattle], a
|
||
|
ld [wMapPalOffset], a
|
||
|
ld [wNPCMovementScriptFunctionNum], a
|
||
|
ld [hJoyHeld], a
|
||
|
ld [wNPCMovementScriptPointerTableNum], a
|
||
|
ld [wFlags_0xcd60], a
|
||
|
|
||
|
ld [hMoney], a
|
||
|
ld [hMoney + 1], a
|
||
|
ld [hMoney + 2], a
|
||
|
call HasEnoughMoney
|
||
|
jr c, .lostmoney ; never happens
|
||
|
|
||
|
; Halve the player's money.
|
||
|
ld a, [wPlayerMoney]
|
||
|
ld [hMoney], a
|
||
|
ld a, [wPlayerMoney + 1]
|
||
|
ld [hMoney + 1], a
|
||
|
ld a, [wPlayerMoney + 2]
|
||
|
ld [hMoney + 2], a
|
||
|
xor a
|
||
|
ld [hDivideBCDDivisor], a
|
||
|
ld [hDivideBCDDivisor + 1], a
|
||
|
ld a, 2
|
||
|
ld [hDivideBCDDivisor + 2], a
|
||
|
predef DivideBCDPredef3
|
||
|
ld a, [hDivideBCDQuotient]
|
||
|
ld [wPlayerMoney], a
|
||
|
ld a, [hDivideBCDQuotient + 1]
|
||
|
ld [wPlayerMoney + 1], a
|
||
|
ld a, [hDivideBCDQuotient + 2]
|
||
|
ld [wPlayerMoney + 2], a
|
||
|
|
||
|
.lostmoney
|
||
|
ld hl, wd732
|
||
|
set 2, [hl]
|
||
|
res 3, [hl]
|
||
|
set 6, [hl]
|
||
|
ld a, %11111111
|
||
|
ld [wJoyIgnore], a
|
||
|
predef_jump HealParty
|