hedgewars/hwengine.pas
changeset 4389 d1c65b60cd68
parent 4376 9654205a9424
child 4393 883b979697e4
equal deleted inserted replaced
4388:b14e24444bca 4389:d1c65b60cd68
    54     if not isPaused then inc(RealTicks, Lag);
    54     if not isPaused then inc(RealTicks, Lag);
    55 
    55 
    56     case GameState of
    56     case GameState of
    57         gsLandGen: begin
    57         gsLandGen: begin
    58                 GenMap;
    58                 GenMap;
       
    59                 ParseCommand('sendlanddigest', true);
    59                 GameState:= gsStart;
    60                 GameState:= gsStart;
    60                 end;
    61                 end;
    61         gsStart: begin
    62         gsStart: begin
    62                 if HasBorder then DisableSomeWeapons;
    63                 if HasBorder then DisableSomeWeapons;
    63                 AddClouds;
    64                 AddClouds;