socket..v_v

on *:text:*:#: {
  if (*http://*smogon.com/forums/showthread.php?* iswm $1-) {
    sockopen Smogon www.smogon.com 80
    set %thread $chr(47) $+ $gettok($wildtok($1-,http://*smogon.com/forums/showthread.php?*,1,32),3-,47)
    set %chan #
  }
}
on *:sockopen:Smogon: {
  sockwrite -nt Smogon GET %thread HTTP/1.0
  sockwrite -nt Smogon Host: www.smogon.com
  sockwrite -nt Smogon $crlf
}
on *:sockread:Smogon: {
  var %text
  sockread %text
  inc %found
  if (%found == 19) {
    if (%text) msg %chan Thread: $mid(%text,32,$calc($len(%text) -61))
    else msg %chan Invalid or private thread.
    sockclose Smogon
    unset %found
  }
}