Teldeyim suan.
Soyle;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#opers:{
if $1 == !muafip {
if !$read(admin.txt,w,$nick) { msg # Bu komutu kullanmaya yetkili degilsin. | return }
if !$2 { msg # Komut kullanımı; !muafip ekle - sil - list | return }
if $2 == ekle {
if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
if $read(muafip.txt,w,$3) { msg # Belirtilen IP listede ekli. | return }
.write muafip.txt $3 | msg # $3 muaf ip olarak eklendi.
}
if $2 == sil {
if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
if !$read(muafip.txt,w,$3) { msg # Belirtilen IP listede bulunmamaktadır. | return }
.write $+(-ds,$3) muafip.txt | msg # $3 muaf ip listesinden silindi.
}
if $2 == list {
if $lines(muafip.txt) == 0 { msg # Muaf Ip listesi boş. | return }
msg # Muaf IP Listesi
msg #
var %:ip = 1 | while %:ip <= $lines(muafip.txt) {
msg # %:ip $+ -) $read(muafip.txt,%:ip)
inc %:ip
}
msg #
msg # Muaf IP Listesi Sonu
}
}
}