mIRC Scripting Çeviri .Tcl

[Che]

package require http
package require eggdrop 1.8

bind pub - .tr tr_TR

proc tr_TR {nick uhost hand chan arg} {
    set tran [string tolower [stripcodes * $arg]]
    set LTxt [lindex [split $tran] 0]
    if {[regexp -- {^@[a-z]{2}$} $LTxt]} {
        set trdil [string range $LTxt 1 end]...

Please login to view full content. Giriş yap veya üye ol.