equal
deleted
inserted
replaced
1591 dxdy: hwFloat; |
1591 dxdy: hwFloat; |
1592 begin |
1592 begin |
1593 if (Gear^.dY.QWordValue = 0) and (Gear^.dY.QWordValue = 0) and (TestCollisionYwithGear(Gear, 1) = 0) then |
1593 if (Gear^.dY.QWordValue = 0) and (Gear^.dY.QWordValue = 0) and (TestCollisionYwithGear(Gear, 1) = 0) then |
1594 SetLittle(Gear^.dY); |
1594 SetLittle(Gear^.dY); |
1595 Gear^.State := Gear^.State or gstAnimation; |
1595 Gear^.State := Gear^.State or gstAnimation; |
1596 if Gear^.Health < cBarrelHealth then Gear^.State:= Gear^.State and not gstFrozen; |
1596 if Gear^.Health < cBarrelHealth then Gear^.State:= Gear^.State and (not gstFrozen); |
1597 |
1597 |
1598 if ((Gear^.dX.QWordValue <> 0) |
1598 if ((Gear^.dX.QWordValue <> 0) |
1599 or (Gear^.dY.QWordValue <> 0)) then |
1599 or (Gear^.dY.QWordValue <> 0)) then |
1600 begin |
1600 begin |
1601 DeleteCI(Gear); |
1601 DeleteCI(Gear); |
1677 with CurrentHedgehog^ do |
1677 with CurrentHedgehog^ do |
1678 if Gear <> nil then |
1678 if Gear <> nil then |
1679 Gear^.Message := Gear^.Message and (not (gmLJump or gmHJump)); |
1679 Gear^.Message := Gear^.Message and (not (gmLJump or gmHJump)); |
1680 exit |
1680 exit |
1681 end; |
1681 end; |
1682 if (k = gtExplosives) and (Gear^.Health < cBarrelHealth) then Gear^.State:= Gear^.State and not gstFrozen; |
1682 if (k = gtExplosives) and (Gear^.Health < cBarrelHealth) then Gear^.State:= Gear^.State and (not gstFrozen); |
1683 |
1683 |
1684 if ((k <> gtExplosives) and (Gear^.Damage > 0)) or ((k = gtExplosives) and (Gear^.Health<=0)) then |
1684 if ((k <> gtExplosives) and (Gear^.Damage > 0)) or ((k = gtExplosives) and (Gear^.Health<=0)) then |
1685 begin |
1685 begin |
1686 x := hwRound(Gear^.X); |
1686 x := hwRound(Gear^.X); |
1687 y := hwRound(Gear^.Y); |
1687 y := hwRound(Gear^.Y); |