mirror of https://github.com/pret/pokecrystal.git
108 lines
1.4 KiB
NASM
108 lines
1.4 KiB
NASM
|
DisplayCaughtContestMonStats: ; cc000
|
||
|
call ClearBGPalettes
|
||
|
call ClearTileMap
|
||
|
call ClearSprites
|
||
|
call LoadFontsBattleExtra
|
||
|
|
||
|
ld hl, Options
|
||
|
ld a, [hl]
|
||
|
push af
|
||
|
set 4, [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 [wd265], a
|
||
|
call GetPokemonName
|
||
|
ld de, StringBuffer1
|
||
|
hlcoord 1, 2
|
||
|
call PlaceString
|
||
|
|
||
|
ld h, b
|
||
|
ld l, c
|
||
|
ld a, [wContestMonLevel]
|
||
|
ld [TempMonLevel], a
|
||
|
call PrintLevel
|
||
|
|
||
|
ld de, EnemyMonNick
|
||
|
hlcoord 1, 8
|
||
|
call PlaceString
|
||
|
|
||
|
ld h, b
|
||
|
ld l, c
|
||
|
ld a, [EnemyMonLevel]
|
||
|
ld [TempMonLevel], a
|
||
|
call PrintLevel
|
||
|
|
||
|
hlcoord 11, 4
|
||
|
ld de, wContestMonMaxHP
|
||
|
lb bc, 2, 3
|
||
|
call PrintNum
|
||
|
|
||
|
hlcoord 11, 10
|
||
|
ld de, EnemyMonMaxHP
|
||
|
call PrintNum
|
||
|
|
||
|
ld hl, SwitchMonText
|
||
|
call PrintText
|
||
|
|
||
|
pop af
|
||
|
ld [Options], a
|
||
|
|
||
|
call WaitBGMap
|
||
|
ld b, SCGB_DIPLOMA
|
||
|
call GetSGBLayout
|
||
|
call SetPalettes
|
||
|
ret
|
||
|
|
||
|
.Health:
|
||
|
db "HEALTH@"
|
||
|
.Stock:
|
||
|
db " STOCK ", $4a, " @"
|
||
|
.This:
|
||
|
db " THIS ", $4a, " @"
|
||
|
|
||
|
SwitchMonText: ; cc0c2
|
||
|
; Switch #MON?
|
||
|
text_jump UnknownText_0x1c10cf
|
||
|
db "@"
|
||
|
|
||
|
DisplayAlreadyCaughtText: ; cc0c7
|
||
|
call GetPokemonName
|
||
|
ld hl, .AlreadyCaughtText
|
||
|
jp PrintText
|
||
|
|
||
|
.AlreadyCaughtText: ; 0xcc0d0
|
||
|
; You already caught a @ .
|
||
|
text_jump UnknownText_0x1c10dd
|
||
|
db "@"
|
||
|
|
||
|
Predef2F:
|
||
|
Predef38:
|
||
|
Predef39: ; cc0d5
|
||
|
ret
|