pokecrystal-board/engine/events/bug_contest/display_stats.asm

106 lines
1.5 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
DisplayCaughtContestMonStats:
call ClearBGPalettes
call ClearTilemap
call ClearSprites
call LoadFontsBattleExtra
2018-01-23 14:39:09 -08:00
ld hl, wOptions
ld a, [hl]
push af
2018-04-05 08:44:02 -07:00
set NO_TEXT_SCROLL, [hl]
hlcoord 0, 0
ld b, 4
ld c, 13
call Textbox1bpp
hlcoord 0, 6
ld b, 4
ld c, 13
call Textbox1bpp
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 [wNamedObjectIndex], a
call GetPokemonName
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer1
hlcoord 1, 2
call PlaceString
ld h, b
ld l, c
ld a, [wContestMonLevel]
2018-01-23 14:39:09 -08:00
ld [wTempMonLevel], a
call PrintLevel
ld de, wEnemyMonNickname
hlcoord 1, 8
call PlaceString
ld h, b
ld l, c
2018-01-23 14:39:09 -08:00
ld a, [wEnemyMonLevel]
ld [wTempMonLevel], a
call PrintLevel
hlcoord 11, 4
ld de, wContestMonMaxHP
lb bc, 2, 3
call PrintNum
hlcoord 11, 10
2018-01-23 14:39:09 -08:00
ld de, wEnemyMonMaxHP
call PrintNum
ld hl, ContestAskSwitchText
call PrintText1bpp
pop af
2018-01-23 14:39:09 -08:00
ld [wOptions], a
call WaitBGMap
ld b, CGB_DIPLOMA
call GetCGBLayout
2024-02-10 15:16:00 -08:00
call SetDefaultBGPAndOBP
ret
.Health:
db "HEALTH@"
.Stock:
db " STOCK <PKMN> @"
.This:
db " THIS <PKMN> @"
ContestAskSwitchText:
text_far _ContestAskSwitchText
text_end
2018-06-24 07:09:41 -07:00
DisplayAlreadyCaughtText:
call GetPokemonName
ld hl, .ContestAlreadyCaughtText
jp PrintText1bpp
.ContestAlreadyCaughtText:
text_far _ContestAlreadyCaughtText
text_end
2018-01-02 06:05:14 -08:00
DummyPredef2F:
DummyPredef38:
2018-06-24 07:09:41 -07:00
DummyPredef39:
ret