mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
940256569b
The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`.
108 lines
1.4 KiB
NASM
108 lines
1.4 KiB
NASM
DisplayCaughtContestMonStats:
|
|
call ClearBGPalettes
|
|
call ClearTileMap
|
|
call ClearSprites
|
|
call LoadFontsBattleExtra
|
|
|
|
ld hl, wOptions
|
|
ld a, [hl]
|
|
push af
|
|
set NO_TEXT_SCROLL, [hl]
|
|
|
|
hlcoord 0, 0
|
|
ld b, 4
|
|
ld c, 13
|
|
call TextBox
|
|
|
|
hlcoord 0, 6
|
|
ld b, 4
|
|
ld c, 13
|
|
call TextBox
|
|
|
|
hlcoord 2, 0
|
|
ld de, .Stock
|
|
call PlaceString
|
|
|
|
hlcoord 2, 6
|
|
ld de, .This
|
|
call PlaceString
|
|
|
|
hlcoord 5, 4
|
|
ld de, .Health
|
|
call PlaceString
|
|
|
|
hlcoord 5, 10
|
|
ld de, .Health
|
|
call PlaceString
|
|
|
|
ld a, [wContestMon]
|
|
ld [wNamedObjectIndexBuffer], a
|
|
call GetPokemonName
|
|
ld de, wStringBuffer1
|
|
hlcoord 1, 2
|
|
call PlaceString
|
|
|
|
ld h, b
|
|
ld l, c
|
|
ld a, [wContestMonLevel]
|
|
ld [wTempMonLevel], a
|
|
call PrintLevel
|
|
|
|
ld de, wEnemyMonNick
|
|
hlcoord 1, 8
|
|
call PlaceString
|
|
|
|
ld h, b
|
|
ld l, c
|
|
ld a, [wEnemyMonLevel]
|
|
ld [wTempMonLevel], a
|
|
call PrintLevel
|
|
|
|
hlcoord 11, 4
|
|
ld de, wContestMonMaxHP
|
|
lb bc, 2, 3
|
|
call PrintNum
|
|
|
|
hlcoord 11, 10
|
|
ld de, wEnemyMonMaxHP
|
|
call PrintNum
|
|
|
|
ld hl, SwitchMonText
|
|
call PrintText
|
|
|
|
pop af
|
|
ld [wOptions], a
|
|
|
|
call WaitBGMap
|
|
ld b, SCGB_DIPLOMA
|
|
call GetSGBLayout
|
|
call SetPalettes
|
|
ret
|
|
|
|
.Health:
|
|
db "HEALTH@"
|
|
.Stock:
|
|
db " STOCK <PKMN> @"
|
|
.This:
|
|
db " THIS <PKMN> @"
|
|
|
|
SwitchMonText:
|
|
; Switch #MON?
|
|
text_far UnknownText_0x1c10cf
|
|
db "@"
|
|
|
|
DisplayAlreadyCaughtText:
|
|
call GetPokemonName
|
|
ld hl, .AlreadyCaughtText
|
|
jp PrintText
|
|
|
|
.AlreadyCaughtText:
|
|
; You already caught a @ .
|
|
text_far UnknownText_0x1c10dd
|
|
db "@"
|
|
|
|
DummyPredef2F:
|
|
DummyPredef38:
|
|
DummyPredef39:
|
|
ret
|