;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; sprite code JSL
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
print "MAIN ",pc
PHB
PHK
PLB
JSR Main
PLB
print "INIT ",pc
RTL

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; main bullet bill shooter code
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Return:
RTS

Main:
LDA $17AB,x
BNE TimerOn
LDY #$01
PHX
LDX #$0B
.Loop
LDA $14C8,x
BEQ +
LDA $9E,x
CMP #$53
BNE +
LDY #$00
+
DEX
BPL .Loop
PLX

TYA
BEQ Return

LDA #$40
STA $17AB,x
BRA Return

TimerOn:
CMP #$01
BNE Return
STZ $17AB,x

;spawn it
LDA $178B,x
CMP $1C
LDA $1793,x
SBC $1D
BNE Return
LDA $179B,x
CMP $1A
LDA $17A3,x
SBC $1B
BNE Return
LDA $179B,x
SEC
SBC $1A
CLC
ADC #$10
CMP #$10
BCC Return
JSL $02A9DE
BMI Return

Generate:
LDA #$09
STA $1DFC
LDA #$53
STA $009E,y
LDA $179B,x
STA $00E4,y
LDA $17A3,x
STA $14E0,y
LDA $178B,x
STA $00D8,y
LDA $1793,x
STA $14D4,y
PHX
TYX
JSL $07F7D2
PLX
LDA #$09
STA $14C8,y

LDA $00
PHA

LDA $1783,x
AND #$40
BEQ LEFT

LDA $178B,x
AND #$10
BNE SHOOT_UP2
LDA #$03
BRA STORE
SHOOT_UP2:
LDA #$03
BRA STORE

LEFT:
LDA $178B,x
AND #$10
BNE SHOOT_UP
LDA #$01
BRA STORE
SHOOT_UP:
LDA #$01
STORE:
STA $00C2,y
STA $00
JSR DrawSmoke
PLA
STA $00

RETURN:
RTS

;==================================================================
;Draw Smoke
;==================================================================

DrawSmoke: LDY #$03 ; \ find a free slot to display effect
FINDFREE: LDA $17C0,y ; |
BEQ FOUNDONE ; |
DEY ; |
BPL FINDFREE ; |
RTS ; / return if no slots open

FOUNDONE: LDA #$01 ; \ set effect graphic to smoke graphic
STA $17C0,y ; /
LDA #$1B ; \ set time to show smoke
STA $17CC,y ; /
LDA $178B,x ; \ smoke y position = generator y position
STA $17C4,y ; /
LDA $179B,x ; \ load generator x position and store it for later
STA $17C8,y ; /
RTS