230 end; |
230 end; |
231 |
231 |
232 // Attack bar |
232 // Attack bar |
233 if CurrentTeam <> nil then |
233 if CurrentTeam <> nil then |
234 case AttackBar of |
234 case AttackBar of |
235 1: begin |
235 (* 1: begin |
236 r:= StuffPoz[sPowerBar]; |
236 r:= StuffPoz[sPowerBar]; |
237 {$WARNINGS OFF} |
237 {$WARNINGS OFF} |
238 r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor; |
238 r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor; |
239 {$WARNINGS ON} |
239 {$WARNINGS ON} |
240 DrawSpriteFromRect(r, cScreenWidth - 272, cScreenHeight - 48, 16, 0, Surface); |
240 DrawSpriteFromRect(r, cScreenWidth - 272, cScreenHeight - 48, 16, 0, Surface); |
241 end; |
241 end; |
242 2: with CurrentHedgehog^ do |
242 *) 2: with CurrentHedgehog^ do |
243 begin |
243 begin |
244 tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
244 tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
245 tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
245 tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
246 for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
246 for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
247 DrawSprite(sprPower, hwRound(Gear^.X) + system.round(WorldDx + tdx * (24 + i * 2)) - 16, |
247 DrawSprite(sprPower, hwRound(Gear^.X) + system.round(WorldDx + tdx * (24 + i * 2)) - 16, |
292 |
292 |
293 // Lag alert |
293 // Lag alert |
294 if isInLag then DrawSprite(sprLag, 32, 32 + cConsoleYAdd, (RealTicks shr 7) mod 12, Surface); |
294 if isInLag then DrawSprite(sprLag, 32, 32 + cConsoleYAdd, (RealTicks shr 7) mod 12, Surface); |
295 |
295 |
296 // Wind bar |
296 // Wind bar |
297 DrawGear(sWindBar, cScreenWidth - 180, cScreenHeight - 30, Surface); |
297 DrawSprite(sprWindBar, cScreenWidth - 180, cScreenHeight - 30, 0, Surface); |
298 if WindBarWidth > 0 then |
298 if WindBarWidth > 0 then |
299 begin |
299 begin |
300 with StuffPoz[sWindR] do |
300 {$WARNINGS OFF} |
301 begin |
301 r.x:= 8 - (RealTicks shr 6) mod 8; |
302 {$WARNINGS OFF} |
302 {$WARNINGS ON} |
303 r.x:= x + 8 - (RealTicks shr 6) mod 8; |
303 r.y:= 0; |
304 {$WARNINGS ON} |
304 r.w:= WindBarWidth; |
305 r.y:= y; |
305 r.h:= 13; |
306 r.w:= WindBarWidth; |
306 DrawSpriteFromRect(sprWindR, r, cScreenWidth - 103, cScreenHeight - 28, 13, 0, Surface); |
307 r.h:= 13; |
|
308 end; |
|
309 DrawSpriteFromRect(r, cScreenWidth - 103, cScreenHeight - 28, 13, 0, Surface); |
|
310 end else |
307 end else |
311 if WindBarWidth < 0 then |
308 if WindBarWidth < 0 then |
312 begin |
309 begin |
313 with StuffPoz[sWindL] do |
310 {$WARNINGS OFF} |
314 begin |
311 r.x:= (WindBarWidth + RealTicks shr 6) mod 8; |
315 {$WARNINGS OFF} |
312 {$WARNINGS ON} |
316 r.x:= x + (WindBarWidth + RealTicks shr 6) mod 8; |
313 r.y:= 0; |
317 {$WARNINGS ON} |
314 r.w:= - WindBarWidth; |
318 r.y:= y; |
315 r.h:= 13; |
319 r.w:= - WindBarWidth; |
316 DrawSpriteFromRect(sprWindL, r, cScreenWidth - 106 + WindBarWidth, cScreenHeight - 28, 13, 0, Surface); |
320 r.h:= 13; |
|
321 end; |
|
322 DrawSpriteFromRect(r, cScreenWidth - 106 + WindBarWidth, cScreenHeight - 28, 13, 0, Surface); |
|
323 end; |
317 end; |
324 |
318 |
325 // AmmoMenu |
319 // AmmoMenu |
326 if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu(Surface); |
320 if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu(Surface); |
327 |
321 |