equal
deleted
inserted
replaced
107 Gear^.dY:= Gear^.dY + _1div50000; |
107 Gear^.dY:= Gear^.dY + _1div50000; |
108 |
108 |
109 Gear^.Y:= Gear^.Y + Gear^.dY |
109 Gear^.Y:= Gear^.Y + Gear^.dY |
110 end; |
110 end; |
111 |
111 |
112 if hwRound(Gear^.X) < -cScreenWidth - 256 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else |
112 if hwRound(Gear^.X) < -cScreenWidth - 256 then Gear^.X:= int2hwFloat(cScreenWidth + LAND_WIDTH) else |
113 if hwRound(Gear^.X) > cScreenWidth + LAND_WIDTH then Gear^.X:= int2hwFloat(-cScreenWidth - 256) |
113 if hwRound(Gear^.X) > cScreenWidth + LAND_WIDTH then Gear^.X:= int2hwFloat(-cScreenWidth - 256) |
114 end; |
114 end; |
115 |
115 |
116 procedure doStepExpl(Gear: PVisualGear; Steps: Longword); |
116 procedure doStepExpl(Gear: PVisualGear; Steps: Longword); |
117 begin |
117 begin |
296 |
296 |
297 procedure AddClouds; |
297 procedure AddClouds; |
298 var i: LongInt; |
298 var i: LongInt; |
299 begin |
299 begin |
300 for i:= 0 to cCloudsNumber - 1 do |
300 for i:= 0 to cCloudsNumber - 1 do |
301 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
301 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
302 end; |
302 end; |
303 |
303 |
304 initialization |
304 initialization |
305 |
305 |
306 finalization |
306 finalization |