equal
deleted
inserted
replaced
466 |
466 |
467 procedure AddClouds; |
467 procedure AddClouds; |
468 var i: LongInt; |
468 var i: LongInt; |
469 begin |
469 begin |
470 for i:= 0 to cCloudsNumber - 1 do |
470 for i:= 0 to cCloudsNumber - 1 do |
471 AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
471 AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud, 0, true) |
472 end; |
472 end; |
473 |
473 |
474 procedure ChangeToSDClouds; |
474 procedure ChangeToSDClouds; |
475 var i, j: LongInt; |
475 var i, j: LongInt; |
476 vg, tmp: PVisualGear; |
476 vg, tmp: PVisualGear; |
487 DeleteVisualGear(vg); |
487 DeleteVisualGear(vg); |
488 vg:= tmp |
488 vg:= tmp |
489 end |
489 end |
490 else vg:= vg^.NextGear; |
490 else vg:= vg^.NextGear; |
491 for j:= 0 to cSDCloudsNumber - 1 do |
491 for j:= 0 to cSDCloudsNumber - 1 do |
492 AddVisualGear(cLeftScreenBorder + j * LongInt(cScreenSpace div (cSDCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
492 AddVisualGear(cLeftScreenBorder + j * LongInt(cScreenSpace div (cSDCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud, 0, true) |
493 end; |
493 end; |
494 end; |
494 end; |
495 |
495 |
496 procedure AddFlakes; |
496 procedure AddFlakes; |
497 var i: LongInt; |
497 var i: LongInt; |