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...]-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 2 Proxy Girişi! }
}
Şimdi Burdaki Kod proxy.txt diye klasor acip ekleniyor.. bunu direk Remoteye eklesin bulan proxyleri ve girdiginde oto atsin..