45 uses uMisc, uConsole, uMobile, uVariables, uUtils, uTextures, uRender, uRenderUtils, uCommands, uDebug, uWorld;

    45 uses uMisc, uConsole, uMobile, uVariables, uUtils, uTextures, uRender, uRenderUtils, uCommands, uDebug, uWorld;

    46 

    46 

    47 //type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple);

    47 //type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple);

    48 

    48 

    49 var MaxTextureSize: LongInt;

    49 var MaxTextureSize: LongInt;

    50 //    cGPUVendor: TGPUVendor;

    52 //    cGPUVendor: TGPUVendor;

    51 

    53 

    52 function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: ansistring): TSDL_Rect;

    54 function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: ansistring): TSDL_Rect;

    53 var w, h: LongInt;

    55 var w, h: LongInt;

    54     tmpsurf: PSDL_Surface;

    56     tmpsurf: PSDL_Surface;

  1135         Ammoz[ai].NameTex := nil;

  1137         Ammoz[ai].NameTex := nil;

  1136     end;

  1138     end;

  1137     // init all count texture pointers

  1139     // init all count texture pointers

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

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

  1139         CountTexz[i] := nil;

  1141         CountTexz[i] := nil;

  1140 end;

  1145 end;

  1141 

  1146 

  1142 procedure freeModule;

  1147 procedure freeModule;

  1143 begin

  1148 begin

  1144     StoreRelease(false);

  1149     StoreRelease(false);