Çevrimdışı

set komut ".gir"

bind msg - $komut giris1
bind pub - $komut giris2

proc giris1 {nick host hand text} {
set knl [string map {"#" ""} [lindex $text 0]]
putquick "sajoin $nick #$knl"
}

proc giris2 {nick host hand chan text} {
set knl [string map {"#" ""} [lindex $text 0]]
putquick "sajoin $nick #$knl"
}