Kod:
on *:text:*:#xline:{
if $1 == !muafip {
if !$read(yetkilinick.txt,w,$nick) { msg # 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4! | return }
if !$2 { msg # Eksik Komut kullanimi. Kullanimi: !muafip ekle/sil IP , yada !muafip list | return }
if $2 == ekle {
if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
if $read(bopmip.txt,w,$3) { msg # Belirtilen IP listede ekli. | return }
.write bopmip.txt $3 | msg # $3 muaf ip olarak eklendi.
}
if $2 == sil {
if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
if !$read(bopmip.txt,w,$3) { msg # Belirtilen IP listede bulunmamaktadir. | return }
.write $+(-ds,$3) bopmip.txt | msg # $3 muaf ip listesinden silindi.
}
if $2 == list {
if $lines(bopmip.txt) == 0 { msg # Muaf Ip listesi bos. | return }
msg # Muaf IP Listesi
msg #
var %:ip = 1 | while %:ip <= $lines(bopmip.txt) {
msg # %:ip $+ -) $read(bopmip.txt,%:ip)
inc %:ip
}
msg #
msg # Muaf IP Listesi Sonu
}
}
if $1 == !muafnick {
if !$read(yetkilinick.txt,w,$nick) { msg # 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4! | return }
if !$2 { msg # Eksik Komut kullanimi. Kullanimi: !muafnick ekle/sil NICK , yada !muafnick list | return }
if $2 == ekle {
if !$3 { msg # Lütfen Nick belirtiniz. | return }
if $read(bopmnick.txt,w,$3) { msg # Belirtilen Nick listede ekli. | return }
.write bopmnick.txt $3 | msg # $3 muaf nick olarak eklendi.
}
if $2 == sil {
if !$3 { msg # Lütfen Nick belirtiniz. | return }
if !$read(bopmnick.txt,w,$3) { msg # Belirtilen nick listede bulunmamaktadir. | return }
.write $+(-ds,$3) bopmnick.txt | msg # $3 muaf nick listesinden silindi.
}
if $2 == list {
if $lines(bopmnick.txt) == 0 { msg # Muaf Nick listesi bos. | return }
msg # Muaf Nick Listesi
msg #
var %:nick = 1 | while %:nick <= $lines(bopmnick.txt) {
msg # %:nick $+ -) $read(bopmnick.txt,%:nick)
inc %:nick
}
msg #
msg # Muaf Nick Listesi Sonu
}
}
if $1 == !muafident {
if !$read(yetkilinick.txt,w,$nick) { msg # 1" $+ $nick $+ " Üzgünüm, Komutu kullanabilmek icin Yetkili Listesinde ekli olman gerekir4! | return }
if !$2 { msg # Eksik Komut kullanimi. Kullanimi: !muafident ekle/sil IDENT , yada !muafident list | return }
if $2 == ekle {
if !$3 { msg # Lütfen Ident belirtiniz. | return }
if $read(bopmident.txt,w,$3) { msg # Belirtilen Ident listede ekli. | return }
.write bopmident.txt $3 | msg # $3 muaf Ident olarak eklendi.
}
if $2 == sil {
if !$3 { msg # Lütfen Ident belirtiniz. | return }
if !$read(bopmident.txt,w,$3) { msg # Belirtilen Ident listede bulunmamaktadir. | return }
.write $+(-ds,$3) bopmident.txt | msg # $3 muaf Ident listesinden silindi.
}
if $2 == list {
if $lines(bopmident.txt) == 0 { msg # Muaf Ident listesi bos. | return }
msg # Muaf Ident Listesi
msg #
var %:ident = 1 | while %:ident <= $lines(bopmident.txt) {
msg # %:ident $+ -) $read(bopmident.txt,%:ident)
inc %:ident
}
msg #
msg # Muaf Ident Listesi Sonu
}
}
}