equal
deleted
inserted
replaced
254 end; |
254 end; |
255 |
255 |
256 procedure AddClouds; |
256 procedure AddClouds; |
257 var i: LongInt; |
257 var i: LongInt; |
258 begin |
258 begin |
259 for i:= 0 to cCloudsNumber do |
259 for i:= 0 to cCloudsNumber - 1 do |
260 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -160, vgtCloud) |
260 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div (cCloudsNumber + 1)), -160, vgtCloud) |
261 end; |
261 end; |
262 |
262 |
263 initialization |
263 initialization |
264 |
264 |
265 finalization |
265 finalization |