[immortaL]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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