/ScriptServ

;--------------------------------------------------------------------------------------------------------------------------------
;msnnewver.mrc
;Andy Carvell 2003
;Version 3.00
;--------------------------------------------------------------------------------------------------------------------------------


;***** DO NOT EDIT ANYTHING BELOW *****

alias newver {
  sockclose newver
  sockclose newvercount
  sockopen lalala www.burningimage.net 80
  sockopen newvercount scripts.dsl.pipex.net 80

}

on *:SOCKOPEN:lalala:{
  if ($sock($sockname).status == active) {
    sockwrite -n lalala GET http://www.burningimage.net/msn/newver/index.htm
  }
}

on *:sockopen:newvercount:{
  if ($sock($sockname).status == active) {
    sockwrite newvercount GET /sitetracker/sitetracker.php?id=aoug99&st=img HTTP/1.0 $+ $crlf $+ Host: scripts.dsl.pipex.net $+ $crlf $+ $crlf
  }
}

on *:sockread:lalala:{
  if ($sockerr > 0) return
  :nextread
  sockread %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -
  ;aline @debug 4 $+ %temp
  if ( $gettok(%temp,1,32) == !version! ) { 
    set %msn.newversion $gettok(%temp,2,32)
    set %msn.newversion.url $gettok(%temp,3,32)
    if ( %msn.newversion > $msnversion ) {
      if ( $?!"There is a new version of MSN Messenger for mIRC avaliable. $crlf $+ $crlf $+ Would you like to download it?" == $true ) { run %msn.newversion.url }
    }
    halt
  }
  if ( $gettok(%temp,1,32) = !motd! ) {
    set %msn.motd $gettok(%temp,2-,32)
  }
  goto nextread
}