Anonymous

  set %cexp.way [ $+ [ $nick ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($istok($2,1-99,45)) {
    tokenize 32 $remove($2,$chr(45))
    set %firstnum [ $+ [ $nick ] ] $1
    set %exp1 [ $+ [ $nick ] ] $1
    set %exp2 [ $+ [ $nick ] ] $2
    while (%exp1 [ $+ [ $nick ] ] <= %exp2 [ $+ [ $nick ] ]) {
      set %expoutcome [ $+ [ $nick ] ] $calc(%expoutcome [ $+ [ $nick ] ] + %level [ $+ [ %exp1 [ $+ [ $nick ] ] ] ])
      inc %exp1 [ $+ [ $nick ] ]
    }
    %cexp.way [ $+ [ $nick ] ] $c1(The exp needed for) $c2(%firstnum [ $+ [ $nick ] ]) $c1(to) $c2(%exp2 [ $+ [ $nick ] ]) $c1(is) $c2(%expoutcome [ $+ [ $nick ] ])
    unset %exp1 [ $+ [ $nick ] ]
    unset %exp2 [ $+ [ $nick ] ]
    unset %firstnum [ $+ [ $nick ] ]
  }
  else {
    do whatever you want
  }
}