Max stats

[Quess]

Where can i change max stats? Couldn't find it in constants ;o

[RyokuHasu]

FINNALY XD someone finnaly has a use for my tutorial.

http://www.touchofdeathforums.com/smf/index.php/topic,70107.0.html

shows how to give custom max stats to every class.

[Quess]

I meant I want to be able to make stats bigger than 255\. Does it change that?

[Joyce]

Change:
```
Stat(1 To Stats.Stat_Count - 1) As Byte
```To:
```
Stat(1 To Stats.Stat_Count - 1) As Long
```On both the client and server, ModTypes. Type PlayerRec

Then find:
```
If GetPlayerRawStat(index, PointType) >= 255 Then
```In ModHandledata, Sub HandleUseStatpoint and change it to whatever you want the max amount to be. (Taking in mind the limits of the Long variable, I however doubt you can come up with a sane number that goes over that, however)

[maxi_d_great]

dont forget

```
Sub SetPlayerStat(ByVal Index As Long, Stat As Stats, ByVal Value As Long)
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If Index > MAX_PLAYERS Then Exit Sub
    If Value <= 0 Then Value = 1
    If Value > MAX_BYTE Then Value = MAX_BYTE
    Player(Index).Stat(Stat) = Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SetPlayerStat", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
```
change this line
```
If Value > MAX_BYTE Then Value = MAX_BYTE
```

give thanks to lightning

[Joyce]

Ah right, forgot about that security check.

[Quess]

Shall i change this "MAX_BYTE" to number, as long or what?
When i try to put 999 there i'm getting out of range error while connecting to server.

[erkro1]

@Quess:

> Shall i change this "MAX_BYTE" to number, as long or what?

Change it to MAX_LONG

[Quess]

Thanks for instant reply ;DD

[erkro1]

@Quess:

> Thanks for instant reply ;DD

Your welcome ;)

[Quess]

Hmm… Changed it to MAX_LONG, but I got out of range error again ;<
Then tried to change NpcRec, ItemRec and ClassRec like this.
```
Stat(1 To Stats.Stat_Count - 1) As Byte
```To this:
```
Stat(1 To Stats.Stat_Count - 1) As Long
```And:
```
Add_Stat(1 To Stats.Stat_Count - 1) As Byte
Stat_Req(1 To Stats.Stat_Count - 1) As Byte
```To:
```
Add_Stat(1 To Stats.Stat_Count - 1) As Long
Stat_Req(1 To Stats.Stat_Count - 1) As Long
```
And "out of range" error AGAIN! ;<

[maxi_d_great]

go try to make another accnt ,

[Joyce]

It doesn't work on old accounts, as they're stuffed with the old data formats.

[Quess]

And shall i change those ItemRec, NpcRec and ClassRec?

[Joyce]

No.. changing those means you'll need to delete your items and NPCs as well..

[Quess]

Deleted all old accounts/palyers and I'm still getting "out of range" error. What the ****?

[Joyce]

You must've changed something else, try debugging it and see where it gives you RTE9\. Don't come here complaining without handing us any info.

[Quess]

Hmm… Downloaded new Eclipse and now it works. I think that the problem was with Altar's engine from which i was creating my game... Sorry for bothering you with it ^^

[Quess]

This has to work… I did this with the latest Eclipse Origins, but had problems to do it with some other engine. Just try to download new Eclipse and do everything again.

[UzGo]

fixed

[UzGo]

Thanks A LOT For the max stats I am so happy :)