equal
deleted
inserted
replaced
222 GraveTex:= Surface2Tex(texsurf); |
222 GraveTex:= Surface2Tex(texsurf); |
223 SDL_FreeSurface(texsurf) |
223 SDL_FreeSurface(texsurf) |
224 end |
224 end |
225 end; |
225 end; |
226 |
226 |
227 procedure GetExplosionBorderColor; |
|
228 var f: textfile; |
|
229 c1, c2: TSDL_Color; |
|
230 begin |
|
231 s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename; |
|
232 WriteToConsole(msgLoading + s + ' '); |
|
233 Assign(f, s); |
|
234 {$I-} |
|
235 Reset(f); |
|
236 Readln(f, c1.r, c1.g, c1. b); |
|
237 Readln(f, c2.r, c2.g, c2. b); |
|
238 Close(f); |
|
239 {$I+} |
|
240 TryDo(IOResult = 0, msgFailed, true); |
|
241 WriteLnToConsole(msgOK); |
|
242 |
|
243 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); // sky color |
|
244 cExplosionBorderColor:= c2.value or |
|
245 $FF000000 |
|
246 end; |
|
247 |
|
248 var ii: TSprite; |
227 var ii: TSprite; |
249 fi: THWFont; |
228 fi: THWFont; |
250 ai: TAmmoType; |
229 ai: TAmmoType; |
251 tmpsurf: PSDL_Surface; |
230 tmpsurf: PSDL_Surface; |
252 i: LongInt; |
231 i: LongInt; |
260 SDLTry(Handle <> nil, true); |
239 SDLTry(Handle <> nil, true); |
261 TTF_SetFontStyle(Handle, style); |
240 TTF_SetFontStyle(Handle, style); |
262 WriteLnToConsole(msgOK) |
241 WriteLnToConsole(msgOK) |
263 end; |
242 end; |
264 AddProgress; |
243 AddProgress; |
265 |
|
266 GetExplosionBorderColor; |
|
267 |
244 |
268 AddProgress; |
245 AddProgress; |
269 WriteNames(fnt16); |
246 WriteNames(fnt16); |
270 MakeCrossHairs; |
247 MakeCrossHairs; |
271 LoadGraves; |
248 LoadGraves; |