|
| SaCiT Nickli Üyeden Alıntı
|
|
Arkadaşlar şimdi serverde kanal açılımı mynetteki gibi Operler tarafından yapılıyor şimdi benim istediğim bir bot olacak ona !join #kanal yazdığımda panele login olup özel kanallar için belirlediğim botu o kanala sokacak !part #kanal yazıncada o kanaldan çıkarcak Bunu yapabilecek olan elinde olan varsa şimdiden çok teşekkürler Saygılar..
|
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#gerekli bindler
bind pub - !join girsin
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
}
proc girsin {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "as chan $kanal add"
putserv "as chan $kanal set bot sokrates"
putserv "PRIVMSG #Spy : 4 $kanal Kanalına SokrateS Bot Bir Kac Saniye İçinde Atılacaktır 2$gnick"
}
#gerekli bindler
bind pub - !part ciksin
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
}
proc ciksin {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "as chan $kanal del"
putserv "PRIVMSG #Spy : 4 $kanal Kanalından SokrateS Bot Bir Kac Saniye İçinde Cıkarılacaktır. 2$gnick"
}
bu tcl zaten sunucunuzda vardı.her neyse Maksadımız Paylaşmak. Güle Güle Kullanın.