;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Cave-In Generator, by yoshicookiezeus
;;
;; Description: Spawns Cave-In Blocks at random x positions at a set height.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

!BlockNumber = $00 ; sprite number the block sprite is inserted as

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;sprite code JSL
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


print "INIT ",pc
print "MAIN ",pc
PHB
PHK
PLB
JSR SpriteMain
PLB
RTL

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;main sprite code
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SpriteMain:
LDA $14 ;\ if not yet time to spawn new block,
AND #$0F ; |
BNE Return ;/ return

LDA #$20 ;\ shake ground
STA $1887 ;/

JSL $02A9DE ;\ if no empty slots,
BMI Return ;/ return

TYX

LDA #$01 ;\ set sprite state for new sprite
STA $14C8,x ;/

LDA #$A0 ;\ set new sprite y position - THIS LINE CONTROLS THE HEIGHT WHERE THE BLOCKS ARE SPAWNED
STA $D8,x ; |
STZ $14D4,x ;/

JSL $01ACF9 ; random number generation subroutine
REP #$20 ;\ set new sprite y position
LDA $148B ; |
AND #$00FF ; |
CLC ; |
ADC $1A ; |
SEP #$20 ; |
STA $E4,x ; |
XBA ; |
STA $14E0,x ;/

LDA #!BlockNumber ;\ set new sprite number
STA $7FAB9E,x ;/
JSL $07F7D2 ; clear out sprite tables
JSL $0187A7 ; get table values for custom sprite
LDA $148B ;\ set extra bit randomly
AND #$04 ;/
ORA #$88 ;\ mark sprite as custom
STA $7FAB10,x ;/
Return:
RTS

!BlockNumber = $00 ; sprite number the block sprite is inserted as