/*

cht.mrc loader routine by John M. Hoyt - W5UGD
Downloads the latest cht.mrc to your system.

To use this, just click on the GREEN button that has /a in it at the top of your mIRC toolbar.
Next, click on the REMOTE tab and paste this entire file there.

Now you are ready, just type /loadcht and the latest cht.mrc will be downloaded and installed.

Please type /config after the file is loaded and set all your options.

To UPDATE the cht.mrc script, use /update instead of /loadit

Questions?  email w5ugd@amicon.net

*/

alias loadcht {
  set %linec
  write -c cht.tmp
  echo -e CHT: 2Downloading County Hunter Tool script... cht.mrc
  sockclose loadcht
  sockopen loadcht www.superhosts.net 80
  %loadcht.temp = $1-
}
on 1:sockopen:loadcht: {
  echo -e CHT: 4SOCKET REPORT: $sockerr
  if ($sockerr > 0) return
  sockwrite -n loadcht GET http://www.superhosts.net/cht.mrc HTTP/1.0
  sockwrite -n loadcht
}
on 1:sockread:loadcht: {
  if ($sockerr > 0) {
    echo -e CHT: SOCKET ERROR!
    return
  }
  :nextread
  inc %linec
  sockread %loadcht.temp
  if ($sockbr = 0) {
    echo -e CHT: ERROR!
    return
  }
  if %linec > 10 {
    echo -a : %loadcht.temp
    write cht.tmp %loadcht.temp
  }
}
on 1:sockclose:loadcht:{
  if $lines(cht.tmp) > 150 {
    sockclose loadcht
    echo CHT: 9Download was successful... Renaming cht.tmp to cht.mrc...
    copy -o cht.tmp cht.mrc
    echo CHT: 13Loading/reloading cht.mrc script... VERSION INFO: $read(cht.tmp,w,*Rev:*)
    load -rs cht.mrc
    echo CHT: 12Done!   Type /config to run through settings.
  }
  else {
    echo CHT: 4Download failed, contact w5ugd @ w5ugd@amicon.net for assistance...
    sockclose loadcht
  }
}