equal
deleted
inserted
replaced
67 Gear^.Y:= Gear^.Y + (Gear^.dY + cGravity * vobFallSpeed) * Steps; |
67 Gear^.Y:= Gear^.Y + (Gear^.dY + cGravity * vobFallSpeed) * Steps; |
68 Gear^.Angle:= Gear^.Angle + Gear^.dAngle * Steps; |
68 Gear^.Angle:= Gear^.Angle + Gear^.dAngle * Steps; |
69 |
69 |
70 if hwRound(Gear^.X) < -cScreenWidth - 64 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else |
70 if hwRound(Gear^.X) < -cScreenWidth - 64 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else |
71 if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 64); |
71 if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 64); |
72 if hwRound(Gear^.Y) > 1100 then Gear^.Y:= - _128 |
72 if hwRound(Gear^.Y) > 1100 then Gear^.Y:= Gear^.Y - int2hwFloat(1228) |
73 end; |
73 end; |
74 |
74 |
75 procedure doStepCloud(Gear: PVisualGear; Steps: Longword); |
75 procedure doStepCloud(Gear: PVisualGear; Steps: Longword); |
76 begin |
76 begin |
77 Gear^.X:= Gear^.X + (cWindSpeed * 200 + Gear^.dX) * Steps; |
77 Gear^.X:= Gear^.X + (cWindSpeed * 200 + Gear^.dX) * Steps; |