header
lorom

!Freespace = $148000
!StompEnemyGivesAnotherDoubleJump = !True
!CanDJIfSpin = !True
!Sound = "LDA #$01 : STA $1DFA"

org $00CF43
BRA $03
org $00D066
BRA $19;this one is useless since I hijack that spot, but whatever
org $00D806
BRA $09
org $00D8E2
BCS $01
org $00D8EB;kill the cape. note that must be changed too if you want to fully remove it, I hi
BRA $3B
org $00E3FF
BRA $57
org $00EFA7
BRA $04
org $00F5DB
BRA $16

org $00CFA9
BRA $03
org $00D174
BRA $01
org $00D179
BRA $01
org $00D6B9
BRA $1A
org $00D7E7
BNE $00
org $00D844
BCS $00
org $00D861
LDA #$00 : NOP;free up $1407 so I won't need any freeram. many of those are probably useless, but I don't care.
org $00D86D
BRA $01
org $00D884
BRA $47
org $00D98D
BRA $01
org $00EF7C
BNE $00
org $00EF9C
BRA $01
org $00F5E0
BRA $11
org $00F622
BRA $01
org $01A9CA
BNE $00

org $00D062
JML Mymain

!True = muncher
!False = muncher
macro call(code)

endmacro
macro IfStomp(code)
!True = 0
!False = -1
rep !StompEnemyGivesAnotherDoubleJump : %call("")
endmacro

org !Freespace
db "STAR"
dw Ratstagsdoesnothingexceptwasteromspace-Somestupidlabel-$01
dw Ratstagsdoesnothingexceptwasteromspace-Somestupidlabel-$01^$FFFF
Somestupidlabel:

Mymain:
LDA $77
AND #$04
BEQ .Air
STA $1407
.Air

LDA $19
CMP #$03
BNE .NotFire
JML $00D085

.NotFire
CMP #$02
BNE .NotCape

LDA $75
BNE .NotCape

LDA $77
AND #$04
!True = -1
!False = 0
rep !CanDJIfSpin : ORA $140D
BNE .NotCape

macro StompStuff()
LDA $7D
BPL .Downwards
LDA $1407
AND #$80
BEQ .Done
LDA #$04
STA $1407
BRA .Done

.Downwards
LDA #$80
TSB $1407
.Done
endmacro
%IfStomp("%StompStuff()")

LDA $16
AND #$80
BEQ .NotCape

LDA $1407
AND #$04
BEQ .NotCape

LDA #$B0
STA $7D
STZ $1407
!Sound

.NotCape
JML $00D080

Ratstagsdoesnothingexceptwasteromspace: