#MGS On
on $*:text:/^[.!@]mgs*/Si:#: {
  if ($2 !isnum 1-4) .notice $nick Syntax: $1 <1 ~ 4>
  elseif ($2 isnum 1-4) && (!$sock(mgs)) {
    sockopen mgs www.imdb.com 80
    sockmark mgs # $2 $iif($2 == 1,$r(1,96) tt0180825,$iif($2 == 2,$r(1,140) tt0249008,$iif($2 == 3,$r(1,79) tt0365498,$iif($2 == 4,$r(1,36) tt0462423)))))
  }
}
#MGS End
menu * {
  $iif($group(#MGS) == On,$style(1)) Metal Gear Solid Memorable Quotes
  .$iif($group(#MGS) == On,$style(2)) On: .enable #MGS
  .$iif($group(#MGS) == Off,$style(2)) Off: .disable #MGS
}
on *:sockopen:mgs: {
  sockwrite -n $sockname GET $+(/title/,$gettok($sock(mgs).mark,4,32),/quotes) HTTP/1.0
  sockwrite -n $sockname Host: www.imdb.com
  sockwrite -n $sockname $crlf
}
on *:sockread:mgs: {
  sockread %mgs
  if ($regex(%mgs,<a name="qt[\d]+"></a>)) {
    hinc -m MGS 1
    if ($hget(MGS,1) == $gettok($sock(mgs).mark,3,32)) {
      while (!$regex(%mgs,<hr width="30%">)) {
        sockread %mgs
        if ($regex(%mgs,<b><a href="/name/.*/">(.*)</a></b>:|<b>(.*)</b>:)) {
          hinc -m MGS 2 | hadd -m MGS_Quotes $hget(MGS,2) $+(<,$gettok(~.&.@.%.+.,$r(1,5),46),$regml(1),>)
          sockread %mgs
          hinc -m MGS 2 | hadd -m MGS_Quotes $hget(MGS,2) $regsubex(%mgs,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null)
        }
      }
    }
  }
  elseif ($regex(%mgs,<title>.*:(.*) \([\d]+\)|<title>(.*) \([\d]+\))) hadd -m MGS Name $regml(1)
}
on *:sockclose:mgs: {
  tokenize 32 $sock(mgs).mark
  var %x 1, %y $hget(MGS_Quotes,0).item | $iif(%y > 2,msg $1 $+([Metal Gear Solid ,$2, - $qt($hget(MGS,Name)) Quote]:))
  while (%x <= %y) { msg $1 $iif(%y <= 2,$+([,$qt($hget(MGS,Name)) Quote]:)) $hget(MGS_Quotes,%x) $hget(MGS_Quotes,$calc(%x + 1)) | inc %x 2 }
  hfree -w MGS* | unset %mgs
}

Commenting Options