equal
deleted
inserted
replaced
494 HHGear^.dY:= _0; |
494 HHGear^.dY:= _0; |
495 end else |
495 end else |
496 begin |
496 begin |
497 Gear^.dY:= Gear^.dY + cGravity; |
497 Gear^.dY:= Gear^.dY + cGravity; |
498 Gear^.Y:= Gear^.Y + Gear^.dY; |
498 Gear^.Y:= Gear^.Y + Gear^.dY; |
499 if Gear^.Y > _1024 then Gear^.Timer:= 1 |
499 if hwRound(Gear^.Y) > cWaterLine then Gear^.Timer:= 1 |
500 end; |
500 end; |
501 |
501 |
502 Gear^.X:= Gear^.X + HHGear^.dX; |
502 Gear^.X:= Gear^.X + HHGear^.dX; |
503 HHGear^.X:= Gear^.X; |
503 HHGear^.X:= Gear^.X; |
504 HHGear^.Y:= Gear^.Y - int2hwFloat(cHHRadius); |
504 HHGear^.Y:= Gear^.Y - int2hwFloat(cHHRadius); |
1090 if Gear^.dY > _0_1 then Gear^.dY:= Gear^.dY * _0_995; |
1090 if Gear^.dY > _0_1 then Gear^.dY:= Gear^.dY * _0_995; |
1091 |
1091 |
1092 Gear^.X:= Gear^.X + Gear^.dX; |
1092 Gear^.X:= Gear^.X + Gear^.dX; |
1093 Gear^.Y:= Gear^.Y + Gear^.dY; |
1093 Gear^.Y:= Gear^.Y + Gear^.dY; |
1094 |
1094 |
1095 if not (Gear^.Y < _1024) then |
1095 if not (hwRound(Gear^.Y) < cWaterLine) then |
1096 begin |
1096 begin |
1097 DeleteGear(Gear); |
1097 DeleteGear(Gear); |
1098 exit |
1098 exit |
1099 end |
1099 end |
1100 end else begin |
1100 end else begin |