pokecrystal-board/engine/diploma.asm


_Diploma: ; 1dd702
	call PlaceDiplomaOnScreen
	call WaitPressAorB_BlinkCursor
	ret
; 1dd709

PlaceDiplomaOnScreen: ; 1dd709
	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, PlayerName
	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
; 1dd760

.Player:
	db "PLAYER@"

.EmptyString:
	db "@"

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

PrintDiplomaPage2: ; 1dd7ae
	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, GameTimeHours
	lb bc, 2, 4
	call PrintNum
	ld [hl], $67 ; colon
	inc hl
	ld de, GameTimeMinutes
	lb bc, PRINTNUM_LEADINGZEROS | 1, 2
	call PrintNum
	ret
; 1dd7f0

.PlayTime: db "PLAY TIME@"
.GameFreak: db "GAME FREAK@"
; 1dd805

DiplomaGFX: ; 1dd805
INCBIN "gfx/diploma/diploma.2bpp.lz"

DiplomaPage1Tilemap: ; 1ddc4b
INCBIN "gfx/diploma/page1.tilemap"

DiplomaPage2Tilemap: ; 1dddb3
INCBIN "gfx/diploma/page2.tilemap"
Split out the diploma code. 2015-02-11 14:08:07 -08:00
More specials; bank 12 mobile 2015-11-16 19:29:54 -08:00			`_Diploma: ; 1dd702`
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`
			`; 1dd709`

Name all printer functions 2016-05-11 14:16:03 -07:00			`PlaceDiplomaOnScreen: ; 1dd709`
More splits; map setup labels 2015-11-11 20:38:57 -08:00			`call ClearBGPalettes`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`call ClearTileMap`
			`call ClearSprites`
			`call DisableLCD`
Name all printer functions 2016-05-11 14:16:03 -07:00			`ld hl, DiplomaGFX`
Split out the diploma code. 2015-02-11 14:08:07 -08:00			`ld de, VTiles2`
			`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`
			`ld de, PlayerName`
			`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`
			`; 1dd760`

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 "@"`
			`; 1dd7ae`

Name all printer functions 2016-05-11 14:16:03 -07:00			`PrintDiplomaPage2: ; 1dd7ae`
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`
			`ld de, GameTimeHours`
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`
			`ld de, GameTimeMinutes`
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`
			`; 1dd7f0`

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			`; 1dd805`

Name all printer functions 2016-05-11 14:16:03 -07:00			`DiplomaGFX: ; 1dd805`
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
Name all printer functions 2016-05-11 14:16:03 -07:00			`DiplomaPage1Tilemap: ; 1ddc4b`
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
Name all printer functions 2016-05-11 14:16:03 -07:00			`DiplomaPage2Tilemap: ; 1dddb3`
Move some gfx/unknown/ files into meaningful directories 2017-12-09 20:37:08 -08:00			`INCBIN "gfx/diploma/page2.tilemap"`