Fixes shocker shocking through ranged weapon.

Allows the shocker to shock only when attacked by a melee attack.

Fixes #6390