|
nikotin01 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
Selamlar.
asagıda ki kodda bi cok kez degisiklik yapmama ragmen badnickleri nick olarak degilde rakamsal olarak gösteremedim bi türlü.
tarama yaptıdım zaman Tespit edilen. Badnickler *** nick
kısmını bu sekilde degilde
örnek: #kanal kanalında 10 adet badnick bulundu seklinde rakamsal gösterebilmemiz mümkün mü acaba.
alias tespit {
var %jnk 1
while %jnk <= $nick($1,0) {
if !$ulist($nick($1,%jnk),koruma,0) && $ulist($nick($1,%jnk),Bad,0) {
echo -a Tespit edilen. 5Badnickler 5***6 $nick($1,%jnk)
}
inc %jnk
}
}
|
Sorunu anlamadım ama senin için birşeyler hazırladım umarım işine yarar...
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#: {
if $regex($1,/^[.!]bad.k.e/Si) {
if (!$2) { msg # hatalı kullanım nick belirtin. }
else if $read(badd.txt,w,$+(*,$2,*)) { msg # $2 zaten bad listesinde var }
else {
write badd.txt $2
msg # bad listesine $2 eklendi.
}
}
if $regex($1,/^[.!]badsi./Si) {
if (!$2) { msg # hatalı kullanım nick belirtin. }
else if !$read(badd.txt,w,$2) { msg # tanıma uygun nick bulunmuyor. }
else {
write $+(-dl,$readn) badd.txt
msg # bad listesinden $2 silindi
}
}
if $regex($1,/^[.!]bad.ist/Si) {
if $lines(badd.txt) = 0 { msg # bad listenizde hiç kimse yok. }
else {
badkontrl
}
}
}
on *:join:#: {
if $read(badd.txt,w,$+(*,$nick,*)) {
mode # +b $nick
kick # $nick Kurallara aykırı nick kullanıyoruz lütfen nick değiştirin.
}
}
alias badkontrl {
var %kod 1
var %Mylife $lines(badd.txt)
while %Mylife >= %kod {
echo -a $read(badd.txt,%Mylife)
dec %Mylife
}
}
Kullanım; .badekle nick
.badsil nick
.badlist Örnek görünüm ve kullanım;
[18:39:07] <Mylife> bad listesine deneme1 eklendi.
[18:39:07] <Mylife> .badekle deneme1
deneme1
deneme
[18:39:10] <Mylife> .badlist
[18:39:19] <Mylife> bad listesinden deneme1 silindi
[18:39:19] <Mylife> .badsil deneme1
[18:39:20] <Mylife> bad listesinden deneme silindi
[18:39:20] <Mylife> .badsil deneme
[18:39:22] <Mylife> tanıma uygun nick bulunmuyor.
[18:39:22] <Mylife> .badsil deneme
[18:39:27] <Mylife> bad listenizde hiç kimse yok.
[18:39:27] <Mylife> .badlist
[18:40:26] <Mylife> bad listenizde hiç kimse yok.
[18:40:26] <Mylife> .badlist
[18:41:12] <Mylife> bad listesine mircsystem eklendi.
[18:41:11] <Mylife> .badekle mircsystem
[18:42:35] * Giriş: Mircsystem (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.)
[18:42:36] * Mylife mod değiştirdi:+b Mircsystem!*@*
[18:42:36] * Mircsystem Mylife Tarafından Kanaldan Atıldı (Kurallara aykırı nick kullanıyoruz lütfen nick değiştirin.)