bind pubm mn "#Dj *" vs_op

proc vs_op {n u h c t} {
   if {![string equal -nocase "!djalım" [lindex [split $t] 0]]} { return }
       set mesaj [join [lrange [split $t] 1 end]]
   if {[llength $mesaj] < 1} {
       puthelp "notice $n :Kullanımı :$::lastbind <sunucudaki kullanıcılara göndermek istenen meaaj>"
       puthelp "notice $n :Örnek : $::lastbind DeeJay alımı yapılıcak.Tercihen uzun bacaklı,ince belli,ceylan gözlü,az cilveli \
       hanımların, direk $::owner özeline dalmaları reca olunur..."
       return 0
       } else {      
       putserv "describe \$*$::server :$mesaj"
       return 0
       }
}

bind pub mn "!djalım" vs_op

proc vs_op {n u h c t} {
   if {![string compare -nocase "#Dj" $c]} { return 0 }
       set mesaj [join [lrange [split $t] 0 end]]
   if {[llength $mesaj] eq 0} {
       puthelp "notice $n :Kullanımı :$::lastbind <sunucudaki kullanıcılara göndermek istenen meaaj>"
       puthelp "notice $n :Örnek : $::lastbind DeeJay alımı yapılıcak.Tercihen uzun bacaklı,ince belli,ceylan gözlü,az cilveli \
       hanımların, direk $::owner özeline dalmaları reca olunur..."
       return 0
       } else {      
       putserv "describe \$*$::server :$mesaj"
       return 0
       }
}

set mesaj "buraya mesajınızı yazın..."

bind pubm mn "#Dj *" vs_op

proc vs_op {n u h c t} {
   if {![string equal -nocase "!djalım" [lindex [split $t] 0]]} { return }
   if {$::mesaj == ""} {
       puthelp "notice $n :Kullanımı :$::lastbind <sunucudaki kullanıcılara göndermek istenen meaaj>"
       puthelp "notice $n :Örnek : $::lastbind DeeJay alımı yapılıcak.Tercihen uzun bacaklı,ince belli,ceylan gözlü,az kırıtık \
       arkadaşların, direk $::owner özeline dalmaları reca olunur..."
       return 0
       } else {      
       putserv "describe \$*$::server :$::mesaj"
       return 0
       }
}