hedgewars/uGearsRender.pas
changeset 9655 e154ccca4dad
parent 9505 56e0cca99e20
child 9666 8dcb25112d96
equal deleted inserted replaced
9654:47332746e6d9 9655:e154ccca4dad
   360                 end;
   360                 end;
   361             // draw crosshair
   361             // draw crosshair
   362             CrosshairX := Round(hwRound(Gear^.X) + dx * 80 + GetLaunchX(HH^.CurAmmoType, sign * m, Gear^.Angle));
   362             CrosshairX := Round(hwRound(Gear^.X) + dx * 80 + GetLaunchX(HH^.CurAmmoType, sign * m, Gear^.Angle));
   363             CrosshairY := Round(hwRound(Gear^.Y) + dy * 80 + GetLaunchY(HH^.CurAmmoType, Gear^.Angle));
   363             CrosshairY := Round(hwRound(Gear^.Y) + dy * 80 + GetLaunchY(HH^.CurAmmoType, Gear^.Angle));
   364 
   364 
   365 
   365             Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
   366             DrawTextureRotated(HH^.Team^.CrosshairTex,
   366             DrawTextureRotated(CrosshairTexture,
   367                     12, 12, CrosshairX + WorldDx, CrosshairY + WorldDy, 0,
   367                     12, 12, CrosshairX + WorldDx, CrosshairY + WorldDy, 0,
   368                     sign * (Gear^.Angle * 180.0) / cMaxAngle);
   368                     sign * (Gear^.Angle * 180.0) / cMaxAngle);
       
   369             Tint($FFFFFFFF);
   369             end;
   370             end;
   370         hx:= ox + 8 * sign;
   371         hx:= ox + 8 * sign;
   371         hy:= oy - 2;
   372         hy:= oy - 2;
   372         aangle:= Gear^.Angle * 180 / cMaxAngle - 90;
   373         aangle:= Gear^.Angle * 180 / cMaxAngle - 90;
   373         if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind <> gtTardis) then
   374         if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind <> gtTardis) then