341
modifications
Modifications
Page créée avec « Le script 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... »
Le script 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==
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
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==
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
