pokecrystal-board/engine/overworld/variables.asm

142 lines
3.1 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
_GetVarAction::
2015-11-19 15:07:20 -08:00
ld a, c
cp NUM_VARS
jr c, .valid
xor a
.valid
ld c, a
ld b, 0
ld hl, .VarActionTable
2015-11-19 15:07:20 -08:00
add hl, bc
add hl, bc
add hl, bc
2015-11-19 15:07:20 -08:00
ld e, [hl]
inc hl
ld d, [hl]
inc hl
ld b, [hl]
ld a, b
and RETVAR_EXECUTE
jr nz, .call
2015-11-19 15:07:20 -08:00
ld a, b
and RETVAR_ADDR_DE
ret nz
ld a, [de]
jr .loadstringbuffer2
2015-11-19 15:07:20 -08:00
.call
2015-11-19 15:07:20 -08:00
call _de_
ret
.loadstringbuffer2
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer2
2015-11-19 15:07:20 -08:00
ld [de], a
ret
.VarActionTable:
; entries correspond to VAR_* constants
; RETVAR_STRBUF2: copy [de] to wStringBuffer2
; RETVAR_ADDR_DE: return address in de
; RETVAR_EXECUTE: call function
dwb wStringBuffer2, RETVAR_STRBUF2
dwb wPartyCount, RETVAR_STRBUF2
dwb .BattleResult, RETVAR_EXECUTE
dwb wBattleType, RETVAR_ADDR_DE
dwb wTimeOfDay, RETVAR_STRBUF2
dwb .CountCaughtMons, RETVAR_EXECUTE
dwb .CountSeenMons, RETVAR_EXECUTE
dwb .CountBadges, RETVAR_EXECUTE
dwb wPlayerState, RETVAR_ADDR_DE
dwb .PlayerFacing, RETVAR_EXECUTE
dwb hHours, RETVAR_STRBUF2
dwb .DayOfWeek, RETVAR_EXECUTE
dwb wMapGroup, RETVAR_STRBUF2
dwb wMapNumber, RETVAR_STRBUF2
dwb .UnownCaught, RETVAR_EXECUTE
dwb wEnvironment, RETVAR_STRBUF2
dwb .BoxFreeSpace, RETVAR_EXECUTE
dwb wBugContestMinsRemaining, RETVAR_STRBUF2
dwb wXCoord, RETVAR_STRBUF2
dwb wYCoord, RETVAR_STRBUF2
dwb wSpecialPhoneCallID, RETVAR_STRBUF2
dwb wNrOfBeatenBattleTowerTrainers, RETVAR_STRBUF2
dwb wKurtApricornQuantity, RETVAR_STRBUF2
dwb wCurCaller, RETVAR_ADDR_DE
dwb wBlueCardBalance, RETVAR_ADDR_DE
dwb wBuenasPassword, RETVAR_ADDR_DE
dwb wKenjiBreakTimer, RETVAR_STRBUF2
dwb NULL, RETVAR_STRBUF2
2015-11-19 15:07:20 -08:00
.CountCaughtMons:
2015-11-19 15:07:20 -08:00
; Caught mons.
2018-01-23 14:39:09 -08:00
ld hl, wPokedexCaught
ld b, wEndPokedexCaught - wPokedexCaught
2015-11-19 15:07:20 -08:00
call CountSetBits
ld a, [wNumSetBits]
jp .loadstringbuffer2
2015-11-19 15:07:20 -08:00
.CountSeenMons:
2015-11-19 15:07:20 -08:00
; Seen mons.
2018-01-23 14:39:09 -08:00
ld hl, wPokedexSeen
ld b, wEndPokedexSeen - wPokedexSeen
2015-11-19 15:07:20 -08:00
call CountSetBits
ld a, [wNumSetBits]
jp .loadstringbuffer2
2015-11-19 15:07:20 -08:00
.CountBadges:
2015-11-19 15:07:20 -08:00
; Number of owned badges.
ld hl, wBadges
2015-11-19 15:07:20 -08:00
ld b, 2
call CountSetBits
ld a, [wNumSetBits]
jp .loadstringbuffer2
2015-11-19 15:07:20 -08:00
.PlayerFacing:
2015-11-19 15:07:20 -08:00
; The direction the player is facing.
2018-01-23 14:39:09 -08:00
ld a, [wPlayerDirection]
2015-11-19 15:07:20 -08:00
and $c
rrca
rrca
jp .loadstringbuffer2
2015-11-19 15:07:20 -08:00
.DayOfWeek:
2015-11-19 15:07:20 -08:00
; The day of the week.
call GetWeekday
jp .loadstringbuffer2
2015-11-19 15:07:20 -08:00
.UnownCaught:
2015-11-19 15:07:20 -08:00
; Number of unique Unown caught.
call .count_unown
2015-11-19 15:07:20 -08:00
ld a, b
jp .loadstringbuffer2
2015-11-19 15:07:20 -08:00
.count_unown
2018-01-23 14:39:09 -08:00
ld hl, wUnownDex
2015-11-19 15:07:20 -08:00
ld b, 0
.loop
ld a, [hli]
and a
ret z
inc b
ld a, b
cp NUM_UNOWN
2015-11-19 15:07:20 -08:00
jr c, .loop
ret
.BoxFreeSpace:
2015-11-19 15:07:20 -08:00
; Remaining slots in the current box.
ld a, BANK(sBoxCount)
call OpenSRAM
2015-11-19 15:07:20 -08:00
ld hl, sBoxCount
ld a, MONS_PER_BOX
sub [hl]
ld b, a
call CloseSRAM
ld a, b
jp .loadstringbuffer2
2015-11-19 15:07:20 -08:00
.BattleResult:
2015-11-19 15:07:20 -08:00
ld a, [wBattleResult]
2018-04-05 08:44:02 -07:00
and $ff ^ BATTLERESULT_BITMASK
jp .loadstringbuffer2