#proxyguncel off
on *:connect:{
  .timer 1 1 txtguncelle
  .timer 0 7200 txtguncelle 
}
alias guncelle {
  if $sock(guncelle) {
    sockclose guncelle
  }
  unset %dr
  set %yukle $1
  sockopen guncelle ircproxy.net 80
}



on *:SOCKCLOSE:guncelle: {
  halt
}

on *:SOCKREAD:guncelle: {
  if %dr != 1 {
    var %h
    sockread %h
    if $regex(%h,/^(\d+).(\d+).(\d+).(\d+)$/i) { write proxy.txt %h }
  }
}

on *:SOCKOPEN:guncelle: {
  if $sockerr {
    return
  }
  sockwrite -nt $sockname GET /proxy.txt HTTP/1.1
  sockwrite -nt $sockname Host: ircproxy.net
  sockwrite -nt $sockname $crlf
}
alias txtguncelle {
  timer 1 1 /remove proxy.txt
  timer 1 5 /guncelle proxy.txt
}
on *:SNOTICE:*:{ if *Client connecting* iswm $1- { who $9 } }
raw 352:*:{ if $read(proxy.txt,w,$4) { zline $+(,$4) : Proxy yasaktır.
  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor) { window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor ( $+ $time $+ ) 4 $4 2 Proxy Girişi! }
}
#proxyguncel end
menu * { 
  .Proxy Guncelleme
  ..Açık:.enable #proxyguncel | /echo -a Proxy Güncelleme Açıldı.
  ..Kapat:.disable #proxyguncel | /echo -a Proxy Güncelleme Kapatıldı.
  ..Durum:.durumne
}
alias durumne {
  set %durum1 $group(#proxyguncel).status
  /echo -a Şuanda $replacecs(%durum1,on,Açık,off,Kapalı)
}