moveToEntity v (Block' b) = case b of
  Spikes    -> (loc .~ v) . (p_state .~ Falling)
  Web       -> (loc .~ v) . (p_state .~ Stunned)
  PowderKeg -> hp  .~ 0
  Exit      -> loc .~ v  
  _         -> id
moveToEntity v (Block' b) = case b of
  Spikes    -> (loc .~ v) . (p_state .~ Falling)
  Web       -> (loc .~ v) . (p_state .~ Stunned)
  PowderKeg -> hp  .~ 0
  Exit      -> loc .~ v  
  _         -> id
moveToEntity v (Block' b) = case b of
  Spikes    -> (loc .~ v) . (p_state .~ Falling)
  Web       -> (loc .~ v) . (p_state .~ Stunned)
  PowderKeg -> hp  .~ 0
  Exit      -> loc .~ v  
  _         -> id