hedgewars/uStore.pas
changeset 7108 eaef11c0d039
parent 7084 a471de309dcc
parent 7102 96f655d06e9e
child 7125 bfb759d07288
equal deleted inserted replaced
7084:a471de309dcc 7108:eaef11c0d039
  1046         ResetLand;
  1046         ResetLand;
  1047         ResetWorldTex;
  1047         ResetWorldTex;
  1048         //uTextures.freeModule; //DEBUG ONLY
  1048         //uTextures.freeModule; //DEBUG ONLY
  1049     {$ENDIF}
  1049     {$ENDIF}
  1050         AddFileLog('Freeing old primary surface...');
  1050         AddFileLog('Freeing old primary surface...');
       
  1051     {$IFNDEF SDL13}        
  1051         SDL_FreeSurface(SDLPrimSurface);
  1052         SDL_FreeSurface(SDLPrimSurface);
  1052         SDLPrimSurface:= nil;
  1053         SDLPrimSurface:= nil;
       
  1054     {$ENDIF}
  1053 {$ENDIF}
  1055 {$ENDIF}
  1054         end;
  1056         end;
  1055 
  1057 
  1056     // these attributes must be set up before creating the sdl window
  1058     // these attributes must be set up before creating the sdl window
  1057 {$IFNDEF WIN32}
  1059 {$IFNDEF WIN32}
  1123 var ai: TAmmoType;
  1125 var ai: TAmmoType;
  1124     i: LongInt;
  1126     i: LongInt;
  1125 begin
  1127 begin
  1126     RegisterVariable('fullscr', @chFullScr, true);
  1128     RegisterVariable('fullscr', @chFullScr, true);
  1127 
  1129 
  1128     cScaleFactor:= 2.0;
  1130     cScaleFactor:= 0;
  1129     Step:= 0;
  1131     Step:= 0;
  1130     ProgrTex:= nil;
  1132     ProgrTex:= nil;
  1131     SupportNPOTT:= false;
  1133     SupportNPOTT:= false;
  1132 
  1134 
  1133     // init all ammo name texture pointers
  1135     // init all ammo name texture pointers