alias Maxhit {
  dialog -m Maxhit Maxhit
}
alias Maxhit_ {
  var %Strength $iif($did(Maxhit,2) == $null,1,$did(Maxhit,2))
  if ($did(Maxhit,4) == $null) || ($did(Maxhit,4) == None) { var %potion 0 }
  elseif ($did(Maxhit,4) == Strength potion) { var %potion $calc(3 + $floor($calc(0.1* $iif($did(Maxhit,2) == $null,1,$did(Maxhit,2))))) }
  elseif ($did(Maxhit,4) == Super strength potion) { var %potion $calc(5 + $floor($calc(0.15* $iif($did(Maxhit,2) == $null,1,$did(Maxhit,2))))) }
  elseif ($did(Maxhit,4) == Zamorak brew) { var %potion $calc(2 + $floor($calc(0.12* $iif($did(Maxhit,2) == $null,1,$did(Maxhit,2))))) }
  elseif ($did(Maxhit,4) == Dragon baxe special) { var %potion $floor($calc(($iif($did(Maxhit,2) == $null,1,$did(Maxhit,2)) +9)*0.2)) }
  if ($did(Maxhit,6) == None) || ($did(Maxhit,6) == $null) { var %prayer 1 }
  elseif ($did(Maxhit,6) == Burst of Strength) { var %prayer 1.05 }
  elseif ($did(Maxhit,6) == Superhuman Strength) { var %prayer 1.1 }
  elseif ($did(Maxhit,6) == Ultimate Strength) { var %prayer 1.15 }
  elseif ($did(Maxhit,6) == Chivalry) { var %prayer 1.18 }
  elseif ($did(Maxhit,6) == Piety) { var %prayer 1.23 }
  if ($did(Maxhit,8) == $null) || ($did(Maxhit,8) == Aggressive) { var %Style 3 }
  elseif ($did(Maxhit,8) == Controlled) { var %style 1 }
  elseif ($did(Maxhit,8) == Accurate/Defensive) { var %style 0 }
  if ($did(Maxhit,12) !== Dharok's) {
    did -h Maxhit 15-17
    did -e Maxhit 14
    if ($did(Maxhit,14) == $null) || ($did(Maxhit,14) == None) { var %spec 1 }
    elseif ($did(Maxhit,14) == Dragon dagger) { var %spec 1.15 }
    elseif ($did(Maxhit,14) == Dragon halberd) { var %spec 1.1 }
    elseif ($did(Maxhit,14) == Dragon longsword) { Var %spec 1.15 }
    elseif ($did(Maxhit,14) == Dragon Mace) { Var %spec 1.45 }
  }
  else { var %spec 1 }
  if ($did(maxhit,12) == $null) || ($did(Maxhit,12) == None) { 
    var %set 1
    var %bonus 1
  }
  elseif ($did(Maxhit,12) == void) { 
    var %set 1.1
    var %bonus 1
  }
  elseif ($did(Maxhit,12) == Dharok's) { 
    var %set 1
    var %bonus $calc(2- ($did(Maxhit,17) / $did(Maxhit,16)))
    did -b Maxhit 14
    did -v Maxhit 15-17
  }
  did -a Maxhit 18 Maxhit: $Maxhit__(%strength,%potion,%prayer,%style,$did(Maxhit,10),$did(Maxhit,12),%bonus,%spec)
}
alias Maxhit__ {
  var %strength $1,%potion $2,%prayer $3,%style $4,%strbonus $5,%set $7,%bonus $8,%spec $9
  var %eStrength $floor($calc((8+ $floor($calc(((%strength + %potion) * %prayer)+ %style ))) * %set))
  return $floor($calc(((5+ %estrength * (1+ (%strbonus /64)))/10)) * %bonus * %spec)
}
dialog Maxhit {
  title "Maxhit Calculator"
  size -1 -1 100 150
  option dbu
  text "Strength level:",1,4 4 40 10
  edit "1",2,86 4 10 10
  text "Strength bonus:",9,4 20 40 10
  edit "1",10,81 20 15 10
  text "Potions:",3,4 36 25 10
  combo 4,40 36 60 10,drop
  text "Prayer:",5,4 52 25 10
  combo 6,40 52 60 10,drop
  text "Style:",7,4 68 25 10
  combo 8,40 68 60 10,drop
  text "Set effects:",11,4 84 25 17
  combo 12,40 84 60 10,drop
  text "Special:",13,4 100 25 10
  combo 14,40 100 60 10,drop
  text "Hitpoints: (Current|Total)",15,4 116 40 15
  edit "99",16,86 116 10 10
  edit "1",17,74 116 10 10
  text "Maxhit:",18,4 132 50 10
  link "www.redtube.com",19, 50 140 50 10
}
on 1:dialog:Maxhit:init:*: {
  did -a Maxhit 4 None
  did -a Maxhit 4 Strength potion
  did -a Maxhit 4 Super strength potion
  did -a Maxhit 4 Zamorak brew
  did -a Maxhit 4 Dragon baxe special
  did -a Maxhit 6 None
  did -a Maxhit 6 Burst of Strength
  did -a Maxhit 6 Superhuman Strength
  did -a Maxhit 6 Ultimate Strength
  did -a Maxhit 6 Chivalry
  did -a Maxhit 6 Piety
  did -a Maxhit 8 Aggressive
  did -a Maxhit 8 Controlled
  did -a Maxhit 8 Accurate/Defensive
  did -a Maxhit 12 None
  did -a Maxhit 12 Void
  did -a Maxhit 12 Dharok's
  did -a Maxhit 14 None
  did -a Maxhit 14 Dragon dagger
  did -a Maxhit 14 Dragon halberd
  did -a Maxhit 14 Dragon longsword
  did -a Maxhit 14 Dragon mace
  did -h Maxhit 15-17
}

on 1:dialog:Maxhit:edit:*: {
  if ($did(Maxhit,$did) !isnum) { did -r Maxhit $did }
  else { Maxhit_ }
}
on 1:dialog:Maxhit:sclick:*: { Maxhit_ }