69             ParseCommand('sendlanddigest', true);

    69             ParseCommand('sendlanddigest', true);

    70             GameState:= gsStart;

    70             GameState:= gsStart;

    71             end;

    71             end;

    72         gsStart:

    72         gsStart:

    73             begin

    73             begin

    74             if HasBorder then

    75             if HasBorder then

    75                 DisableSomeWeapons;

    76                 DisableSomeWeapons;

    76             AddClouds;

    77             AddClouds;

    77             AddFlakes;

    78             AddFlakes;

    78             SetRandomSeed(cSeed, false);

    79             SetRandomSeed(cSeed, false);