[EO 2.0]Add Buffer type spell

[tsuki]

@Robin:

> Post your server-side and client-side 'SpellRec's here. Both of them.

Client
```
Private Type SpellRec
    Name As String * NAME_LENGTH
    Desc As String * 255
    Sound As String * NAME_LENGTH

    Type As Byte
    MPCost As Long
    LevelReq As Long
    AccessReq As Long
    ClassReq As Long
    CastTime As Long
    CDTime As Long
    Icon As Long
    Map As Long
    x As Long
    y As Long
    Dir As Byte
    Vital As Long
    Duration As Long
    Interval As Long
    Range As Byte
    IsAoE As Boolean
    AoE As Long
    CastAnim As Long
    SpellAnim As Long
    StunDuration As Long
    BuffType As Byte
    BuffDur As Long
    Sprite As Long
End Type
```
Server
```
Private Type SpellRec
    Name As String * NAME_LENGTH
    Desc As String * 255
    Sound As String * NAME_LENGTH

    Type As Byte
    MPCost As Long
    LevelReq As Long
    AccessReq As Long
    ClassReq As Long
    CastTime As Long
    CDTime As Long
    Icon As Long
    Map As Long
    x As Long
    y As Long
    Dir As Byte
    Vital As Long
    Duration As Long
    Interval As Long
    Range As Byte
    IsAoE As Boolean
    AoE As Long
    CastAnim As Long
    SpellAnim As Long
    StunDuration As Long
    Sprite As Long
    BuffType As Byte
    BuffDur As Long
End Type
```

[GrimReaperReborn]

Server side:

> In **modTypes**, in the type SpellRec, below the:
> ```
>     StunDuration As Long
>
> ```Add:
> ```
>     BuffType As Byte
>     BuffDur As Long
>
> ```

So change your server side one to:

```
Private Type SpellRec
    Name As String * NAME_LENGTH
    Desc As String * 255
    Sound As String * NAME_LENGTH

    Type As Byte
    MPCost As Long
    LevelReq As Long
    AccessReq As Long
    ClassReq As Long
    CastTime As Long
    CDTime As Long
    Icon As Long
    Map As Long
    x As Long
    y As Long
    Dir As Byte
    Vital As Long
    Duration As Long
    Interval As Long
    Range As Byte
    IsAoE As Boolean
    AoE As Long
    CastAnim As Long
    SpellAnim As Long
    StunDuration As Long
    BuffType As Byte
    BuffDur As Long
    Sprite As Long
End Type
```

[tsuki]

@Mïlk:

> Server side:
>
> So change your server side one to:
>
> ```
> Private Type SpellRec
>     Name As String * NAME_LENGTH
>     Desc As String * 255
>     Sound As String * NAME_LENGTH
>    
>     Type As Byte
>     MPCost As Long
>     LevelReq As Long
>     AccessReq As Long
>     ClassReq As Long
>     CastTime As Long
>     CDTime As Long
>     Icon As Long
>     Map As Long
>     x As Long
>     y As Long
>     Dir As Byte
>     Vital As Long
>     Duration As Long
>     Interval As Long
>     Range As Byte
>     IsAoE As Boolean
>     AoE As Long
>     CastAnim As Long
>     SpellAnim As Long
>     StunDuration As Long
>     BuffType As Byte
>     BuffDur As Long
>     Sprite As Long
> End Type
> ```

same error '-'
I did everything four times and still getting error

[Robin]

Look, let me lay it out for you.

That error you posted will _only_ occur if your SpellRecs are mismatched. It directly copies the memory from the packet to the UDT. The subscript is the array index. If it's out of range then you're trying to set data to a part of the array which doesn't exist.

In this case it means that the _size_ of the UDT (in bytes) is not the same as the one in the packet - thus not the same as the one on the server.

Copy & Paste the SpellRec from the client and overwrite the server one. Make sure you then compile both projects and try running it.

[tsuki]

I tried to do what Robin said, but when I compile and run it, when I open de spell editor something strange occurs.

all the captions are not displayed

I'm posting my spell editor code.
I'm sure that the other parts are matching now, so maybe the mistake is in there
```
Option Explicit

Private Sub chkAOE_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If chkAOE.Value = 0 Then
        Spell(EditorIndex).IsAoE = False
    Else
        Spell(EditorIndex).IsAoE = True
    End If

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "chkAOE_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub cmbClass_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Spell(EditorIndex).ClassReq = cmbClass.ListIndex

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmbClass_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub cmbType_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Spell(EditorIndex).Type = cmbType.ListIndex
        If cmbType.ListIndex = 5 Then
        frmBuff.Visible = True
    Else
        frmBuff.Visible = False
    End If

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmbType_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub cmdDelete_Click()
Dim tmpIndex As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    ClearSpell EditorIndex

    tmpIndex = lstIndex.ListIndex
    lstIndex.RemoveItem EditorIndex - 1
    lstIndex.AddItem EditorIndex & ": " & Spell(EditorIndex).Name, EditorIndex - 1
    lstIndex.ListIndex = tmpIndex

    SpellEditorInit

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdDelete_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub cmdSave_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    SpellEditorOk

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdSave_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlBuff_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    lblBuffDur.Caption = "Buffer Duration: " & scrlBuff.Value & " min"
    Spell(EditorIndex).BuffDur = scrlBuff.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlBuff_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlBuffType_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlBuffType.Value = 1 Then
        lblBuff.Caption = "Buffer type: Str"
    ElseIf scrlBuffType.Value = 2 Then
        lblBuff.Caption = "Buffer type: End"
    ElseIf scrlBuffType.Value = 3 Then
        lblBuff.Caption = "Buffer type: Int"
    ElseIf scrlBuffType.Value = 4 Then
        lblBuff.Caption = "Buffer type: Agi"
    ElseIf scrlBuffType.Value = 5 Then
        lblBuff.Caption = "Buffer type: Will"
    End If
    Spell(EditorIndex).BuffType = scrlBuffType.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlBuffType_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlSprite_Change()
    lblSprite.Caption = "Transformation sprite: " & scrlSprite.Value
    Spell(EditorIndex).Sprite = scrlSprite.Value
End Sub

Private Sub lstIndex_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    SpellEditorInit

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "lstIndex_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub cmdCancel_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    SpellEditorCancel

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdCancel_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlAccess_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlAccess.Value > 0 Then
        lblAccess.Caption = "Access Required: " & scrlAccess.Value
    Else
        lblAccess.Caption = "Access Required: None"
    End If
    Spell(EditorIndex).AccessReq = scrlAccess.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlAccess_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlAnim_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlAnim.Value > 0 Then
        lblAnim.Caption = "Animation: " & Trim$(Animation(scrlAnim.Value).Name)
    Else
        lblAnim.Caption = "Animation: None"
    End If
    Spell(EditorIndex).SpellAnim = scrlAnim.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlAnim_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlAnimCast_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlAnimCast.Value > 0 Then
        lblAnimCast.Caption = "Cast Anim: " & Trim$(Animation(scrlAnimCast.Value).Name)
    Else
        lblAnimCast.Caption = "Cast Anim: None"
    End If
    Spell(EditorIndex).CastAnim = scrlAnimCast.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlAnimCast_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlAOE_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlAOE.Value > 0 Then
        lblAOE.Caption = "AoE: " & scrlAOE.Value & " tiles."
    Else
        lblAOE.Caption = "AoE: Self-cast"
    End If
    Spell(EditorIndex).AoE = scrlAOE.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlAOE_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlCast_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    lblCast.Caption = "Casting Time: " & scrlCast.Value & "s"
    Spell(EditorIndex).CastTime = scrlCast.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlCast_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlCool_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    lblCool.Caption = "Cooldown Time: " & scrlCool.Value & "s"
    Spell(EditorIndex).CDTime = scrlCool.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlCool_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlDir_Change()
Dim sDir As String
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Select Case scrlDir.Value
        Case DIR_UP
            sDir = "Up"
        Case DIR_DOWN
            sDir = "Down"
        Case DIR_RIGHT
            sDir = "Right"
        Case DIR_LEFT
            sDir = "Left"
    End Select
    lblDir.Caption = "Dir: " & sDir
    Spell(EditorIndex).Dir = scrlDir.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlDir_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlDuration_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    lblDuration.Caption = "Duration: " & scrlDuration.Value & "s"
    Spell(EditorIndex).Duration = scrlDuration.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlDuration_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlIcon_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlIcon.Value > 0 Then
        lblIcon.Caption = "Icon: " & scrlIcon.Value
    Else
        lblIcon.Caption = "Icon: None"
    End If
    Spell(EditorIndex).Icon = scrlIcon.Value
    EditorSpell_BltIcon

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlIcon_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlInterval_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    lblInterval.Caption = "Interval: " & scrlInterval.Value & "s"
    Spell(EditorIndex).Interval = scrlInterval.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlInterval_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlLevel_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlLevel.Value > 0 Then
        lblLevel.Caption = "Level Required: " & scrlLevel.Value
    Else
        lblLevel.Caption = "Level Required: None"
    End If
    Spell(EditorIndex).LevelReq = scrlLevel.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlLevel_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlMap_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    lblMap.Caption = "Map: " & scrlMap.Value
    Spell(EditorIndex).Map = scrlMap.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlMap_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlMP_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlMP.Value > 0 Then
        lblMP.Caption = "MP Cost: " & scrlMP.Value
    Else
        lblMP.Caption = "MP Cost: None"
    End If
    Spell(EditorIndex).MPCost = scrlMP.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlMP_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlRange_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlRange.Value > 0 Then
        lblRange.Caption = "Range: " & scrlRange.Value & " tiles."
    Else
        lblRange.Caption = "Range: Self-cast"
    End If
    Spell(EditorIndex).Range = scrlRange.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlRange_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlStun_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If scrlStun.Value > 0 Then
        lblStun.Caption = "Stun Duration: " & scrlStun.Value & "s"
    Else
        lblStun.Caption = "Stun Duration: None"
    End If
    Spell(EditorIndex).StunDuration = scrlStun.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlStun_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlVital_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    lblVital.Caption = "Vital: " & scrlVital.Value
    Spell(EditorIndex).Vital = scrlVital.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlVital_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlX_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    lblX.Caption = "X: " & scrlX.Value
    Spell(EditorIndex).x = scrlX.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlX_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub scrlY_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    lblY.Caption = "Y: " & scrlY.Value
    Spell(EditorIndex).y = scrlY.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "scrlY_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub txtDesc_Change()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Spell(EditorIndex).Desc = txtDesc.text

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtDesc_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub txtName_Validate(Cancel As Boolean)
Dim tmpIndex As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If EditorIndex = 0 Then Exit Sub
    tmpIndex = lstIndex.ListIndex
    Spell(EditorIndex).Name = Trim$(txtName.text)
    lstIndex.RemoveItem EditorIndex - 1
    lstIndex.AddItem EditorIndex & ": " & Spell(EditorIndex).Name, EditorIndex - 1
    lstIndex.ListIndex = tmpIndex

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtName_Validate", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub cmbSound_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If cmbSound.ListIndex >= 0 Then
        Spell(EditorIndex).Sound = cmbSound.List(cmbSound.ListIndex)
    Else
        Spell(EditorIndex).Sound = "None."
    End If

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdSound_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

```

[Robin]

Post the line it errors on.

[tsuki]

@Robin:

> Post the line it errors on.

still pointing to this line

[Robin]

What do you mean 'still'? That's a completely different line. >_>

Anyway, it's trying to set the scrollbar to a value it can't handle. Hover over '.buffType' and tell me what value it's trying to set it as.

Then tell me the MAX and MIN of the scrollbar.

[tsuki]

@Robin:

> What do you mean 'still'? That's a completely different line. >_>
>
> Anyway, it's trying to set the scrollbar to a value it can't handle. Hover over '.buffType' and tell me what value it's trying to set it as.
>
> Then tell me the MAX and MIN of the scrollbar.

Robin, you're a genius!
The error was because the value was 0 and the min was 1
I changed the scrollbar min and it works perfectly!
Very thanks!

[Robin]

It's really not genius, it's based understanding of the language and English.

If you actually read up on the errors and find out what causes them then you'll easily find out what the problem is. That's what I did originally. Hell, if I come across an error who do you think I can turn to for help? No one on here can help me with the level of programming I have to do with Origins (well, except Jacob.)

Google is your best friend.

[tsuki]

@Robin:

> It's really not genius, it's based understanding of the language and English.
>
> If you actually read up on the errors and find out what causes them then you'll easily find out what the problem is. That's what I did originally. Hell, if I come across an error who do you think I can turn to for help? No one on here can help me with the level of programming I have to do with Origins (well, except Jacob.)
>
> Google is your best friend.

You're right, I'll remember this.
Very thanks, Robin!

[Kalizaya]

could someone upload the client and server with the Buffer type spell included so we can download it? ;)

[RyokuHasu]

@Kalizaya:

> could someone upload the client and server with the Buffer type spell included so we can download it? ;)

Quick question, do you not have VB6? O.o you kinda need it… just wondering.

[mmearrccii]

@Kalizaya:

> could someone upload the client and server with the Buffer type spell included so we can download it? ;)

I really not gonna upload it installed. It's not a big deal to install it youself (you just need to copy and paste…), and if you can't even do that, you should learn more before trying to make anything. Also like RyokuHasu mentoined, if you happen to don't have VB6 then you should get it becouse without it you can't modify anything in the Eclipse Origins Engine.

[SicosisDF]

I have an error when a character enters the game, te error is in the server and says:

> We did not find the method or data member

And looks to:

```
Public Sub HandleBuffs(ByVal index As Long, ByVal BuffNum As Long)
  With TempPlayer(index).Buff(BuffNum)
        If .Used And .spellNum > 0 Then
            If GetTickCount - .StartTime >= (Spell(.spellNum).BuffDur * 60000) Then
          Call SetPlayerStat(index, .Type, GetPlayerRawStat(index, .Type) - .Plus)
            SendPlayerData index
            Call PlayerMsg(index, "Your " & Spell(.spellNum).Name & " has ended.", BrightRed)
          .Used = False
            .Plus = 0
          .spellNum = 0
          .StartTime = 0
            End If
        End If
    End With
End Sub
```
Any idea?  :sad:

[SpiceyWolf]

>.> maybe u replaced the wrong sub :P

It shouldnt give u error on loading the game unless u messed that up BADLY u got a backup? try adding it again and read carefully all areas before u replace stuffs

[SicosisDF]

But I d'ont replace anithing these code goes at bottom of modCombat, any other idea?

[mmearrccii]

@SicosisDF:

> I have an error when a character enters the game, te error is in the server and says:
> And looks to:
>
> ```
> Public Sub HandleBuffs(ByVal index As Long, ByVal BuffNum As Long)
>   With TempPlayer(index).Buff(BuffNum)
>         If .Used And .spellNum > 0 Then
>             If GetTickCount - .StartTime >= (Spell(.spellNum).BuffDur * 60000) Then
>           Call SetPlayerStat(index, .Type, GetPlayerRawStat(index, .Type) - .Plus)
>             SendPlayerData index
>             Call PlayerMsg(index, "Your " & Spell(.spellNum).Name & " has ended.", BrightRed)
>           .Used = False
>             .Plus = 0
>           .spellNum = 0
>           .StartTime = 0
>             End If
>         End If
>     End With
> End Sub
> ```
> Any idea?  :sad:

Which line is it highlining?

[ChrisWR]

ok , i was getting an 380 error as somone before said and i replaced the code and i dont get the error anymore , but the scroll bars nor labels show up O.o

[mmearrccii]

@ChrisWR:

> ok , i was getting an 380 error as somone before said and i replaced the code and i dont get the error anymore , but the scroll bars nor labels show up O.o

You mean the whole frame doesn't show up when you select the buffer type in the list?

Do you have this part?

> Now open **frmEditor_Spell** an Click on cmbType and add to it's list "Buffer". Now double click cmbType and below
> ```
>     Spell(EditorIndex).Type = cmbType.ListIndex
>
> ```Add:
> ```
>     If cmbType.ListIndex = 5 Then
>         frmBuff.Visible = True
>     Else
>         frmBuff.Visible = False
>     End If
>
> ```

[ChrisWR]

Yep , just double checked that and everythings there.

When im in vb6 i can see everything , but when i run the game nothings there (neither of the scrollbars, labels, or the buffer settings framework)

[mmearrccii]

@ChrisWR:

> Yep , just double checked that and everythings there.
>
> When im in vb6 i can see everything , but when i run the game nothings there (neither of the scrollbars, labels, or the buffer settings framework)

Well idk then but its not a big deal, its only a little design element so jut set the Frame's visibility to true and arrange it so it won't be in the way.

[ulqui17]

would for, like when it was created to spell buff, you add the attribute and the time, I was wondering if dae would like to put put the paperdoll, so when you use the buff is in the paperdoll char .. ?

example: str buff, when it uses an aura will appear (which would be the paperdoll) and ends up the time of the buff he disappeared along with the buff.

Would?

ps: do not speak English I used the google translator .-.

[Zetasis]

@ulqui17:

> would for, like when it was created to spell buff, you add the attribute and the time, I was wondering if dae would like to put put the paperdoll, so when you use the buff is in the paperdoll char .. ?
>
> example: str buff, when it uses an aura will appear (which would be the paperdoll) and ends up the time of the buff he disappeared along with the buff.
>
> Would?
>
> ps: do not speak English I used the google translator .-.

You don't need to re-code this system to do this. Just make an aura animation and set it to play on the player when you cast the buff spell then set the time for as long as the buff spell is set for.

[ulqui17]

is not it, like when I want to use the buff active paperdoll to put to be activated, so when using char buff will appear in a paperdoll
ex: str = Buff
      Duration = 10 min
      Paperdoll = 2