equal
deleted
inserted
replaced
5285 if (Gear^.State and gstMoving <> 0) and (Gear^.State and gstCollision = 0) then |
5285 if (Gear^.State and gstMoving <> 0) and (Gear^.State and gstCollision = 0) then |
5286 begin |
5286 begin |
5287 DeleteCI(Gear); |
5287 DeleteCI(Gear); |
5288 Gear^.Radius:= 7; |
5288 Gear^.Radius:= 7; |
5289 // used for damage and impact calc. needs balancing I think |
5289 // used for damage and impact calc. needs balancing I think |
5290 Gear^.Health:= hwRound(hwSqr((hwAbs(Gear^.dY)+hwAbs(Gear^.dX))*_3_2)); |
5290 Gear^.Health:= hwRound(hwSqr((hwAbs(Gear^.dY)+hwAbs(Gear^.dX))*_4)); |
5291 doStepFallingGear(Gear); |
5291 doStepFallingGear(Gear); |
5292 AllInactive := false; |
5292 AllInactive := false; |
5293 a:= Gear^.DirAngle; |
5293 a:= Gear^.DirAngle; |
5294 CalcRotationDirAngle(Gear); |
5294 CalcRotationDirAngle(Gear); |
5295 Gear^.DirAngle:= a+(Gear^.DirAngle-a)*2*hwSign(Gear^.dX) // double rotation |
5295 Gear^.DirAngle:= a+(Gear^.DirAngle-a)*2*hwSign(Gear^.dX) // double rotation |