mIRC function TextToInt

alias TextToInt {
  var %Seed $1
  var %Modifier $2
  var %Min $3
  var %Max $4

  if (%Modifier !isnum) {
    %Modifier = 0
  }
  var %Num 0
  var %Pos 1
  while (%Pos <= $len(%Seed)) {
    inc %Num $calc( $asc($mid(%Seed,%Pos,1)) * %Pos + %Modifier )
    inc %Pos
  }

  if (%Max isnum) {
    var %Div $Calc(%Max + 1 - %Min)
    return $calc(%Num % %Div + %Min)
  }
  else {
    return %Num
  }
}