egghelp/eggheads community

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2008-12-26T05:27:28-04:00

the english only one is down and the 'multi-language' one is only does french replies, so as it's not 'multi-language' ... lol

Statistics: Posted by wac — Fri Dec 26, 2008 5:27 am

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-11-02T12:33:55-04:00

You're welcome

If no-one report me any bug or issue before sunday, I'll officially release it on eggdrop.fr

Statistics: Posted by CrazyCat — Fri Nov 02, 2007 12:33 pm

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-11-02T10:41:40-04:00

Changed first post with information. Thanks, CrazyCat!!

Statistics: Posted by BeBoo — Fri Nov 02, 2007 10:41 am

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-31T09:16:17-04:00

OK, the beta version is released here

Peharps some bugs, so tell me if you encounter any issue.

Statistics: Posted by CrazyCat — Wed Oct 31, 2007 9:16 am

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-31T04:51:01-04:00

So, I can confirm that your solution works perfectly, I'll release soon the multilanguage version

Statistics: Posted by CrazyCat — Wed Oct 31, 2007 4:51 am

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-30T12:59:21-04:00

Thx user, I think your first solution is the better for me.

I'll next time use msgcat package to do multilanguage tcl, but when I first want to try this way

Statistics: Posted by CrazyCat — Tue Oct 30, 2007 12:59 pm

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-30T10:40:14-04:00

Why don't you use an array?

Code:

set langDef(en) {msg1 {Hello World!}msg2 {etc...}}set langDef(fr) {msg1 {Bonjour Monde!}msg2 {etc...}}proc setlang {lang} {array set ::lang $::langDef($lang)}

Test:

Code:

% setlang en% puts $lang(msg1)Hello World!% setlang fr% puts $lang(msg1)Bonjour Monde!

Of course, there are other ways to do this...eg. combining the "message id" and language name to make the element name in your language array (to avoid having to create the array when switching languages - which is better if you need several languages simultaneously)

Code:

set lang(en,msg1) "Hello World!"

Statistics: Posted by user — Tue Oct 30, 2007 10:40 am

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-30T10:30:10-04:00

Could tweak it like this:

Code:

namespace eval test {    namespace eval fr {        variable dice1 { "first" "second" "third" }    }    namespace eval en {        variable dice1 { "efirst" "esecond" "ethird" }    }    set lang "en"    putlog "test 1: [lindex [set test::[subst $lang]::dice1] 1]"}

Statistics: Posted by nml375 — Tue Oct 30, 2007 10:30 am

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-30T09:11:29-04:00

Sorry but creating a multilanguage version is not so simple that I thought.
I've tried different ways:
* adding namespaces in $::sexdice
* adding external namespaces and import them
* ...

The first method was the one I prefered, but it doesn't work:

Code:

namespace eval test {    namespace eval fr {        variable dice1 { "first" "second" "third" }    }    namespace eval en {        variable dice1 { "efirst" "esecond" "ethird" }    }    set lang "en"    putlog "test 1: [lindex $test::[subst $lang]::dice1 1]"    # Tcl error: can't read "test::": no such variable    putlog "test 2: [lindex [subst $lang]::dice1 0]"    #  test 2:}

(comments are output in the console)...

I think I'll use dbfiles to work if there's no internal solution...

Statistics: Posted by CrazyCat — Tue Oct 30, 2007 9:11 am

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-26T05:46:09-04:00

you're welcome...
btw, I'll do the 1.3 version wich might really interest both of us: multilanguage version (dynamically setted).

I'm affraid I'll have just a few time to work on it, so I think I'll released it on monday, 29th.

Statistics: Posted by CrazyCat — Fri Oct 26, 2007 5:46 am

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-25T14:34:58-04:00

New version is available (1.2). Change log and download links can be found in the first post!

Thanks for your help thusfar, CrazyCat!

Statistics: Posted by BeBoo — Thu Oct 25, 2007 2:34 pm

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-25T03:55:20-04:00

I tested your script and got the following error:
Tcl error [sexdice::roll]: invalid command name "filt"
Any ideas?

I've updated the tcl during the day, peharps the version you DL wasn't the good one.
Try getting the last one and if the error persists, modify the line #84:

Code:

set wb [lsearch [filt $mylist] [filt $exclude]]

may become:

Code:

set wb [lsearch [sexdice::filt $mylist] [sexdice::filt $exclude]]

The other way is to have the filt procedure global (out of the namespace)...

By the way, why not be able to turn ON/OFF dynamically in the partyline for authorised channels, like :

.chanset #adult +sexdice
.chanset #religion -sexdice

I was thinking about it too, adding udef flags for authorized channels and for forbidden users.
I'll wait for the next version from BeBoo, it'll be a collaborative work

Statistics: Posted by CrazyCat — Thu Oct 25, 2007 3:55 am

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-24T16:46:29-04:00

hello BeBoo

I tested the french version, and it s working for me, althought the names of the channels have to be in lowercase, otherwise, it doent work. Also, it may be better to turn off the log on the partyline.

By the way, why not be able to turn ON/OFF dynamically in the partyline for authorised channels, like :

.chanset #adult +sexdice
.chanset #religion -sexdice

As stated above, before I released it, i deleted the requirement of having +games on the chan. It would be a lot easier than filtering for chans thru a variable and having to rehash just to add a chan to the list. I am currently working on version 1.1 to be released alongside Cat's french version. I will make the change there.

Statistics: Posted by BeBoo — Wed Oct 24, 2007 4:46 pm

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-24T16:40:34-04:00

hello BeBoo

I tested the french version, and it s working for me, althought the names of the channels have to be in lowercase, otherwise, it doent work. Also, it may be better to turn off the log on the partyline.

By the way, why not be able to turn ON/OFF dynamically in the partyline for authorised channels, like :

.chanset #adult +sexdice
.chanset #religion -sexdice

Statistics: Posted by Zircon — Wed Oct 24, 2007 4:40 pm

Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

2007-10-24T16:29:24-04:00

Here's my version

So, included the two features I spoke about and I've translated it.

I've reduced the namespace to only one level, but feel free to re-adapt rhe tcl as you made it previously

You'll notice I supress the global and use the direct call ($::var).

I tested your script and got the following error:

Tcl error [sexdice::roll]: invalid command name "filt"

Any ideas?

Statistics: Posted by BeBoo — Wed Oct 24, 2007 4:29 pm