damage calc

alias damage {
  var %damage $calc(((((2 * $1) / 5 + 2) * $2 * $3) / $4) / 50 + 2)
  var %random 15
  while (%random >= 0) {
    var %calcs %calcs $round($calc((%damage * (100 - %random)) / 100)),0)
    dec %random
  }
  echo -a %damage
  echo -a $calc($gettok(%calcs,1,32) / $5 * 100) $+  % - $calc($gettok(%calcs,15,32) / $5 * 100)) $+ % $+($chr(40),%calcs,$chr(41))
}