| MesqeN | 25 Aralık 2014 21:16 |
Cevap: Yasakident Koruması
Alıntı:
moonman Nickli Üyeden Alıntı
(Mesaj 1041577601)
Kod:
on *:text:!yasakident *:%operkanali: {
if $2 == list {
var %i = 1, %end = $ulist(*,yasakident,0)
.msg $chan - Toplam Yasak İdent: %end
while %i <= %end {
.msg $chan $+(%i,$chr(41)) $iif($ulist(*,yasakident,%i) == $nick,$+(,$v1,),$v1)
inc %i 1
}
}
elseif $2 == ekle {
if $3 == $null { .msg $chan Lutfen eklenecek ident'i yaziniz | return }
if $ulist($3,yasakident,1) { .msg $chan Belirtiginiz kritere uyan $v1 zaten mevcut | return }
if $istok(AynaWeb ,$3,32) { .msg $chan $nick Bu ident eklenemez | return }
.auser yasakident $3
.msg $chan " $3 " Identi Basariyla ident liste eklendi
}
elseif $2 == sil {
if $3 == $null { .msg $chan Lutfen silinecek ident'i yazınız | return }
if !$ulist($3,yasakident,1) { .msg $chan $nick Belirtiginiz kritere uyan $3 listede mevcut degil | return }
.ruser yasakident $3
.msg $chan " $3 " Identi Basariyla ident listten silindi
}
else { .msg $chan Kullanılabilecek komutlar: !Yasakident list , !Yasakident ekle , !Yasakident sil }
}
#yasakident on
on *:snotice:*: {
if ($level($9) == muafnlist) { halt }
if ($level($9) == muafclist) { halt }
if (connecting isin $1-) {
if $level($remove($gettok($10,1,64),$chr(40))) = yasakident { gzline $9 Network'a saldiri nick/ident/reklam lamerizm girisimleri yasaktir ([X-Bot]) }
}
}
#yasakident end
Selamlar kolay gelsin yukarıda vermiş olduğum kod da şu sorun var yasak ident ekleme yapabiliyorum ama silme işlemini gerçekleştiremiyorum tam olarak sil yerinde hata nerededir yardım edermisiniz rica etsem iyi günler.
|
selam.. bunu denermisin.. Kod:
on *:text:*:#adminchan:{
if ($1 == !identekle) {
if !$2 { msg # Lütfen ekliyeceginiz identi belirtiniz. | return }
if $read(identlist.txt,w,$strip($2-)) { msg # 2ident listede ZATEN ekli ! | return }
if $istok(AynaWeb ,$3,32) { .msg $chan $nick Bu ident eklenemez | return }
.write identlist.txt $strip($2-)
msg # 4[ $strip($2-) ] 2 ident listesine Eklenmisdir.
}
if ($1 == !identsil) {
if !$2 { msg # Lütfen sileceginiz identi Belirleyiniz | return }
if $read(identlist.txt,w,$strip($2-)) { .write $+(-dl,$readn) identlist.txt | msg # [ $strip($2-) ] 2ident listesinden Silinmistir. | return }
else { msg # 2Belirttiginiz ident listem'de bulunmamaktadir. | return }
}
if ($1 == !identlist) {
if $lines(identlist.txt) == 0 { msg # 2Belirtiginiz ident listede bulunamadi. | return }
var %t = 1 | while %t <= $lines(identlist.txt) {
msg # 4 $+(%t,.) $read(identlist.txt,%t)
inc %t
}
}
}
#yasakident on
on *:snotice:*: {
if ($level($9) == muafnlist) { halt }
if ($level($9) == muafclist) { halt }
if (connecting isin $1-) {
if $level($remove($gettok($10,1,64),$chr(40))) = yasakident { gzline $9 Network'a saldiri nick/ident/reklam lamerizm girisimleri yasaktir ([X-Bot]) }
}
}
#yasakident end
|
