hedgewars/uGearsRender.pas
changeset 14200 1bdce164eb72
parent 14196 ab5e710d353d
child 14282 6015b74eea55
equal deleted inserted replaced
14199:3c36a4e66c82 14200:1bdce164eb72
  1337                     else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle);
  1337                     else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle);
  1338                     end;
  1338                     end;
  1339          gtAirMine: 
  1339          gtAirMine: 
  1340 					if (Gear^.State and gstFrozen <> 0) then 
  1340 					if (Gear^.State and gstFrozen <> 0) then 
  1341                         DrawSprite(sprFrozenAirMine, x-16, y-16, 15)
  1341                         DrawSprite(sprFrozenAirMine, x-16, y-16, 15)
       
  1342           else if (Gear^.Tag <> 0) then
       
  1343                         DrawSprite(sprAirMine, x-16, y-16, 16 + ((RealTicks div 50 + Gear^.Uid) mod 16))
  1342 					else if (Gear^.State and gstTmpFlag = 0) then                // mine is inactive
  1344 					else if (Gear^.State and gstTmpFlag = 0) then                // mine is inactive
  1343                         begin
  1345                         begin
  1344 						if (Gear^.State and gstTmpFlag = 0) then Tint(150,150,150,255);
  1346 						if (Gear^.State and gstTmpFlag = 0) then Tint(150,150,150,255);
  1345                         DrawSprite(sprAirMine, x-16, y-16, 15);
  1347                         DrawSprite(sprAirMine, x-16, y-16, 15);
  1346                         untint
  1348                         untint