hellth blocks

; ---------------------------------------
.PATCH 01:E863
; NEW CODE
; ---------------------------------------

    IsFuckTile:
        ; New implementation of IsWalkableTile that does
        ; additional testing for healy blocks


           ldy IsSamus
           beq @NotSamus

        ; special case for Samus


    ; Test for healing block
            cmp #HealyTile
            bne @NotHealyBlock

                lda #$01
                sta TouchingHealyBlock

                    sec
                rts
            @NotHealyBlock:

        ; Below code is unchagned from original routine

        dey         ; = 0
        sty SamusDoorData
        cmp #$A0
        beq +
        cmp #$A1
        bne ++
        inc SamusDoorData
        *
        inc SamusDoorData
        *

        @NotSamus:
        dex
        beq +
        jsr $E98E
        jmp $E7E6

        *
        sec         ; no crash
        ; NO ;  Exit16:
            rts


    HealthBlockCheck:
        ; New routine that checks the TouchingHealyBlock variable and
        ; heals samus if applicable

            lda TouchingHealyBlock
            beq +

                ; Add health
                .if HealRate > $00FF
                    lda #>HealRate
                    sta HealthHiChange
                .endif
                lda #<HealRate
                sta HealthLoChange
                jsr AddHealth

                lda FrameCount
                and #$1F
                bne +
                jsr $CBCA

            *
        jmp LavaAndMoveCheck        ; Return from hijack