; /compare combatTimeInSeconds spelldmg hit crit [t2]
; e.g. /compare 600 723 4 7 t2 if with t2 and /compare 600 723 4 7 if without t2
;


alias compare {
  echo -- starting comparison (Frostbolt) for $2 spelldmg, $3 hit $4 crit in $1 seconds $iif($5 == t2,(with t2))
  var %s = $2
  var %h = $calc(89+ $3)
  var %c = $calc(17+ $4)


  var %x = 0
  var %t2procs = 0
  var %dmg = 0
  var %misses = 0
  var %casts = 0
  while (%x < $1) {
    var %ctime = 2.5
    if ($5 == t2) {
      :1
      var %rt = $rand(0,11)
      if (%rt == 0) || (%rt == 11) goto 1
      if (%rt == 1) {
        inc %t2procs
        var %ctime = 1.5
      }
    }
    :2
    var %rh = $rand(0,101)
    if (%rh == 0) || (%rh == 101) goto 2
    if (%rh <= %h) {
      :3
      var %rc = $rand(0,101)
      if (%rc == 0) || (%r == 101) goto 3
      if (%rc <= %c) {
        var %dmg = $calc(%dmg + (457+ 0.814*%s)*2)
      }
      else {
        var %dmg = $calc(%dmg + 457+ 0.814*%s)
      }
    }
    else { inc %misses }
    inc %casts

    var %x = $calc(%x + %ctime)
  }
  echo -- combat ended after %x seconds.
  echo -- $round(%dmg,0)
  echo -- %casts ( $+ $calc(%casts - %misses) hits, %misses misses)
  if ($5 == t2) echo -- %t2procs T2 set procs
  echo --

}

alias comparefire {
  echo -- starting comparison (Fireball) for $2 spelldmg, $3 hit $4 crit in $1 seconds $iif($5 == t2,(with t2))
  var %s = $2
  var %h = $calc(89+ $3)
  var %c = $calc(17+ $4)


  var %x = 0
  var %t2procs = 0
  var %dmg = 0
  var %misses = 0
  var %casts = 0
  while (%x < $1) {
    var %ctime = 3
    if ($5 == t2) {
      :1
      var %rt = $rand(0,11)
      if (%rt == 0) || (%rt == 11) goto 1
      if (%rt == 1) {
        inc %t2procs
        var %ctime = 1.5
      }
    }
    :2
    var %rh = $rand(0,101)
    if (%rh == 0) || (%rh == 101) goto 2
    if (%rh <= %h) {
      :3
      var %rc = $rand(0,101)
      if (%rc == 0) || (%rc == 101) goto 3
      if (%rc <= %c) {
        var %dmg = $calc(%dmg + (638+ %s)*2.1)
      }
      else {
        var %dmg = $calc(%dmg + 638+ %s)
      }
    }
    else { inc %misses }
    inc %casts

    var %x = %x + %ctime
  }
  echo -- combat ended after %x seconds.
  echo -- $round(%dmg,0)
  echo -- %casts ( $+ $calc(%casts - %misses) hits, %misses misses)
  if ($5 == t2) echo -- %t2procs T2 set procs
  echo --

}