dos33fsprogs/ootw/shield.s

; Handle shield

; when pressed, find empty slot?  Up to 3?
; gradually expire, flash when done
; should update the laser range when start/stop
; destroyed by blast.  Weakened by laser?

MAX_SHIELDS	=	3

shield_out:
shield0_out:		.byte $0
shield1_out:		.byte $0
shield2_out:		.byte $0

shield_x:
shield0_x:		.byte $0
shield1_x:		.byte $0
shield2_x:		.byte $0

shield_y:
shield0_y:		.byte $0
shield1_y:		.byte $0
shield2_y:		.byte $0

shield_count:
shield0_count:		.byte $0
shield1_count:		.byte $0
shield2_count:		.byte $0

	;=========================
	; activate_shield
	;=========================

activate_shield:

	lda	SHIELD_OUT
	cmp	#MAX_SHIELDS
	beq	done_activate_shield

	; find slot
	ldx	#0
activate_shield_loop:
	lda	shield_out,X
	beq	found_shield_slot
	inx
	bne	activate_shield_loop	; bra

found_shield_slot:

	; take the slot

	inc	SHIELD_OUT
	inc	shield_out,X

	; reset count

	lda	#0
	sta	shield_count,X

	; set y

	lda	PHYSICIST_Y
	sta	shield_y,X

	; set x
	lda	DIRECTION
	bne	shield_right

shield_left:

	ldy	PHYSICIST_X
	dey
	tya
	sta	shield_x,X

	jmp	done_activate_shield

shield_right:

	lda	PHYSICIST_X
	clc
	adc	#5
	sta	shield_x,X

done_activate_shield:
	rts


	;====================
	; draw shields
	;====================

draw_shields:

	lda	SHIELD_OUT
	beq	done_draw_shields

	ldx	#0

draw_shields_loop:

	lda	shield_out,X
	beq	draw_shields_loop_continue

	lda	shield_x,X
	sta	XPOS
	lda	shield_y,X
	sta	YPOS

	lda	#<shield_high1_sprite
	sta	INL
	lda	#>shield_high1_sprite
	sta	INH

	txa
	pha

	jsr	put_sprite

	pla
	tax

draw_shields_loop_continue:
	inx
	cpx	#MAX_SHIELDS
	bne	draw_shields_loop

done_draw_shields:

	rts



	;===================
	; update shields
	;===================
update_shields:
;	lda	laser0_out
;	beq	done_move_laser

	; slow down laser
;	lda	laser0_count
;	and	#$3
;	bne	no_move_laser

;	lda	laser0_direction
;	bne	move_laser_right

	rts



	;====================
	; init shields
	;====================

init_shields:

	ldx	#0
	stx	SHIELD_OUT
init_shields_loop:

	lda	#0
	sta	shield_out,X

	inx
	cpx	#MAX_SHIELDS
	bne	init_shields_loop

	rts






shield_flash_sprite:
	.byte 1,8
	.byte $f3
	.byte $ff
	.byte $ff
	.byte $ff
	.byte $ff
	.byte $3f
	.byte $AA
	.byte $AA

shield_start_sprite:
	.byte 1,8
	.byte $11
	.byte $11
	.byte $11
	.byte $11
	.byte $11
	.byte $11
	.byte $11
	.byte $11

shield_high1_sprite:
	.byte 1,8
	.byte $BA
	.byte $3A
	.byte $A1
	.byte $A1
	.byte $BA
	.byte $A3
	.byte $BA
	.byte $13

shield_high2_sprite:
	.byte 1,8
	.byte $3A
	.byte $1A
	.byte $3A
	.byte $AA
	.byte $AB
	.byte $3A
	.byte $1B
	.byte $3A

shield_medium1_sprite:
	.byte 1,8
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA

shield_medium2_sprite:
	.byte 1,8
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA

shield_low1_sprite:
	.byte 1,8
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA

shield_low2_sprite:
	.byte 1,8
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA
	.byte $AA