Script pour diviser le prix des unités en 2

Simplement pour diviser les prix de recrutement et d'entretien en 2. Idéalement tout ce qui concerne le coût serais diviser en 2, le tout si c'est possible bien sur. Donc le prix d'entretien, de recrutement, dans les bataille personnalisé, et le prix d'upgrade des arme, etc

Cela est pour Europa Babarorum que je trouve fortement exagéré surtout pour les unité.

Lio7 a montré depuis quelque temp son talent sur pour faire des script donc j'espère qu'il pourra m'économiser des heur de travail.

Si tu peux faire un script explique moi s'il te plait comment l'activer et le faire marcher j'ignord comment on fait.

Euh peux tu me donner la valeur à modifier ?
Donne moi aussi le chemin d'accés au fichier descr units sur EB.

;344
type generic siege 3cubit
dictionary generic_siege_3cubit ; Triakubitai Katapeltai
category siege
class missile
voice_type General_1
soldier greek_artillery_crew, 16, 4, 0.85
engine catapulta
attributes sea_faring
formation 1.5, 1.5, 3, 3, 3, square
stat_health 1, 0
stat_pri 8, 2, no, 0, 0, melee, simple, piercing, knife, 0 ,0.04
stat_pri_attr no
stat_sec 20, 2, ballista, 280, 30, siege_missile, blade, piercing, none, 25 ,1
stat_sec_attr ap, bp, launching
stat_pri_armour 1, 7, 0, flesh
stat_sec_armour 0, 0, flesh
stat_heat 0
stat_ground 0, 0, 0, 0
stat_mental 7, normal, untrained
stat_charge_dist 30
stat_fire_delay 0
stat_food 60, 300
stat_cost 1, 9000, 2500, 30, 40, 9000
ownership thrace, greek_cities, macedon, romans_julii, num

Le grand c'est ce qu'il faut diviser en 2

Le chemin sur mon pc: C:\Program Files\Activision\Europa Babarorum\EB\Data\export_descr_unit.txt

puree 4500 le soldats apres la division ça fait cher a l'unite!!

Je te fais ca demain mon cher Terran

Cette unité est une unité de spam rebel je crois, pas une unité recrutable ^^, cétais qu'un exemple pour que lio sache quoi modifier.

Merci lio, très aimable ^^

9000 l'unitée...

pour ce prix là j'ai une armée dans RTR, dans SPQR ou encore dans RS

A oui, les machine de guerre ^^

Bah dans vanilla sa tourne dans les 2250 donc 4500 une fois diviser sa me dérange pas vraiment.

stat_cost 1, 9000, 2500, 30, 40, 9000
C'est seulement celle en gras ?

stat_cost 1, 9000, 2500, 30, 40, 9000

Tous les coût plutôt, prix en campagne, en bataille personnalisé, en maintien, et en évolution d'arme.

A oui, tu mettera un truc pour que seul les nombre en tier sorte et que si le nombre est pas entier tu fais +0.5(puisque c'est diviser en 2 yaura que des .5 comme nombre fractionnaire)

General_Terran a écrit:

A oui, tu mettera un truc pour que seul les nombre en tier sorte et que si le nombre est pas entier tu fais +0.5(puisque c'est diviser en 2 yaura que des .5 comme nombre fractionnaire)

Je ne connais pas cette fonction.

Voici le script :

'##################################################################
'##################### ModificRTW version 1.2 #########################
'##################################################################
'############ Ce programme divise par 2 le cout des unités sur RTW ############
'###################################################################
'############## 2007- Lio7 - Tous droits réservés ###############
'###################################################################

Option Explicit

'------------------------------------
'Déclaration des variables et objets
'------------------------------------

'Déclaration des variables
'~~~~~~~~~~~~~~~~~~~~
Const ForReading = 1
Const ForWriting = 2
Dim ChFic
Dim ChSave
Dim Fso , WshShell , Utilisateur , Copie , Text
Dim Memoire , EnsVal , NbCaract
Dim Contenu , TabloFic , Valeurs
Dim I , J , DernLign

'Déclaration des objets
'~~~~~~~~~~~~~~~~~~
Set Fso=CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")


'------------------------------
'Sauvegarde du fichier source
'------------------------------

'Définition du chemin source
'~~~~~~~~~~~~~~~~~~~~~~~
ChFic = InputBox( "Veuillez saisir le chemin d'accès au fichier export_descr_unit","INFORMATION", "C:\Program Files\Activision\Europa Babarorum\EB\Data\export_descr_unit.txt")
If Fso.FileExists (ChFic) = False Then
WScript.echo "Le fichier n'existe pas à l'endroit indiqué"
WScript.Quit
End If

'Définition du chemin de copie
'~~~~~~~~~~~~~~~~~~~~~~~
Utilisateur=WshShell.ExpandEnvironmentStrings("%Username%")
Set WshShell =Nothing
ChSave = "C:\Documents and Settings\" & Utilisateur & "\Bureau"

'Copie du fichier
'~~~~~~~~~~~~
Copie=Fso.CopyFile(ChFic,ChSave & "\" ,True)


'-------------------------
'Modification du fichier
'------------------------

'Ouverture du fichier et définition du tableau
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set Text = Fso.OpenTextFile(ChFic, ForReading)
Contenu=Text.ReadAll
DernLign=Text.Line
Text.Close
TabloFic=Split(Contenu,vbCrLf )

'Changement des valeurs
'~~~~~~~~~~~~~~~~~~~
For I=1 to DernLign-1 Step(1)
Memoire = TabloFic (I)
If Left(Memoire,9) = "stat_cost" Then
NbCaract = Len (Memoire)
Valeurs = Split (Mid(Memoire,17, NbCaract),",")
Valeurs (1) = " " & Valeurs (1)/2
Valeurs (2) = " " & Valeurs (2)/2
Valeurs (3) = " " & Valeurs (3)/2
Valeurs (4) = " " & Valeurs (4)/2
Valeurs (5) = " " & Valeurs (5)/2
EnsVal = Valeurs (0)
For J=1 to 5
EnsVal = EnsVal & "," & Valeurs (J)
Next
TabloFic (I) = Left(Memoire,16) & EnsVal
End If
Next

'Remplacement du fichier
'~~~~~~~~~~~~~~~~~~~
Set Text = Fso.OpenTextFile(ChFic, ForWriting)
For I=0 to DernLign-2 Step (1)
Text.WriteLine TabloFic(I)
Next

'Ecriture derniére ligne sans saut de ligne
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Text.Write TabloFic(DernLign-1)

'Fin du log
'~~~~~~~~
Text.Close
Set Fso = Nothing
WScript.echo "Opération terminée "

J'y comprend a peine le quart mais ma essayer, merci :p

Bah je sais pas si c'est possible de mettre une condition pour garder que des nombre naturel mais bon, la plupart des prix son paire, je changerais les rare impair a la main.

Grace a ce script sa va me simplifier pas mal de truc, si sa marche bien sur

EDIT: Sa marche bien certe mais ya aps mal de nombre .5 par contre

Tu as de la chance de comprendre le quart General_Terran, moi je ne comprend RIEN

Lio tu m'impréssionne ^^

General_Terran a écrit:

J'y comprend a peine le quart mais ma essayer, merci :p

Bah je sais pas si c'est possible de mettre une condition pour garder que des nombre naturel mais bon, la plupart des prix son paire, je changerais les rare impair a la main.

Grace a ce script sa va me simplifier pas mal de truc, si sa marche bien sur

Tu doute de moi ^^
Pour les virgules je te le ferais plus tard ok ?

On ne fait rien quand on comprend que le quart, et encore je le comprend une fois écris environ ce que sa veux dire ^^

Si je comprend bien le premier c'est le chemin d'accès du export descript unit, ensuite c'est l'opération, donc en principe si par exemple je veux modifier le descript de rtw vanilla pour faire X 2 si je change le chemin pour celui de RTW vanilla et les /2 par des *2 sa marcherais?
(juste savoir si ces 2 paramètre son les 2 seul a modififer)

Sans blague j'aurais jamais cru possible de modifier des ficher a l'interieur d'une façon aussi rapide...tu m'impressionne vraiment

'##################################################################
'##################### ModificRTW version 1.2 #########################
'##################################################################
'############ Ce programme divise par 2 le cout des unités sur RTW ############
'###################################################################
'############## 2007- Lio7 - Tous droits réservés ###############
'###################################################################

Option Explicit

'------------------------------------
'Déclaration des variables et objets
'------------------------------------

'Déclaration des variables
'~~~~~~~~~~~~~~~~~~~~
Const ForReading = 1
Const ForWriting = 2
Dim ChFic
Dim ChSave
Dim Fso , WshShell , Utilisateur , Copie , Text
Dim Memoire , EnsVal , NbCaract
Dim Contenu , TabloFic , Valeurs
Dim I , J , DernLign

'Déclaration des objets
'~~~~~~~~~~~~~~~~~~
Set Fso=CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")


'------------------------------
'Sauvegarde du fichier source
'------------------------------

'Définition du chemin source
'~~~~~~~~~~~~~~~~~~~~~~~
ChFic = InputBox( "Veuillez saisir le chemin d'accès au fichier export_descr_unit","INFORMATION", "C:\Program Files\Activision\Europa Babarorum\EB\Data\export_descr_unit.txt")
If Fso.FileExists (ChFic) = False Then
WScript.echo "Le fichier n'existe pas à l'endroit indiqué"
WScript.Quit
End If

'Définition du chemin de copie
'~~~~~~~~~~~~~~~~~~~~~~~
Utilisateur=WshShell.ExpandEnvironmentStrings("%Username%")
Set WshShell =Nothing
ChSave = "C:\Documents and Settings\" & Utilisateur & "\Bureau"

'Copie du fichier
'~~~~~~~~~~~~
Copie=Fso.CopyFile(ChFic,ChSave & "\" ,True)


'-------------------------
'Modification du fichier
'------------------------

'Ouverture du fichier et définition du tableau
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set Text = Fso.OpenTextFile(ChFic, ForReading)
Contenu=Text.ReadAll
DernLign=Text.Line
Text.Close
TabloFic=Split(Contenu,vbCrLf )

'Changement des valeurs
'~~~~~~~~~~~~~~~~~~~
For I=1 to DernLign-1 Step(1)
Memoire = TabloFic (I)
If Left(Memoire,9) = "stat_cost" Then
NbCaract = Len (Memoire)
Valeurs = Split (Mid(Memoire,17, NbCaract),",")
Valeurs (1) = " " & Valeurs (1)/2
Valeurs (2) = " " & Valeurs (2)/2
Valeurs (3) = " " & Valeurs (3)/2
Valeurs (4) = " " & Valeurs (4)/2
Valeurs (5) = " " & Valeurs (5)/2
EnsVal = Valeurs (0)
For J=1 to 5
EnsVal = EnsVal & "," & Valeurs (J)
Next
TabloFic (I) = Left(Memoire,16) & EnsVal
End If
Next

'Remplacement du fichier
'~~~~~~~~~~~~~~~~~~~
Set Text = Fso.OpenTextFile(ChFic, ForWriting)
For I=0 to DernLign-2 Step (1)
Text.WriteLine TabloFic(I)
Next

'Ecriture derniére ligne sans saut de ligne
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Text.Write TabloFic(DernLign-1)

'Fin du log
'~~~~~~~~
Text.Close
Set Fso = Nothing
WScript.echo "Opération terminée "

Pour les nombre naturel je sais pas si sa ce fait en terme de condition. Il y aurais par contre une autre échapatoire au 0,5

Si il est possible de remplacer le dernier chiffre de chaque valeur par 0 avant la division, cela enlèverais toute possibilité au 0.5 de venir peter la ligne de code ^^

Je crois pas qu'une variation de quelque 9 denier max changerais koi que se sois ^^

:Merci: Terran
TU as pigé le code en général :Bravo:
Ca marche ?

Quoi merci, c'est moi qui te remerci, je n'ai malheureusement rien fait moi sinon te remercier de ce service ^^

En plus tu as fait quelque chose pour sauvegarder une copie du export ^^, j'avais fait moi même ma sauvegarde croyant que tu y aurais pas pensé mais il semble que ta pensé a tout.

Il n'y a que le 0.5 qui cause un problème, sinon le code marche très bien, il exécute bien l'opération et divise tout en 2.

Si on pourrait arrondir chaque chiffre au dixième , mais je sais pas comment faire et je sais pas si sa ce fait.


en vb pour trouver les nombre naturel sur 6(dans le cadre d'un jeu de dé bien sur) je fesais sa, je sais pas si vbs est si simple par contre. "Rnd" étand pour randomize, ce qui m'intéresse est le "Int" qui sort les nombre entier.

Int(Rnd() * 7)

Je teste ca et je te le dis

pour le moment c'est programmer que le 2ème chiffre après la virgule = le maintien donc sa décale tout le ,5. Par contre je reste dans l'espoire qu'une de ces solution marche ^^

Le tout serais de créé une condition avec le Int. Sinon il faudrait être capable de jouer avec le dernier chiffre.

Je crois savoir quoi faire

Ok, je te laisse tester, bonne chance

Bien qu'une unité a 5 de maintien sa me plait faut garder une certaine difficulter au jeu :p

Ca y est par contre je réduis le chiffre -> 242,5 donne 242

'##################################################################
'##################### ModificRTW version 1.2 #########################
'##################################################################
'############ Ce programme divise par 2 le cout des unités sur RTW ############
'###################################################################
'############## 2007- Lio7 - Tous droits réservés ###############
'###################################################################

Option Explicit

'------------------------------------
'Déclaration des variables et objets
'------------------------------------

'Déclaration des variables
'~~~~~~~~~~~~~~~~~~~~
Const ForReading = 1
Const ForWriting = 2
Dim ChFic
Dim ChSave
Dim Fso , WshShell , Utilisateur , Copie , Text
Dim Memoire , EnsVal , NbCaract
Dim Contenu , TabloFic , Valeurs , Tronq
Dim I , J , DernLign

'Déclaration des objets
'~~~~~~~~~~~~~~~~~~
Set Fso=CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")


'------------------------------
'Sauvegarde du fichier source
'------------------------------

'Définition du chemin source
'~~~~~~~~~~~~~~~~~~~~~~~
ChFic = InputBox( "Veuillez saisir le chemin d'accès au fichier export_descr_unit","INFORMATION", "C:\Documents and Settings\lio\Bureau\a\a.txt")
' C:\Program Files\Activision\Europa Babarorum\EB\Data\export_descr_unit.txt")
If Fso.FileExists (ChFic) = False Then
WScript.echo "Le fichier n'existe pas à l'endroit indiqué"
WScript.Quit
End If

'Définition du chemin de copie
'~~~~~~~~~~~~~~~~~~~~~~~
Utilisateur=WshShell.ExpandEnvironmentStrings("%Username%")
Set WshShell =Nothing
ChSave = "C:\Documents and Settings\" & Utilisateur & "\Bureau"

'Copie du fichier
'~~~~~~~~~~~~
Copie=Fso.CopyFile(ChFic,ChSave & "\" ,True)


'-------------------------
'Modification du fichier
'------------------------

'Ouverture du fichier et définition du tableau
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set Text = Fso.OpenTextFile(ChFic, ForReading)
Contenu=Text.ReadAll
DernLign=Text.Line
Text.Close
TabloFic=Split(Contenu,vbCrLf )

'Changement des valeurs
'~~~~~~~~~~~~~~~~~~~
For I=1 to DernLign-1 Step(1)
Memoire = TabloFic (I)
If Left(Memoire,9) = "stat_cost" Then
NbCaract = Len (Memoire)
Valeurs = Split (Mid(Memoire,17, NbCaract),",")
For J=1 to 5
Valeurs (J) = " " & Valeurs (J)/2
Tronq = Split (Valeurs (J),",")
Valeurs (J)=Tronq (0)
Next
EnsVal = Valeurs (0)
For J=1 to 5
EnsVal = EnsVal & "," & Valeurs (J)
Next
TabloFic (I) = Left(Memoire,16) & EnsVal
End If
Next

'Remplacement du fichier
'~~~~~~~~~~~~~~~~~~~
Set Text = Fso.OpenTextFile(ChFic, ForWriting)
For I=0 to DernLign-2 Step (1)
Text.WriteLine TabloFic(I)
Next

'Ecriture derniére ligne sans saut de ligne
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Text.Write TabloFic(DernLign-1)

'Fin du log
'~~~~~~~~
Text.Close
Set Fso = Nothing
WScript.echo "Opération terminée "

SA FONCTIONNE!!!
SA FONCTIONNE!!!
(voir starwars épisode 1 lors du test par anakin de son bolide de course)

Biensur que ca marche ^^
Bon jeu

desole terran mais j'ai du bosser avec mes parents et dans pas longtemps j'y retourne!!

sinon lio faudrait vraiment que tu m'y apprennes!!

Enfin pouvoir jouer normalement avec des barbare qui vale pas le prix de 2 manipule de pretorian d'élite.

Je jou Arverne et sa a un gros bon sens diviser en 2. On a aussi des dette bien entendu, mais elle son moin grande et ce ratrppe mieu. De plus les unité on enfin un prix correct ce rapprochant de RTR.

content de voir que ca te fait plaisir, car de mon cote rien ne marche!! je desinstalle l'equivalent de 97,84 GO de mon disque dur, en clair tous mes mods et la GOLD EDITION!!