X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_textures.pas;h=eb067ea38e08cbd41c6a8121d24d3bfdc3ba81ca;hb=ff104a8cdc79693b7546d839605ec73ae135d904;hp=dcc91b7dda3e9b1a633a57890c3e36ba7f6c0890;hpb=5c5095104dd746b4bb39c30e3971fa4388955ab5;p=d2df-sdl.git diff --git a/src/game/g_textures.pas b/src/game/g_textures.pas index dcc91b7..eb067ea 100644 --- a/src/game/g_textures.pas +++ b/src/game/g_textures.pas @@ -34,7 +34,7 @@ Type FWidth: Word; FMinLength: Byte; // Îæèäàíèå ïîñëå ïðîèãðûâàíèÿ FRevert: Boolean; // Ñìåíà êàäðîâ îáðàòíàÿ? - + public constructor Create(FramesID: DWORD; Loop: Boolean; Speed: Byte); destructor Destroy(); override; @@ -158,7 +158,7 @@ begin if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then begin - if e_CreateTextureMem(TextureData, ID) then + if e_CreateTextureMem(TextureData, ID) then Result := True else FreeMem(TextureData); @@ -240,7 +240,7 @@ var a: DWORD; begin Result := False; - + if TexturesArray = nil then Exit; if TextureName = '' then Exit;