Ufak birkaç hata yapmışım, söylediğim gibi fikir vermesi için yazmıştım.
Birde sunucuya girerken gönderilen mesajlar var, yani join edilmeden önce,
bazıları ise sunucuya girdikten sonra geliyor, bazı mesajlar ise user!mas@host şeklinde gelmeyip RAW ile göndeliriyor,
bu ikisini ayırt etmeye çalıştım elimdeki örnek sunucudan. bir çok etken olabilir bunları dikkate almak lazım.
Neyse aşağıdakini denedim çalışıyor..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:START: getd
alias getd {
if (!$1) debug -i d getd
if ($1) {
tokenize 32 $1-
if $regex($1-,/(^<-\s.*\sJOIN\s:#)/g) { set -u10 %c` $true }
if %c` && $regex($1-,/(^<-\s:(\w+!.*)PRIVMSG\s\w+\s:)/g) {
noop $regex($1-,/(^<-\s:(\w+!?)\b)/g) | var %n` $remove($regml(1),!,:,$chr(32),<-)
echo -s ----------> OTO MESAJ %n`
.ignore -pu10 %n` | close -m %n`
}
}
}