La Couronne de Cuivre

Code : Tout sélectionner

:: General note on .BAT file:
:: - lines beginning with "::" are comments and are also used to disable unused code.
:: - lines beginning with ":" are labels for goto statement, used to to skip blocs.

:: Script handling conversion of Hanna mod to handle TRA files.
:: Copy this script in the BG2 directory, along with the Hanna mod.
:: This script uses WeiDU.exe, so it must also be present in the BG2 directory.

:: I suggest using WeiDU v210 as this was the version used to tune the script.
:: It has the extra benefit of a working --traify-comment capability which leaves
:: the dialog text as comment in the .d, .tp2 and .baf files after conversion.

:: Create directories to store the modified files without overwriting the originals.
:: Use the same directory hierarchy with suffixes

:: Create directory for script converted from the baf directory
if exist Hanna\baf_tra goto baf_tra_exists
mkdir Hanna\baf_tra

:baf_tra_exists

:: Create directory for dialogs converted from the d directory
if exist Hanna\d_tra goto d_tra_exists
mkdir Hanna\d_tra

:d_tra_exists

:: IMPORTANT NOTE
:: All files in the mod whose name include non ASCII characters will look weird
:: if this file is opened under Windows as the special characters are different
:: under DOS (or command line) and Windows. As this conversion script is
:: executed under DOS, the names shall follow the DOS form. To create the file
:: lists, I used a DOS command and redirected the output to a file.
:: For instance, for D files (*.d), stored into the list.txt file:
:: dir /b > list.txt 

:: The list were built from all the files in a given directory. After one
:: conversion try, I removed all those that created an empty tra file (that
:: means they don't have any text to translate). This is notably required for
:: the scripts (BAF) which do not always contain texts.
:: The extension (.D, .BAF) of the files shall be removed in the list between ()
:: in the for statement due to the way the weidu command is built.

:: IMPORTANT NOTE
:: In the mod directory, all the files are named Hanna.d, Hanna.baf and
:: Hanna.tp2, i.e. they all have the same root name.
:: The problem is that both the .D and .BAF have texts to extract. This is
:: a problem when all TRA files must be grouped in a single directory for each
:: language.
:: To overcome such case, the solution is to rename, before conversion, the
:: either the dialog file (.D) or the script file (.BAF) in conflict for the
:: same TRA file name. The easiest solution is to rename the dialog file,
:: adding any suitable suffix for instance (the name of a .D file is not restricted
:: to 8 characters constrary to the DLG file it produces, whose name is defined
:: inside the .D file, and must not be changed). On the contrary, renaming a BAF
:: and have WeiDU compile it with a different name is not as easy.
:: Such name change only has one consequence: the TP2 file must be modified to
:: take into account the new names. 

:: If we have a conflict for some file, we rename them before conversion.
:: Note: to rename in a sub-directory, we need to use "move" instead of "rename"
:: Not required in this mod
::move Hanna\d\Hanna.d Hanna\d\Hanna_d.d

:: Convert original dialog files. All texts are moved into a .TRA files using the
:: same prefix as the original .D files. The name of the .TRA files must remain
:: the same as the .D files so that WeiDU can make the link at installation.
:: To avoid overwriting the original while keeping the same name, the files are
:: created in the new directories (_tra suffix).
:: Notes:
:: - using the --traify-comment keeps the original texts in the .D file as comments
::   (between /* */) to keep the .D files more readable. Requires WeiDU > 196
:: - duplicate the commands if new dialogs are added later.
:: - WeiDU >= 200 includes an interesting capability to handle "traify" updated
::   versions of the .D files with additional texts not added using the @xxx
::   method, while avoiding conflicts with a previous TRA file. So a new version
::   of the mod may be written with texts inside the .D, then a new
::   "traifycation" could simply add the new texts at the end of the TRA file
::   created with the current version.
::   This option, --traify-old-tra, can be used like that:
::   weidu --traify Hanna\d\hanna.d --traify-old-tra Hanna\translations\castellano\hanna.tra --out Hanna\d_tra\hanna --traify-comment
::   where Hanna\translations\castellano\hanna.tra is the file containing the
::   texts already traified. The end result, .d fully traified and .tra with the
::   additional texts end up in Hanna\d_tra directory. The new texts are added
::   after the existing ones so that the existing numbering of texts is preserved.
:: The --out option specifies only the root name, so that the TRA file and the
:: modified D file shared the same root. This has the side effect or creating
:: an empty file with the root name but avoid creation of the TRA files with the
:: form "Hanna.d.tra".
for %%i in (ESTROLL1
estroll2
haene01
hanna
HannaTob
HANNOBL1) do weidu --traify Hanna\d\%%i.d --out Hanna\d_tra\%%i --traify-comment

:: Convert all scripts while extracting all texts to a .TRA file with the same
:: root name as the script. The modified script files (with reference to the
:: TRA files) keep the same in the process, so they are created in another
:: directory to avoid overwriting the originals.
for %%i in (esgen01
esrak01
ESTROL0
ESTROL2
HAENE03
sujon) do weidu --traify Hanna\baf\%%i.baf --out Hanna\baf_tra\%%i --traify-comment


:: Conversion of the TP2 original file to move texts in a .TRA file.
:: As we move the TP2 file to the Hanna directory (as per SConrad suggestion, see comments below),
:: there is no need for the _tra suffix to avoid overwriting the original.
weidu --traify Hanna.tp2 --out Hanna\Hanna --traify-comment

:: Move all TRA files to the castellano directory

:tra_exists
if exist Hanna\translations\castellano goto Castellano_exists
mkdir Hanna\translations\castellano
:: Also create francais directory for test purpose
mkdir Hanna\translations\francais

:Castellano_exists
:: Warning!
:: If dialogs (.D) or scripts (.BAF) have the same name, the .TRA file for them
:: will have the same name after conversion. In this case, you would have to
:: rename one of the .D or .BAF to avoid conflicts before conversion to .TRA
:: files. Otherwise the .TRA files can't be stored in the same language directory,
:: which would be a big complication.
:: Move .TRA files in the "castellano" language directory.
:: Note
:: I decided to keep all languages in a subdirectory to avoid languages to appear
:: at the same level as dialogs, scripts ... directories.
move Hanna\baf_tra\*.tra        Hanna\translations\castellano\
move Hanna\D_tra\*.tra          Hanna\translations\castellano\
:: Rename the TRA file for the setup as setup.tra to avoid conflict with other
:: file also called Hanna.tra. The name of the TRA file for the setup is easy
:: to specify in the TP2 file.
move Hanna\Hanna.tra            Hanna\translations\castellano\setup.tra

:: Final notes
:: - The new TP2 file can't be used directly after conversion as it lacks all the
::   stuff regarding translations and use of .TRA files.
::   Use the one provided with the .BAT file, modified for that purpose.
:: - The TP2 file is now be placed inside the "Hanna" directory to avoid crowding
::   the BG2 game directory. Refer to SConrad explanations on Spellhold Studios
::   (http://forums.spellholdstudios.net/index.php?showtopic=13684&st=0&p=184940%EF%BF%BDentry184940)
:: - This requires ensuring the Hanna directory and the setup-Hanna.exe
::   have the same name, i.e. the setup-<name>.exe must match the <name> of the
::   directory. That was already the case but this is now mandatory.
:: - For installation, in the new "Hanna" directory, you also need to replace
::   the original the .D and .BAF files in the "baf-files" and "d-files" directories
::  with those traifyed from the directories witt the "_tra" suffix.
:: - Ensure to remove all TP2 files (original and converted) from the BG2 directory
::   otherwise the version in the Hanna directory (the new one with TRA handling)
::   will not be used.
:: Remove the original TP2 by hand, I don't want to remove any original file
:: in the script, in case if fails!!!

:: Work to do by hand after this automated script
:: - Hanna.TP2: addition of language choice, default option to look for the TRA files,
::     modification of dialog file names for those renamed
::
pause

Code : Tout sélectionner

dir /b *.d > ..\listeficd.txt

Code : Tout sélectionner

@11 * = ~..."Short Stack." I have since heard that one more than I care to recount.~
@12 * = ~Aye, a foul, unforgivable thing. No doubt, no doubt about it. For me, 'twas "Toadstool."~
@13 * = ~O' course, we had a fellow in the crew at the time by the name o' Mushroom, so I dinna realize I was being addressed the first time I heard it. The second time, I put two and two together because the blighter was in my face, so I removed the offender's left pinky with me axe.~
@14 * = ~Ye can rest assured he called me "Sir" after that!~
@15 * = ~"Shrimp." And "Shrimpy." And "Shrimp-Faced Shrimpy." And "Shrimp-Smelling Shrimp-Faced Shrimpy." And--~
@16 * = ~"Little Belle." I always hated that one. I will never allow a mother I know to name their daughter Belle for that very reason.~
@17 * = ~--"Shrimp-Nosed Shrimp-Eyed Shrimp-Smelling Shrimp-Faced Shrimpy." And--~
@18 * = ~Aye, it's a longlimbed world out there. We see them for what they are, though, since their arsewarts be that much harder to hide from the likes of us! Hah!~
@19 * = ~--and of course, "Herbert."~
@20 * = ~Herbert?~
@21 * = ~Why, yes. What self-respecting gnome would ever want to be called Herbert?~

Code : Tout sélectionner

CHAIN IF ~InParty("Korgan")
See("Korgan")
!StateCheck("Korgan",STATE_SLEEPING)
InParty("Jan")
See("Jan")
!StateCheck("Jan",STATE_SLEEPING)
Global("FWBanterMazzy1","LOCALS",0)~ THEN BMAZZY shortpeople
@11
DO ~SetGlobal("FWBanterMazzy1","LOCALS",1)~
== BKORGAN @12
= @13
= @14
== BJAN @15
== BMAZZY @16
== BJAN @17
== BKORGAN @18
== BJAN @19
== BMAZZY @20
== BJAN @21
EXIT

Code : Tout sélectionner

InParty("Korgan")
See("Korgan")
!StateCheck("Korgan",STATE_SLEEPING)
InParty("Jan")
See("Jan")
!StateCheck("Jan",STATE_SLEEPING)
Global("FWBanterMazzy1","LOCALS",0)

Code : Tout sélectionner

THEN BMAZZY shortpeople

Code : Tout sélectionner

@224 *= ~Ah, what a grand day to be adventuring! The birds are chirping, the air is fresh and clear, the trees are tall and majestic. What more could we humble mortals ask from the Gods than to be alive on such a day?~ 
@225 *= ~Tiax could ask for a great deal more; for example, Tiax could ask that his destiny be fulfilled and that he be allowed to bestride the world with his power and glory!~
@226 *= ~Oh, why must this idiot continue to trail around with us? Why am I surrounded by such cretins as this?!?~
@227 *= ~Tiax could ask that Cyric slay his enemies and lay waste to the faithless, bringing pain and misery to all those fools who do not bend knee to Tiax's might!~
@228 *= ~Remind me to emigrate before that happens.~
@229 *= ~You know, Tiax, I really think you should see a mental health specialist or something, y'know? You're giving us gnomes a bad name, you buffoon!~
@230 *= ~Tiax could ask that Cyric remove these flies that keep getting in Tiax's face! Tiax has *many* demands, and Tiax awaits their fulfilment with eagerness...~
@231 *= ~He wasn't even paying attention to me! Someday they'll appreciate my genius. It's not my fault I'm before my time.~
@232 *= ~Tiax, you need to relax and enjoy life more. There are simple pleasures far greater than any that world conquest could grant; the fragrance of a flower, or perhaps the soothing sound of a harp being played.~
@233 *= ~Tiax has no time for such pettiness. He dreams of *grander* things! When Tiax rules, he shall enjoy every minute he sacks and destroys disobedient kingdoms and annihilates those faithless who dare to provoke his wrath!~
@234 *= ~I mean, maybe I should talk to myself. I'm the only one capable of appreciating my wit and intellect, after all.~
@235 *= ~Tiax needs no flowers; the sweet smell of the rivers of blood, which will flow when he conquers all, shall please him far more! All hail Tiax, ruler of all things!~
@236 *= ~Uh, ok...~
@237 *= ~Sometimes I think I'm invisible. Hey, I'm not using my amazing illusionary powers again am I? No? They must just be ignoring me then. Shame I can't think down to their level.~

Code : Tout sélectionner

CHAIN
IF WEIGHT #-1 ~CombatCounter(0) !See([ENEMY])InParty("TIAX")
See("TIAX")
!StateCheck("TIAX",STATE_SLEEPING)
Global("Garrick_TIAX","LOCALS",0)
!TimeOfDay(NIGHT)
!TimeOfDay(DUSK)
AreaType(OUTDOOR)~ THEN ~_BGarri~ Garrick_TIAX_1
@224 
DO ~SetGlobal("Garrick_TIAX","LOCALS",1)~
== ~_BTIAX~ @225
== ~_BEDWIN~ IF ~InParty("Edwin")~ THEN @226
== ~_BTIAX~ @227
== ~_BXANNN~ IF ~InParty("Xan")~ THEN @228
== ~_BQUAYL~ IF ~InParty("Quayle")~ THEN @229
== ~_BTIAX~ @230
== ~_BQUAYL~ IF ~InParty("Quayle")~ THEN @231
== ~_BGarri~ @232
== ~_BTIAX~ @233
== ~_BQUAYL~ IF ~InParty("Quayle")~ THEN @234
== ~_BTIAX~ @235
== ~_BGarri~ @236
== ~_BQUAYL~ IF ~InParty("Quayle")~ THEN @237
EXIT

Code : Tout sélectionner

@29 * = ~Well here we are! Beregost. Whatcha think?~ 
@30 * = ~I haven't seen enough of it yet to have much of an opinion.~
@31 * = ~Too many people for me. I'm not very fond of cities.~
@32 * = ~Looks great to me. What do you think we should do first?~
@33 * = ~The only thing I'm interested in right now is a warm room with soft bed and roof over my head.~
@34 * = ~You see one town, you've seen them all.~
@35 * = ~We'll see what she as for us then! Uh...better let me do the talking <CHARNAME>. A hayseed like you in a "big city" like this oooh...pretty scary!~
@36 * = ~Hayseed? When did you become so sophisticated, little Miss Worldly?~
@37 * = ~We'll avoid the scoundrels only to fall into the hands of the law, knowing you. Better let ME do the talking.~
@38 * = ~That's my plan! I'll just stand off to the side and look menacing.~
@39 * = ~Ya just be anti-social then. We'll be better off if I do the talking anyway. You'll just scare everyone away.~
@40 * = ~Better that, than the trouble you'll likely get us into. I think I had best to the talking.~
@41 * = ~Sure, sure; and if your quick words, wit and charm aren't enough, I'll just glower menacingly.~
@42 * = ~Sure, sure; and if my good looks and your quick words aren't enough, I'll just glower menacingly. Truly, Imo, it's long past time you have learned to do that.~
@43 * = ~I'm not anti-social. I just hate people.~
@44 * = ~Let's find a nice place and get some rooms. I haven't had a hot bath in ages! They say Feldepost's is a good inn, we should try there.~
@45 * = ~You take the bed. I've got dibs on the bath! I haven't had a hot bath in ages! They say Feldepost's is a good inn, we should try to find rooms there.~
@46 * = ~Oh, I've been all over with Winthrop before we came to Candlekeep. You should know that! But...heh, guess you're right. I was kinda little at the time.~
@47 * = ~Whatever you say. I'm just teasin' anyway.~
@48 * = ~Yer smarter than ya look! Guess there's hope for you after all, hehe.~
@49 * = ~That was almost funny <CHARNAME>. I must be rubbin' off on ya.~
@50 * = ~After that I'm going shopping. We need some supplies. Let's see...~
@51 * = ~We need a new frying pan, since you ruined the one we have.~
@52 * = ~I ruined? As I recall, YOU were the one who left it on the fire all night... ~
@53 * = ~Whatever you say.~
@54 * = ~Details, details. Was yer idea to have me cook. Um...what else? Some new blankets, soap, lantern oil, spare tent pegs...er...I think I kinda misplaced your hunting knife so we'll have to get a new one of those. I need some new clothes too. My pink tunic got ripped in that last fight.~
@55 * = ~Um...Imoen? ALL of your tunics are pink...and cloaks....and boots...and gloves... ~
@56 * = ~Me too! I wonder if they have any elvish jewlery? Ah, I *always* dreamed to buy something Evereska-made...~
@57 * = ~But that was my favorite! Soooo...I'll need a new one! There's lots we need. Hope, we have enough money...~
@58 * = ~Well, c'mon slowpoke. I wanna have a look around.~
@59 * = ~Whatever you say grouchy.~

Code : Tout sélectionner

IF WEIGHT #-1 ~
Global("ImoenBereg","GLOBAL",1)
Global("IMPC3","LOCALS",0)~ THEN BEGIN IMPC3
SAY @29 
IF ~~ THEN REPLY @30 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.1
IF ~~ THEN REPLY @31 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.2
IF ~~ THEN REPLY @32 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.3
IF ~~ THEN REPLY @33 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.4
IF ~~ THEN REPLY @34 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.15
END

IF ~~ THEN BEGIN IMPC3.1
SAY @35
IF ~~ THEN REPLY @36 GOTO IMPC3.6
IF ~~ THEN REPLY @37 GOTO IMPC3.7
IF ~~ THEN REPLY @38 GOTO IMPC3.8
END

IF ~~ THEN BEGIN IMPC3.2
SAY @39
IF ~~ THEN REPLY @40 GOTO IMPC3.7
IF ~Gender(Player1,MALE)~ THEN REPLY @41 GOTO IMPC3.8
IF ~Gender(Player1,FEMALE)~ THEN REPLY @42 GOTO IMPC3.8
IF ~~ THEN REPLY @43 GOTO IMPC3.8
END

IF ~~ THEN BEGIN IMPC3.3
SAY @44
IF ~~ THEN GOTO IMPC3.10
END

IF ~~ THEN BEGIN IMPC3.4
SAY @45
IF ~~ THEN GOTO IMPC3.10
END

IF ~~ THEN BEGIN IMPC3.6
SAY @46
IF ~~ THEN GOTO IMPC3.3
END

IF ~~ THEN BEGIN IMPC3.7
SAY @47
IF ~~ THEN GOTO IMPC3.3
END

IF ~~ THEN BEGIN IMPC3.8
SAY @48
IF ~~ THEN GOTO IMPC3.3
END

IF ~~ THEN BEGIN IMPC3.9
SAY @49
IF ~~ THEN GOTO IMPC3.3
END

IF ~~ THEN BEGIN IMPC3.10
SAY @50
IF ~~ THEN GOTO IMPC3.11
END

IF ~~ THEN BEGIN IMPC3.11
SAY @51
IF ~~ THEN REPLY @52 GOTO IMPC3.12
IF ~~ THEN REPLY @53 GOTO IMPC3.15
END

IF ~~ THEN BEGIN IMPC3.12
SAY @54
IF ~~ THEN REPLY @55 GOTO IMPC3.13
IF ~~ THEN REPLY @56 GOTO IMPC3.14
IF ~~ THEN REPLY @53 GOTO IMPC3.15
END

IF ~~ THEN BEGIN IMPC3.13
SAY @57
IF ~~ THEN GOTO IMPC3.14
END

IF ~~ THEN BEGIN IMPC3.14
SAY @58
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN IMPC3.15
SAY @59
IF ~~ THEN EXIT
END

Code : Tout sélectionner

IF WEIGHT #-1 ~
Global("ImoenBereg","GLOBAL",1)
Global("IMPC3","LOCALS",0)~ THEN BEGIN IMPC3
SAY @29 
IF ~~ THEN REPLY @30 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.1
IF ~~ THEN REPLY @31 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.2
IF ~~ THEN REPLY @32 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.3
IF ~~ THEN REPLY @33 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.4
IF ~~ THEN REPLY @34 DO ~SetGlobal("IMPC3","LOCALS",1)~ GOTO IMPC3.15
END

Code : Tout sélectionner

BEGIN ~LHCHAR2P~

Code : Tout sélectionner

INTERJECT_COPY_TRANS HELLJON 7 AllisonInHell
 == R#ALLISJ IF ~IsValidForPartyDialogue("r#allison")~ THEN @12
END