hedgewars/uStore.pas
changeset 8027 e5ba3dd12531
parent 7866 58d10edc5d21
child 8039 a3b86c1f63b4
equal deleted inserted replaced
8024:1d5baba66cb6 8027:e5ba3dd12531
   144     r, rr: TSDL_Rect;
   144     r, rr: TSDL_Rect;
   145     drY: LongInt;
   145     drY: LongInt;
   146     texsurf, flagsurf, iconsurf: PSDL_Surface;
   146     texsurf, flagsurf, iconsurf: PSDL_Surface;
   147     foundBot: boolean;
   147     foundBot: boolean;
   148 begin
   148 begin
       
   149     if cOnlyStats then exit;
   149 r.x:= 0;
   150 r.x:= 0;
   150 r.y:= 0;
   151 r.y:= 0;
   151 drY:= - 4;
   152 drY:= - 4;
   152 for t:= 0 to Pred(TeamsCount) do
   153 for t:= 0 to Pred(TeamsCount) do
   153     with TeamsArray[t]^ do
   154     with TeamsArray[t]^ do
   871 ////////////////////////////////////////////////////////////////////////////////
   872 ////////////////////////////////////////////////////////////////////////////////
   872 procedure AddProgress;
   873 procedure AddProgress;
   873 var r: TSDL_Rect;
   874 var r: TSDL_Rect;
   874     texsurf: PSDL_Surface;
   875     texsurf: PSDL_Surface;
   875 begin
   876 begin
       
   877     if cOnlyStats then exit;
   876     if Step = 0 then
   878     if Step = 0 then
   877     begin
   879     begin
   878         WriteToConsole(msgLoading + 'progress sprite: ');
   880         WriteToConsole(msgLoading + 'progress sprite: ');
   879         texsurf:= LoadDataImage(ptGraphics, 'Progress', ifCritical or ifTransparent);
   881         texsurf:= LoadDataImage(ptGraphics, 'Progress', ifCritical or ifTransparent);
   880 
   882 
  1125 var flags: Longword = 0;
  1127 var flags: Longword = 0;
  1126     reinit: boolean = false;
  1128     reinit: boolean = false;
  1127     {$IFNDEF DARWIN}ico: PSDL_Surface;{$ENDIF}
  1129     {$IFNDEF DARWIN}ico: PSDL_Surface;{$ENDIF}
  1128     {$IFDEF SDL13}x, y: LongInt;{$ENDIF}
  1130     {$IFDEF SDL13}x, y: LongInt;{$ENDIF}
  1129 begin
  1131 begin
       
  1132     if cOnlyStats then
       
  1133         begin
       
  1134         MaxTextureSize:= 1024;
       
  1135         exit
       
  1136         end;
  1130     if Length(s) = 0 then
  1137     if Length(s) = 0 then
  1131         cFullScreen:= (not cFullScreen)
  1138          cFullScreen:= (not cFullScreen)
  1132     else
  1139     else cFullScreen:= s = '1';
  1133         cFullScreen:= s = '1';
       
  1134 
  1140 
  1135     AddFileLog('Preparing to change video parameters...');
  1141     AddFileLog('Preparing to change video parameters...');
  1136 {$IFDEF SDL13}
  1142 {$IFDEF SDL13}
  1137     if SDLwindow = nil then
  1143     if SDLwindow = nil then
  1138 {$ELSE}
  1144 {$ELSE}