4814 tmp:= t^.ar[i]; |
4814 tmp:= t^.ar[i]; |
4815 if (tmp^.State and gstNoDamage) = 0 then |
4815 if (tmp^.State and gstNoDamage) = 0 then |
4816 if (tmp^.Kind = gtHedgehog) or (tmp^.Kind = gtMine) or (tmp^.Kind = gtExplosives) then |
4816 if (tmp^.Kind = gtHedgehog) or (tmp^.Kind = gtMine) or (tmp^.Kind = gtExplosives) then |
4817 begin |
4817 begin |
4818 //tmp^.State:= tmp^.State or gstFlatened; |
4818 //tmp^.State:= tmp^.State or gstFlatened; |
4819 ApplyDamage(tmp, CurrentHedgehog, tmp^.Health div 3, dsUnknown); |
4819 if not tmp^.Invulnerable then ApplyDamage(tmp, CurrentHedgehog, tmp^.Health div 3, dsUnknown); |
4820 //DrawTunnel(tmp^.X, tmp^.Y - _1, _0, _0_5, cHHRadius * 6, cHHRadius * 3); |
4820 //DrawTunnel(tmp^.X, tmp^.Y - _1, _0, _0_5, cHHRadius * 6, cHHRadius * 3); |
4821 tmp2:= AddGear(hwRound(tmp^.X), hwRound(tmp^.Y), gtHammerHit, 0, _0, _0, 0); |
4821 tmp2:= AddGear(hwRound(tmp^.X), hwRound(tmp^.Y), gtHammerHit, 0, _0, _0, 0); |
4822 tmp2^.IntersectGear:= tmp; |
4822 tmp2^.IntersectGear:= tmp; |
4823 SetAllToActive |
4823 SetAllToActive |
4824 end |
4824 end |