Calculateur de fluide : Différence entre versions
m (+Balise) |
m (-Saut de lignes) |
||
| Ligne 10 : | Ligne 10 : | ||
<pre> | <pre> | ||
Const Coeur_de_Terre = 100 | Const Coeur_de_Terre = 100 | ||
| − | |||
Const Nb_sort = 14 | Const Nb_sort = 14 | ||
| − | |||
reDim Sort(Nb_sort) | reDim Sort(Nb_sort) | ||
| − | |||
Sort(0) = 2 | Sort(0) = 2 | ||
| − | |||
Sort(1) = 2 | Sort(1) = 2 | ||
| − | |||
Sort(2) = 100 | Sort(2) = 100 | ||
| − | |||
Sort(3) = 100 | Sort(3) = 100 | ||
| − | |||
Sort(4) = 2 | Sort(4) = 2 | ||
| − | |||
Sort(5) = 2 | Sort(5) = 2 | ||
| − | |||
Sort(6) = 100 | Sort(6) = 100 | ||
| − | |||
Sort(7) = 100 | Sort(7) = 100 | ||
| − | |||
Sort(8) = 2 | Sort(8) = 2 | ||
| − | |||
Sort(9) = 2 | Sort(9) = 2 | ||
| − | |||
Sort(10) = 2 | Sort(10) = 2 | ||
| − | |||
Sort(11) = 2 | Sort(11) = 2 | ||
| − | |||
Sort(12) = 100 | Sort(12) = 100 | ||
| − | |||
Sort(13) = 160 | Sort(13) = 160 | ||
| − | |||
Fluide = 0 | Fluide = 0 | ||
For i = 0 to (Nb_sort - 1) | For i = 0 to (Nb_sort - 1) | ||
| − | |||
Fluide = Fluide + Calc(Sort(i)) | Fluide = Fluide + Calc(Sort(i)) | ||
| − | |||
Next | Next | ||
| − | |||
MsgBox(Coeur_de_Terre + Fluide) | MsgBox(Coeur_de_Terre + Fluide) | ||
| − | |||
Function Calc(X) | Function Calc(X) | ||
| − | |||
if x > 150 then | if x > 150 then | ||
| − | |||
x = 150 | x = 150 | ||
| − | |||
end if | end if | ||
| − | |||
Base = 10 | Base = 10 | ||
| − | |||
Add = X\4 | Add = X\4 | ||
| − | |||
Ret = Add mod 5 | Ret = Add mod 5 | ||
| − | |||
Var = x/4 mod 5 | Var = x/4 mod 5 | ||
| − | |||
if Var >= 2 then | if Var >= 2 then | ||
| − | |||
Calc = Base + Add - Ret + 5 | Calc = Base + Add - Ret + 5 | ||
| − | |||
else | else | ||
Calc = Base + Add - Ret | Calc = Base + Add - Ret | ||
| − | |||
end if | end if | ||
| − | |||
End Function | End Function | ||
</pre> | </pre> | ||
[[Catégorie:Autre]] | [[Catégorie:Autre]] | ||
Version actuelle datée du 24 février 2012 à 05:47
Le script visual basic suivant calcul le fluide que vous rapporte vos sorts par scénario (en cL) selon la formule suivante : fluide rapporté par un sort = 10 + X/4 où X est le coût du sort.
Le script fait automatiquement l'arrondi nécessaire pour que la quantité exprimée sont un multiple de 5. Par exemple un sort à 150 cL rapporte 50 cL de fluide par scénario.
Indiquez bien le nombre de sorts que vous possédez et remplissez correctement le tableau en vous méfiant du décalage des index. Ici j'ai pris mon personnage en exemple.
Attention : vérifiez bien le script avant de l'utiliser, des scripts malintentionnés peuvent endommager votre machine.
Script[modifier]
Const Coeur_de_Terre = 100 Const Nb_sort = 14 reDim Sort(Nb_sort) Sort(0) = 2 Sort(1) = 2 Sort(2) = 100 Sort(3) = 100 Sort(4) = 2 Sort(5) = 2 Sort(6) = 100 Sort(7) = 100 Sort(8) = 2 Sort(9) = 2 Sort(10) = 2 Sort(11) = 2 Sort(12) = 100 Sort(13) = 160 Fluide = 0 For i = 0 to (Nb_sort - 1) Fluide = Fluide + Calc(Sort(i)) Next MsgBox(Coeur_de_Terre + Fluide) Function Calc(X) if x > 150 then x = 150 end if Base = 10 Add = X\4 Ret = Add mod 5 Var = x/4 mod 5 if Var >= 2 then Calc = Base + Add - Ret + 5 else Calc = Base + Add - Ret end if End Function
