;----------------------------------------------------;

; BG Flowers - by Ladida			     ;

; Can be whatever you want, just change the graphics ;

; Edit of Roy's original Spike Hell sprite	     ;

;----------------------------------------------------;



!FlowerTile = $6D	;Tile # of the flower petal





SpeedTableY:

db $01,$02,$01,$02,$01,$02,$01,$02,$01,$02,$01,$02,$01,$02,$01,$02,$01,$02,$01,$02 ; Speed table, per sprite. Amount of pixels to move down each frame. 00 = still, 80-FF = rise, 01-7F = sink.



SpeedTableX:

db $FD,$FF,$FE,$FF,$FD,$FF,$FE,$FF,$FD,$FF,$FE,$FF,$FD,$FF,$FE,$FF,$FD,$FF,$FE,$FF ; Speed table, per sprite. Amount of pixels to move down each frame. 00 = still, 80-FF = rise, 01-7F = sink.



SpeedTableXTwo:

db $FF,$FE,$FD,$FE,$FF,$FE,$FD,$FE,$FF,$FE,$FD,$FE,$FF,$FE,$FD,$FE,$FF,$FE,$FD,$FE ; Speed table, per sprite. Amount of pixels to move down each frame. 00 = still, 80-FF = rise, 01-7F = sink.



OAMStuff:

db $20,$24,$28,$2C,$80,$84,$88,$8C,$B0,$B4,$B8,$BC,$C0,$C4,$C8,$CC,$E4,$E8,$EC,$F0 ; These are all in $02xx



Properties:

db $34,$74,$B4,$F4,$34,$74,$B4,$F4,$34,$74,$B4,$F4,$34,$74,$B4,$F4,$34,$74,$B4,$F4 ; Properties table, per sprite. YXPPCCCT.



PropertiesTwo:

db $B4,$F4,$34,$74,$B4,$F4,$34,$74,$B4,$F4,$34,$74,$B4,$F4,$34,$74,$B4,$F4,$34,$74 ; Properties table, per sprite. YXPPCCCT.



IncrementByOne:

LDA $1E02,y                     ; \ Increment Y position of sprite.

INC A                           ;  |

STA $1E02,y                     ;  |

SEC                             ;  | Check Y position relative to screen border Y position.

SBC $1C                         ;  | If equal to #$F0...

CMP #$F0                        ;  |

BNE ReturnAndSuch               ;  |

LDA #$01                        ;  | Appear.

STA $1E2A,y                     ; /



ReturnAndSuch:

RTS



Main:				;The code always starts at this label in all sprites.

LDA $1E2A,y                     ; \ If meant to appear, skip sprite intro code.

BEQ IncrementByOne              ; /



SkipIntro:

LDA $9D				; \ Don't move if sprites are supposed to be frozen.

BNE Immobile			; /

LDA $14

AND #$02

BEQ +

LDA $1E02,y                     ; \

CLC				;  |

ADC SpeedTableY,y               ;  | Movement.

STA $1E02,y                     ; /

+



LDA $14

LSR #5

AND #$01

BEQ +

LDA $1E16,y

CLC

ADC SpeedTableX,y

BRA ++

+

LDA $1E16,y

CLC

ADC SpeedTableXTwo,y

++

STA $1E16,y



Immobile:                       ; OAM routine starts here.

LDX.w OAMStuff,y 		; Get OAM index.

LDA $1E02,y			; \ Copy Y position relative to screen Y to OAM Y.

SEC                             ;  |

SBC $1C				;  |

STA $0201,x			; /

LDA $1E16,y			; \ Copy X position relative to screen X to OAM X.

SEC				;  |

SBC $1A				;  |

STA $0200,x			; /

LDA #!FlowerTile		; \ Tile

STA $0202,x                     ; /

LDA $14

LSR #2

AND #$01

BEQ +

LDA Properties,y

BRA ++

+

LDA PropertiesTwo,y

++

STA $0203,x

PHX

TXA

LSR

LSR

TAX

LDA #$00

STA $0420,x

PLX

LDA $18BF

ORA $1493

BEQ ReturnToTheChocolateWhatever            	; Change BEQ to BRA if you don't want it to disappear at generator 2, sprite D2.

LDA $0201,x

CMP #$F0                                    	; As soon as the sprite is off-screen...

BCC ReturnToTheChocolateWhatever

LDA #$00					; Kill it.

STA $1892,y					;



ReturnToTheChocolateWhatever:

!SpikeCount = $09		; Amount of sprites to fall down, -1. Values outside of 00-13 are not recommended.

!ClusterSpriteNum = $09		; Cluster sprite number



print "INIT ",pc



PHY              ; \ Wrapper.

PHB              ;  |

PHK              ;  |

PLB              ; /



LDY #!SpikeCount

-

LDA #!ClusterSpriteNum

STA $1892,y

LDA InitXY,y	; \ Initial X and Y position of each sprite.

PHA 		; | Is relative to screen border.

AND #$F0 	; |

STA $1E16,y 	; |

PLA 		; |

ASL #4		; |

STA $1E02,y 	; |

DEY 		; | Loop until all slots are done.

BPL - 		; /

LDA #$01 	; \ Run cluster sprite routine.

STA $18B8 	; /



PLB              ;

PLY              ;

RTL              ; Return.



InitXY:

db $06,$45,$9E,$E2,$A7,$BC,$59,$40,$61,$F5,$D6,$24,$7B,$33,$C6,$0B,$00,$39,$70,$A1

; Initial X and Y position table of sprites.

; Relative to screen border.

; Format: $xy



print "MAIN ",pc

STZ $14C8,x

RTL