equal
deleted
inserted
replaced
1316 if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 |
1316 if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 |
1317 end; |
1317 end; |
1318 if (not Gear^.dY.isNegative) and (Gear^.dY > _0_001) then SetAllHHToActive; |
1318 if (not Gear^.dY.isNegative) and (Gear^.dY > _0_001) then SetAllHHToActive; |
1319 if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then |
1319 if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then |
1320 begin |
1320 begin |
1321 if (V > _0_02) and (k = gtExplosives) and ((Gear^.State and gstAnimation) <> 0) then |
1321 if (V > _0_02) and (k = gtExplosives) then |
1322 inc(Gear^.Damage, hwRound(V * _70)); |
1322 inc(Gear^.Damage, hwRound(V * _70)); |
1323 |
1323 |
1324 if Gear^.dY > _0_2 then |
1324 if Gear^.dY > _0_2 then |
1325 for i:= min(12, hwRound(Gear^.dY*_10)) downto 0 do |
1325 for i:= min(12, hwRound(Gear^.dY*_10)) downto 0 do |
1326 AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12, vgtDust); |
1326 AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12, vgtDust); |