!Duyuru TCL

[No_FeaR]

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 : ) ^^

# 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.

putserv "notice $*.Sunucum.Com $kanal"

Üst Satırları Kendinize Göre Düzenlendiğiniz de, İşinizi Görecektir... ^^