Kod:
on @*:text:*:#dialog: {
var %i = 1, %end = $lines(c:\kufur.txt)
while %i <= %end {
if $regex($1-,$replace($read(c:\kufur.txt, %i),_,.)) {
.gzline $nick
}
inc %i 1
}
}Not: her dosya okumalı kod gibi çok uzun dosyalarda ve/veya sık yazışmalarda scriptini kasabilir!
mirc, mirç, türkçe mirç
9 Mart 2010 için Arşiv |
Kategoriler |
|||||||||||||||||||||||||||||||||||||||||||||||||
Yazılar (RSS)