equal
deleted
inserted
replaced
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} |