72             begin

    72             begin

    73             GenMap;

    73             GenMap;

    74             SetLandTexture;

    74             SetLandTexture;

    75             UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT, false);

    75             UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT, false);

    76             setAILandMarks;

    76             setAILandMarks;

    78             GameState:= gsStart;

    77             GameState:= gsStart;

    79             end;

    78             end;

    80         gsStart:

    79         gsStart:

    81             begin

    80             begin

    82             SetDefaultBinds;

    81             SetDefaultBinds;

    86             if (WorldEdge <> weSea) or (Theme <> 'Underwater') then

    85             if (WorldEdge <> weSea) or (Theme <> 'Underwater') then

    87                 AddClouds;

    86                 AddClouds;

    88             AddFlakes;

    87             AddFlakes;

    89             SetRandomSeed(cSeed, false);

    88             SetRandomSeed(cSeed, false);

    90             StoreLoad(false);

    89             StoreLoad(false);

    91             if not allOK then exit;

    91             if not allOK then exit;

    92             AssignHHCoords;

    92             AssignHHCoords;

    93             AddMiscGears;

    93             AddMiscGears;

    94             InitWorld;

    94             InitWorld;

    95             ResetKbd;

    95             ResetKbd;