AdiIRC

◔_◔

on *:text:!mirc:#:{
  mirc #
}

alias mirc {
  sockclose mirc
  sockopen mirc www.mirc.com 80
  sockmark mirc msg $1
}
on *:sockopen:mirc:{
  sockwrite -n mirc GET /update.html HTTP/1.1
  sockwrite -n mirc Host: $sock(mirc).addr $+ $str($crlf,2)
}
on *:sockread:mirc:{
  var %mircreader
  sockread %mircreader
  if $regex(%mircreader,/"v(\d+\.\d+)"/) {
    $sock(mirc).mark 12m4IR7C current version: $regml(1) - changelog: www.mirc.com/whatsnew.txt - legacy: www.mirc.com/versions.txt $&
    - download: www.mirc.com/get.php?version= $+ $remove($regml(1),.) - beta: www.mirc.com/beta.html - 50% coupon: www.mirc.com/register.php?coupon=MIRC-SWV0-MNKL
    sockclose mirc
  }
}