Adding Stats costs more $ the higher THEIR Lv.

[mrmiguu]

Could someone please come up with a formula for me to where whenever you add stat points, it checks all the stats Lv.'s and based on that it costs (1 + Int((GetPlayerStat(Index, str, def, magi, speed) + 10) \ 10))

[shadowwulf]

Dim Total
Dim Cost

Total = (getplayerstr(index) + getplayerdef(index) + getplayermagi(index) + getplayerspeed(index) + 11)
Cost = total / 10

that is how you would figure the cost.
I am a little confused at what you are doing with it though.

Do you want say all 20 stats would make it..  91/10 so 9 points.
so in order to raise str you need 9 points?

then in the sub for use  player points, put like…
```
Dim Total
Dim Cost

Total = (getplayerstr(index) + getplayerdef(index) + getplayermagi(index) + getplayerspeed(index) + 11)
Cost = total / 10

If getplayerpoints(index) < cost then
    call playermsg(index, "You do not have enough points to add increase your stats.", BRIGHTRED)
    Exit Sub
end if

```

that should work.

[mrmiguu]

This method is flawed though because It checks the AVG of all the stat's Lv.'s rather than each stat's individual level. Can't I just have a loop check through each stat's Lv.?

[shadowwulf]

```
oh it didnt sound like you meant that...

i beleive there is a parameter for which one to use, 0-3
youwould have to make a case select.
and do like..
[code
Dim Total
Dim Cost

case select (variable used for stat selection)
case 0
  stat = getplayerstr(index)
case 1
  stat - getplayerdef(index)
case 2
...
case 3
...
end case select

Total = (Stat + 11)
Cost = total / 10

If getplayerpoints(index) < cost then
    call playermsg(index, "You do not have enough points to add increase your stats.", BRIGHTRED)
    Exit Sub
end if

then in the -1 part you -cost

```

[mrmiguu]

nvm, I fixed it by having the reduction for each specific stat in each stat's case. ty so much for all of your help!

[shadowwulf]

no problem.
im so stuck in what im doing its nice to know i can help get something accomplished!