public EXALICE_PHASE_NEXT
exalice_phase_next proc near

@@next_end_hp		= word ptr  4
@@explosion_type		= word ptr  6

	push	bp
	mov	bp, sp
	push	si
	mov	si, [bp+@@explosion_type]
	cmp	si, ET_NONE
	jz	short @@set
	call	@boss_explode_small$q16explosion_type_t pascal, si
	cmp	_boss_phase_timed_out, 0
	jnz	short @@set
	mov	_bullet_zap_drop_point_items, 1
	mov	_bullet_zap_active, 1
	call	@boss_items_drop$qv

@@set:
	mov	_boss_phase_timed_out, 1
	inc	_boss_phase
	mov	_boss_phase_frame, 0
	mov	_boss_mode, 0
	mov	_boss_phase_state, 0
	mov	ax, _boss_phase_end_hp
	mov	_boss_hp, ax
	mov	ax, [bp+@@next_end_hp]
	mov	_boss_phase_end_hp, ax
	pop	si
	pop	bp
	retn	4
exalice_phase_next endp