hedgewars/uGearsRender.pas
changeset 10526 b43d175d1577
parent 10523 00ac079fa51f
child 10528 17eb01474f42
equal deleted inserted replaced
10525:019b4fbb21d4 10526:b43d175d1577
   795     end else // not gstHHDriven
   795     end else // not gstHHDriven
   796         begin
   796         begin
   797         if (Gear^.Damage > 0) and (HH^.Effects[heFrozen] = 0)
   797         if (Gear^.Damage > 0) and (HH^.Effects[heFrozen] = 0)
   798         and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then
   798         and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then
   799             begin
   799             begin
   800             DrawHedgehog(sx, sy,
   800             defaultPos:= false;
   801                 sign,
   801                 DrawHedgehog(sx, sy,
   802                 2,
   802                     sign,
   803                 1,
   803                     2,
   804                 Gear^.DirAngle);
   804                     1,
   805             defaultPos:= false
   805                     Gear^.DirAngle);
   806             end else
   806             if AprilOne and (curhat <> nil) then
       
   807                 DrawTextureRotatedF(curhat, 1.0, -1.0, 0, sx, sy, 18, sign, 32, 32,
       
   808                     sign*Gear^.DirAngle)
       
   809             end;
       
   810             
   807 
   811 
   808         if ((Gear^.State and gstHHJumping) <> 0) then
   812         if ((Gear^.State and gstHHJumping) <> 0) then
   809             begin
   813             begin
   810             DrawHedgehog(sx, sy,
   814             DrawHedgehog(sx, sy,
   811                 sign*m,
   815                 sign*m,