hedgewars/hwengine.pas
branchqmlfrontend
changeset 10515 7705784902e1
parent 10448 4cb727e029fa
parent 10445 dac3bfb3a2b1
child 10606 8e95911cb86b
equal deleted inserted replaced
10458:f7a199346c3e 10515:7705784902e1
    61         gsStart:
    61         gsStart:
    62             begin
    62             begin
    63             SetDefaultBinds;
    63             SetDefaultBinds;
    64             if HasBorder then
    64             if HasBorder then
    65                 DisableSomeWeapons;
    65                 DisableSomeWeapons;
    66             AddClouds;
    66             // wave "clouds" on underwater theme look weird w/ weSea, esp the blended bottom portion
       
    67             if (WorldEdge <> weSea) or (Theme <> 'Underwater') then
       
    68                 AddClouds;
    67             AddFlakes;
    69             AddFlakes;
    68             SetRandomSeed(cSeed, false);
    70             SetRandomSeed(cSeed, false);
    69             AssignHHCoords;
    71             AssignHHCoords;
    70             AddMiscGears;
    72             AddMiscGears;
    71             StoreLoad(false);
    73             StoreLoad(false);