HORIZ_DISP: db $00,$10,$20 ;facing left db $00,$10,$20 db $10,$00,$F0 ;facing right db $10,$00,$F0 VERT_DISP: db $F0,$F0,$F0 db $00,$00,$00 TILEMAP: db $80,$82,$84 ;frame 1 db $A0,$A2,$A4 db $86,$88,$8A ;frame 2 db $A6,$A8,$AA SUBGFX JSR GetDrawInfo ; sets y = OAM offset LDA $157C,x ; \ $02 = direction STA $02 ; / LDA $1602,x ;\ frame index. This is handled in the sprite code. STA $03 ; / PHX LDX #$05 ; Run the loop six times for six tiles LOOP_START: PHX ; push, current tile LDA $02 ; \ BNE FACING_LEFT ; | if facing right, index to frame end += INX INX INX INX INX INX FACING_LEFT: LDA $00 ; \ tile x position = sprite x location ($00) + tile displacement CLC ; | ADC HORIZ_DISP,x ; | STA $0300,y ; / PLX ; \ pull, X = index to frame end LDA $01 ; | CLC ; | tile y position = sprite y location ($01) + tile displacement ADC VERT_DISP,x ; | STA $0301,y ; / PHX ; \ set current tile TXA ; | X = index of frame start + current tile CLC ; | ADC $03 ; | TAX ; | LDA TILEMAP,x ; | STA $0302,y ; / LDA #$01 ; tile properties xyppccct, format LDX $02 ; \ if direction == 0... BNE NO_FLIP ; | ORA #$40 ; / ...flip tile NO_FLIP: ORA $64 ; add in tile priority of level STA $0303,y ; store tile properties PLX ; \ pull, current tile INY ; | increase index to sprite tile map ($300)... INY ; | ...we wrote 1 16x16 tile... INY ; | ...sprite OAM is 8x8... INY ; | ...so increment 4 times DEX ; | go to next tile of frame and loop BPL LOOP_START ; / PLX ; pull, X = sprite index LDY #$02 ; \ why 02? (460 = 2) all 16x16 tiles LDA #$05 ; | A = number of tiles drawn - 1 JSL $01B7B3 ; / don't draw if offscreen RTS ; return

lorom header org $00E2E3 ;\Point Star Palette Control to new patch, also JML StarPal ;/To keep the game from crashing. NOP #4 org $00E308 JML Firepal ; ------------------------------------------- org $0FFA01 ; address to put code;;FIND FREESPACE IF NEEDED!! ; ------------------------------------------- db "STAR" ; Write RATS tag dw Endcodeblock-Startcodeblock dw Endcodeblock-Startcodeblock^#$FFFF ; ------------------------------------------- Startcodeblock: ; code starts here ; ------------------------------------------- Firepal: LDA $13 ;\ Frame Counter LSR ;| These two LSRs LSR ;| are default in SMW StarStuff: ;;;;|Break in to restore star code. LSR ;/ So let's add one to slow it down, (Add More to slow it down even more) AND #$03 ;\Every three frames INC A ;|Let's INC A ;|Increase INC A ;|Mario's INC A ;/Palette JML $00E31A ; Jump Back StarPal: ;\This is to restore star palette stuff LDA $13 ;| Or else the game would crash when CPY #$1E ;/ When star power runs out. BCC StarStuff BNE StarOut JML $00E2EB StarOut: JML $00E30C ; ------------------------------------------- Endcodeblock: ; code ends here ; -------------------------------------------

lorom header org $00E2EA ;Branch to different frame count for star speed db $1F ;change this to $20 for slightly faster speed.

LDA Invuln_Timer,x ;if the hurt timer is set BEQ NOHURT ;the sprite can't be hurt JSR CheckContact ;if you have a sprite contact routine for ;rocks, then JSR to it here, and when you INC ;the HP also set the hurt timer, which will DEC ;below in the hurt subroutine. NOHURT: LDA ThrowTimer,x ;\If the throw timer CMP #TimeToThrow ;|is not set BEQ CHECK_HURT ;/then move on. LDA #$01 ;\otherwise, set the status to #$01 STA $C2,x ;/the throw status LDA #$10 ;\Set the initial timer for how long to stay STA $151C,x ;/in the throw state. Can be another RAM if needed CHECK_HURT: ;Check the hurt timer here LDA Invuln_Timer,x ;\If the hurt timer BEQ NORMAL ;/is zero then move on. LDA #$02 ;\otherwise, set the status to #$02 STA $C2,x ;/the hurt status STZ $B6,x ;set initial X speed to zero. LDA #OUCHSOUND ;\Play a hurt sound STA $1DFC ;/if desired NORMAL: ;continue code Now just below this, check the statuses to send you to their respective routines. RTS ;Return here.

WALKING: JSR WALK RTS THROWING: JSR THROW RTS HURT: JSR OUCH RTS

WALK: ;Walking Routine INC ThrowTimer,x ;Inc the throw timer so that we know when to ;change to its status. OTHER WALKING STUFF, speed, JSL $01802A, etc. RTS ;We're done here THROW: ;Throwing Routine JSL $01802A ;speed crap STZ $B6,x ;stop to chuck a rock STZ ThrowTimer,x ;Zero the throw timer while throwing. It will set ;itself again once we start walking. LDA $151C,x ;If the time for throwing status BEQ WALK_AGAIN ;is zero, then branch to reset the status DEC $151C,x ;otherwise, decrement it. LDA $151C,x ;Throw Status Timer CMP #$03 ;is some number below what we set above BNE NoThrow ;if not, don't throw so that we only throw one rock at a time. JSR ROCK ;Throw a RAWWWK! LDA #THROWSOUND ;\Play a Throw sound STA $1DFC ;/if desired NoThrow: RTS ;End of Throw Routine WALK_AGAIN: ;reset routine STZ C2,x ;just resets the status to zero, so we walk RTS OUCH: ;Hurt Routine LDA Invuln_Timer,x ;if the hurt timer is zero BEQ WALK_AGAIN ;Branch to the reset code DEC Invuln_Timer,x ;otherwise, decrease it every frame. JSL $01802A ;speed crap STZ $B6,x ;stop because we're hurt. Ouch, dude! FLASHING PALETTES IF YOU WANT. RTS ; End of Hurt Routine.