AlpereN
Misafir Editör
- Katılım
- 16 Mart 2019
- Mesajlar
- 351
- Tepkime puanı
- 0
/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
#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:
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([COLOR="red"]muafnick muafnick muafnick[/COLOR] Botnick,$gettok($remove($1,:),1,33),32) {
sockwrite -nt $sockname privmsg $3 A.selam $gettok($remove($1,:),1,33) $+ , hoş geldiniz. }
}
}