47 {$ENDIF} |
47 {$ENDIF} |
48 var FollowGear: PGear = nil; |
48 var FollowGear: PGear = nil; |
49 WindBarWidth: integer = 0; |
49 WindBarWidth: integer = 0; |
50 bShowAmmoMenu: boolean = false; |
50 bShowAmmoMenu: boolean = false; |
51 bSelected: boolean = false; |
51 bSelected: boolean = false; |
|
52 bShowFinger: boolean = false; |
52 |
53 |
53 implementation |
54 implementation |
54 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound; |
55 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound; |
55 const RealTicks: Longword = 0; |
56 const RealTicks: Longword = 0; |
56 Frames: Longword = 0; |
57 Frames: Longword = 0; |
238 DrawCentered(round(Gear.X) + WorldDx, t, NameTag, Surface); |
239 DrawCentered(round(Gear.X) + WorldDx, t, NameTag, Surface); |
239 dec(t, Team.NameTag.h + 2); |
240 dec(t, Team.NameTag.h + 2); |
240 DrawCentered(round(Gear.X) + WorldDx, t, Team.NameTag, Surface) |
241 DrawCentered(round(Gear.X) + WorldDx, t, Team.NameTag, Surface) |
241 end else // Current hedgehog |
242 end else // Current hedgehog |
242 begin |
243 begin |
|
244 if bShowFinger |
|
245 and ((Gear.State and gstHHDriven) <> 0) then DrawSprite(sprFinger, round(Gear.X) - 16 + WorldDx, round(Gear.Y) - 64 + WorldDy, RealTicks div 32 mod 16, Surface); |
243 if (Gear.State and (gstMoving or gstDrowning or gstFalling)) = 0 then |
246 if (Gear.State and (gstMoving or gstDrowning or gstFalling)) = 0 then |
244 if (Gear.State and gstHHThinking) <> 0 then |
247 if (Gear.State and gstHHThinking) <> 0 then |
245 DrawGear(sQuestion, Round(Gear.X) - 10 + WorldDx, Round(Gear.Y) - cHHRadius - 34 + WorldDy, Surface) |
248 DrawGear(sQuestion, Round(Gear.X) - 10 + WorldDx, Round(Gear.Y) - cHHRadius - 34 + WorldDy, Surface) |
246 else |
249 else |
247 if ShowCrosshair and ((Gear.State and gstAttacked) = 0) then |
250 if ShowCrosshair and ((Gear.State and gstAttacked) = 0) then |