set dosyayolu "sozler.txt"bind pub - !sozekle sozlerproc sozler {n u h c a} {global dosyayoluif { $a != "" } { set soz [open $dosyayolu a]puts $soz $aclose $sozputserv "notice $n :Yolladığınız söz , sözler listemize eklenmiştir.. Teşekkür ederiz.."} else {putserv "notice $n :\002Kullanım şekli :\002 !sozekle (söz)"}}