hedgewars/hwengine.dpr
changeset 988 cdff3f6f9b38
parent 956 19003f7fc174
child 1022 f6a3fcb329ca
equal deleted inserted replaced
987:0fcd3fadda41 988:cdff3f6f9b38
    87               InitPlaylistChunk(GetRandom(High(LongWord)));
    87               InitPlaylistChunk(GetRandom(High(LongWord)));
    88               AddClouds;
    88               AddClouds;
    89               AssignHHCoords;
    89               AssignHHCoords;
    90               AddMiscGears;
    90               AddMiscGears;
    91               StoreLoad;
    91               StoreLoad;
    92               AdjustColor(cConsoleSplitterColor);
       
    93               ResetKbd;
    92               ResetKbd;
    94               SoundLoad;
    93               SoundLoad;
    95               if GameType = gmtSave then
    94               if GameType = gmtSave then
    96                  begin
    95                  begin
    97                  isSEBackup:= isSoundEnabled;
    96                  isSEBackup:= isSoundEnabled;
   103       gsGame: begin
   102       gsGame: begin
   104               ProcessKbd;
   103               ProcessKbd;
   105               DoGameTick(Lag);
   104               DoGameTick(Lag);
   106               ProcessVisualGears(Lag);
   105               ProcessVisualGears(Lag);
   107               DrawWorld(Lag);
   106               DrawWorld(Lag);
   108               end;
       
   109    gsConsole: begin
       
   110               DoGameTick(Lag);
       
   111               ProcessVisualGears(Lag);
       
   112               DrawWorld(Lag);
       
   113               DrawConsole(SDLPrimSurface);
       
   114               end;
   107               end;
   115       gsChat: begin
   108       gsChat: begin
   116               DoGameTick(Lag);
   109               DoGameTick(Lag);
   117               ProcessVisualGears(Lag);
   110               ProcessVisualGears(Lag);
   118               DrawWorld(Lag);
   111               DrawWorld(Lag);