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 UserPathPrefix:= ParamStr(1); |
38 val(ParamStr(2), cScreenWidth); |
38 val(ParamStr(2), cScreenWidth); |
39 val(ParamStr(3), cScreenHeight); |
39 val(ParamStr(3), cScreenHeight); |
40 val(ParamStr(4), cBits); |
40 val(ParamStr(4), cBits); |
41 val(ParamStr(5), ipcPort); |
41 val(ParamStr(5), ipcPort); |
42 cFullScreen:= ParamStr(6) = '1'; |
42 cFullScreen:= ParamStr(6) = '1'; |
145 |
145 |
146 procedure playReplayFileWithParameters(); |
146 procedure playReplayFileWithParameters(); |
147 var paramIndex: LongInt; |
147 var paramIndex: LongInt; |
148 wrongParameter: boolean; |
148 wrongParameter: boolean; |
149 begin |
149 begin |
150 UserPathPrefix:= ParamStr(1)+'/Data'; |
150 UserPathPrefix:= ParamStr(1); |
151 PathPrefix:= ParamStr(2); |
151 PathPrefix:= ParamStr(2); |
152 recordFileName:= ParamStr(3); |
152 recordFileName:= ParamStr(3); |
153 paramIndex:= 4; |
153 paramIndex:= 4; |
154 wrongParameter:= false; |
154 wrongParameter:= false; |
155 while (paramIndex <= ParamCount) and not wrongParameter do |
155 while (paramIndex <= ParamCount) and not wrongParameter do |