mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 15:08:23 +00:00
cd649184f5
rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github
107 lines
1.7 KiB
NASM
Executable file
107 lines
1.7 KiB
NASM
Executable file
DisplayDiploma: ; 566e2 (15:66e2)
|
|
call SaveScreenTilesToBuffer2
|
|
call GBPalWhiteOutWithDelay3
|
|
call ClearScreen
|
|
xor a
|
|
ld [wUpdateSpritesEnabled], a
|
|
ld hl, wd730
|
|
set 6, [hl]
|
|
call DisableLCD
|
|
ld hl, CircleTile
|
|
ld de, vChars2 + $700
|
|
ld bc, $0010
|
|
ld a, BANK(CircleTile)
|
|
call FarCopyData2
|
|
ld hl, wTileMap
|
|
ld bc, $1012
|
|
predef Diploma_TextBoxBorder
|
|
ld hl, DiplomaTextPointersAndCoords
|
|
ld c, $5
|
|
.asm_56715
|
|
push bc
|
|
ld a, [hli]
|
|
ld e, a
|
|
ld a, [hli]
|
|
ld d, a
|
|
ld a, [hli]
|
|
push hl
|
|
ld h, [hl]
|
|
ld l, a
|
|
call PlaceString
|
|
pop hl
|
|
inc hl
|
|
pop bc
|
|
dec c
|
|
jr nz, .asm_56715
|
|
hlCoord 10, 4
|
|
ld de, wPlayerName
|
|
call PlaceString
|
|
callba Func_44dd
|
|
ld hl, wOAMBuffer + $01
|
|
ld bc, $8028
|
|
.asm_5673e
|
|
ld a, [hl]
|
|
add $21
|
|
ld [hli], a
|
|
inc hl
|
|
ld a, b
|
|
ld [hli], a
|
|
inc hl
|
|
dec c
|
|
jr nz, .asm_5673e
|
|
call EnableLCD
|
|
callba LoadTrainerInfoTextBoxTiles
|
|
ld b, $8
|
|
call GoPAL_SET
|
|
call Delay3
|
|
call GBPalNormal
|
|
ld a, $90
|
|
ld [$ff48], a
|
|
call WaitForTextScrollButtonPress
|
|
ld hl, wd730
|
|
res 6, [hl]
|
|
call GBPalWhiteOutWithDelay3
|
|
call RestoreScreenTilesAndReloadTilePatterns
|
|
call Delay3
|
|
jp GBPalNormal
|
|
|
|
Func_56777: ; 56777 (15:6777)
|
|
ld hl, wPlayerName
|
|
ld bc, $ff00
|
|
.asm_5677d
|
|
ld a, [hli]
|
|
cp $50
|
|
ret z
|
|
dec c
|
|
jr .asm_5677d
|
|
|
|
DiplomaTextPointersAndCoords: ; 56784 (15:6784)
|
|
dw DiplomaText
|
|
dw wTileMap + $2d
|
|
dw DiplomaPlayer
|
|
dw wTileMap + $53
|
|
dw DiplomaEmptyText
|
|
dw wTileMap + $5f
|
|
dw DiplomaCongrats
|
|
dw wTileMap + $7a
|
|
dw DiplomaGameFreak
|
|
dw wTileMap + $149
|
|
|
|
DiplomaText:
|
|
db $70,"Diploma",$70,"@"
|
|
|
|
DiplomaPlayer:
|
|
db "Player@"
|
|
|
|
DiplomaEmptyText:
|
|
db "@"
|
|
|
|
DiplomaCongrats:
|
|
db "Congrats! This"
|
|
next "diploma certifies"
|
|
next "that you have"
|
|
next "completed your"
|
|
next "#DEX.@"
|
|
|
|
DiplomaGameFreak:
|
|
db "GAME FREAK@"
|