Level selection menu: begin main loop, and landmark transitions (movements) data (#12)

engine/menus/intro_menu.asm

@@ -300,6 +300,7 @@ LoadOrRegenerateLuckyIDNumber:
 	jp CloseSRAM
 
 Continue:
+	farcall LevelSelectionMenu
 	farcall TryLoadSaveFile
 	jr c, .FailToLoad
 	call LoadStandardMenuHeader

engine/menus/level_selection_menu.asm

@@ -1,9 +1,6 @@
 LevelSelectionMenu::
-	ldh a, [hInMenu]
-	push af
 	xor a
 	ldh [hInMenu], a
-	xor a
 	ld [wVramState], a
 
 	call ClearBGPalettes
@@ -29,16 +26,85 @@ LevelSelectionMenu::
 	ld b, CGB_LEVEL_SELECTION_MENU
 	call GetCGBLayout ; apply and commit attrmap (takes 4 frames) and pals
 	call SetPalettes
-	call LevelSelectionMenu_InitPlayerSprite
 
 	ld de, MUSIC_GAME_CORNER
 	call PlayMusic
-.loop
-	call DelayFrame
-	jr .loop
+	call DelayFrame ; wait for pal update
 
-	pop af
-	ldh [hInMenu], a
+	ld a, [wLevelSelectionMenuCurrentLandmark]
+	call LevelSelectionMenu_InitPlayerSprite
+
+.main_loop
+	farcall PlaySpriteAnimations
+	call DelayFrame
+	call JoyTextDelay
+	ld hl, hJoyPressed
+	ld a, [hl]
+	bit A_BUTTON_F, a
+	jp nz, .enter_level
+	bit B_BUTTON_F, a
+	jp nz, .exit
+	ld hl, hJoyLast
+	ld a, [hl]
+	bit D_DOWN_F, a
+	jr nz, .pressed_down
+	bit D_UP_F, a
+	jr nz, .pressed_up
+	bit D_LEFT_F, a
+	jr nz, .pressed_left
+	bit D_RIGHT_F, a
+	jr nz, .pressed_right
+	jr .main_loop
+
+.pressed_down
+.pressed_up
+.pressed_left
+.pressed_right
+	jr .main_loop
+
+.enter_level
+	call LevelSelectionMenu_Delay10Frames
+	ld de, SFX_WARP_TO
+	call PlaySFX
+	call LevelSelectionMenu_Delay10Frames
+	call .EnterLevelFadeOut
+	ld c, 10
+	call DelayFrames
+	ld a, $8
+	ld [wMusicFade], a
+	ld a, LOW(MUSIC_NONE)
+	ld [wMusicFadeID], a
+	ld a, HIGH(MUSIC_NONE)
+	ld [wMusicFadeID + 1], a
+	call ClearBGPalettes
+	call ClearTilemap
+	call ClearSprites
+	ld c, 20
+	call DelayFrames
+
+	ld a, [wLevelSelectionMenuCurrentLandmark]
+	ld [wDefaultSpawnpoint], a
+	call LevelSelectionMenu_GetLandmarkSpawnPoint
+	ld a, MAPSETUP_WARP
+	ld [hMapEntryMethod], a
+	xor a
+	ld [wDontPlayMapMusicOnReload], a ; play map music
+	ld [wLinkMode], a
+	ld a, PLAYER_NORMAL
+	ld [wPlayerState], a ; this may need to be set on a per-level basis (e.g. if specific level starts with player in surf state)
+	ld hl, wGameTimerPaused
+	set GAME_TIMER_PAUSED_F, [hl] ; start game timer counter
+	farcall OverworldLoop
+	ret
+
+.EnterLevelFadeOut:
+	ret
+
+.exit
+	call LevelSelectionMenu_Delay10Frames
+	call ClearBGPalettes
+	call ClearTilemap
+	call ClearSprites
 	ret
 
 LevelSelectionMenu_LoadGFX:
@@ -80,6 +146,28 @@ LevelSelectionMenu_InitTilemap:
 	dw LevelSelectionMenuPage4Tilemap
 
 LevelSelectionMenu_InitPlayerSprite:
+	push af
+	depixel 0, 0
+	ld b, SPRITE_ANIM_INDEX_LEVEL_SELECTION_MENU_MALE_WALK_DOWN
+	ld a, [wPlayerGender]
+	bit PLAYERGENDER_FEMALE_F, a
+	jr z, .got_gender
+	ld b, SPRITE_ANIM_INDEX_LEVEL_SELECTION_MENU_FEMALE_WALK_DOWN
+.got_gender
+	ld a, b
+	call InitSpriteAnimStruct
+	ld hl, SPRITEANIMSTRUCT_TILE_ID
+	add hl, bc
+	ld [hl], $00
+	pop af
+	ld e, a
+	call LevelSelectionMenu_GetLandmarkCoords
+	ld hl, SPRITEANIMSTRUCT_XCOORD
+	add hl, bc
+	ld [hl], e
+	ld hl, SPRITEANIMSTRUCT_YCOORD
+	add hl, bc
+	ld [hl], d
 	ret
 
 LevelSelectionMenu_GetLandmarkPage:
@@ -135,6 +223,27 @@ LevelSelectionMenu_GetLandmarkName::
 	pop hl
 	ret
 
+LevelSelectionMenu_GetLandmarkSpawnPoint:
+; Return SPAWN_* (a) of landmark a.
+	push hl
+	ld hl, LevelSelectionMenu_Landmarks + $5
+	ld bc, LevelSelectionMenu_Landmarks.landmark2 - LevelSelectionMenu_Landmarks.landmark1
+	call AddNTimes
+	ld a, [hl]
+	pop hl
+	ret
+
+LevelSelectionMenu_Delay10Frames:
+; Delay 10 frames while playing sprite anims
+	ld a, 10
+.loop
+	push af
+	farcall PlaySpriteAnimations
+	call DelayFrame
+	pop af
+	dec a
+	jr nz, .loop
+	ret
 
 INCLUDE "data/level_selection_menu.asm"