388 var ii: TSprite;

   388 var ii: TSprite;

   389     ai: TAmmoType;

   389     ai: TAmmoType;

   390     i, t: LongInt;

   390     i, t: LongInt;

   391 begin

   391 begin

   392     for ii:= Low(TSprite) to High(TSprite) do

   392     for ii:= Low(TSprite) to High(TSprite) do

   394         FreeTexture(SpritesData[ii].Texture);

   394         FreeTexture(SpritesData[ii].Texture);

   395         SpritesData[ii].Texture:= nil;

   395         SpritesData[ii].Texture:= nil;

   396         if SpritesData[ii].Surface <> nil then

   396         if SpritesData[ii].Surface <> nil then

   397             SDL_FreeSurface(SpritesData[ii].Surface);

   397             SDL_FreeSurface(SpritesData[ii].Surface);

   398         SpritesData[ii].Surface:= nil;

   398         SpritesData[ii].Surface:= nil;

   400     SDL_FreeSurface(MissionIcons);

   400     SDL_FreeSurface(MissionIcons);

   401     FreeTexture(ropeIconTex);

   401     FreeTexture(ropeIconTex);

   402     FreeTexture(HHTexture);

   402     FreeTexture(HHTexture);

   403     FreeTexture(PauseTexture);

   403     FreeTexture(PauseTexture);

   404     FreeTexture(ConfirmTexture);

   404     FreeTexture(ConfirmTexture);

   405     FreeTexture(SyncTexture);

   405     FreeTexture(SyncTexture);

   406     // free all ammo name textures

   406     // free all ammo name textures

   407     for ai:= Low(TAmmoType) to High(TAmmoType) do

   407     for ai:= Low(TAmmoType) to High(TAmmoType) do

   409         FreeTexture(Ammoz[ai].NameTex);

   408         FreeTexture(Ammoz[ai].NameTex);

   411     // free all count textures

   410     // free all count textures

   412     for i:= Low(CountTexz) to High(CountTexz) do

   411     for i:= Low(CountTexz) to High(CountTexz) do

   414         FreeTexture(CountTexz[i]);

   412         FreeTexture(CountTexz[i]);

   416     // free all team and hedgehog textures

   414     // free all team and hedgehog textures

   417     for t:= 0 to Pred(TeamsCount) do

   415     for t:= 0 to Pred(TeamsCount) do

   418     begin

   416     begin

   419         if TeamsArray[t] <> nil then

   417         if TeamsArray[t] <> nil then

   420         begin

   418         begin

   463 

   461 

   464     s:= filename + '.png';

   462     s:= filename + '.png';

   465     tmpsurf:= IMG_Load(Str2PChar(s));

   463     tmpsurf:= IMG_Load(Str2PChar(s));

   466 

   464 

   467     if tmpsurf = nil then

   465     if tmpsurf = nil then

   469         OutError(msgFailed, (imageFlags and ifCritical) <> 0);

   467         OutError(msgFailed, (imageFlags and ifCritical) <> 0);

   470         exit(nil)

   468         exit(nil)

   472 

   470 

   473     if ((imageFlags and ifIgnoreCaps) = 0) and ((tmpsurf^.w > MaxTextureSize) or (tmpsurf^.h > MaxTextureSize)) then

   471     if ((imageFlags and ifIgnoreCaps) = 0) and ((tmpsurf^.w > MaxTextureSize) or (tmpsurf^.h > MaxTextureSize)) then

   474     begin

   472     begin

   475         SDL_FreeSurface(tmpsurf);

   473         SDL_FreeSurface(tmpsurf);

   476         OutError(msgFailedSize, (imageFlags and ifCritical) <> 0);

   474         OutError(msgFailedSize, (imageFlags and ifCritical) <> 0);

  1004     begin

  1002     begin

  1005         Ammoz[ai].NameTex := nil;

  1003         Ammoz[ai].NameTex := nil;

  1006     end;

  1004     end;

  1007     // init all count texture pointers

  1005     // init all count texture pointers

  1008     for i:= Low(CountTexz) to High(CountTexz) do

  1006     for i:= Low(CountTexz) to High(CountTexz) do

  1010         CountTexz[i] := nil;

  1007         CountTexz[i] := nil;

  1012 end;

  1008 end;

  1013 

  1009 

  1014 procedure freeModule;

  1010 procedure freeModule;

  1015 begin

  1011 begin

  1016 end;

  1012 end;