hedgewars/hwengine.pas
changeset 12455 2660611f8b22
parent 12433 d199a076eff9
child 12456 3827fd64bb58
equal deleted inserted replaced
12454:a675a94b5cc1 12455:2660611f8b22
    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             AddRandomness(CheckSum);
    83             StoreLoad(false);
    84             StoreLoad(false);
    84             if not allOK then exit;
    85             if not allOK then exit;
    85             AssignHHCoords;
    86             AssignHHCoords;
    86             AddMiscGears;
    87             AddMiscGears;
    87             InitWorld;
    88             InitWorld;