pokecrystal-board/engine/events/diploma.asm

_Diploma:
	call PlaceDiplomaOnScreen
	call WaitPressAorB_BlinkCursor
	ret

PlaceDiplomaOnScreen:
	call ClearBGPalettes
	call ClearTilemap
	call ClearSprites
	call DisableLCD
	ld hl, DiplomaGFX
	ld de, vTiles2
	call Decompress
	ld hl, DiplomaPage1Tilemap
	decoord 0, 0
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	call CopyBytes
	ld de, .Player
	hlcoord 2, 5
	call PlaceString
	ld de, .EmptyString
	hlcoord 15, 5
	call PlaceString
	ld de, wPlayerName
	hlcoord 9, 5
	call PlaceString
	ld de, .Certification
	hlcoord 2, 8
	call PlaceString
	call EnableLCD
	call WaitBGMap
	ld b, SCGB_DIPLOMA
	call GetSGBLayout
	call SetPalettes
	call DelayFrame
	ret

.Player:
	db "PLAYER@"

.EmptyString:
	db "@"

.Certification:
	db   "This certifies"
	next "that you have"
	next "completed the"
	next "new #DEX."
	next "Congratulations!"
	db   "@"

PrintDiplomaPage2:
	hlcoord 0, 0
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	ld a, $7f
	call ByteFill
	ld hl, DiplomaPage2Tilemap
	decoord 0, 0
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	call CopyBytes
	ld de, .GameFreak
	hlcoord 8, 0
	call PlaceString
	ld de, .PlayTime
	hlcoord 3, 15
	call PlaceString
	hlcoord 12, 15
	ld de, wGameTimeHours
	lb bc, 2, 4
	call PrintNum
	ld [hl], $67 ; colon
	inc hl
	ld de, wGameTimeMinutes
	lb bc, PRINTNUM_LEADINGZEROS | 1, 2
	call PrintNum
	ret

.PlayTime: db "PLAY TIME@"
.GameFreak: db "GAME FREAK@"

DiplomaGFX:
INCBIN "gfx/diploma/diploma.2bpp.lz"

DiplomaPage1Tilemap:
INCBIN "gfx/diploma/page1.tilemap"

DiplomaPage2Tilemap:
INCBIN "gfx/diploma/page2.tilemap"

	ret ; unused
Remove all address comments 2018-06-24 07:09:41 -07:00			`_Diploma:`
Name all printer functions 2016-05-11 14:16:03 -07:00			`call PlaceDiplomaOnScreen`
Added w3 and w5 labels for misc/mobile_40.asm 2015-11-10 20:23:28 -08:00			`call WaitPressAorB_BlinkCursor`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`PlaceDiplomaOnScreen:`
More splits; map setup labels 2015-11-11 20:38:57 -08:00			`call ClearBGPalettes`
Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 09:30:13 -08:00			`call ClearTilemap`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`call ClearSprites`
			`call DisableLCD`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld hl, DiplomaGFX`
Lowercase v for VRAM addresses 2017-12-28 04:32:33 -08:00			`ld de, vTiles2`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`call Decompress`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld hl, DiplomaPage1Tilemap`
Various annotations Annotated the SGB functions in predef/sgb.asm, and some of the map scripts. Renamed several functions in home. Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these. 2015-07-22 12:57:02 -07:00			`decoord 0, 0`
			`ld bc, SCREEN_WIDTH * SCREEN_HEIGHT`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`call CopyBytes`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld de, .Player`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`hlcoord 2, 5`
			`call PlaceString`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld de, .EmptyString`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`hlcoord 15, 5`
			`call PlaceString`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld de, wPlayerName`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`hlcoord 9, 5`
			`call PlaceString`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld de, .Certification`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`hlcoord 2, 8`
			`call PlaceString`
			`call EnableLCD`
			`call WaitBGMap`
Remaining layout constants 2016-06-06 15:23:00 -07:00			`ld b, SCGB_DIPLOMA`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`call GetSGBLayout`
changed more labels 2015-09-09 16:27:07 -07:00			`call SetPalettes`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`call DelayFrame`
			`ret`

Name all printer functions 2016-05-11 14:16:03 -07:00			`.Player:`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`db "PLAYER@"`

Name all printer functions 2016-05-11 14:16:03 -07:00			`.EmptyString:`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`db "@"`

Name all printer functions 2016-05-11 14:16:03 -07:00			`.Certification:`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`db "This certifies"`
			`next "that you have"`
			`next "completed the"`
			`next "new #DEX."`
			`next "Congratulations!"`
			`db "@"`

Remove all address comments 2018-06-24 07:09:41 -07:00			`PrintDiplomaPage2:`
Various annotations Annotated the SGB functions in predef/sgb.asm, and some of the map scripts. Renamed several functions in home. Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these. 2015-07-22 12:57:02 -07:00			`hlcoord 0, 0`
			`ld bc, SCREEN_WIDTH * SCREEN_HEIGHT`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`ld a, $7f`
			`call ByteFill`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld hl, DiplomaPage2Tilemap`
Various annotations Annotated the SGB functions in predef/sgb.asm, and some of the map scripts. Renamed several functions in home. Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these. 2015-07-22 12:57:02 -07:00			`decoord 0, 0`
			`ld bc, SCREEN_WIDTH * SCREEN_HEIGHT`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`call CopyBytes`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld de, .GameFreak`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`hlcoord 8, 0`
			`call PlaceString`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld de, .PlayTime`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`hlcoord 3, 15`
			`call PlaceString`
			`hlcoord 12, 15`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld de, wGameTimeHours`
Annotation of PrintNum arguments in bc, and radio functions 2015-10-10 14:03:04 -07:00			`lb bc, 2, 4`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`call PrintNum`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld [hl], $67 ; colon`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`inc hl`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld de, wGameTimeMinutes`
Annotation of PrintNum arguments in bc, and radio functions 2015-10-10 14:03:04 -07:00			`lb bc, PRINTNUM_LEADINGZEROS \| 1, 2`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`call PrintNum`
			`ret`

Name all printer functions 2016-05-11 14:16:03 -07:00			`.PlayTime: db "PLAY TIME@"`
			`.GameFreak: db "GAME FREAK@"`
Split out the diploma code. 2015-02-11 14:08:07 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`DiplomaGFX:`
Move some gfx/unknown/ files into meaningful directories 2017-12-09 20:37:08 -08:00			`INCBIN "gfx/diploma/diploma.2bpp.lz"`
Split out the diploma code. 2015-02-11 14:08:07 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`DiplomaPage1Tilemap:`
Move some gfx/unknown/ files into meaningful directories 2017-12-09 20:37:08 -08:00			`INCBIN "gfx/diploma/page1.tilemap"`
Split out the diploma code. 2015-02-11 14:08:07 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`DiplomaPage2Tilemap:`
Move some gfx/unknown/ files into meaningful directories 2017-12-09 20:37:08 -08:00			`INCBIN "gfx/diploma/page2.tilemap"`
Suggested formatting changes 2019-11-03 17:07:25 -08:00
			`ret ; unused`