337 DrawSelectedWeapon(Gear, sx, sy, false); |
337 DrawSelectedWeapon(Gear, sx, sy, false); |
338 end |
338 end |
339 end; |
339 end; |
340 |
340 |
341 procedure RenderAirMineGuiExtras(Gear: PGear; ox, oy: LongInt); |
341 procedure RenderAirMineGuiExtras(Gear: PGear; ox, oy: LongInt); |
|
342 var isChasing: boolean; |
342 begin |
343 begin |
343 // render air mine contour, if underwater |
344 // render air mine contour, if underwater |
344 if (((not SuddenDeathDmg) and (WaterOpacity > cGearContourThreshold)) or (SuddenDeathDmg and (SDWaterOpacity > cGearContourThreshold))) and |
345 if (((not SuddenDeathDmg) and (WaterOpacity > cGearContourThreshold)) or (SuddenDeathDmg and (SDWaterOpacity > cGearContourThreshold))) and |
345 ((cWaterLine < (hwRound(Gear^.Y) + Gear^.Radius + 16)) or |
346 ((cWaterLine < (hwRound(Gear^.Y) + Gear^.Radius + 16)) or |
346 ((WorldEdge = weSea) and ((hwRound(Gear^.X) < LeftX + 24) or (hwRound(Gear^.X) > RightX - 24)))) then |
347 ((WorldEdge = weSea) and ((hwRound(Gear^.X) < LeftX + 24) or (hwRound(Gear^.X) > RightX - 24)))) then |
|
348 begin |
|
349 isChasing:= ((Gear^.State and gstFrozen) = 0) and (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) and ((Gear^.State and gstTmpFlag) <> 0) and (Gear^.Tag = 0); |
|
350 if isChasing then |
|
351 Tint($FF, $30, $30, $FF); |
347 DrawSprite(sprAirMine, ox-16, oy-16, 32); |
352 DrawSprite(sprAirMine, ox-16, oy-16, 32); |
|
353 if isChasing then |
|
354 untint; |
|
355 end; |
348 end; |
356 end; |
349 |
357 |
350 procedure DrawHH(Gear: PGear; ox, oy: LongInt); |
358 procedure DrawHH(Gear: PGear; ox, oy: LongInt); |
351 var i, t: LongInt; |
359 var i, t: LongInt; |
352 amt: TAmmoType; |
360 amt: TAmmoType; |