1 (* |
1 (* |
2 * Hedgewars, a worms-like game |
2 * Hedgewars, a worms-like game |
3 * Copyright (c) 2004, 2005 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004, 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * Distributed under the terms of the BSD-modified licence: |
5 * Distributed under the terms of the BSD-modified licence: |
6 * |
6 * |
7 * Permission is hereby granted, free of charge, to any person obtaining a copy |
7 * Permission is hereby granted, free of charge, to any person obtaining a copy |
8 * of this software and associated documentation files (the "Software"), to deal |
8 * of this software and associated documentation files (the "Software"), to deal |
197 for i:= 1 to Pred(cMaxCaptions) do |
197 for i:= 1 to Pred(cMaxCaptions) do |
198 Captions[Pred(i)]:= Captions[i]; |
198 Captions[Pred(i)]:= Captions[i]; |
199 Captions[Pred(cMaxCaptions)].EndTime:= 0 |
199 Captions[Pred(cMaxCaptions)].EndTime:= 0 |
200 end; |
200 end; |
201 |
201 |
|
202 // Teams Healths |
|
203 team:= TeamsList; |
|
204 i:= cSCreenHeight - 32; |
|
205 while team <> nil do |
|
206 begin |
|
207 DrawFromStoreRect(cScreenWidth div 2 - team.NameRect.w - 3, i, |
|
208 @team.NameRect, Surface); |
|
209 r:= team.HealthRect; |
|
210 r.w:= 3 + team.TeamHealth; |
|
211 DrawFromStoreRect(cScreenWidth div 2, i, |
|
212 @r, Surface); |
|
213 inc(r.x, cTeamHealthWidth + 3); |
|
214 r.w:= 2; |
|
215 DrawFromStoreRect(cScreenWidth div 2 + team.TeamHealth + 3, i, |
|
216 @r, Surface); |
|
217 dec(i, team.HealthRect.h + 2); |
|
218 team:= team.Next |
|
219 end; |
|
220 |
202 // Lag alert |
221 // Lag alert |
203 if isInLag then DrawSprite(sprLag, 32, 32 + cConsoleYAdd, (RealTicks shr 7) mod 7, Surface); |
222 if isInLag then DrawSprite(sprLag, 32, 32 + cConsoleYAdd, (RealTicks shr 7) mod 7, Surface); |
204 |
223 |
205 // Wind bar |
224 // Wind bar |
206 DrawGear(sWindBar, cScreenWidth - 180, cScreenHeight - 30, Surface); |
225 DrawGear(sWindBar, cScreenWidth - 180, cScreenHeight - 30, Surface); |