Bu konua bir çok konu mevcut @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
#Dj Odasında !dj yazdığı zaman otomatik olarak DJ_ eki alacaktır.
|
| Alıntı: |
# DJ'lere verilecek ident'i yazıyoruz.
set dj(ident) "DJ"
# DJ'lere verilecek hostu yazıyoruz.
set dj(host) "DJ.sunucu.NET"
# DJ'lere verilecek fullname'yi yazıyoruz.
set dj(name) "irc.sunucuadı DJ"
bind pub - !dj dj:login
proc dj:login {nick uhand host chan text} {
global botnick dj
if {[string match -nocase "#DJ" $chan]} {
putquick "chghost $nick $dj(host)"
putquick "chgident $nick $dj(ident)"
putquick "chgname $nick $dj(name)"
putquick "operserv raw svsmode $nick +Wq :1"
putquick "operserv raw svsnick $nick DJ_$nick :1"
putquick "privmsg $chan $nick Başarı ile dj login oldunuz."
}
}
|
#Dj Odasında !off yaptığı zaman ise orjinal nickine geri dönecektir.
|
| Alıntı: |
# DJ'lere verilecek ident'i yazıyoruz.
set dj(ident) "DJ"
# DJ'lere verilecek hostu yazıyoruz.
set dj(host) "DJ.sunucu.NET"
# DJ'lere verilecek fullname'yi yazıyoruz.
set dj(name) "irc.sunucu DJ"
bind pub - !off off
proc off {nick uhand host chan text} {
global botnick dj
if {[string match -nocase "#DJ" $chan]} {
putquick "chghost $nick $dj(host)"
putquick "chgident $nick $dj(ident)"
putquick "chgname $nick $dj(name)"
putquick "operserv raw svsmode $nick +Wq :1"
putquick "operserv raw svsnick $nick [string map -nocase {"DJ_" ""} $nick] :1"
putquick "privmsg $chan $nick emeğinize sağlık teşekkürler."
}
}
|
Yukarda belirttiğim kodları ekleyin , ekstra bir tcl dosyası oluşturmak istiyorsanızda conf dosyasına source olarak eklemeyi unutmayın , Yanlış hatırlamıyor isem @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]'a ait kodlar