Merhaba rica etsem bu koda da yukarıdaki gibi liste bakınca kimin badnick i listeye ekledigini gösterecek sekilde ayarlaya bilmemiz mümkün müdür?
Yukarıdaki kod ile yer degisikligi yaptım yinede olmadı belki 2 saattir bununla ugrasıyorum yapamadım bi türlü.
on *:text:*:#:{
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
}
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:12 -->-> Daha önceki mesaj 18:11 --
|
Emrehan Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#OperLog:{
if $regex($1,/^[!.][uüÜ]lke/Si) {
if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }
elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }
else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }
elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }
else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
else {
msg # Yasak Ülke Listesi
msg # -
var %:t = 1 | while %:t <= $hget(Ulke,0).data {
msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191) Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)
inc %:t
}
msg # -
msg # Yasak Ülke Listesi Sonu
}
}
}
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
if ($sockerr) { .sockclose $sockname | return }
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{
var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
$iif(!$window(@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
echo -t @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)
if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
.hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
}
}
|
Merhaba rica etsem bu koda da yukarıdaki gibi liste bakınca kimin badnick i listeye ekledigini gösterecek sekilde ayarlaya bilmemiz mümkün müdür?
Yukarıdaki kod ile yer degisikligi yaptım yinede olmadı belki 2 saattir bununla ugrasıyorum yapamadım bi türlü.
on *:text:*:#:{
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
}
Konuyu düzenle/Sil Alıntı ile Cevapla Bu mesajdan Alıntı Hızlı Cevap