mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-17 02:40:50 +12:00
bd533aa79b
Using 'Coord =' doesn't like using wTileMap So use hlCoord, deCoord, bcCoord, aCoord, Coorda, or dwCoord to avoid static addresses
108 lines
1.7 KiB
NASM
Executable file
108 lines
1.7 KiB
NASM
Executable file
DisplayDiploma: ; 566e2 (15:66e2)
|
|
call SaveScreenTilesToBuffer2
|
|
call GBPalWhiteOutWithDelay3
|
|
call ClearScreen
|
|
xor a
|
|
ld [wcfcb], 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 Func_5ab0
|
|
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 Func_3dbe
|
|
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@"
|