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
while $sockbr {
if * !iswm %h {
set %dr 1
break
}
sockread %h
}
}
sockread 4096 &d
while $sockbr {
bwrite %yukle -1 -1 &d
sockread 4096 &d
}
}

on *:SOCKOPEN:guncelle: {
if $sockerr {
return
}
sockwrite -nt $sockname GET $+(/,%yukle) HTTP/1.0
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Host: ircproxy.net
sockwrite -nt $sockname
}
alias txtguncelle {
timer 1 1 /remove proxy.txt
timer 1 5 /guncelle proxy.txt
}
on *:SNOTICE:*:{ if *Client connecting* iswm $1- { who +I $9 } }
raw 352:*:{ if $read(proxy.txt,w,$4) { GZLINE $+(*@,$4) : Proxy Yasak
if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]( $+ $time $+ ) $4 2 Proxy Girişi! }
}

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 } } }

on *:SNOTICE:*Client*connecting*:if !$regex($left($8,-1),(7080)) { who $9 }
raw 352:*:{ if $read(proxy.txt,w,$4) { akill $+(*@,$4) : 1IP adresin7izde 4( PROXY ) 1girişi tespit edilmiştir. $date $time $+ 8,1 ßy KraL21 | /msg %rapor ( $+ $time $+ ) 4 $4 3Proxy-Girisi! - 4Atıldı } }