!Gir TCL

[No_FeaR]

TCL'deki Amaç Oyun Kanallarından Sıkılmış, Kullanıcılar İçin rascoLn Tarafından Tasarlanmıştır Bir TCL'dir.

TCL Hem Özelde Hemde Kanal Genelinde Çalışmaktadır. Kod ; 2014 ' e Aittir. ^^

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