WINDOW_BORDER_W = 8
WINDOW_BORDER_H = 8
WINDOW_TILE_W = 16
WINDOW_TILE_H = 16


window_dropdown_row	proc near

@@tile_x  	= word ptr -2
@@bottom_y	= word ptr  4
@@left_x  	= word ptr  6

	enter	2, 0
	push	si
	push	di
	mov	si, [bp+@@left_x]
	mov	di, [bp+@@bottom_y]
	push	si
	push	di
	mov	ax, _window_tiles.x
	shl	ax, 4
	push	ax
	push	WINDOW_TILE_H
	call	egc_copy_rect_1_to_0
	call	super_put pascal, si, di, 2
	push	si
	lea	ax, [di+WINDOW_BORDER_H]
	push	ax
	push	6
	call	super_put
	add	si, WINDOW_TILE_W
	mov	[bp+@@tile_x], 1
	jmp	short @@tile_x_more?
; ---------------------------------------------------------------------------

@@tile_x_loop:
	call	super_put pascal, si, di, 0
	push	si
	lea	ax, [di+WINDOW_BORDER_H]
	push	ax
	push	3
	call	super_put
	inc	[bp+@@tile_x]
	add	si, WINDOW_TILE_W

@@tile_x_more?:
	mov	ax, _window_tiles.x
	dec	ax
	cmp	ax, [bp+@@tile_x]
	jg	short @@tile_x_loop
	call	super_put pascal, si, di, 4
	push	si
	lea	ax, [di+WINDOW_BORDER_H]
	push	ax
	push	7
	call	super_put
	pop	di
	pop	si
	leave
	retn	4
window_dropdown_row	endp


window_rollup_row	proc near

@@tile_x  	= word ptr -2
@@bottom_y 	= word ptr  4
@@left_x  	= word ptr  6

	enter	2, 0
	push	si
	push	di
	mov	si, [bp+@@left_x]
	mov	di, [bp+@@bottom_y]
	push	si
	lea	ax, [di+WINDOW_BORDER_H]
	push	ax
	mov	ax, _window_tiles.x
	shl	ax, 4
	push	ax
	push	WINDOW_TILE_H
	call	egc_copy_rect_1_to_0
	call	super_put pascal, si, di, 6
	add	si, WINDOW_TILE_W
	mov	[bp+@@tile_x], 1
	jmp	short @@tile_x_more?
; ---------------------------------------------------------------------------

@@tile_x_loop:
	call	super_put pascal, si, di, 3
	inc	[bp+@@tile_x]
	add	si, WINDOW_TILE_W

@@tile_x_more?:
	mov	ax, _window_tiles.x
	dec	ax
	cmp	ax, [bp+@@tile_x]
	jg	short @@tile_x_loop
	call	super_put pascal, si, di, 7
	pop	di
	pop	si
	leave
	retn	4
window_rollup_row	endp


public WINDOW_DROPDOWN_ANIMATE
window_dropdown_animate	proc near

@@x     	= word ptr -2
@@top_y 	= word ptr  4
@@left_x	= word ptr  6

	enter	2, 0
	push	si
	push	di
	mov	ax, [bp+@@left_x]
	mov	[bp+@@x], ax
	mov	si, [bp+@@top_y]
	call	super_put pascal, ax, si, 5
	add	[bp+@@x], WINDOW_TILE_W
	mov	di, 1
	jmp	short @@top_more?
; ---------------------------------------------------------------------------

@@top_loop:
	call	super_put pascal, [bp+@@x], si, 1
	inc	di
	add	[bp+@@x], WINDOW_TILE_W

@@top_more?:
	mov	ax, _window_tiles.x
	dec	ax
	cmp	ax, di
	jg	short @@top_loop
	call	super_put pascal, [bp+@@x], si, 8
	add	si, WINDOW_TILE_H
	mov	di, 1
	jmp	short @@row_more?
; ---------------------------------------------------------------------------

@@row_loop:
	call	window_dropdown_row pascal, [bp+@@left_x], si
	call	frame_delay pascal, 1
	inc	di
	add	si, WINDOW_BORDER_H

@@row_more?:
	mov	ax, _window_tiles.y
	add	ax, ax
	add	ax, -3
	cmp	ax, di
	jg	short @@row_loop
	pop	di
	pop	si
	leave
	retn	4
window_dropdown_animate	endp


public WINDOW_SINGLELINE
window_singleline	proc near

@@tile_x	= word ptr -2
@@top_y 	= word ptr  4
@@left_x	= word ptr  6

	enter	2, 0
	push	si
	push	di
	mov	si, [bp+@@left_x]
	mov	di, [bp+@@top_y]
	push	si
	push	di
	mov	ax, _window_tiles.x
	shl	ax, 4
	push	ax
	push	WINDOW_BORDER_H + WINDOW_TILE_H + WINDOW_BORDER_H
	call	egc_copy_rect_1_to_0
	call	super_put pascal, si, di, 5
	push	si
	lea	ax, [di+WINDOW_TILE_H]
	push	ax
	push	6
	call	super_put
	add	si, WINDOW_TILE_W
	mov	[bp+@@tile_x], 1
	jmp	short @@tile_x_more?
; ---------------------------------------------------------------------------

@@tile_x_loop:
	call	super_put pascal, si, di, 1
	push	si
	lea	ax, [di+WINDOW_TILE_H]
	push	ax
	push	3
	call	super_put
	inc	[bp+@@tile_x]
	add	si, WINDOW_TILE_W

@@tile_x_more?:
	mov	ax, _window_tiles.x
	dec	ax
	cmp	ax, [bp+@@tile_x]
	jg	short @@tile_x_loop
	call	super_put pascal, si, di, 8
	push	si
	lea	ax, [di+WINDOW_TILE_H]
	push	ax
	push	7
	call	super_put
	pop	di
	pop	si
	leave
	retn	4
window_singleline	endp


public WINDOW_ROLLUP_ANIMATE
window_rollup_animate	proc near

@@top_y 	= word ptr  4
@@left_x	= word ptr  6

	push	bp
	mov	bp, sp
	push	si
	push	di
	mov	si, [bp+@@top_y]
	mov	ax, _window_tiles.y
	shl	ax, 4
	add	ax, -WINDOW_TILE_H
	add	si, ax
	mov	di, 1
	jmp	short @@row_more?
; ---------------------------------------------------------------------------

@@row_loop:
	call	window_rollup_row pascal, [bp+@@left_x], si
	call	frame_delay pascal, 1
	inc	di
	sub	si, WINDOW_BORDER_H

@@row_more?:
	mov	ax, _window_tiles.y
	add	ax, ax
	add	ax, -2
	cmp	ax, di
	jg	short @@row_loop
	pop	di
	pop	si
	pop	bp
	retn	4
window_rollup_animate	endp


SETUP_LINE_H = 16
SETUP_CHOICE_X = 48
SETUP_CHOICE_Y = 136
SETUP_HELP_X = 208
SETUP_HELP_Y = 136

public SETUP_BGM_CHOICE_PUT
setup_bgm_choice_put	proc near

@@str	= dword	ptr -4
@@col	= word ptr  4
@@mode	= word ptr  6

	enter	4, 0
	push	si
	mov	si, SETUP_CHOICE_Y
	mov	ax, [bp+@@mode]
	or	ax, ax
	jz	short @@none
	cmp	ax, SND_BGM_FM26
	jz	short @@fm26
	cmp	ax, SND_BGM_FM86
	jnz	short @@put
	mov	word ptr [bp+@@str+2], ds
	mov	word ptr [bp+@@str], offset aSETUP_BGM_OPTION1
	jmp	short @@put
; ---------------------------------------------------------------------------

@@fm26:
	mov	word ptr [bp+@@str+2], ds
	mov	word ptr [bp+@@str], offset aSETUP_BGM_OPTION2
	add	si, SETUP_LINE_H * 1
	jmp	short @@put
; ---------------------------------------------------------------------------

@@none:
	mov	word ptr [bp+@@str+2], ds
	mov	word ptr [bp+@@str], offset aSETUP_BGM_OPTION3
	add	si, SETUP_LINE_H * 2

@@put:
	call	graph_putsa_fx pascal, SETUP_CHOICE_X, si, [bp+@@col], large [bp+@@str]
	pop	si
	leave
	retn	4
setup_bgm_choice_put	endp


public SETUP_SE_CHOICE_PUT
setup_se_choice_put	proc near

@@str		= dword	ptr -4
@@col		= word ptr  4
@@mode		= word ptr  6

	enter	4, 0
	push	si
	mov	si, SETUP_CHOICE_Y
	mov	ax, [bp+@@mode]
	or	ax, ax
	jz	short @@none
	cmp	ax, SND_SE_FM
	jz	short @@fm
	cmp	ax, SND_SE_BEEP
	jz	short @@beep
	jmp	short @@put
; ---------------------------------------------------------------------------

@@fm:
	mov	word ptr [bp+@@str+2], ds
	mov	word ptr [bp+@@str], offset aSETUP_SE_OPTION1
	jmp	short @@put
; ---------------------------------------------------------------------------

@@beep:
	mov	word ptr [bp+@@str+2], ds
	mov	word ptr [bp+@@str], offset aSETUP_SE_OPTION2
	add	si, SETUP_LINE_H * 1
	jmp	short @@put
; ---------------------------------------------------------------------------

@@none:
	mov	word ptr [bp+@@str+2], ds
	mov	word ptr [bp+@@str], offset aSETUP_SE_OPTION3
	add	si, SETUP_LINE_H * 2

@@put:
	call	graph_putsa_fx pascal, SETUP_CHOICE_X, si, [bp+@@col], large [bp+@@str]
	pop	si
	leave
	retn	4
setup_se_choice_put	endp


public SETUP_BGM_HELP_PUT
setup_bgm_help_put	proc near
	push	bp
	mov	bp, sp
	push	si
	push	di
	mov	di, SETUP_HELP_Y
	xor	si, si
	jmp	short @@more?
; ---------------------------------------------------------------------------

@@put_line:
	push	SETUP_HELP_X
	push	di
	push	15
	mov	bx, si
	shl	bx, 2
	pushd	SETUP_BGM_HELP[bx]
	call	graph_putsa_fx
	inc	si
	add	di, SETUP_LINE_H

@@more?:
	cmp	si, 9
	jl	short @@put_line
	pop	di
	pop	si
	pop	bp
	retn
setup_bgm_help_put	endp


public SETUP_SE_HELP_PUT
setup_se_help_put	proc near
	push	bp
	mov	bp, sp
	push	si
	push	di
	mov	di, SETUP_HELP_Y
	xor	si, si
	jmp	short @@more?
; ---------------------------------------------------------------------------

@@put_line:
	push	SETUP_HELP_X
	push	di
	push	15
	mov	bx, si
	shl	bx, 2
	pushd	SETUP_SE_HELP[bx]
	call	graph_putsa_fx
	inc	si
	add	di, SETUP_LINE_H

@@more?:
	cmp	si, 9
	jl	short @@put_line
	pop	di
	pop	si
	pop	bp
	retn
setup_se_help_put	endp