alias guncelle {
  .write -c proxylist.txt
  sockopen dify ircproxy.net  80
  .msg %operkanali GünceL  PROXY  Listesi ALınıyor...
}
on *:sockopen:dify:{
  sockwrite -n $sockname GET /proxy.txt HTTP/1.1
  sockwrite -n $sockname Host: ircproxy.net 
  sockwrite -n $sockname $crlf
}
on *:sockread:dify:{
  if ($sockerr) { echo 12 -st Hataya rastlandı | halt }
  else {
    var %dify
    sockread %dify
    if $regex(%dify,/^(\d+).(\d+).(\d+).(\d+)$/i) { prekle %dify }
  }
}
on *:connect: {
  torkur
}
alias torkur {
  .timer 05:00 1 1 /guncelle
}

alias prekle { if $1 { if $read(proxylist.txt,w,$1) { halt } | else { write proxylist.txt $1 } } }