equal
deleted
inserted
replaced
492 |
492 |
493 procedure AddClouds; |
493 procedure AddClouds; |
494 var i: LongInt; |
494 var i: LongInt; |
495 begin |
495 begin |
496 for i:= 0 to cCloudsNumber - 1 do |
496 for i:= 0 to cCloudsNumber - 1 do |
497 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
497 AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud) |
498 end; |
498 end; |
499 |
499 |
500 procedure initModule; |
500 procedure initModule; |
501 begin |
501 begin |
502 VisualGearsList:= nil; |
502 VisualGearsList:= nil; |