function _HasEquipedMelee (object oSource)
Check if oSource has equipped any melee weapon and has sequence for it