Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Peter120

Members
  • Posts

    216
  • Joined

  • Last visited

    Never

Posts posted by Peter120

  1. For the little white box, here is a tutorial:
    @hazeygaming:

    > I have seen this question asked a few times, So I will add this here. Its really simple people who are having troubles…
    >
    > How to add the quest button with the others.
    >
    > Inside _Client.vbp_
    >
    > In **ModConstants** find:
    >
    > ```
    > Public Const MAX_MAINBUTTONS As Long = 6
    > ```
    > Change to:
    >
    > ```
    > Public Const MAX_MAINBUTTONS As Long = 7
    > ```
    > In **ModGeneral** find:
    >
    > ```
    > ' main - party
    >     With MainButton(6)
    >         .fileName = "party"
    >         .state = 0 ' normal
    >     End With
    > ```
    > Below add this:
    >
    > ```
    > ' main - quest
    >     With MainButton(7)
    >         .fileName = "quest"
    >         .state = 0 ' normal
    >     End With
    > ```
    > Inside **frmMain** copy and paste an existing button:
    >
    > Now change the properties to:
    >
    > ```
    > Required button Properties
    > Name: imgButton
    > Index: 7
    >
    > ```
    > Next in Sub **imgButton** **Click** find:
    >
    > ```
    > Case 6
    >             ' show the window
    >             picCharacter.Visible = False
    >             picInventory.Visible = False
    >             picSpells.Visible = False
    >             picOptions.Visible = False
    >             picParty.Visible = True
    >             picQuestLog.Visible = False
    >             ' play sound
    >             PlaySound Sound_ButtonClick
    > ```
    > Below it add:
    >
    > ```
    > Case 7
    >             If Not picQuestLog.Visible Then
    >             ' show the window
    >             picCharacter.Visible = False
    >             picInventory.Visible = False
    >             picSpells.Visible = False
    >             picOptions.Visible = False
    >             picParty.Visible = False
    >             picQuestLog.Visible = True
    >             ' play sound
    >             PlaySound Sound_ButtonClick
    >             End If
    > ```
    > Also add the below code to Cases 1,2,3,4,6 skipping 5
    >
    > ```
    > picQuestLog.Visible = False
    > ```
    >
    > Now simply create 3 buttons with the others using the name quest_norm, quest_hover, quest_click.

    And the others, I simply load in the Propeties at the "Picture"
  2. I get

    (In Class Modules –> clsBuffer)

    Public Sub WriteBytes(ByRef nByte() As Byte)
    Dim nLength As Long

        **nLength = (UBound(nByte) - LBound(nByte)) + 1**

        If WriteHead + nLength - 1 > BufferSize Then Allocate nLength

        CopyMemory Buffer(WriteHead), nByte(0), nLength
        WriteHead = WriteHead + nLength
    End Sub

    I don't have backup :S
  3. I'm using Alatar's quest system and when I wrote /editquest I got an error from server subscript out of range 9\. I checked the tutorial and my suorce and there is no difference. I tired to delete quest files, but still not work. Help!
×
×
  • Create New...