;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ThwompFix - W4mp3 - Version 1.0
;; If you use this patch please credit me,
;; thats what cool people do.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Note: This Patch is not compatible with SA-1
;; (I didn't test it with that)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Configuration
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

!thwompInteracts = 0 ; Set to 1 if you want the thwomp to interact with every sprite

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Hijacks
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Just for making the code more readable
org $01AF54
ThwompGFX:

;; TehRealHijack
org $01AEA3
JSR hijack

;; Freespace on Bank 1
org $01FFF8
hijack:
JSR ThwompGFX
autoclean JSL thwompSpriteInteract
RTS

freecode

print "ThwompFix Installed @ ",pc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; code
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
thwompSpriteInteract:
if !thwompInteracts
	print "Thwomps will interact with Sprites"
  LDA $1686,x ;\
  AND #$F7    ;|5th Tweaker byte remove do
  STA $1686,x ;/not interact with sprite flag
  
  JSL $018032 ;Sprite <-> Sprite Interaction routine

else 
  print "Thwomps will not interact with Sprites"
	LDA $1686,x ;\
  ORA #$08    ;|5th Tweaker byte set do not
  STA $1686,x ;/interact with sprite flag
  
endif


RTL

print "Freespace used: ",freespaceuse,"Bytes"
print "-W4mp3"
