hedgewars/GearDrawing.inc
changeset 4307 eb0f5c45e7ab
parent 4281 e033cf015b2c
child 4313 0690067bc5ff
equal deleted inserted replaced
4305:a020540e0ab8 4307:eb0f5c45e7ab
   694                  or (Gear^.IntersectGear = nil) or (Gear^.IntersectGear^.IntersectGear <> Gear) // not linked&backlinked?
   694                  or (Gear^.IntersectGear = nil) or (Gear^.IntersectGear^.IntersectGear <> Gear) // not linked&backlinked?
   695                  or ((Gear^.IntersectGear^.Tag and 1) = 0) then // linked portal still moving?
   695                  or ((Gear^.IntersectGear^.Tag and 1) = 0) then // linked portal still moving?
   696                       DrawRotatedf(sprPortal, x, y, Gear^.Tag, hwSign(Gear^.dX), Gear^.DirAngle)
   696                       DrawRotatedf(sprPortal, x, y, Gear^.Tag, hwSign(Gear^.dX), Gear^.DirAngle)
   697                  else DrawRotatedf(sprPortal, x, y, 4 + Gear^.Tag div 2, hwSign(Gear^.dX), Gear^.DirAngle);
   697                  else DrawRotatedf(sprPortal, x, y, 4 + Gear^.Tag div 2, hwSign(Gear^.dX), Gear^.DirAngle);
   698 
   698 
   699        gtDrill: DrawRotated(sprDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
   699            gtDrill: if (Gear^.State and gsttmpFlag) <> 0 then
       
   700                         DrawRotated(sprAirDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX))
       
   701                     else
       
   702                         DrawRotated(sprDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
   700 
   703 
   701         gtHedgehog: DrawHH(Gear, x, y);
   704         gtHedgehog: DrawHH(Gear, x, y);
   702 
   705 
   703            gtShell: DrawRotated(sprBazookaShell, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
   706            gtShell: DrawRotated(sprBazookaShell, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
   704 
   707