equal
deleted
inserted
replaced
1089 if not TestCollisionYwithGear(Gear, 1) then |
1089 if not TestCollisionYwithGear(Gear, 1) then |
1090 begin |
1090 begin |
1091 cWindFactor:= cWindSpeed * 270; |
1091 cWindFactor:= cWindSpeed * 270; |
1092 |
1092 |
1093 if hwAbs(Gear^.dX - cWindFactor) > _0_01 then |
1093 if hwAbs(Gear^.dX - cWindFactor) > _0_01 then |
1094 Gear^.dX:= (Gear^.dX - cWindFactor) * _0_998 + cWindFactor; |
1094 Gear^.dX:= (Gear^.dX - cWindFactor) * _0_995 + cWindFactor; |
1095 |
1095 |
1096 Gear^.dY:= Gear^.dY + cGravity; |
1096 Gear^.dY:= Gear^.dY + cGravity; |
1097 if Gear^.dY > _0_1 then Gear^.dY:= Gear^.dY * _0_995; |
1097 if Gear^.dY > _0_1 then Gear^.dY:= Gear^.dY * _0_995; |
1098 |
1098 |
1099 Gear^.X:= Gear^.X + Gear^.dX; |
1099 Gear^.X:= Gear^.X + Gear^.dX; |