hedgewars/hwengine.pas
changeset 11477 e425a6eb9da3
parent 11365 b8b208501475
child 11481 caa1e84c3ac2
child 11486 2b30283a402c
equal deleted inserted replaced
11476:c4e1d39acc56 11477:e425a6eb9da3
    78             // wave "clouds" on underwater theme look weird w/ weSea, esp the blended bottom portion
    78             // wave "clouds" on underwater theme look weird w/ weSea, esp the blended bottom portion
    79             if (WorldEdge <> weSea) or (Theme <> 'Underwater') then
    79             if (WorldEdge <> weSea) or (Theme <> 'Underwater') then
    80                 AddClouds;
    80                 AddClouds;
    81             AddFlakes;
    81             AddFlakes;
    82             SetRandomSeed(cSeed, false);
    82             SetRandomSeed(cSeed, false);
       
    83             StoreLoad(false);
    83             AssignHHCoords;
    84             AssignHHCoords;
    84             AddMiscGears;
    85             AddMiscGears;
    85             StoreLoad(false);
       
    86             InitWorld;
    86             InitWorld;
    87             ResetKbd;
    87             ResetKbd;
    88             if GameType = gmtSave then
    88             if GameType = gmtSave then
    89                 SetSound(false);
    89                 SetSound(false);
    90             FinishProgress;
    90             FinishProgress;