257     fi: THWFont;

   257     fi: THWFont;

   258     ai: TAmmoType;

   258     ai: TAmmoType;

   259     tmpsurf: PSDL_Surface;

   259     tmpsurf: PSDL_Surface;

   260     i: LongInt;

   260     i: LongInt;

   261 begin

   261 begin

   263 for fi:= Low(THWFont) to High(THWFont) do

   263 for fi:= Low(THWFont) to High(THWFont) do

   264     with Fontz[fi] do

   264     with Fontz[fi] do

   265         begin

   265         begin

   266         s:= UserPathz[ptFonts] + '/' + Name;

   266         s:= UserPathz[ptFonts] + '/' + Name;

   267         if not FileExists(s) then s:= Pathz[ptFonts] + '/' + Name;

   267         if not FileExists(s) then s:= Pathz[ptFonts] + '/' + Name;

   946     ico: PSDL_Surface;

   946     ico: PSDL_Surface;

   947     buf: array[byte] of char;

   947     buf: array[byte] of char;

   948     reinit: boolean;

   948     reinit: boolean;

   949     {$IFDEF SDL13}x, y: LongInt;{$ENDIF}

   949     {$IFDEF SDL13}x, y: LongInt;{$ENDIF}

   950 begin

   950 begin

   952     if Length(s) = 0 then cFullScreen:= not cFullScreen

   951     if Length(s) = 0 then cFullScreen:= not cFullScreen

   953     else cFullScreen:= s = '1';

   952     else cFullScreen:= s = '1';

   954 

   953 

   955     buf[0]:= char(0); // avoid compiler hint

   954     buf[0]:= char(0); // avoid compiler hint

   956     AddFileLog('Preparing to change video parameters...');

   955     AddFileLog('Preparing to change video parameters...');

   979             SDL_FreeSurface(ico)

   978             SDL_FreeSurface(ico)

   980             end;

   979             end;

   981         end

   980         end

   982     else

   981     else

   983         begin

   982         begin

   985         reinit:= true;

   984         reinit:= true;

   986 {$ENDIF}

   985 {$ENDIF}

   987         AddFileLog('Freeing old primary surface...');

   986         AddFileLog('Freeing old primary surface...');

   988         SDL_FreeSurface(SDLPrimSurface);

   987         SDL_FreeSurface(SDLPrimSurface);

   989         SDLPrimSurface:= nil;

   988         SDLPrimSurface:= nil;