Redo

alias -l numa {
  if (($1 != #n) && ($1 != #impossiblequiz)) {
      sockclose numa | unset %numa.*
      var -g %numa.chan $1, %numa.search $replace($2-,$chr(32),+)
      sockopen numa www.nmaps.net 80
  }
}

on $*:TEXT:/^!(.*)/Si:*: numa $iif(#,#,$nick) $regml(1)

on *:INPUT:*: if ($regex($1,/^!(.*)/Si)) && (!$ctrlenter) numa $target $regml(1)

on *:SOCKOPEN:numa: {
  sockwrite -nt $sockname GET /browse?random=true&q= $+ %numa.search HTTP/1.1
  sockwrite -nt $sockname Host: www.nmaps.net
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:numa: {
  sockread %numa.sock
  if ($sockerr) return
  if (<h2>No Maps Found.</h2> isin %numa.sock) {
    msg %numa.chan No results found. Please try again. | unset %numa.*
    sockclose $sockname
  }
  if ($regex(%numa.sock,/<a href="\/(\d+)">([^<]+)<\/a>/i)) {
    var -g %numa.find $qt($regml(2)), %numa.id $regml(1)
  }
  if ($regex(%numa.sock,/<a href="\/user\/([^>]+)">/i)) {
    msg %numa.chan $htmlfree(%numa.find -- http://nmaps.net/ $+ %numa.id -- $+(,%numa.id,) by: $regml(1))
    unset %numa.* | sockclose $sockname
  }
}

;htmlfree alias Probably by Socky/Sockmonkey

alias htmlfree {
  var %x = $regsubex($1-,/&#([0-9]+)(;)?/g,$chr(\t))
  var %x = $regsubex(%x,/&(amp)(;)?/gSi,$chr(38))
  var %x = $regsubex(%x,/&(middot)(;)?/gSi,$chr(183))
  var %x = $regsubex(%x,/&(quot)(;)?/gSi,$chr(34))
  var %x = $regsubex(%x,/&(apos)(;)?/gSi,$chr(39))
  var %x = $regsubex(%x,/&(lt)(;)?/gSi,$chr(60))
  var %x = $regsubex(%x,/&(gt)(;)?/gSi,$chr(62))
  var %x = $regsubex(%x,/&(nbsp)(;)?/gSi,$chr(32))
  var %x = $regsubex(%x,/&(pound)(;)?/gSi,$chr(163))
  var %x = $regsubex(%x,/&(section)(;)?/gSi,$chr(32))
  var %x = $regsubex(%x,/&(copy)(;)?/gSi,$chr(169))
  var %x = $regsubex(%x,/&(reg)(;)?/gSi,$chr(174))
  var %x = $regsubex(%x,/&(trade)(;)?/gSi,$chr(153))
  var %x = $regsubex(%x,/&(curren)(;)?/gSi,$chr(164))
  var %x = $regsubex(%x,/&(deg)(;)?/gSi,$chr(176))
  var %x = $regsubex(%x,/\<(\/)?b>/gSi,$null)
  var %x = $regsubex(%x,/(<[^>]+>)/g,$null)
  return %x
}