sv data script by charmander

on $*:text:/^!sv (\d+(\.\d+)?|\S+(\.\S+)?)$/:#: {
  if ($me == charm) {
    var %s 1
    :start
    if (%s <= $numtok($regml(1),46)) tokenize 32 !sv $gettok($regml(1),%s,46)
    if ($regml(1) isnum) {
      var %search 1
      while (%search <= $var(%sv*,0)) {
        if ($2 == $gettok($var(%sv*,%search).value,1,32)) {
          msg # $right($var(%sv*,%search).name,-3) $chr(124) $2 $chr(124) $gettok($var(%sv*,%search).value,2-,32)
          var %matches yes
        }
        inc %search
        if (%search > $var(%sv*,0) && %matches != yes) msg # No matches were found.
      }
    }
    else {
      if (%sv [ $+ [ $2 ] ] != $null) msg # $2 $chr(124) $gettok(%sv [ $+ [ $2 ] ],1,32) $chr(124) $gettok(%sv [ $+ [ $2 ] ],2-,32)
      else msg # No matches were found.
    }
    if (%s < $numtok($regml(1),46)) {
      inc %s
      goto start
    }
  }
}