|
ShiRoi Nickli Üyeden Alıntı
|
Toprak Abi Kodla Oynadınmı Küfür Oldumu Atmiyor Kanaldan |
Yetki sorgulamasını regex olarak yaptım sadece mirc versionun 6.35 ve üstü değil ise çalışmaz sen şöyle kullan;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias argosil {
if ($read(Argo.txt,w,$+(*,$1-,*))) {
write -dl $+ $readn argo.txt
echo -a $1- Argo veri tabanindan çıkarıldı
}
}
alias argoekle { write argo.txt $1- | echo -a $1- argosu veri tabanina eklendi }
#Argo on
on *@:text:*:#:{
if ($nick isop $chan || $nick ishop $chan) { return }
var %i 1
while $read(Argo.txt,%i) {
if ($read(Argo.txt,%i) iswm $1-) { .ban -k $chan $nick 4KüfürLü Konuşmak Yasaktir. | hop # | msg # !temizle }
inc %i
}
}
#Argo end