equal
deleted
inserted
replaced
595 |
595 |
596 procedure AddClouds; |
596 procedure AddClouds; |
597 var i: LongInt; |
597 var i: LongInt; |
598 begin |
598 begin |
599 for i:= 0 to cCloudsNumber - 1 do |
599 for i:= 0 to cCloudsNumber - 1 do |
600 AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud) |
600 AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
601 end; |
601 end; |
602 |
602 |
603 procedure ChangeToSDClouds; |
603 procedure ChangeToSDClouds; |
604 var i: LongInt; |
604 var i: LongInt; |
605 vg, tmp: PVisualGear; |
605 vg, tmp: PVisualGear; |
613 DeleteVisualGear(vg); |
613 DeleteVisualGear(vg); |
614 vg:= tmp |
614 vg:= tmp |
615 end |
615 end |
616 else vg:= vg^.NextGear; |
616 else vg:= vg^.NextGear; |
617 for i:= 0 to cSDCloudsNumber - 1 do |
617 for i:= 0 to cSDCloudsNumber - 1 do |
618 AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cSDCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud) |
618 AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cSDCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
619 end; |
619 end; |
620 |
620 |
621 procedure AddFlakes; |
621 procedure AddFlakes; |
622 var i: LongInt; |
622 var i: LongInt; |
623 begin |
623 begin |