Posts by LadiesMan217

JSL $02A9DE
	BMI RETURN 			; If sprite slots are full,
 					; don't generate. After this, the sprite
to generate is in the Y register.
	PHX 				; NOTE: We need to use the X register for the generated sprite.
	TYX 				; So we preserve the current sprites data.
	LDA #$05
	STA $9E,x 			; The sprite number is stored to the custom sprite RAM Address.
					; STA $7FAB9E,y doesn't exist, that's why we transfered X to Y.
	TXY 				; Transfer sprite to spawn back to Y.
	PLX 				; Restore X.
	LDA #$01
	STA $14C8,y 			; Run sprite's INIT code first.
	LDA $E4,x
	STA $00E4,y 			; X position.
	LDA $14E0,x
	STA $14E0,y 			; X position high.
	LDA $D8,x
	STA $00D8,y 			; Y position.
	LDA $14D4,x
	STA $14D4,y 			; Y position high.
	PHX 				; Push current sprite.
	TYX 				; Get sprite to generate into X.
	JSL $07F7D2 			; Reset sprite tables, to generate this one.
	PLX 				; Restore previous sprite.
	RTS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; sprite code JSL
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    
                    dcb "INIT"              
                    dcb "MAIN"                                    
                    PHB                     
                    PHK                     
                    PLB                     
                    JSR SPRITE_CODE_START   
                    PLB                     
                    RTL      

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

SPRITE_CODE_START:
	LDA $97			; mario y (high (next frame))
	BPL CEILING_RETURN	; if not negative, return
	LDY #$00		; load 0 in to Y 
	LDA $19			; powerup
	BEQ CEILING_2		; if small, check for ceiling height as small mario
	LDA $73			; same if ducking
	BNE CEILING_2		; 
	LDY #$01		; otherwise check as big
CEILING_2:
	LDA CEILING_TABLE,y	; if not yet above ceiling threshold...
	CMP $96			; mario y (low)
	BCC CEILING_RETURN	; return
	INC A			; 
	STA $96			; place mario on top of screen
	LDA $7D			; 
	EOR #$FF		; Flip mario y speed
	INC A			;
	CMP #$10		; cap downward speed at 10
	BCC CEILING_1		;
	LDA #$10
CEILING_1:
	STA $7D			; set speed

	LDA #$01		; play "hit head" sound effect
	STA $1DF9		;

CEILING_RETURN:
	RTS			; reutrn

CEILING_TABLE:
	db $E8,$F0		; how high above the screen mario can go for small and big mario

LDA #$01	;Generator type that is currently active. #$01 = Eerie Generator; #$02 = Para Goomba; and so on.
STA $18B9

CODE_03A61D:		
			LDA #$08			;\ set new sprite state
			STA $14D0			;/
			LDA #$A1			;\ set new sprite number (bowling ball)
			STA $A6				;/
			LDA !RAM_SpriteXLo,x		;\ set new sprite x position
			CLC				; |
			ADC #$08			; |
			STA $EC				; |
			LDA !RAM_SpriteXHi,x		; |
			ADC #$00			; |
			STA $14E8			;/
			LDA !RAM_SpriteYLo,x		;\ set new sprite y position
			CLC				; |
			ADC #$40			; |
			STA $E0				; |
			LDA !RAM_SpriteYHi,x		; |
			ADC #$00			; |
			STA $14DC			;/

			PHX				
			LDX #$08			;\ clear sprite table values
			JSL $07F7D2			;/
			PLX				
			RTS				; return

Thwomp:
;Spawn a custom sprite.
	LDA $186C,x
	BNE Respawn
	JSL $02A9DE
	BMI Respawn
	TYA
	STA $187B
	LDA #$01				; Sprite state ($14C8,x).
	STA $14C8,y
	LDA #$13	; This the sprite number to spawn.
	PHX
	TYX
	STA $7FAB9E,x
	PLX
	LDA $94,x
	STA $00E4,y
	LDA $95,x
	STA $14E0,y
	LDA $0F,x
	STA $00D8,y
	LDA $14D4,x
	STA $14D4,y
	PHX
	TYX
	JSL $07F7D2
	JSL $0187A7
	LDA #$08
	STA $7FAB10,x
	PLX
Respawn:
	RTS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; action 9 - third phase
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       
DATA_03AB62:		db $10,$F0			; x speed table


CODE_03AB64:		LDA #$01
			STA $18B9
	
			LDA #$03			;\ set Clown Car graphics frame (angry)
			STA $1427			;/
			JSR CODE_03A4FD			; attack if time
			JSR CODE_03A4D2			; set graphics frame
			JSR CODE_03A4ED			; set sprite direction

			LDA !RAM_SpriteSpeedY,x		;\ accelerate downwards
			CLC				; |
			ADC #$07			; |
			STA !RAM_SpriteSpeedY,x		;/
			LDA !RAM_SpriteYLo,x		;\ if Clown Car not low enough (hitting the ground),
			CMP #$64			; |
			BCC Return03AB9E		; |
			LDA !RAM_SpriteYHi,x		; |
			BMI Return03AB9E		;/ branch
			LDA #$64			
			STA !RAM_SpriteYLo,x		
			LDA #$A0			
			STA !RAM_SpriteSpeedY,x		
			LDA #$09			;\ play sound effect
			STA $1DFC			;/
			JSR SUB_HORZ_POS		;\ set sprite speed towards Mario
			LDA DATA_03AB62,y		; |
			STA !RAM_SpriteSpeedX,x		;/
			LDA #$20			;\ set time to shake the ground
			STA !RAM_ShakeGrndTimer		;/

Return03AB9E:		RTS				; return