hedgewars/ArgParsers.inc
changeset 4976 088d40d8aba2
parent 4004 b1c2c2f6fc5e
child 5130 3602ede67ec5
equal deleted inserted replaced
4974:078cd026a7b1 4976:088d40d8aba2
       
     1 (*
       
     2  * Hedgewars, a free turn based strategy game
       
     3  * Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com>
       
     4  *
       
     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
       
     7  * the Free Software Foundation; version 2 of the License
       
     8  *
       
     9  * This program is distributed in the hope that it will be useful,
       
    10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
       
    11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
       
    12  * GNU General Public License for more details.
       
    13  *
       
    14  * You should have received a copy of the GNU General Public License
       
    15  * along with this program; if not, write to the Free Software
       
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
       
    17  *)
     1 
    18 
     2 procedure internalSetGameTypeLandPreviewFromParameters();
    19 procedure internalSetGameTypeLandPreviewFromParameters();
     3 begin
    20 begin
     4     val(ParamStr(2), ipcPort);
    21     val(ParamStr(2), ipcPort);
     5     GameType:= gmtLandPreview;
    22     GameType:= gmtLandPreview;