02 Ekim 2020, 20:21
#5 Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: socket bot ile kanalda user karsilama
diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
/bkontrol komutunu uyguladığında bot açıksa kapanır, kapalı ise açılır. #kanal yazan yeri botun selam alacağı ve hoş geldiniz diyeceği kanalı yazmalısın. botun hoş geldiniz demeyeceği nickler belirleye bilirsin. botun selam almayacağı muaf nickler belirleye bilirsin Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias bkontrol { $iif($sock(X),sockclose X,sockopen X sunucu-ismi port) }
on *:SOCKOPEN:X: {
sockwrite -nt $sockname NICK Botnick
sockwrite -nt $sockname USER Bot-ident "" " $+ $iif($host,$host,$ip) $+ " :Bot-fullname
}
on *:SOCKREAD:X: {
var %s
sockread %s
tokenize 32 %s
if $1 == PING {
sockwrite -nt $sockname PONG $2
}
if $2 == 376 {
; sockwrite -nt $sockname join 0,
.timer 1 2 sockwrite -nt $sockname oper operpass.
}
if $2 = join && !$istok(muafnick muafnick muafnick Botnick ,$gettok($remove($1,:),1,33),32) && $remove($3,:) = #kanal {
sockwrite -nt $sockname privmsg $remove($3,:) Sunucumuza hoş geldiniz $gettok($remove($1,:),1,33) }
if $2 = privmsg && $3 = #kanal {
if $regex($remove($4,:),/^selam$|s\.a|slm|selam[İıu]n/i) && !$istok(muafnick muafnick muafnick Botnick ,$gettok($remove($1,:),1,33),32) {
sockwrite -nt $sockname privmsg $3 A.selam $gettok($remove($1,:),1,33) $+ , hoş geldiniz. }
}
}
Umarım işine yarar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN... ]
Kod çok güzel çalışıyor.
Bir ricam daha var. Birde kanaldan çıkış yapanlara exit veya part yapanlara mesaj verdirebilirmiyiz? Örnek veriyorum
Nick Çıkış yapmıştır, Sunucumuza tekrar bekleriz.