equal
deleted
inserted
replaced
14 * You should have received a copy of the GNU General Public License |
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 |
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 |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 procedure playReplayFileWithParameters(); forward; |
|
20 |
|
21 procedure internalSetGameTypeLandPreviewFromParameters(); |
|
22 begin |
|
23 if ParamStr(3) = '--stats-only' then |
|
24 playReplayFileWithParameters() |
|
25 else |
|
26 begin |
|
27 ipcPort:= StrToInt(ParamStr(2)); |
|
28 GameType:= gmtLandPreview; |
|
29 if ParamStr(3) <> 'landpreview' then |
|
30 GameType:= gmtSyntax |
|
31 end |
|
32 end; |
|
33 |
19 |
34 procedure internalStartGameWithParameters(); |
20 procedure internalStartGameWithParameters(); |
35 var tmp: LongInt; |
21 var tmp: LongInt; |
36 begin |
22 begin |
37 UserPathPrefix:= ParamStr(1); |
23 UserPathPrefix:= ParamStr(1); |