???

alias urlencode return $regsubex($1,/([^a-z0-9_-])/gi,$iif($asc(\t) == 32,+,% $+ $base($v1,10,16)))

alias numa {
  if (!$sock(numa)) {
    sockopen numa www.nmaps.net 80
    var -g %numa.who $1, %numa.tags $2
  }
}

on *:SOCKOPEN:numa: {
  sockwrite -nt $sockname GET $+(/browse?q=,%numa.tags,&ifl=Surprise+Me!) HTTP/1.0
  sockwrite -n $sockname Host: www.nmaps.net
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:numa: {
  var %numa | sockread %numa | tokenize 32 %numa
  if ($1 == Location:) {
    sockopen map www.nmaps.net 80
    set %numa.map $gettok($2,-1,47)
    sockclose $sockname
  }
  if (No Maps Found isin $1-) {
    msg %numa.who No Maps Found.
    unset -s %numa.*
    sockclose $sockname
  }
}

on *:SOCKOPEN:map: {
  sockwrite -n $sockname GET $+(/,%numa.map) HTTP/1.1
  sockwrite -n $sockname Host: www.nmaps.net
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:map: {
  var %map | sockread %map
  if ($sockbr > 2) aline -p @NUMA >> %map
  if ($regex(%map,/<td><textarea rows="1" cols="40">\44([^#]+)\43([^#]+).+/)) {
    msg %numa.who $+(http://www.nmaps.net/,%numa.map,) -- $+(",$regml(1),") by $regml(2)
    unset -s %numa.*
    sockclose $sockname
  }
}


on *:INPUT:#Meta_Testing_Stuff,#n-highscores,#n-mapping: if ($left($1,1) == !) numa # $urlencode($right($1-,-1))
on *:TEXT:!*:#Meta_Testing_Stuff,#n-highscores,#n-mapping,?: numa $iif(#,#,$nick) $urlencode($right($1-,-1))