hedgewars/hwengine.pas
changeset 10445 dac3bfb3a2b1
parent 10306 4fca8bcfaff0
child 10515 7705784902e1
child 10580 17560eb73b4c
equal deleted inserted replaced
10443:42dadeb6e8ae 10445:dac3bfb3a2b1
    72         gsStart:
    72         gsStart:
    73             begin
    73             begin
    74             SetDefaultBinds;
    74             SetDefaultBinds;
    75             if HasBorder then
    75             if HasBorder then
    76                 DisableSomeWeapons;
    76                 DisableSomeWeapons;
    77             AddClouds;
    77             // wave "clouds" on underwater theme look weird w/ weSea, esp the blended bottom portion
       
    78             if (WorldEdge <> weSea) or (Theme <> 'Underwater') then
       
    79                 AddClouds;
    78             AddFlakes;
    80             AddFlakes;
    79             SetRandomSeed(cSeed, false);
    81             SetRandomSeed(cSeed, false);
    80             AssignHHCoords;
    82             AssignHHCoords;
    81             AddMiscGears;
    83             AddMiscGears;
    82             StoreLoad(false);
    84             StoreLoad(false);