equal
deleted
inserted
replaced
32 end; |
32 end; |
33 |
33 |
34 procedure internalStartGameWithParameters(); |
34 procedure internalStartGameWithParameters(); |
35 var tmp: LongInt; |
35 var tmp: LongInt; |
36 begin |
36 begin |
|
37 UserPathPrefix:= ParamStr(1)+'/Data'; |
37 val(ParamStr(2), cScreenWidth); |
38 val(ParamStr(2), cScreenWidth); |
38 val(ParamStr(3), cScreenHeight); |
39 val(ParamStr(3), cScreenHeight); |
39 val(ParamStr(4), cBits); |
40 val(ParamStr(4), cBits); |
40 val(ParamStr(5), ipcPort); |
41 val(ParamStr(5), ipcPort); |
41 cFullScreen:= ParamStr(6) = '1'; |
42 cFullScreen:= ParamStr(6) = '1'; |
144 |
145 |
145 procedure playReplayFileWithParameters(); |
146 procedure playReplayFileWithParameters(); |
146 var paramIndex: LongInt; |
147 var paramIndex: LongInt; |
147 wrongParameter: boolean; |
148 wrongParameter: boolean; |
148 begin |
149 begin |
149 PathPrefix:= ParamStr(1); |
150 UserPathPrefix:= ParamStr(1)+'/Data'; |
150 recordFileName:= ParamStr(2); |
151 PathPrefix:= ParamStr(2); |
151 paramIndex:= 3; |
152 recordFileName:= ParamStr(3); |
|
153 paramIndex:= 4; |
152 wrongParameter:= false; |
154 wrongParameter:= false; |
153 while (paramIndex <= ParamCount) and not wrongParameter do |
155 while (paramIndex <= ParamCount) and not wrongParameter do |
154 begin |
156 begin |
155 if ParamStr(paramIndex) = '--set-video' then |
157 if ParamStr(paramIndex) = '--set-video' then |
156 //--set-video [screen width] [screen height] [color dept] |
158 //--set-video [screen width] [screen height] [color dept] |