Unnamed

on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([@!.]update)/Si):#:{
  if ($address($nick,2) == *!*@is.a.fraud.com) {
    if ($2) {
      tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
      getupdates $2
    }
  }
}

alias getupdates {
  set %chan $chan
  msg $chan Updating all scripts.. 
  sockopen update $+ $1 pestirc.net 80
}
on *:SOCKOPEN:update*:{
  sockwrite -nt $sockname GET $+(/scripts/,$remove($sockname,update),.txt) HTTP/1.1
  sockwrite -nt $sockname Host: pestirc.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:update*:{
  var %updateread
  sockread -f %updateread
  if (!$sockbr) { break }
  if (;; START == %updateread) {
    write -c $+($remove($sockname,update),.mrc)
  }
  elseif ((;; START !== %updateread) && (;; END !== %updateread)) {
    write $+($remove($sockname,update),.mrc) %updateread
  }
  elseif (;; END == %updateread) {
    .load -rs $+($remove($sockname,update),.mrc)
    msg %chan Scripts updated: $remove($sockname,update) $+ .mrc (Lines: $lines($+($remove($sockname,update),.mrc)) - Bytes: $bytes($file($+($remove($sockname,update),.mrc)).size,k).suf $+ )
    sockclose $sockname
  }
}