; void pascal near lasers_update(void);
public LASERS_UPDATE
lasers_update	proc near
	push	bp
	mov	bp, sp
	push	si
	push	di
	mov	si, offset _lasers
	xor	di, di
	jmp	@@more?

@@loop:
	cmp	[si+laser_t.mode], LM_NONE
	jz	@@next
	cmp	_bullet_clear_time, 0
	jnz	short @@shootout
	cmp	_bullet_clear_trigger, 0
	jz	short @@switch

@@shootout:
	cmp	[si+laser_t.mode], LM_SHOOTOUT
	jnz	short @@switch
	mov	[si+laser_t.mode], LM_DECAY
	mov	ax, [si+laser_t.shootout_speed]
	cwd
	sub	ax, dx
	sar	ax, 1
	mov	[si+laser_t.shootout_speed], ax

@@switch:
	mov	al, [si+laser_t.mode]
	mov	ah, 0
	dec	ax
	mov	bx, ax
	cmp	bx, 6
	ja	@@age_inc
	add	bx, bx
	jmp	cs:lasers_update_switch[bx]

laser_update_shootout:
	cmp	[si+laser_t.coords.starts_at_distance], (550 shl 4)
	jge	short loc_FC52
	mov	ax, [si+laser_t.shootout_speed]
	add	[si+laser_t.coords.ends_at_distance], ax

loc_FC52:
	mov	ax, [si+laser_t.LASER_age]
	cmp	ax, [si+laser_t.moveout_at_age]
	jl	short loc_FC60
	mov	ax, [si+laser_t.shootout_speed]
	add	[si+laser_t.coords.starts_at_distance], ax

loc_FC60:
	call	laser_hittest pascal, si
	jmp	@@age_inc
; ---------------------------------------------------------------------------

laser_update_fixed_wait_to_grow:
	cmp	[si+laser_t.grow_at_age], 0
	jle	@@age_inc
	mov	ax, [si+laser_t.LASER_age]
	cmp	ax, [si+laser_t.grow_at_age]
	jl	@@age_inc
	inc	[si+laser_t.mode]
	call	snd_se_play pascal, 6
	jmp	@@age_inc
; ---------------------------------------------------------------------------

laser_update_fixed_grow:
	test	byte ptr [si+laser_t.LASER_age], 1
	jz	short @@grow_step
	mov	al, [si+laser_t.coords.LASER_width]
	add	al, 2
	mov	[si+laser_t.coords.LASER_width], al

@@grow_step:
	mov	al, [si+laser_t.coords.LASER_width]
	cmp	al, [si+laser_t.grow_to_width]
	jb	short @@age_inc
	jmp	short @@next_mode
; ---------------------------------------------------------------------------

laser_update_fixed_active:
	call	laser_hittest pascal, si
	cmp	[si+laser_t.shrink_at_age], 0
	jle	short @@age_inc
	mov	ax, [si+laser_t.LASER_age]
	cmp	ax, [si+laser_t.shrink_at_age]
	jl	short @@age_inc

@@next_mode:
	inc	[si+laser_t.mode]
	jmp	short @@age_inc
; ---------------------------------------------------------------------------

laser_update_fixed_shrink:
	test	byte ptr [si+laser_t.LASER_age], 1
	jz	short @@delete?
	mov	al, [si+laser_t.coords.LASER_width]
	add	al, -2
	mov	[si+laser_t.coords.LASER_width], al

@@delete?:
	cmp	[si+laser_t.coords.LASER_width], 1
	jge	short @@age_inc
	jmp	short @@delete
; ---------------------------------------------------------------------------

laser_update_fixed_shrink_and_wait_to_grow:
	test	byte ptr [si+laser_t.LASER_age], 1
	jz	short @@shrink_and_wait_to_grow_step
	mov	al, [si+laser_t.coords.LASER_width]
	add	al, -2
	mov	[si+laser_t.coords.LASER_width], al

@@shrink_and_wait_to_grow_step:
	cmp	[si+laser_t.coords.LASER_width], 1
	jg	short @@age_inc
	mov	[si+laser_t.mode], LM_FIXED_WAIT_TO_GROW
	mov	[si+laser_t.LASER_age], 0
	jmp	short @@age_inc
; ---------------------------------------------------------------------------

laser_update_decay:
	cmp	[si+laser_t.coords.starts_at_distance], (550 shl 4)
	jge	short loc_FCF4
	mov	ax, [si+laser_t.shootout_speed]
	add	[si+laser_t.coords.ends_at_distance], ax

loc_FCF4:
	mov	ax, [si+laser_t.LASER_age]
	cmp	ax, [si+laser_t.moveout_at_age]
	jl	short loc_FD02
	mov	ax, [si+laser_t.shootout_speed]
	add	[si+laser_t.coords.starts_at_distance], ax

loc_FD02:
	mov	al, [si+laser_t.coords.LASER_width]
	add	al, 2
	mov	[si+laser_t.coords.LASER_width], al
	cmp	[si+laser_t.coords.LASER_width], 28
	jb	short @@age_inc

@@delete:
	mov	[si+laser_t.mode], LM_NONE

@@age_inc:
	inc	[si+laser_t.LASER_age]

@@next:
	inc	di
	add	si, size laser_t

@@more?:
	cmp	di, LASER_COUNT
	jl	@@loop
	pop	di
	pop	si
	pop	bp
	retn
lasers_update	endp

; ---------------------------------------------------------------------------
lasers_update_switch	label word
	dw offset laser_update_shootout
	dw offset laser_update_fixed_wait_to_grow
	dw offset laser_update_fixed_grow
	dw offset laser_update_fixed_active
	dw offset laser_update_fixed_shrink
	dw offset laser_update_fixed_shrink_and_wait_to_grow
	dw offset laser_update_decay
; ---------------------------------------------------------------------------

; void pascal near lasers_render(void);
public LASERS_RENDER
lasers_render	proc near

@@radius	= byte ptr -0Ah
@@width_orig	= byte ptr -9
@@end_distance_orig	= word ptr -8
@@draw_y	= word ptr -6
@@draw_x	= word ptr -4
@@i	= word ptr -2

	push	bp
	mov	bp, sp
	sub	sp, 0Ah
	push	si
	push	di
	mov	si, offset _lasers
	mov	[bp+@@i], 0
	jmp	@@more_lasers?
; ---------------------------------------------------------------------------

@@laser_loop:
	cmp	[si+laser_t.mode], LM_NONE
	jz	@@next_laser
	mov	al, [si+laser_t.coords.LASER_width]
	mov	[bp+@@width_orig], al
	mov	[bp+@@radius], al
	push	offset _drawpoint
	push	[si+laser_t.coords.origin.x]
	push	[si+laser_t.coords.origin.y]
	push	(16 shl 4)
	mov	al, [si+laser_t.coords.angle]
	mov	ah, 0
	push	ax
	call	vector2_at
	mov	ax, _drawpoint.x
	sar	ax, 4
	add	ax, 32
	mov	[bp+@@draw_x], ax
	mov	ax, _drawpoint.y
	sar	ax, 4
	add	ax, 16
	mov	[bp+@@draw_y], ax
	cmp	[si+laser_t.mode], LM_DECAY
	jz	@@decay
	cmp	[bp+@@radius], 2
	jnb	short @@draw_outer_circle?
	mov	[bp+@@radius], 2

@@draw_outer_circle?:
	cmp	[si+laser_t.coords.LASER_width], 3
	jb	short @@draw_inner_circle?
	mov	ah, [si+laser_t.LASER_color]
	call	_grcg_setcolor_direct_seg1_raw
	cmp	[si+laser_t.coords.starts_at_distance], (16 shl 4)
	jg	short @@draw_outer_ray?
	push	[bp+@@draw_x]
	push	[bp+@@draw_y]
	mov	al, [bp+@@radius]
	mov	ah, 0
	push	ax
	call	grcg_circlefill
	mov	al, [bp+@@radius]
	add	al, -2
	mov	[bp+@@radius], al

@@draw_outer_ray?:
	cmp	[si+laser_t.coords.ends_at_distance], (2 shl 4)
	jle	short @@draw_inner
	mov	ax, [si+laser_t.coords.ends_at_distance]
	mov	[bp+@@end_distance_orig], ax
	sub	[si+laser_t.coords.ends_at_distance], (2 shl 4)
	lea	ax, [si+laser_t.coords]
	call	laser_render_ray pascal, ax
	mov	ax, [bp+@@end_distance_orig]
	mov	[si+laser_t.coords.ends_at_distance], ax

@@draw_inner:
	cmp	[si+laser_t.coords.LASER_width], 5
	jb	short @@sub_2
	mov	al, [si+laser_t.coords.LASER_width]
	add	al, -4
	jmp	short @@set_inner_width
; ---------------------------------------------------------------------------

@@sub_2:
	mov	al, [si+laser_t.coords.LASER_width]
	add	al, -2

@@set_inner_width:
	mov	[si+laser_t.coords.LASER_width], al

@@draw_inner_circle?:
	mov	ah, 15
	call	_grcg_setcolor_direct_seg1_raw
	cmp	[si+laser_t.coords.starts_at_distance], (16 shl 4)
	jg	short @@draw_inner_ray_or_line?
	push	[bp+@@draw_x]
	push	[bp+@@draw_y]
	mov	al, [bp+@@radius]
	mov	ah, 0
	push	ax
	call	grcg_circlefill

@@draw_inner_ray_or_line?:
	cmp	[si+laser_t.coords.LASER_width], 1
	ja	short @@draw_inner_ray
	push	offset _drawpoint
	push	[si+laser_t.coords.origin.x]
	push	[si+laser_t.coords.origin.y]
	push	[si+laser_t.coords.starts_at_distance]
	mov	al, [si+laser_t.coords.angle]
	mov	ah, 0
	push	ax
	call	vector2_at
	push	offset _laser_line_endpoint
	push	[si+laser_t.coords.origin.x]
	push	[si+laser_t.coords.origin.y]
	push	[si+laser_t.coords.ends_at_distance]
	mov	al, [si+laser_t.coords.angle]
	mov	ah, 0
	push	ax
	call	vector2_at
	mov	ax, _drawpoint.x
	sar	ax, 4
	add	ax, 32
	mov	_drawpoint.x, ax
	mov	ax, _drawpoint.y
	sar	ax, 4
	add	ax, 16
	mov	_drawpoint.y, ax
	mov	ax, _laser_line_endpoint.x
	sar	ax, 4
	add	ax, 32
	mov	_laser_line_endpoint.x, ax
	mov	ax, _laser_line_endpoint.y
	sar	ax, 4
	add	ax, 16
	mov	_laser_line_endpoint.y, ax
	push	_drawpoint.x
	push	_drawpoint.y
	push	_laser_line_endpoint.x
	push	ax
	call	grcg_line
	jmp	@@width_reset
; ---------------------------------------------------------------------------

@@draw_inner_ray:
	lea	ax, [si+laser_t.coords]
	call	laser_render_ray pascal, ax
	or	ax, ax
	jz	@@width_reset
	mov	[si+laser_t.mode], LM_NONE
	jmp	@@width_reset
; ---------------------------------------------------------------------------

@@decay:
	mov	ah, 15
	call	_grcg_setcolor_direct_seg1_raw
	shl	[bp+@@radius], 3
	push	offset _drawpoint
	push	[si+laser_t.coords.origin.x]
	push	[si+laser_t.coords.origin.y]
	mov	al, [bp+@@radius]
	mov	ah, 0
	push	ax
	mov	al, [si+laser_t.coords.angle]
	mov	ah, 0
	add	ax, 64
	push	ax
	call	vector2_at
	xor	di, di
	jmp	@@more_decay_lines?
; ---------------------------------------------------------------------------

@@decay_line_draw:
	push	offset _laser_line_endpoint
	push	_drawpoint.x
	push	_drawpoint.y
	push	[si+laser_t.coords.ends_at_distance]
	mov	al, [si+laser_t.coords.angle]
	mov	ah, 0
	push	ax
	call	vector2_at
	push	offset _drawpoint
	push	_drawpoint.x
	push	_drawpoint.y
	push	[si+laser_t.coords.starts_at_distance]
	mov	al, [si+laser_t.coords.angle]
	mov	ah, 0
	push	ax
	call	vector2_at
	mov	ax, _drawpoint.x
	sar	ax, 4
	add	ax, 32
	mov	_drawpoint.x, ax
	mov	ax, _drawpoint.y
	sar	ax, 4
	add	ax, 16
	mov	_drawpoint.y, ax
	mov	ax, _laser_line_endpoint.x
	sar	ax, 4
	add	ax, 32
	mov	_laser_line_endpoint.x, ax
	mov	ax, _laser_line_endpoint.y
	sar	ax, 4
	add	ax, 16
	mov	_laser_line_endpoint.y, ax
	push	_drawpoint.x
	push	_drawpoint.y
	push	_laser_line_endpoint.x
	push	ax
	call	grcg_line
	push	offset _drawpoint
	push	[si+laser_t.coords.origin.x]
	push	[si+laser_t.coords.origin.y]
	mov	al, [bp+@@radius]
	mov	ah, 0
	push	ax
	mov	al, [si+laser_t.coords.angle]
	mov	ah, 0
	add	ax, (-4 shl 4)
	push	ax
	call	vector2_at
	inc	di

@@more_decay_lines?:
	cmp	di, 2
	jl	@@decay_line_draw

@@width_reset:
	mov	al, [bp+@@width_orig]
	mov	[si+laser_t.coords.LASER_width], al

@@next_laser:
	inc	[bp+@@i]
	add	si, size laser_t

@@more_lasers?:
	cmp	[bp+@@i], LASER_COUNT
	jl	@@laser_loop
	pop	di
	pop	si
	leave
	retn
lasers_render	endp