bind pubm - * kanalda:yap

proc kanalda:yap {nick uhost hand chan arg} {

global server botnick

 if {[string match -nocase "#DJ" $chan]} {

  if {[string match -nocase "!link" $arg]} { putquick "PRIVMSG $*[join [split [lrange [split [lindex [split $server :] 0] .] 1 end] " "] .] :\002 Radyomuzu Winamptan dinlemek için \0034http://ircforumlari.com:port/listen.pls\003 adresine tıklayiniz..";return 0}

 }

}