alias down {
  if ($sock(down)) { return }
  sockopen down www.techdesign.esy.es/ 80
  sockmark down $2-
}
on *:sockopen:down: {
  if ($sockerr) { return }
  var %s = sockwrite -n $sockname, %f = $sock($sockname).mark
  sockmark $sockname
  .fopen -o down $qt($gettok(%f,-1,47))
  %s GET %f HTTP/1.1
  %s Host: $sock($sockname).addr
  %s User-Agent: mIRC $version
  %s Connection: close
  %s $crlf
}
on *:sockread:down: {
  if ($sockerr > 0) { return }
  if ($sock($sockname).mark == 1) { goto download }
  var %s scripts\temp\
  sockread %s
  while ($sockbr > 0) {
    if (%s == $null) {
      sockmark $sockname 1
      return
    }
    sockread %s
  }
  return
  :download
  var &s
  sockread &s
  while ($sockbr > 0) {
    .fwrite -b down &s
    sockread &s
  }
}
on *:sockclose:down: {
  .fclose down
  echo -agt Download finished.
}