hedgewars/hwengine.pas
changeset 8912 78ea1839aac9
parent 8838 aa2ffd427f6a
child 8924 13ac59499066
equal deleted inserted replaced
8911:f17e505ef30b 8912:78ea1839aac9
    30 {$ENDIF}
    30 {$ENDIF}
    31 
    31 
    32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler
    32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler
    33      , uSound, uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uAILandMarks, uLandTexture, uCollisions
    33      , uSound, uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uAILandMarks, uLandTexture, uCollisions
    34      , SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted
    34      , SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted
    35      , uPhysFSLayer, uCursor
    35      , uPhysFSLayer, uCursor, uRandom
    36      {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}
    36      {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}
    37      {$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF}
    37      {$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF}
    38      {$IFDEF ANDROID}, GLUnit{$ENDIF}
    38      {$IFDEF ANDROID}, GLUnit{$ENDIF}
    39      ;
    39      ;
    40 
    40 
    77             begin
    77             begin
    78             if HasBorder then
    78             if HasBorder then
    79                 DisableSomeWeapons;
    79                 DisableSomeWeapons;
    80             AddClouds;
    80             AddClouds;
    81             AddFlakes;
    81             AddFlakes;
       
    82             SetRandomSeed(cSeed, false);
    82             AssignHHCoords;
    83             AssignHHCoords;
    83             AddMiscGears;
    84             AddMiscGears;
    84             StoreLoad(false);
    85             StoreLoad(false);
    85             InitWorld;
    86             InitWorld;
    86             ResetKbd;
    87             ResetKbd;