equal
deleted
inserted
replaced
372 procedure StoreLoad(reload: boolean); |
372 procedure StoreLoad(reload: boolean); |
373 var s: shortstring; |
373 var s: shortstring; |
374 ii: TSprite; |
374 ii: TSprite; |
375 fi: THWFont; |
375 fi: THWFont; |
376 ai: TAmmoType; |
376 ai: TAmmoType; |
377 tmpsurf: PSDL_Surface; |
377 tmpsurf, tmpoverlay: PSDL_Surface; |
378 i, imflags: LongInt; |
378 i, imflags: LongInt; |
379 begin |
379 begin |
380 AddFileLog('StoreLoad()'); |
380 AddFileLog('StoreLoad()'); |
381 |
381 |
382 if not cOnlyStats then |
382 if not cOnlyStats then |
443 else |
443 else |
444 begin |
444 begin |
445 Width:= tmpsurf^.w; |
445 Width:= tmpsurf^.w; |
446 Height:= tmpsurf^.h |
446 Height:= tmpsurf^.h |
447 end; |
447 end; |
|
448 if (ii in [sprAMAmmos, sprAMAmmosBW]) then |
|
449 begin |
|
450 tmpoverlay := LoadDataImage(Path, copy(FileName, 1, length(FileName)-5), (imflags and not ifCritical)); |
|
451 if tmpoverlay <> nil then |
|
452 begin |
|
453 copyToXY(tmpoverlay, tmpsurf, 0, 0); |
|
454 SDL_FreeSurface(tmpoverlay) |
|
455 end |
|
456 end; |
448 if (ii in [sprSky, sprSkyL, sprSkyR, sprHorizont, sprHorizontL, sprHorizontR]) then |
457 if (ii in [sprSky, sprSkyL, sprSkyR, sprHorizont, sprHorizontL, sprHorizontR]) then |
449 begin |
458 begin |
450 Texture:= Surface2Tex(tmpsurf, true); |
459 Texture:= Surface2Tex(tmpsurf, true); |
451 Texture^.Scale:= 2 |
460 Texture^.Scale:= 2 |
452 end |
461 end |