hedgewars/GearDrawing.inc
changeset 3854 d390b0f29b0b
parent 3836 833c0f32e326
child 3863 95040bd7ace4
equal deleted inserted replaced
3853:9bd5319d1fcc 3854:d390b0f29b0b
   194                    with HH^ do
   194                    with HH^ do
   195                        if (HatTex <> nil) then
   195                        if (HatTex <> nil) then
   196                            begin
   196                            begin
   197                            DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, sx, sy, 0, i, 32, 32,
   197                            DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, sx, sy, 0, i, 32, 32,
   198                                i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);
   198                                i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);
   199                            if HatTex^.w > 32 then
   199                            if HatTex^.w > 64 then
   200                                begin
   200                                begin
   201                                Tint(HH^.Team^.Clan^.Color);
   201                                Tint(HH^.Team^.Clan^.Color);
   202                                DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, sx, sy, 32, i, 32, 32,
   202                                DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, sx, sy, 32, i, 32, 32,
   203                                    i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);
   203                                    i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);
   204                                Tint($FF, $FF, $FF, $FF)
   204                                Tint($FF, $FF, $FF, $FF)
   224                             hwRound(Gear^.Y) - 8 + WorldDy,
   224                             hwRound(Gear^.Y) - 8 + WorldDy,
   225                             0,
   225                             0,
   226                             hwSign(Gear^.dX),
   226                             hwSign(Gear^.dX),
   227                             32,
   227                             32,
   228                             32);
   228                             32);
   229                         if HatTex^.w > 32 then
   229                         if HatTex^.w > 64 then
   230                             begin
   230                             begin
   231                             Tint(HH^.Team^.Clan^.Color);
   231                             Tint(HH^.Team^.Clan^.Color);
   232                             DrawTextureF(HatTex,
   232                             DrawTextureF(HatTex,
   233                                 1,
   233                                 1,
   234                                 sx,
   234                                 sx,
   541                 hwRound(Gear^.Y) - 8 + WorldDy,
   541                 hwRound(Gear^.Y) - 8 + WorldDy,
   542                 (RealTicks div 128 + Gear^.Pos) mod 19,
   542                 (RealTicks div 128 + Gear^.Pos) mod 19,
   543                 hwSign(Gear^.dX),
   543                 hwSign(Gear^.dX),
   544                 32,
   544                 32,
   545                 32);
   545                 32);
   546             if HatTex^.w > 32 then
   546             if HatTex^.w > 64 then
   547                 begin
   547                 begin
   548                 Tint(HH^.Team^.Clan^.Color);
   548                 Tint(HH^.Team^.Clan^.Color);
   549                 DrawTextureF(HatTex,
   549                 DrawTextureF(HatTex,
   550                     HatVisibility,
   550                     HatVisibility,
   551                     sx,
   551                     sx,
   565                 hwRound(Gear^.Y) - 8 + WorldDy,
   565                 hwRound(Gear^.Y) - 8 + WorldDy,
   566                 0,
   566                 0,
   567                 hwSign(Gear^.dX)*m,
   567                 hwSign(Gear^.dX)*m,
   568                 32,
   568                 32,
   569                 32);
   569                 32);
   570             if HatTex^.w > 32 then
   570             if HatTex^.w > 64 then
   571                 begin
   571                 begin
   572                 Tint(HH^.Team^.Clan^.Color);
   572                 Tint(HH^.Team^.Clan^.Color);
   573                 DrawTextureF(HatTex,
   573                 DrawTextureF(HatTex,
   574                     HatVisibility,
   574                     HatVisibility,
   575                     sx,
   575                     sx,