hedgewars/uGame.pas
branchqmlfrontend
changeset 11071 3851ce4f2061
parent 11046 47a8c19ecb60
child 11532 bf86c6cb9341
equal deleted inserted replaced
11050:9b7c8c5a94e0 11071:3851ce4f2061
     1 (*
     1 (*
     2  * Hedgewars, a free turn based strategy game
     2  * Hedgewars, a free turn based strategy game
     3  * Copyright (c) 2004-2014 Andrey Korotaev <unC0Rr@gmail.com>
     3  * Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com>
     4  *
     4  *
     5  * This program is free software; you can redistribute it and/or modify
     5  * This program is free software; you can redistribute it and/or modify
     6  * it under the terms of the GNU General Public License as published by
     6  * it under the terms of the GNU General Public License as published by
     7  * the Free Software Foundation; version 2 of the License
     7  * the Free Software Foundation; version 2 of the License
     8  *
     8  *
   106                         AddVisualGear(0, 0, vgtTeamHealthSorter);
   106                         AddVisualGear(0, 0, vgtTeamHealthSorter);
   107                         AddVisualGear(0, 0, vgtSmoothWindBar);
   107                         AddVisualGear(0, 0, vgtSmoothWindBar);
   108                         break;
   108                         break;
   109                         end;
   109                         end;
   110                 gmtDemo, gmtRecord: begin
   110                 gmtDemo, gmtRecord: begin
       
   111                         AddFileLog('End of input, halting now');
   111                         GameState:= gsExit;
   112                         GameState:= gsExit;
   112                         exit
   113                         exit
   113                         end;
   114                         end;
   114                 gmtSave: begin
   115                 gmtSave: begin
   115                         RestoreTeamsFromSave;
   116                         RestoreTeamsFromSave;