equal
deleted
inserted
replaced
1199 begin |
1199 begin |
1200 if hwAbs(Gear^.dX) > _0_01 then |
1200 if hwAbs(Gear^.dX) > _0_01 then |
1201 Gear^.dX:= Gear^.dX * _0_995; |
1201 Gear^.dX:= Gear^.dX * _0_995; |
1202 |
1202 |
1203 Gear^.dY:= Gear^.dY + cGravity; |
1203 Gear^.dY:= Gear^.dY + cGravity; |
1204 if hwAbs(Gear^.dY) > _0_08 then Gear^.dY:= Gear^.dY * _0_995; |
1204 if hwAbs(Gear^.dY) > _0_2 then Gear^.dY:= Gear^.dY * _0_995; |
1205 |
1205 |
1206 Gear^.X:= Gear^.X + Gear^.dX + cWindSpeed * 270; |
1206 Gear^.X:= Gear^.X + Gear^.dX + cWindSpeed * 640; |
1207 Gear^.Y:= Gear^.Y + Gear^.dY; |
1207 Gear^.Y:= Gear^.Y + Gear^.dY; |
1208 |
1208 |
1209 if not (hwRound(Gear^.Y) < cWaterLine) then |
1209 if not (hwRound(Gear^.Y) < cWaterLine) then |
1210 begin |
1210 begin |
1211 DeleteGear(Gear); |
1211 DeleteGear(Gear); |