hedgewars/uGearsRender.pas
changeset 14395 f39d34d78028
parent 14341 d5317635f368
child 14552 05b929808585
equal deleted inserted replaced
14394:d670e4efe1ed 14395:f39d34d78028
  1187                         ty:= max(ViewTopY + t, ty);
  1187                         ty:= max(ViewTopY + t, ty);
  1188                     end;
  1188                     end;
  1189 
  1189 
  1190                 dAngle := DxDy2Angle(int2hwfloat(ty - oy), int2hwfloat(tx - ox)) + 90;
  1190                 dAngle := DxDy2Angle(int2hwfloat(ty - oy), int2hwfloat(tx - ox)) + 90;
  1191 
  1191 
       
  1192                 Tint(Team^.Clan^.Color shl 8 or $FF);
  1192                 DrawSpriteRotatedF(sprFinger, tx, ty, RealTicks div 32 mod 16, 1, dAngle);
  1193                 DrawSpriteRotatedF(sprFinger, tx, ty, RealTicks div 32 mod 16, 1, dAngle);
       
  1194                 untint;
  1193                 end;
  1195                 end;
  1194 
  1196 
  1195 
  1197 
  1196             if (Gear^.State and gstDrowning) = 0 then
  1198             if (Gear^.State and gstDrowning) = 0 then
  1197                 if (Gear^.State and gstHHThinking) <> 0 then
  1199                 if (Gear^.State and gstHHThinking) <> 0 then
  1262     else if Gear^.AmmoType = amIceGun then
  1264     else if Gear^.AmmoType = amIceGun then
  1263         //DrawSprite(sprSnowDust, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, (RealTicks shr 2) mod 8)
  1265         //DrawSprite(sprSnowDust, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, (RealTicks shr 2) mod 8)
  1264         //DrawTextureRotatedF(SpritesData[sprSnowDust].Texture, 1, 0, 0, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, (RealTicks shr 2) mod 8, 1, 22, 22, (RealTicks shr 3) mod 360)
  1266         //DrawTextureRotatedF(SpritesData[sprSnowDust].Texture, 1, 0, 0, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, (RealTicks shr 2) mod 8, 1, 22, 22, (RealTicks shr 3) mod 360)
  1265         DrawTextureRotatedF(SpritesData[sprSnowDust].Texture, 1/(1+(RealTicks shr 8) mod 5), 0, 0, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, (RealTicks shr 2) mod 8, 1, 22, 22, (RealTicks shr 3) mod 360)
  1267         DrawTextureRotatedF(SpritesData[sprSnowDust].Texture, 1/(1+(RealTicks shr 8) mod 5), 0, 0, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, (RealTicks shr 2) mod 8, 1, 22, 22, (RealTicks shr 3) mod 360)
  1266     else
  1268     else
       
  1269         begin
       
  1270         if CurrentHedgehog <> nil then
       
  1271             Tint(CurrentHedgehog^.Team^.Clan^.Color shl 8 or $FF);
  1267         DrawSpriteRotatedF(sprTargetP, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
  1272         DrawSpriteRotatedF(sprTargetP, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1273         if CurrentHedgehog <> nil then
       
  1274             untint;
       
  1275         end;
  1268 
  1276 
  1269     case Gear^.Kind of
  1277     case Gear^.Kind of
  1270           gtGrenade: DrawSpriteRotated(sprBomb, x, y, 0, Gear^.DirAngle);
  1278           gtGrenade: DrawSpriteRotated(sprBomb, x, y, 0, Gear^.DirAngle);
  1271       gtSnowball: DrawSpriteRotated(sprSnowball, x, y, 0, Gear^.DirAngle);
  1279       gtSnowball: DrawSpriteRotated(sprSnowball, x, y, 0, Gear^.DirAngle);
  1272        gtGasBomb: DrawSpriteRotated(sprCheese, x, y, 0, Gear^.DirAngle);
  1280        gtGasBomb: DrawSpriteRotated(sprCheese, x, y, 0, Gear^.DirAngle);
  1465                         if ((Gear^.State and gstAnimation) <> 0) then
  1473                         if ((Gear^.State and gstAnimation) <> 0) then
  1466                             DrawSpriteRotatedF(sprTeleport, x + 1, y - 3, Gear^.Pos, hwSign(Gear^.dX), 0);
  1474                             DrawSpriteRotatedF(sprTeleport, x + 1, y - 3, Gear^.Pos, hwSign(Gear^.dX), 0);
  1467                         DrawSpriteRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0)
  1475                         DrawSpriteRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0)
  1468                         end
  1476                         end
  1469                     end;
  1477                     end;
  1470         gtSwitcher: DrawSprite(sprSwitch, x - 16, y - 56, (RealTicks shr 6) mod 12);
  1478         gtSwitcher: begin
       
  1479                     setTintAdd(true);
       
  1480                     Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
       
  1481                     DrawSprite(sprSwitch, x - 16, y - 56, (RealTicks shr 6) mod 12);
       
  1482                     untint;
       
  1483                     setTintAdd(false);
       
  1484                     end;
  1471           gtTarget: begin
  1485           gtTarget: begin
  1472                     Tint($FF, $FF, $FF, round($FF * Gear^.Timer / 1000));
  1486                     Tint($FF, $FF, $FF, round($FF * Gear^.Timer / 1000));
  1473                     DrawSprite(sprTarget, x - 16, y - 16, 0);
  1487                     DrawSprite(sprTarget, x - 16, y - 16, 0);
  1474                     untint;
  1488                     untint;
  1475                     end;
  1489                     end;