Code:

set language(default) 1set language(french) 0set language(english) 1proc lang_regsuball {what by arg} {regsub -all $what $arg $by argreturn $arg}proc lang_text {tabdata lang index argslist } {global ${tabdata}array set lang_data [array get ${tabdata}]set result $lang_data($lang$index)set argidx 0foreach arg $argslist {set result [lang_regsuball "%$argidx" "$arg" $result]incr argidx}return $result}proc getlang { hand } {global languageif {![validuser $hand]} { return $language(default) }if {[info exists language([getuser $hand XTRA LANG])]} { return $language([getuser $hand XTRA LANG]) } {return $language(default)}}bind msg - lang msg_langbind dcc - lang dcc_langproc msg_lang {nick host hand arg} {global botnick languageif {![validuser $hand]} { return 0 }set arg [strlwr [charfilter $arg]]if {![info exists language($arg)]} {puthelp "PRIVMSG $nick :The available languages are : french english, choose one of them using /msg $botnick lang <your choice>"return 0}     putserv "PRIVMSG $nick :Your language is now : $arg"      setuser $hand XTRA LANG $argreturn 0}proc dcc_lang {hand idx arg} {global languageset arg [strlwr [charfilter $arg]]if {![info exists language($arg)]} {putdcc $idx "The available languages are : french english, choose one of them using .lang <your choice>"return 0}     putdcc $idx "Your language is now : $arg"      setuser $hand XTRA LANG $argreturn 0}putlog "lang.tcl v1.3 by Thor & Tst - Date : 31-08-02 - Command : .lang | /msg $botnick lang"

Code:

proc lol_unban { nick hand chan mask byX } {if {[isnumber $mask]} {set find 0foreach bans [banlist $chan] {incr findif {$find == $mask} { set mask [lindex $bans 0] ; break }}if {[isnumber $mask]} {puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 46 $mask]"return 0} } else {if {[string first "!" $mask] == -1 && [string first "@" $mask] == -1} {if {[isnumber [string index $mask 0]]} { set mask *!*@$mask } else { set mask $mask*!*@* }}if {[string first "!" $mask] == -1} {set mask *!*$mask}if {[string first "@" $mask] == -1} {set mask $mask*@*}}if {[onchan X $chan] } {putserv "PRIVMSG X :unban $chan $mask"      puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 47 "$mask $chan"]"return 0}if {[isban $mask $chan]} { if {![killchanban $chan $mask]} { killban $mask }      puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 47 "$mask $chan"]"return 0} if {[ischanban $mask $chan] && [botisop $chan]} {putserv "MODE $chan -b $mask"putserv "PRIVMSG X :unban $chan $mask"             puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 47 "$mask $chan"]"return 0} puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 48 $chan]"return 0}