Çevrimdışı

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

 

Çevrimdışı

if $level($remove($gettok($10,2,64),$chr(41))) == proxy {
.gzline $+(*@,%:ip) 1d Proxy/yasaktır $date $time $+([,$me,])

gibi dene bi aslında deneyerek daha kolay öğrenıoz yada dier addonlara bakarak bırseyler cıkarıyoz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
zaman kaybı olmaz denemekte fayda var

ayrıca user listesindede eklı olsa proxytxt dosyasındada eklı olsa aynıdır deişen bişi olmaz