.INCLUDE "definitions.gbasm"
.INCLUDE "init.gbasm"

.MACRODEF HBLANK_WAIT
	LD A, $reg_lcd_controller
	BIT 7, A
	JR Z, =$HBlank_Wait.End
	$HBlank_Wait.loop:
	LD A, $reg_lcd_status
	AND $03
	CP $00
	JR NZ, =$HBlank_Wait.loop
	$HBlank_Wait.End:
.END

.MACRODEF ENABLE_WINDOW_NO_WAIT_HBLANK
	XOR A
	LD $reg_viewport_x, A
	LD $reg_viewport_y, A

	LD A, $palette_bold_font
	LD $reg_bg_palette, A

	LD A, $lcdc_window_enabled
	LD $reg_lcd_controller, A
.END

.MACRODEF ENABLE_WINDOW
	.HBLANK_WAIT
	.ENABLE_WINDOW_NO_WAIT_HBLANK
.END

.MACRODEF DISABLE_WINDOW
	PUSH BC
	LD A, $mem_prepared_viewport_x
	LD B, A
	LD A, $mem_prepared_viewport_y
	LD C, A
	.HBLANK_WAIT
	LD A, B
	LD $reg_viewport_x, A
	LD A, C
	LD $reg_viewport_y, A
	LD A, $palette_normal
	LD $reg_bg_palette, A
	LD A, $lcdc_window_disabled
	LD $reg_lcd_controller, A
	POP BC
.END

.MACRODEF ENABLE_VBLANK_INTERRUPTS
	LD A, $03
	LD $reg_interrupt_enable, A
.END

.MACRODEF RESET_STAT_INTERRUPT
	LD A, $reg_interrupt_flags
	RES 1, A
	LD $reg_interrupt_flags, A
.END

.MACRODEF ENABLE_LYC_INTERRUPT
	.RESET_STAT_INTERRUPT
	LD A, $02
	LD $reg_interrupt_enable, A
	LD A, $40
	LD $reg_lcd_status, A
.END

.MACRODEF DISABLE_LYC_INTERRUPT
	LD A, $reg_interrupt_enable
	RES 1, A
	LD $reg_interrupt_enable, A
.END

Entrypoint:
	CALL =Initialize_RNG
New_Dungeon:
	LD SP, $fffe
	CALL =Dungeon_Generation
	CALL =Initialize_Entities
	CALL =Initialize_Objects
	CALL =Load_Tile
	CALL =Load_Map
	CALL =Load_Objects

	LD A, $00
	LD $mem_display_flag, A
	.ENABLE_WINDOW_NO_WAIT_HBLANK
	.ENABLE_VBLANK_INTERRUPTS
	EI
	Wait_for_VRAM.loop:
	HALT
	EI
	JP =Wait_for_VRAM.loop

VBLANK_Entrypoint:
	.ENABLE_WINDOW_NO_WAIT_HBLANK
	LD HL, $9c00
	LD A, $mem_bunny_health
	CALL =Print_8bit

	LD A, $68
	LD (HL), A

	CALL =Display_Prepared_Block
	CALL =Display_Object
	CALL $OAM_DMA_Transfer_routine

	; LYC
	LD A, $09
	LD $reg_lyc, A
	.ENABLE_LYC_INTERRUPT
	.RESET_STAT_INTERRUPT
	EI

	CALL =Object_Interactions_Check

	CALL =Pad_Button_Check
	CALL =Entities_Actions
	CALL =Update_Animation_Steps

	CALL =Prepare_Scrolling_Map
	CALL =Display_Entities
	.ENABLE_VBLANK_INTERRUPTS
	RET

STAT_Entrypoint:
	PUSH AF
	LD A, $reg_lyc
	CP $09
	JR Z, =STAT_Entrypoint.End_Top_Bar
	LD A, $mem_display_flag
	BIT 0, A
	JR Z, =STAT_Entrypoint.skip_dialogue
	.ENABLE_WINDOW
	STAT_Entrypoint.skip_dialogue:
	.DISABLE_LYC_INTERRUPT
	POP AF
	RET

	STAT_Entrypoint.End_Top_Bar:
	.DISABLE_WINDOW
	LD A, $67
	LD $reg_lyc, A
	.RESET_STAT_INTERRUPT
	POP AF
	RETI

.INCLUDE "tiles.gbasm"
.INCLUDE "rng.gbasm"
.INCLUDE "utils.gbasm"
.INCLUDE "buttons.gbasm"
.INCLUDE "map/loading.gbasm"
.INCLUDE "map/generation.gbasm"
.INCLUDE "map/objects.gbasm"
.INCLUDE "entity/utils.gbasm"
.INCLUDE "entity/init.gbasm"
.INCLUDE "entity/bunny.gbasm"
.INCLUDE "entity/actions.gbasm"
.INCLUDE "entity/collisions.gbasm"
.INCLUDE "entity/display.gbasm"
.INCLUDE "tileset.gbasm"
.INCLUDE "dialogues.gbasm"