hedgewars/uWorld.pas
changeset 14744 f5dadf2b7d03
parent 14741 37a781d28e43
child 14766 cbdfc5b1d5b8
equal deleted inserted replaced
14743:731c8406bff0 14744:f5dadf2b7d03
  1438     with PHedgehog(CurrentHedgehog)^ do
  1438     with PHedgehog(CurrentHedgehog)^ do
  1439         begin
  1439         begin
  1440         if CurAmmoType = amBee then
  1440         if CurAmmoType = amBee then
  1441             spr:= sprTargetBee
  1441             spr:= sprTargetBee
  1442         else
  1442         else
  1443             begin
       
  1444             spr:= sprTargetP;
  1443             spr:= sprTargetP;
       
  1444         if replicateToLeft then
       
  1445             begin
       
  1446             ShiftWorld(-1);
       
  1447             if spr = sprTargetP then
       
  1448                 begin
       
  1449                 if IsTooDarkToRead(Team^.Clan^.Color) then
       
  1450                     DrawSpriteRotatedF(sprTargetPBackInv, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360)
       
  1451                 else
       
  1452                     DrawSpriteRotatedF(sprTargetPBack, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1453                 Tint(Team^.Clan^.Color shl 8 or $FF);
       
  1454                 end;
       
  1455             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1456             if spr = sprTargetP then
       
  1457                 untint;
       
  1458             UnshiftWorld();
       
  1459             end;
       
  1460 
       
  1461         if replicateToRight then
       
  1462             begin
       
  1463             ShiftWorld(1);
       
  1464             if spr = sprTargetP then
       
  1465                 begin
       
  1466                 if IsTooDarkToRead(Team^.Clan^.Color) then
       
  1467                     DrawSpriteRotatedF(sprTargetPBackInv, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360)
       
  1468                 else
       
  1469                     DrawSpriteRotatedF(sprTargetPBack, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1470                 Tint(Team^.Clan^.Color shl 8 or $FF);
       
  1471                 end;
       
  1472             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1473             if spr = sprTargetP then
       
  1474                 untint;
       
  1475             UnshiftWorld();
       
  1476             end;
       
  1477 
       
  1478         if spr = sprTargetP then
       
  1479             begin
       
  1480             if IsTooDarkToRead(Team^.Clan^.Color) then
       
  1481                 DrawSpriteRotatedF(sprTargetPBackInv, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360)
       
  1482             else
       
  1483                 DrawSpriteRotatedF(sprTargetPBack, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
  1445             Tint(Team^.Clan^.Color shl 8 or $FF);
  1484             Tint(Team^.Clan^.Color shl 8 or $FF);
  1446             end;
  1485             end;
  1447         if replicateToLeft then
       
  1448             begin
       
  1449             ShiftWorld(-1);
       
  1450             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1451             UnshiftWorld();
       
  1452             end;
       
  1453 
       
  1454         if replicateToRight then
       
  1455             begin
       
  1456             ShiftWorld(1);
       
  1457             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1458             UnshiftWorld();
       
  1459             end;
       
  1460 
       
  1461         DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
  1486         DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
  1462         if spr = sprTargetP then
  1487         if spr = sprTargetP then
  1463             untint;
  1488             untint;
  1464         end;
  1489         end;
  1465     end;
  1490     end;