Merhabalar,
Bu Kod Çok Eskiden Beri Vardı. Bende Kim Ya da Kimler Tarafından Yapıldığını ve Emeği Geçtiğini Bilmiyorum.
Kod'un Çalışma Mantığı Zaten Çok Basit TCL'yi Sunucunuza Göre Editleyiniz,
ve !DUYURU Mesaj Yapmanız Yeterli Oluyor : ) ^^
Kod:
# Ayarlar Bu kadar.! DOKUNMAYIN!!!
#gerekli bindler
bind pub - !duyuru op
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
}
proc op {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "notice $*.Sunucum.Com $kanal"
}
Duyuruları Farklı Şekiller de Atmak İsteyen Olursa Şâyet
Kanal'a, Notice, Descripe Olarak Attırabiliyorsunuz.
Kod:
putserv "notice $*.Sunucum.Com $kanal"
Üst Satırları Kendinize Göre Düzenlendiğiniz de, İşinizi Görecektir... ^^