freeslot("MT_FORKNIGHT", "S_FORKNIGHT_STND", "S_FORKNIGHT1", "S_FORKNIGHT2", "S_FORKNIGHT3", "S_FORKNIGHT4", "SPR_CZFK", "sfx_chsdth")

--This section origianly made for Neo Drilla by toaster
addHook("TouchSpecial", function(mo, pmo)
    if pmo.z < mo.z + mo.height and pmo.z + pmo.height > mo.z
    and not (pmo.player.powers[pw_invulnerability])
    and not (pmo.player.powers[pw_super])
	and not ((pmo.player.powers[pw_carry] == CR_NIGHTSMODE) and (pmo.player.pflags & PF_DRILLING))
        P_DamageMobj(pmo, mo, mo)
        return true
    end
end, MT_FORKNIGHT)

mobjinfo[MT_FORKNIGHT] = {
		//$Name "Forknight"
		//$Sprite CZFKA0
		//$Category Castle Calzone
        doomednum = 1148,
        spawnstate = S_FORKNIGHT_STND,
        spawnhealth = 1,
        seestate = S_FORKNIGHT1,
        seesound = sfx_None,
        reactiontime = 32,
        attacksound = sfx_None,
        painstate = S_NULL,
        painchance = 200,
        painsound = sfx_None,
        deathstate = S_XPLD1,
        xdeathstate = S_NULL,
        deathsound = sfx_chsdth,
        speed = 18,
        radius = 28*FRACUNIT,
        height = 40*FRACUNIT,
        dispoffset = 0,
        mass = 100,
        damage = 0,
        activesound = sfx_None,
		raisestate = S_NULL,
        flags = MF_ENEMY|MF_SPECIAL|MF_SHOOTABLE
}

states[S_FORKNIGHT_STND] = {SPR_CZFK, A, 1, A_Look, 0, 0, S_FORKNIGHT_STND}
states[S_FORKNIGHT1] = {SPR_CZFK, A, 8, A_Chase, 0, 0, S_FORKNIGHT2}
states[S_FORKNIGHT2] = {SPR_CZFK, B, 8, A_Chase, 0, 0, S_FORKNIGHT3}
states[S_FORKNIGHT3] = {SPR_CZFK, C, 8, A_Chase, 0, 0, S_FORKNIGHT4}
states[S_FORKNIGHT4] = {SPR_CZFK, D, 8, A_Chase, 0, 0, S_FORKNIGHT1}
-- I can't code to save my life, so I took the 2.1 Snapper code from Glaber's Badnik Pack DX and edited it a little. Thanks, Glaber! - Kriby
