hedgewars/hwengine.pas
branchqmlfrontend
changeset 11481 caa1e84c3ac2
parent 11442 6b04a266feee
parent 11477 e425a6eb9da3
child 11544 b69f5f22a3ba
equal deleted inserted replaced
11480:b0c34402038c 11481:caa1e84c3ac2
    68             // wave "clouds" on underwater theme look weird w/ weSea, esp the blended bottom portion
    68             // wave "clouds" on underwater theme look weird w/ weSea, esp the blended bottom portion
    69             if (WorldEdge <> weSea) or (Theme <> 'Underwater') then
    69             if (WorldEdge <> weSea) or (Theme <> 'Underwater') then
    70                 AddClouds;
    70                 AddClouds;
    71             AddFlakes;
    71             AddFlakes;
    72             SetRandomSeed(cSeed, false);
    72             SetRandomSeed(cSeed, false);
       
    73             StoreLoad(false);
    73             AssignHHCoords;
    74             AssignHHCoords;
    74             AddMiscGears;
    75             AddMiscGears;
    75             StoreLoad(false);
       
    76             InitWorld;
    76             InitWorld;
    77             ResetKbd;
    77             ResetKbd;
    78             if GameType = gmtSave then
    78             if GameType = gmtSave then
    79                 SetSound(false);
    79                 SetSound(false);
    80             FinishProgress;
    80             FinishProgress;