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

onzinho

Members
  • Posts

    53
  • Joined

  • Last visited

    Never

Posts posted by onzinho

  1. @Gleech:

    > I'm having this issue as well. Also, the quest is set so it's suppose to give you money when you accept the quest, but (I'm assuming because it says I don't have inventory room) for some reason it's taking AWAY money. :confused:
    >
    > Anyone got any idea on this?

    I'm still with this problem, it very difficult to find what is wrong with the code for this to happen.
    :(
  2. Mortal Angels, very good.

    however I believe it should stay that way.
    ```
    Case vbKeyC
                If picCharacter.Visible = False Then
                    ' send packet
                    SendRequestPlayerData
                    ' show the window
                    picCharacter.Visible = True

                    ' Render
                    BltEquipment
                    BltFace
                Else
                    picCharacter.Visible = False
                End If
    ```
    otherwise the player will not see updates in picCharacter as points …..
  3. DepTa, you need to add the two images to the gui.
    images Questlog and questdialog.

    Edit–---

    Problem in quest system -> General -> Give item on Start

    when you click accept quest and she accepted and the following message appears.
    Message -> You have no inventory space. Please delete something to take the quest.

    not giving you the quest.

    Screen:
    ![](http://img36.imageshack.us/img36/8276/53477688.jpg)
  4. iHero, I'm adding again and compared with their source.
    the code and very interesting, with a little more than implement is perfect.

    –---------Edit---------------------------------

    in server

    Run-time error '9':

    Subscript out of range

    in Sub JoinGame

    line: For i = 0 To ResourceCache(GetPlayerMap(index)).Resource_Count
  5. but something needs to change, so it can accept the quests in Conversation System.
    Someone could help. Thanks in advance.

    Client~~
    frmEditor_Conv
    cmbEvent add "Start Quest" in (list), and

    ```
    Case 4 ' give quest
                'set max values
                scrlData1.Max = MAX_QUESTS
                ' hide / unhide
                scrlData1.Visible = True
                scrlData2.Visible = False
                scrlData3.Visible = False
                lblData1.Visible = True
                lblData2.Visible = False
                lblData3.Visible = False
                ' set strings
                lblData1.Caption = "Quest: None"
    ```

    in scrlData1
    ```
    Case 4 ' Quest
                If scrlData1.Value > 0 Then
                    lblData1.Caption = "Quest: " & Trim$(Quest(scrlData1.Value).Name)
                Else
                    lblData1.Caption = "Quest: None"
                End If
    ```
    Server~~
    modConv -> Public Sub sendChat

    ```
    Case 4 ' Give quest
                        If Conv(convNum).Conv(curChat).Data1 > 0 Then
                            CanStartQuest index, Conv(convNum).Conv(curChat).Data1
    ```
×
×
  • Create New...