Monster Hunter 4 Ultimate Damage Calculator

redSharpness    = 0.50
orangeSharpness = 0.75
yellowSharpness = 1.00
greenSharpness  = 1.05
blueSharpness   = 1.20
whiteSharpness  = 1.32
purpleSharpness = 1.44

redElementSharpness    = 0.25
orangeElementSharpness = 0.50
yellowElementSharpness = 0.75
greenElementSharpness  = 1.00
blueElementSharpness   = 1.06
whiteElementSharpness  = 1.12
purpleElementSharpness = 1.20

greatSwordFactor     = 4.8
longSwordFactor      = 3.3
swordAndShieldFactor = 1.4
dualBladesFactor     = 1.4
hammerFactor         = 5.2
huntingHornFactor    = 5.2
lanceFactor          = 2.3
gunlanceFactor       = 2.3
switchAxeFactor      = 5.4
chargeBladeFactor    = 3.6
insectGlaiveFactor   = 3.1
lightBowgunFactor    = 1.3
heavyBowgunFactor    = 1.5
bowFactor            = 1.2

bowCharge1 = 0.4
bowCharge2 = 1.0
bowCharge3 = 1.5
bowCharge4 = 1.7

closeDistance    = 1.0
criticalDistance = 1.5
farDistance      = 0.8
veryFarDistance  = 0.5

powerCoating = 1.5

bowRapid1 = [ 0.12 ]
bowRapid2 = [ 0.12, 0.04 ]
bowRapid3 = [ 0.12, 0.04, 0.03 ]
bowRapid4 = [ 0.12, 0.04, 0.03, 0.02 ]
bowRapid5 = [ 0.12, 0.04, 0.03, 0.03 ]

gunRapidNormal2 = [ 0.12 * 0.80, 0.12 * 0.80, 0.12 * 0.80 ]

powerCharm = 6
megaDemondrug = 7
powerTalon = 9
mightSeed = 10
attackUpXL = 25


affinity a b =
  a * (1 + 0.25 * (b / 100))

cap a b c =
  max a (min b c)

weapon factor raw aff buff motion =
  let trueRaw  = (raw / factor) + buff
      expected = affinity trueRaw $ cap (-100) aff 100
  in
    truncate (expected * motion)

melee factor raw sharpness aff buff motion =
  weapon factor raw aff buff (sharpness * motion)

greatSword raw sharpness aff crit =
  melee greatSwordFactor raw sharpness (if crit then aff + 100 else aff)

huntingHorn =
  melee huntingHornFactor

switchAxe =
  melee switchAxeFactor

bow raw aff buff coating charge a distance =
  sum $ map (\x -> weapon bowFactor raw aff buff (x * coating * charge * distance)) a

lightBowgun raw aff buff shot distance =
  sum $ map (\x -> weapon lightBowgunFactor raw aff buff (x * distance)) shot

heavyBowgun raw aff buff shot distance =
  weapon heavyBowgunFactor raw aff buff (shot * distance)

calculate a =
  print $ sum a


calculateGreatSword sword buff =
  do let unsheathe    = sword True buff 0.48
     let charge3      = sword True buff (1.1 * 1.3)
     let sideSlash    = sword False buff 0.36
     let superCharge3 = sword False buff (1.15 * 1.3)
     let finisher2    = sword False buff (0.66 * 1.2)
     let finisher3    = sword False buff (1.1 * 1.3)

     calculate
       [ unsheathe ]

     calculate
       [ unsheathe, sideSlash ]

     calculate
       [ unsheathe, finisher2 ]

     calculate
       [ charge3 ]

     calculate
       [ charge3, sideSlash ]

     calculate
       [ charge3, sideSlash, superCharge3 ]

     calculate
       [ charge3, sideSlash, superCharge3, finisher3 ]


calculateHuntingHorn horn buff multiplier =
  do calculate
       [ horn buff (0.45 * multiplier) ]

     calculate
       [ horn buff (0.15 * multiplier)
       , horn buff (0.45 * multiplier) ]


chedaPlus          = greatSword 960 whiteSharpness 10
rogueSedition      = greatSword (1392 + 96) purpleSharpness 20
greatSwordMaxRelic = greatSword 1728 purpleSharpness (-10)

shalyaPlus   = bow 300 20
kamaSedition = bow 384 30

vayuSedition = lightBowgun (390 * 1.1) 20

furiaSedition = heavyBowgun (450 * 1.15 * 1.1) 10

baraqSedition = switchAxe 1566 purpleSharpness 10

vadyaMusePlus = huntingHorn 988 whiteSharpness 10
maqamSedition = huntingHorn 1456 purpleSharpness 20


buffs = powerCharm + powerTalon + megaDemondrug + mightSeed + attackUpXL

main =
  do print "Cheda Blade+"
     calculateGreatSword chedaPlus buffs

     print "Rogue Sedition"
     calculateGreatSword rogueSedition buffs

     print "Max GS Relic"
     calculateGreatSword greatSwordMaxRelic buffs

     print "Baraq Sedition"
     calculate
       [ baraqSedition buffs 0.30
       , baraqSedition buffs 0.30 ]

     print "Shalya Bow+"
     calculate
       [ shalyaPlus buffs powerCoating bowCharge3 bowRapid4 criticalDistance ]

     print "Kama Sedition"
     calculate
       [ kamaSedition buffs powerCoating bowCharge3 bowRapid5 criticalDistance ]

     print "Vayu Sedition"
     calculate
       [ vayuSedition buffs gunRapidNormal2 criticalDistance
       , vayuSedition buffs gunRapidNormal2 criticalDistance ]

     print "Furia Sedition"
     calculate
       [ furiaSedition buffs 0.12 criticalDistance
       , furiaSedition buffs 0.12 criticalDistance
       , furiaSedition buffs 0.12 criticalDistance
       , furiaSedition buffs 0.12 criticalDistance ]

     print "Vadya Muse+"
     calculateHuntingHorn vadyaMusePlus buffs 1.15

     print "Maqam Sedition"
     calculateHuntingHorn maqamSedition buffs 1.15