equal
deleted
inserted
replaced
1307 begin |
1307 begin |
1308 if (Gear^.State and gsttmpFlag) = 0 then AllInactive:= false; |
1308 if (Gear^.State and gsttmpFlag) = 0 then AllInactive:= false; |
1309 |
1309 |
1310 if not TestCollisionYwithGear(Gear, 1) then |
1310 if not TestCollisionYwithGear(Gear, 1) then |
1311 begin |
1311 begin |
|
1312 AllInactive:= false; |
1312 if hwAbs(Gear^.dX) > _0_01 then |
1313 if hwAbs(Gear^.dX) > _0_01 then |
1313 Gear^.dX:= Gear^.dX * _0_995; |
1314 Gear^.dX:= Gear^.dX * _0_995; |
1314 if (Gear^.State and gsttmpFlag) <> 0 then Gear^.dY:= Gear^.dY + _2*cGravity else |
1315 if (Gear^.State and gsttmpFlag) <> 0 then Gear^.dY:= Gear^.dY + _2*cGravity else |
1315 Gear^.dY:= Gear^.dY + cGravity; |
1316 Gear^.dY:= Gear^.dY + cGravity; |
1316 if hwAbs(Gear^.dY) > _0_2 then Gear^.dY:= Gear^.dY * _0_995; |
1317 if hwAbs(Gear^.dY) > _0_2 then Gear^.dY:= Gear^.dY * _0_995; |