Add spike subtypes

Dungeons/spike_subtype.asm

@@ -0,0 +1,51 @@
+;#PATCH_NAME=Spike Subtype
+;#PATCH_AUTHOR=Zarby89
+;#PATCH_VERSION=1.0
+;#PATCH_DESCRIPTION
+;Allow the spikes to go in multiple direction at different speed
+;Default Values : (00) = normal, (08) = normal vertical
+;01,02,03,04,05,06 = Horizontal with speed incrementing
+;09,0A,0B,0C,0D,0E = Vertical with speed incrementing
+;you can edit the ASM to make diagonal spikes too
+;#ENDPATCH_DESCRIPTION
+lorom
+
+org $288000 ; NEED TO MOVE
+pushpc
+
+org $0691D7 ; SpritePrep_SpikeBlock:
+JSL NewSpikePrep
+RTS
+
+org $1EBD0E
+JSL NewSpikeCollision
+RTS
+
+
+pullpc
+speedValuesH:
+db $20, $10, $18, $28, $30, $38, $40, $FF
+db $00, $00, $00, $00, $00, $00, $00, $FF
+
+speedValuesV:
+db $00, $00, $00, $00, $00, $00, $00, $FF
+db $20, $18, $20, $28, $30, $38, $40, $FF
+
+NewSpikePrep:
+PHB : PHK : PLB 
+LDA $0E30, X : TAY
+LDA.w speedValuesH, Y : STA $0D50, X
+LDA.w speedValuesV, Y : STA $0D40, X
+PLB
+RTL
+
+
+NewSpikeCollision:
+LDA.b #$04 : STA $0DF0, X
+
+LDA $0D50, X : EOR.b #$FF : INC A : STA $0D50, X
+LDA $0D40, X : EOR.b #$FF : INC A : STA $0D40, X
+
+LDA.b #$05 : JSL $0DBB7C ; Sound_SetSfx2PanLong
+
+RTL