equal
deleted
inserted
replaced
1655 if Gear <> nil then |
1655 if Gear <> nil then |
1656 Gear^.Message := Gear^.Message and (not (gmLJump or gmHJump)); |
1656 Gear^.Message := Gear^.Message and (not (gmLJump or gmHJump)); |
1657 exit |
1657 exit |
1658 end; |
1658 end; |
1659 |
1659 |
1660 if ((Gear^.Kind <> gtExplosives) and (Gear^.Damage > 0)) or (Gear^.Health<=0) then |
1660 if ((k <> gtExplosives) and (Gear^.Damage > 0)) or ((k = gtExplosives) and (Gear^.Health<=0)) then |
1661 begin |
1661 begin |
1662 x := hwRound(Gear^.X); |
1662 x := hwRound(Gear^.X); |
1663 y := hwRound(Gear^.Y); |
1663 y := hwRound(Gear^.Y); |
1664 hog:= Gear^.Hedgehog; |
1664 hog:= Gear^.Hedgehog; |
1665 |
1665 |