Max modification

[Dawntide]

hey,

1\. i want to edit the limit of the stats. So i want to be able to have more than 255 points in 1 stat and i want to add more than 255 to a stat with items, de/buffs, armor, weapons and all the other things.

2\. i want to edit the limit of the price to 999.999.999, but it says invalid property value so which term do i have to use? integer?

thanks in advance!

[Synergy]

You'd have to change the stats from being "As Byte" to something else (e.g. "As Integer" or "As Long"), I think. I say "I think" because I'm not 100% sure on which is 255 (byte/integer/long) :P

[Dawntide]

And how to change the max price? Because scrollbar is limited to 32676 and i want 999.999.999.

[Ruins of Hell]

@Dawntide:

> And how to change the max price? Because scrollbar is limited to 32676 and i want 999.999.999.

You'd have to change it in to a textbox instead and parse the results yourself.

[Dawntide]

But how to use the number in the textbox. I mean when i use

```
If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub
    lblPrice.Caption = "Price: " & txtPrice.Text
    Item(EditorIndex).Price = txtPrice.text
```
what happens if i type letters in it? i do not know how to do it.

And how exactly change limit of all the stats

[Guest]

The mx limit on a scroll bar in vb6 is 32676\. Soul is right. Change it to a textbox format.

[Ruins of Hell]

@Dawntide:

> But how to use the number in the textbox. I mean when i use
>
> ```
> If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub
>     lblPrice.Caption = "Price: " & txtPrice.Text
>     Item(EditorIndex).Price = txtPrice.text
> ```
> what happens if i type letters in it? i do not know how to do it.
>
> And how exactly change limit of all the stats

Use Val(x) to convert the string to an integer. It will ignore letters (so Val("ABC") = 0).

[Dawntide]

*update* fixed

[Ruins of Hell]

@Dawntide:

> Can i do it like this?:
>
> ```
> Dim str As String
> Dim num As Integer
>
> str = txtPrice.text
> num = val(str)
> ```
> thanks in advance!

Yeah, or you could just do:
```
Item(EditorIndex).Price = Val(txtPrice.text)

```

[Dawntide]

thanks, seems to work.

Do i need to change these codes too?

```
' are we in a shop?
        If InShop > 0 Then
            Select Case ShopAction
                Case 0 ' nothing, give value
                    multiplier = Shop(InShop).BuyRate / 100
                    Value = Item(GetPlayerInvItemNum(MyIndex, InvNum)).Price * multiplier
```
ItemRec

```
Price As Long
```
modGameEditors

```
' Info
        frmEditor_Item.txtPrice.text = .Price
```
thanks!

[Ruins of Hell]

No.

[Dawntide]

Okay and how exactly change all stat limits?