Functional stub of title menus: minor clean up (#17)

engine/menus/intro_menu.asm

@@ -1,30 +1,3 @@
-PrintDayOfWeek:
-	push de
-	ld hl, .Days
-	ld a, b
-	call GetNthString
-	ld d, h
-	ld e, l
-	pop hl
-	call PlaceString
-	ld h, b
-	ld l, c
-	ld de, .Day
-	call PlaceString
-	ret
-
-.Days:
-	db "SUN@"
-	db "MON@"
-	db "TUES@"
-	db "WEDNES@"
-	db "THURS@"
-	db "FRI@"
-	db "SATUR@"
-
-.Day:
-	db "DAY@"
-
 Option:
 	farcall _Option
 	ret
@@ -41,25 +14,16 @@ NewGame:
 	call ClearMenuAndWindowData
 	call InitTime ; set wStartDay through wStartSecond to $00
 	farcall InitGender
-	call .SetPlayerName
+	ld b, NAME_PLAYER
+	ld de, wPlayerName
+	farcall NamingScreen
+	ld de, .DefaultName
+	call InitName
 	farcall AutoSaveGameOutsideOverworld
 	jp GameMenu
 
-.SetPlayerName
+.DefaultName:
-	ld hl, wPlayerName
+	db "DEBUG@@@@@@"
-	ld a, "D"
-	ld [hli], a
-	ld a, "E"
-	ld [hli], a
-	ld a, "B"
-	ld [hli], a
-	ld a, "U"
-	ld [hli], a
-	ld a, "G"
-	ld [hli], a
-	ld a, "@"
-	ld [hl], a
-	ret
 
 ResetWRAM:
 	xor a

engine/menus/titlescreen.asm

@@ -84,18 +84,6 @@ RunTitleScreen:
 	scf
 	ret
 
-UnusedTitlePerspectiveScroll: ; unreferenced
-; Similar behavior to Intro_PerspectiveScrollBG.
-	ldh a, [hVBlankCounter]
-	and $7
-	ret nz
-	ld hl, wLYOverrides + $5f
-	ld a, [hl]
-	dec a
-	ld bc, 2 * SCREEN_WIDTH
-	call ByteFill
-	ret
-
 TitleScreenScene:
 	ld e, a
 	ld d, 0
@@ -113,11 +101,6 @@ TitleScreenScene:
 	dw TitleScreenMain
 	dw TitleScreenEnd
 
-TitleScreenNextScene: ; unreferenced
-	ld hl, wJumptableIndex
-	inc [hl]
-	ret
-
 TitleScreenEntrance:
 ; Animate the logo:
 ; Move each line by 4 pixels until our count hits 0.