Çevrimdışı

Hocam eskisi daha iyidi tara badnick deniliginde bad nick taramasi yapildi bulununcada
toplam bilmem kac badnick bulundu atildi
ole yapabilirmiyiz tekrar

__________________
Herkes bir, İş için yaratılmıştır.

 

Çevrimdışı

OperServ Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Hocam eskisi daha iyidi tara badnick deniliginde bad nick taramasi yapildi bulununcada toplam bilmem kac badnick bulundu atildi ole yapabilirmiyiz tekrar

Yani zaten öyle şu anda bir tek taranıyor yazmıyor.
onuda ekledim.

Görünümü eklentiden görebilirsin.

Eklenen Resim Ön İzlemesi

Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.

 

Çevrimdışı

alias -l bn var %s 1 | while (%s <= $lines(badnick.txt)) { if $+(*,$read(badnick.txt,%s),*) iswm $2 { hinc -m bn nk 1 | ban -k $1 $2 2 sebeb. | break } | inc %s }
on *:text:*:#:if ($1 == .tara && $2 == badnick && $nick == rumuzun) { $iif($hget(bn),hfree bn) | msg # Badnick taraması başlatıldı. | var %1 1 | while (%1 <= $nick(#,0)) { bn # $nick(#,%1) | inc %1 } | msg # Toplam $+($chr(40),$iif(!$hget(bn,nk),0,$hget(bn,nk)),$ch r(41)) badnick atıldı. }

tarama bole olsa ?

__________________
Herkes bir, İş için yaratılmıştır.

 

Çevrimdışı

OperServ Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

alias -l bn var %s 1 | while (%s <= $lines(badnick.txt)) { if $+(*,$read(badnick.txt,%s),*) iswm $2 { hinc -m bn nk 1 | ban -k $1 $2 2 sebeb. | break } | inc %s } on *:text:*:#:if ($1 == .tara && $2 == badnick && $nick == rumuzun) { $iif($hget(bn),hfree bn) | msg # Badnick taraması başlatıldı. | var %1 1 | while (%1 <= $nick(#,0)) { bn # $nick(#,%1) | inc %1 } | msg # Toplam $+($chr(40),$iif(!$hget(bn,nk),0,$hget(bn,nk)),$ch r(41)) badnick atıldı. } tarama bole olsa ?

Vallahi amacının ne olduğunu çözemedim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 

Çevrimdışı

Guzel soru
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


basa donuyorum.

ilk verdigin kod
alias -l bn var %s 1 | while (%s <= $lines(badnick.txt)) { if $+(*,$read(badnick.txt,%s),*) iswm $2 { hinc -m bn nk 1 | ban -k $1 $2 2 sebeb. | break } | inc %s }
on *:text:.tara badnick*:#: if $nick !isop $chan { msg $chan Bu komutu kullanman için biraz daha büyümen gerek. | halt } | { $iif($hget(bn),hfree bn) | msg # Badnick taraması başlatıldı. | var %1 1 | while (%1 <= $nick(#,0)) { bn # $nick(#,%1) | inc %1 } | msg # Toplam $+($chr(40),$iif(!$hget(bn,nk),0,$hget(bn,nk)),$ch r(41)) badnick atıldı. }

Sonra kulanici listesindeki badnickler icin istemistim:
badnick:*****!*@*
badnick:*lez*!*@*
badnick:*gay*!*@*
koruma:*tugay*!*@*
koruma:*turgay*!*@*

yukarda ilk verdigin koda o sorun yok badnick taramasi baslatildi bulamayinca toplam bilmem kac badnick bulundu ve atildi diyorya

en son verdigin kod guzelde bole olmasini istiyorum (bad nick taramasi baslatildi, toplam badnick bulundu atildi) falan filan
Umarim anlatabilmisim

__________________
Herkes bir, İş için yaratılmıştır.

 

Çevrimdışı

OperServ Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Guzel soru Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. basa donuyorum. ilk verdigin kod alias -l bn var %s 1 | while (%s <= $lines(badnick.txt)) { if $+(*,$read(badnick.txt,%s),*) iswm $2 { hinc -m bn nk 1 | ban -k $1 $2 2 sebeb. | break } | inc %s } on *:text:.tara badnick*:#: if $nick !isop $chan { msg $chan Bu komutu kullanman için biraz daha büyümen gerek. | halt } | { $iif($hget(bn),hfree bn) | msg # Badnick taraması başlatıldı. | var %1 1 | while (%1 <= $nick(#,0)) { bn # $nick(#,%1) | inc %1 } | msg # Toplam $+($chr(40),$iif(!$hget(bn,nk),0,$hget(bn,nk)),$ch r(41)) badnick atıldı. } Sonra kulanici listesindeki badnickler icin istemistim: badnick:*****!*@* badnick:*lez*!*@* badnick:*gay*!*@* koruma:*tugay*!*@* koruma:*turgay*!*@* yukarda ilk verdigin koda o sorun yok badnick taramasi baslatildi bulamayinca toplam bilmem kac badnick bulundu ve atildi diyorya en son verdigin kod guzelde bole olmasini istiyorum (bad nick taramasi baslatildi, toplam badnick bulundu atildi) falan filan Umarim anlatabilmisim

Zaten öyle sadece yazı şekilleri farklı onlarıda düzenleyebilirsin sen koskoca Oper servicessin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Ahaah yav ole yapinca hata veriyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
Herkes bir, İş için yaratılmıştır.

 

Çevrimdışı

remoteyi ekledim fakat şöyle bir hata mesajı alıyorum
[6:53p] --- [TARA, invalid$1$3%:comments

 

Çevrimdışı

slm kod yardımı bendeki koda otomatik badnick tarama yapabilirmiyiz ek olarak bide girien nicki girmiş olduhu kanallarda atması icin

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:NICK: {
var %i 1
while %i <= $comchan($newnick,0) {
if $comchan($newnick,%i) == #MUAFKANAL1 { halt }
if $comchan($newnick,%i) == #MUAFKANAL2 { halt }
else if $me isop $comchan($newnick,%i) || $me ishop $comchan($newnick,%i) {
mode $comchan($newnick,%i) +b $newnick | .timer 1 1 kick $comchan($newnick,%i) $newnick Kotu Nick veya Ident algilandi, Lutfen "/nick yeninick" komutu ile nickinizi degistirip yeniden geliniz.
}
inc %i
}
}
ON @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:#: {
if $chan == #MUAFKANAL1 { halt }
if $chan == #MUAFKANAL2 { halt }
else if $me isop $chan || $me ishop $chan {
{ msg # !nick $nick
}
}
alias badekle {
if $1 == $null { echo -a 8,1 ===> Hatali kullanim. "/badekle nick" seklinde deneyiniz. | halt }
.write bad.txt bad: $+ $1 $+ !*@*.*
.load -ru bad.txt
echo -a 9,1 ===> $1 Badnick listesine eklendi.
}
alias badsil {
if $1 == $null { echo -a 8,1 ===> Hatali kullanim. "/badsil nick" seklinde deneyiniz. | halt }
if $read(bad.txt,w,* $+ $1 $+ *) {
.write -dl $+ $readn bad.txt
.load -ru bad.txt
echo -a 15,1 ===> $1 Badnick listesinden silindi.
}
else { echo -a 8,1 ===> $1 Badnick listesinde bulunamadi }
}
alias badlist {
echo -a 11,1 -- Bad nick listesi --
var %i 1
while %i <= $lines(bad.txt) {
echo -a ===> %i -  $+ $gettok($gettok($read(bad.txt,%i),1,33),2,58)
inc %i
}
}