Çevrimdýþý

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