[size=14]heres one for real foul insults ;x Just don't use it in +G rooms[/size]

on $*:text:/^@insult\s(\S+)$/iS:#: {
  if (!%f && $regml(1) ison #) {
    inc -u4 %f
    if ($sock(ins)) sockclose ins
    sockopen ins www.beleaguer.com 80
    sockmark ins $+($regml(1),$chr(44)) msg #
  }
}

on *:sockopen:ins: {
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: $+($sock(ins).addr,$str($crlf,2))
}
on *:sockread:ins: {
  var %ins | sockread %ins
  if ($regex(%ins,/<span class="b">(.+)<\/span><br>(.+)<\/span><\/td>/)) {
    $gettok($sock(ins).mark,2-,32) $regml(1) $gettok($sock(ins).mark,1,32) $regml(2)
    sockclose ins
  }
}