hedgewars/uGearsRender.pas
changeset 10818 f642a28cab0c
parent 10807 66cde98f8cbe
child 10848 231d3e3d3267
equal deleted inserted replaced
10816:37410518628e 10818:f642a28cab0c
  1126                         DrawSprite(sprAirMine, x-16, y-16, 15);
  1126                         DrawSprite(sprAirMine, x-16, y-16, 15);
  1127                         untint
  1127                         untint
  1128                         end
  1128                         end
  1129                     else if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then  // mine is chasing a hog
  1129                     else if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then  // mine is chasing a hog
  1130                          DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 25) mod 16)
  1130                          DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 25) mod 16)
  1131                     else if Gear^.State and gstHHChooseTarget <> 0 then   // mine is seeking for hogs
  1131                     else if Gear^.State and gstChooseTarget <> 0 then   // mine is seeking for hogs
  1132                          DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 125) mod 16)
  1132                          DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 125) mod 16)
  1133                     else
  1133                     else
  1134                          DrawSprite(sprAirMine, x-16, y-16, 4);           // mine is active but not seeking
  1134                          DrawSprite(sprAirMine, x-16, y-16, 4);           // mine is active but not seeking
  1135 
  1135 
  1136            gtSMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then
  1136            gtSMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then