equal
deleted
inserted
replaced
83 GenMap; |
83 GenMap; |
84 GameState:= gsStart; |
84 GameState:= gsStart; |
85 end; |
85 end; |
86 gsStart: begin |
86 gsStart: begin |
87 InitPlaylistChunk(GetRandom(High(LongWord))); |
87 InitPlaylistChunk(GetRandom(High(LongWord))); |
|
88 AddClouds; |
88 AssignHHCoords; |
89 AssignHHCoords; |
89 AddMiscGears; |
90 AddMiscGears; |
90 StoreLoad; |
91 StoreLoad; |
91 AdjustColor(cConsoleSplitterColor); |
92 AdjustColor(cConsoleSplitterColor); |
92 ResetKbd; |
93 ResetKbd; |
182 for i:= 0 to ParamCount do |
183 for i:= 0 to ParamCount do |
183 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
184 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
184 {$ENDIF} |
185 {$ENDIF} |
185 |
186 |
186 case ParamCount of |
187 case ParamCount of |
187 13: begin |
188 14: begin |
188 val(ParamStr(2), cScreenWidth); |
189 val(ParamStr(2), cScreenWidth); |
189 val(ParamStr(3), cScreenHeight); |
190 val(ParamStr(3), cScreenHeight); |
190 cBitsStr:= ParamStr(4); |
191 cBitsStr:= ParamStr(4); |
191 val(cBitsStr, cBits); |
192 val(cBitsStr, cBits); |
192 val(ParamStr(5), ipcPort); |
193 val(ParamStr(5), ipcPort); |
196 val(ParamStr(9), cInitVolume); |
197 val(ParamStr(9), cInitVolume); |
197 val(ParamStr(10), cTimerInterval); |
198 val(ParamStr(10), cTimerInterval); |
198 PathPrefix:= ParamStr(11); |
199 PathPrefix:= ParamStr(11); |
199 cShowFPS:= ParamStr(12) = '1'; |
200 cShowFPS:= ParamStr(12) = '1'; |
200 cAltDamage:= ParamStr(13) = '1'; |
201 cAltDamage:= ParamStr(13) = '1'; |
|
202 UserNick:= DecodeBase64(ParamStr(14)); |
201 for p:= Succ(Low(TPathType)) to High(TPathType) do |
203 for p:= Succ(Low(TPathType)) to High(TPathType) do |
202 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
204 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p] |
203 AddClouds |
|
204 end; |
205 end; |
205 3: begin |
206 3: begin |
206 val(ParamStr(2), ipcPort); |
207 val(ParamStr(2), ipcPort); |
207 GameType:= gmtLandPreview; |
208 GameType:= gmtLandPreview; |
208 if ParamStr(3) <> 'landpreview' then OutError(errmsgShouldntRun, true); |
209 if ParamStr(3) <> 'landpreview' then OutError(errmsgShouldntRun, true); |