| View previous topic :: View next topic |
| Author |
Message |
taxick
Voice
Joined: 12 Jul 2007
Posts: 24
|
 Posted: Thu Feb 12, 2009 10:52 pm Post subject: |
 |
|
| lindonato wrote: | Hi all
tnx for this script but i have this error in partyline:
LoL's TooLz requires now lang.tcl. Please install it.
Anyone can give help me?
in the script there is write i must install lang.tcl, but i serach it and i don't find it.
Tnx |
Here you go: http://www.wub.nu/downloads/lolz.rar |
|
| Back to top |
|
 |
lindonato
Voice
Joined: 10 Feb 2009
Posts: 2
|
| Posted: Sun Feb 22, 2009 9:31 pm Post subject: |
|
|
TNX  |
|
| Back to top |
|
|
Danik
Halfop
Joined: 15 Jun 2008
Posts: 49
Location: Moldova
|
| Posted: Wed Feb 25, 2009 5:24 am Post subject: |
|
|
| lindonato wrote: | Hi all
tnx for this script but i have this error in partyline:
LoL's TooLz requires now lang.tcl. Please install it.
Anyone can give help me?
in the script there is write i must install lang.tcl, but i serach it and i don't find it.
Tnx |
I have this file, I can send it to you via e-mail |
|
| Back to top |
|
|
Nathema
Voice
Joined: 13 May 2009
Posts: 15
Location: The Netherlands
|
| Posted: Wed May 13, 2009 6:27 am Post subject: |
|
|
The above link is not working anymore.
I tried contacting the maintainers of the code, but the email adresses are no longer valid.
Can somebody link/give me the english lang.tcl for the 8.1 Lol's Toolz? |
|
| Back to top |
|
|
Nor7on
Op
Joined: 03 Mar 2007
Posts: 185
Location: Spain - Barcelona
|
| Posted: Thu May 14, 2009 4:57 am Post subject: |
|
|
Hi again guys.
Nathema here the code of lang.tcl.
| Code: |
set language(default) 1
set language(french) 0
set language(english) 1
proc lang_regsuball {what by arg} {
regsub -all $what $arg $by arg
return $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 0
foreach arg $argslist {
set result [lang_regsuball "%$argidx" "$arg" $result]
incr argidx
}
return $result
}
proc getlang { hand } {
global language
if {![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_lang
bind dcc - lang dcc_lang
proc msg_lang {nick host hand arg} {
global botnick language
if {![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 $arg
return 0
}
proc dcc_lang {hand idx arg} {
global language
set 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 $arg
return 0
}
putlog "lang.tcl v1.3 by Thor & Tst - Date : 31-08-02 - Command : .lang | /msg $botnick lang" |
Sorry for my website/email it's down, cause i could not renew by reasons for work.
now I am Spanish military, and that clears long time and I cannot already dedicate me to tcl's.
can write to nor7on(to)gmail.com
Sorry a lot.
Cya. |
|
| Back to top |
|
|
Nathema
Voice
Joined: 13 May 2009
Posts: 15
Location: The Netherlands
|
| Posted: Thu May 14, 2009 8:12 am Post subject: |
|
|
| Thanx for ur quick reply <3 |
|
| Back to top |
|
|
Nathema
Voice
Joined: 13 May 2009
Posts: 15
Location: The Netherlands
|
| Posted: Thu May 14, 2009 8:26 am Post subject: |
|
|
Ofcourse i didn't look further than the length of my nose.
Got lang_data errors. Seems i miss the files lol.en.lang / lol.fr.lang
Opened all lol toolz archives i could find, non of those files.
Could u link a full archive with all the necessary files? |
|
| Back to top |
|
|
Nor7on
Op
Joined: 03 Mar 2007
Posts: 185
Location: Spain - Barcelona
|
|
| Back to top |
|
|
Glontul
Voice
Joined: 25 Oct 2010
Posts: 2
|
| Posted: Mon Oct 25, 2010 6:24 pm Post subject: |
|
|
Hello, can you put it on some link else? This one is not working anymore. Thank you . Or if somebody else have it (i mean the full archive) please put it on some link and reply. |
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
