on *:text:*:#yetki:{
if $regex($1,/[!.]dj/Si) {
if $2 == list {
.timer -h 1 500 msg $chan - djler listeleniyor.
var %:mnck = 1, %mnc = $lines(muafdj.txt)
while %:mnck <= %mnc {
.timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $read(muafdj.txt,%:mnck)
inc %:mnck
}
.timer -h 1 500 msg $chan - Toplam dj Sayısı:04 %mnc
}
if $2 == ekle {
if !$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # Lütfen nick belirtiniz. | return }
.write muafdj.txt $strip($3)
else { .enable #yetki | set %kanal # | cs access #dj add $3- 45 }
}
if $2 == sil {
if !$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # Lütfen nick belirtiniz. | return }
if $read(muafdj.txt,w,$strip($3)) { write -dl $+ $readn muafdj.txt }
else { .enable #yetki | set %kanal # | cs access #dj del $3- }
}
}
#yetki on
on *:notice:*:?:{
if $regex($nick,/^ChanServ$/i) {
if $regex($1-,/kanal[ıiİ]\skayitl[ıiİ]\sde[gğĞ][ıiİ]l/Si) { msg %kanal $1- | .disable #yetki | return }
if $regex($1-,/erisim\slistesi.+kayitli.+nick/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/Erisim\sseviyesi.+ve.+arasinda/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+kanalindaki\serisim.+zaten/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+kanalindaki\serisim\sseviyesi.+degisti/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+kanalinin\serisim.+seviyeden.+eklendi/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+akanalinin\dserisim.+silindi/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+bkanalinin\serisim.+bulunamadi/Si) { msg %kanal $1- | .disable #yetki }
}
}
#yetki end
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#yetki:{
if $regex($1,/[!.]dj/Si) {
if $2 == list {
.timer -h 1 500 msg $chan - djler listeleniyor.
var %:mnck = 1, %mnc = $lines(muafdj.txt)
while %:mnck <= %mnc {
.timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $read(muafdj.txt,%:mnck)
inc %:mnck
}
.timer -h 1 500 msg $chan - Toplam dj Sayısı:04 %mnc
}
if $2 == ekle {
if !$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # Lütfen nick belirtiniz. | return }
.write muafdj.txt $strip($3)
else { .enable #yetki | set %kanal # | cs access #dj add $3- 45 }
}
if $2 == sil {
if !$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # Lütfen nick belirtiniz. | return }
if $read(muafdj.txt,w,$strip($3)) { write -dl $+ $readn muafdj.txt }
else { .enable #yetki | set %kanal # | cs access #dj del $3- }
}
}
}
#yetki on
on *:notice:*:?:{
if $regex($nick,/^ChanServ$/i) {
if $regex($1-,/kanal[ıiİ]\skayitl[ıiİ]\sde[gğĞ][ıiİ]l/Si) { msg %kanal $1- | .disable #yetki | return }
if $regex($1-,/erisim\slistesi.+kayitli.+nick/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/Erisim\sseviyesi.+ve.+arasinda/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+kanalindaki\serisim.+zaten/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+kanalindaki\serisim\sseviyesi.+degisti/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+kanalinin\serisim.+seviyeden.+eklendi/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+akanalinin\dserisim.+silindi/Si) { msg %kanal $1- | .disable #yetki }
if $regex($1-,/nick.+bkanalinin\serisim.+bulunamadi/Si) { msg %kanal $1- | .disable #yetki }
}
}
#yetki end
Süslü parantez eksikti. Böyle durumlarda remote sayfasının sağ üst kısmında bulunan buttona basıp parantezlerde sorun olup olmadığını kontrol edebilirsin.