hedgewars/uGearsRender.pas
changeset 12120 1aae30470fa3
parent 12119 3374e0f67f39
child 12192 de9144250c37
equal deleted inserted replaced
12119:3374e0f67f39 12120:1aae30470fa3
   845             end;
   845             end;
   846 
   846 
   847             case amt of
   847             case amt of
   848                 amBaseballBat: DrawSpritePivotedF(sprHandBaseball,
   848                 amBaseballBat: DrawSpritePivotedF(sprHandBaseball,
   849                         sx + 9 * sign,
   849                         sx + 9 * sign,
   850                         sy - 6, 0, sign, -8, 9, aangle);
   850                         sy + 2, 0, sign, -8, 1, aangle);
   851             end;
   851             end;
   852 
   852 
   853             defaultPos:= false
   853             defaultPos:= false
   854         end;
   854         end;
   855 
   855 
  1043                             end;
  1043                             end;
  1044                         if CurAmmoGear^.Tex <> nil then
  1044                         if CurAmmoGear^.Tex <> nil then
  1045                             DrawTextureCentered(sx, sy - 40, CurAmmoGear^.Tex);
  1045                             DrawTextureCentered(sx, sy - 40, CurAmmoGear^.Tex);
  1046                         DrawAltWeapon(Gear, sx, sy)
  1046                         DrawAltWeapon(Gear, sx, sy)
  1047                         end;
  1047                         end;
  1048                 gtShover: DrawSpritePivotedF(sprHandBaseball, sx + 9 * sign, sy - 6, CurAmmoGear^.Tag, sign, -8, 9, aangle);
  1048                 gtShover: DrawSpritePivotedF(sprHandBaseball, sx + 9 * sign, sy + 2, CurAmmoGear^.Tag, sign, -8, 1, aangle);
  1049                 end;
  1049                 end;
  1050             end
  1050             end
  1051         end;
  1051         end;
  1052 
  1052 
  1053     with HH^ do
  1053     with HH^ do