mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
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 ; $7d88
|
|
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 ; $6784
|
|
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 ; 0x56725 $ee
|
|
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 ; 0x56747 $f5
|
|
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 ; 0x56782 $f9
|
|
|
|
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@"
|