set dosyayolu "sozler.txt"

 
bind pub - !sozekle sozler

 
proc sozler {n u h c a} {

global dosyayolu

if { $a != "" } { 

set soz [open $dosyayolu a]

puts $soz $a

close $soz

putserv "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)"

}

}