hedgewars/uWorld.pas
changeset 9983 1b62d993cd2f
parent 9812 a293a9ecdc82
child 9998 736015b847e3
equal deleted inserted replaced
9981:94f5e5cd151b 9983:1b62d993cd2f
   407     timeTexture:= nil;
   407     timeTexture:= nil;
   408     FreeTexture(missionTex);
   408     FreeTexture(missionTex);
   409     missionTex:= nil;
   409     missionTex:= nil;
   410     FreeTexture(recTexture);
   410     FreeTexture(recTexture);
   411     recTexture:= nil;
   411     recTexture:= nil;
       
   412     FreeTexture(AmmoMenuTex);
       
   413     AmmoMenuInvalidated:= true;
       
   414     AmmoMenuTex:= nil;
   412 end;
   415 end;
   413 
   416 
   414 function GetAmmoMenuTexture(Ammo: PHHAmmo): PTexture;
   417 function GetAmmoMenuTexture(Ammo: PHHAmmo): PTexture;
   415 const BORDERSIZE = 2;
   418 const BORDERSIZE = 2;
   416 var x, y, i, t, SlotsNumY, SlotsNumX, AMFrame: LongInt;
   419 var x, y, i, t, SlotsNumY, SlotsNumX, AMFrame: LongInt;
  2040     WorldEnd[0].a:= 255;
  2043     WorldEnd[0].a:= 255;
  2041     WorldEnd[1].a:= 255;
  2044     WorldEnd[1].a:= 255;
  2042     WorldEnd[2].a:= 255;
  2045     WorldEnd[2].a:= 255;
  2043     WorldEnd[3].a:= 255;
  2046     WorldEnd[3].a:= 255;
  2044 
  2047 
       
  2048     AmmoMenuTex:= nil;
       
  2049     AmmoMenuInvalidated:= true
  2045 end;
  2050 end;
  2046 
  2051 
  2047 procedure freeModule;
  2052 procedure freeModule;
  2048 begin
  2053 begin
  2049     ResetWorldTex();
  2054     ResetWorldTex();