pokered/engine/menu/diploma.asm

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@"
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`DisplayDiploma: ; 566e2 (15:66e2)`
			`call SaveScreenTilesToBuffer2`
			`call GBPalWhiteOutWithDelay3`
			`call ClearScreen`
			`xor a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wUpdateSpritesEnabled], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd730`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`set 6, [hl]`
			`call DisableLCD`
			`ld hl, CircleTile ; $7d88`
Use VRAM constants where applicable. 2014-05-29 08:31:46 +00:00			`ld de, vChars2 + $700`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld bc, $0010`
			`ld a, BANK(CircleTile)`
			`call FarCopyData2`
			`ld hl, wTileMap`
			`ld bc, $1012`
serial/trade/misc 2015-02-07 10:43:08 +00:00			`predef Diploma_TextBoxBorder`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`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`
$U-Fish-PC\Daniel$ Use *Coord instead of FuncCoord Using 'Coord =' doesn't like using wTileMap So use hlCoord, deCoord, bcCoord, aCoord, Coorda, or dwCoord to avoid static addresses 2014-06-25 20:58:27 +00:00			`hlCoord 10, 4`
Use monster struct macros in wram. Rename related labels for consistency. 2014-06-14 11:12:40 +00:00			`ld de, wPlayerName`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaceString`
			`callba Func_44dd`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wOAMBuffer + $01`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`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`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd730`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`res 6, [hl]`
			`call GBPalWhiteOutWithDelay3`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call RestoreScreenTilesAndReloadTilePatterns`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call Delay3`
			`jp GBPalNormal`

			`Func_56777: ; 56777 (15:6777)`
Use monster struct macros in wram. Rename related labels for consistency. 2014-06-14 11:12:40 +00:00			`ld hl, wPlayerName`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`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`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`dw wTileMap + $2d`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dw DiplomaPlayer`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`dw wTileMap + $53`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dw DiplomaEmptyText`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`dw wTileMap + $5f`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dw DiplomaCongrats`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`dw wTileMap + $7a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dw DiplomaGameFreak`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`dw wTileMap + $149`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
			`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@"`