ForumTEK.Net - IRC Forumu

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. ^^

Kod:

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"

}