equal
deleted
inserted
replaced
51 else Gear.State:= Gear.State and not gstCollision |
51 else Gear.State:= Gear.State and not gstCollision |
52 end; |
52 end; |
53 |
53 |
54 procedure CheckHHDamage(Gear: PGear); |
54 procedure CheckHHDamage(Gear: PGear); |
55 begin |
55 begin |
56 if Gear.dY > 0.35 then Gear.Damage:= Gear.Damage + round(75 * (abs(Gear.dY) - 0.35)); |
56 if Gear.dY > 0.40 then Gear.Damage:= Gear.Damage + 1 + round(70 * (abs(Gear.dY) - 0.40)); |
57 end; |
57 end; |
58 |
58 |
59 //////////////////////////////////////////////////////////////////////////////// |
59 //////////////////////////////////////////////////////////////////////////////// |
60 //////////////////////////////////////////////////////////////////////////////// |
60 //////////////////////////////////////////////////////////////////////////////// |
61 procedure CalcRotationDirAngle(Gear: PGear); |
61 procedure CalcRotationDirAngle(Gear: PGear); |