hedgewars/uGears.pas
changeset 2946 1d9e0a541c62
parent 2945 b30e6350a221
child 2947 803b277e4894
equal deleted inserted replaced
2945:b30e6350a221 2946:1d9e0a541c62
  1588                                         i:= i mod 12;
  1588                                         i:= i mod 12;
  1589                                         DrawSprite(sprUtility, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i);
  1589                                         DrawSprite(sprUtility, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i);
  1590                                         end;
  1590                                         end;
  1591                          end;
  1591                          end;
  1592       gtExplosives: begin
  1592       gtExplosives: begin
  1593                     i:= (GameTicks shr 6) mod 64;
  1593                     i:= (GameTicks shr 6 + Gear^.uid) mod 64;
  1594                     if i > 18 then i:= 0;
  1594                     if i > 18 then i:= 0;
  1595                     if Gear^.State and gstAnimation = 0 then
  1595                     if Gear^.State and gstAnimation = 0 then
  1596                         DrawSprite(sprExplosives, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i)
  1596                         DrawSprite(sprExplosives, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i)
  1597                     else
  1597                     else
  1598                         DrawRotatedF(sprExplosivesRoll, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) +4 + WorldDy, 0, 0, Gear^.DirAngle);
  1598                         DrawRotatedF(sprExplosivesRoll, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) +4 + WorldDy, 0, 0, Gear^.DirAngle);