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

vulcano

Members
  • Posts

    40
  • Joined

  • Last visited

    Never

Posts posted by vulcano

  1. > For anything in mod DirectDraw you'll need to find the similar subs in mod Graphics. The code in question here should be the same, only the name of the subs would be different.
    >
    > bltnpc -> DrawNPC
    >
    > bltPlayer -> DrawPlayer

    The code works, but

    I cant use W A S D keys to move

    How to fix this?
  2. Thanks

    So, if I use

    ```

    Vital = Spell(spellnum).Vital + GetPlayerStat(index, Willpower) / 7

    ```
    This would add 1 dmg per 7 will points?

    And if I use this in the End code

    ```

    Case HP

    I = (GetPlayerStat(Index, Stats.Willpower) * 0.8) + 6

    ```
    This would add HP regen?

    That's correct?
  3. How the player stats works?

    I have 15 point in Int and I have 1810 mana in lv 100, but I'm not a mage

    And my friend have 100+ points in Int and and have 1000- mana in lv 100, and he's a mage

    How the STR, END, AGI, INT and WILL works?
  4. The game is in portuguese ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/tongue.png)

    GUI in game:

    ![](http://i.imgur.com/ivAUQUw.jpg)

    GUI menu:

    ![](http://i.imgur.com/F2WWjXb.jpg)

    Criticisms, suggestions, and, give your notes ![:D](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/biggrin.png)

    Thanks
  5. Tittle: Deitara

    Sub Tittle : Online

    Tittle Color: Light brown

    Sub Tittle Color : Anything Good

    Tittle Size : Your Size

    SubTittle Size: Like the online size

    Background: Some trees behind the name Deitara, preferably the RPG Maker VX trees, thanks

    Theme: Fantasy

    Refrence:

    >! ![](http://www.freemmorpgmaker.com/uploadfiles/bb11d7bf735f469438f41ec96dfee6d3.png)
  6. !EDIT

    I dont know why

    But, the Guild button open the quest menu now… Why?

    The button dont work... ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png)

    Ok I put in Menu_MouseUp

    ```

    ' friend button

    I = 56

    x = GUIWindow(GUI_MENU).x + Buttons(I).x

    y = GUIWindow(GUI_MENU).y + Buttons(I).y

    ' check if we're on the button

    If (GlobalX >= x And GlobalX <= x + Buttons(I).Width) And (GlobalY >= y And GlobalY <= y + Buttons(I).Height) Then

    If Buttons(I).state = 2 Then

    ' do stuffs

    OpenGuiWindow 8

    ' play sound

    PlaySound Sound_Buttonclick, -1, -1

    End If

    End If

    ```

    And in Menu_MouseDown

    ```

    ' friends button

    I = 56

    If Buttons(I).Visible Then

    x = GUIWindow(GUI_MENU).x + Buttons(I).x

    y = GUIWindow(GUI_MENU).y + Buttons(I).y

    ' check if we're on the button

    If (GlobalX >= x And GlobalX <= x + Buttons(I).Width) And (GlobalY >= y And GlobalY <= y + Buttons(I).Height) Then

    Buttons(I).state = 2 ' clicked

    End If

    End If

    ```
  7. See if it's right

    I click in the button and the friends list dont appear

    In Sub DrawMenu I put:

    ```

    ' little friend button

    I = 56

    If Buttons(I).Visible Then

    ' set co-ordinate

    x = GUIWindow(GUI_MENU).x + Buttons(I).x

    y = GUIWindow(GUI_MENU).y + Buttons(I).y

    Width = Buttons(I).Width

    Height = Buttons(I).Height

    ' check for state

    If Buttons(I).state = 2 Then

    ' we're clicked boyo

    'EngineRenderRectangle Tex_Buttons_c(Buttons(i).PicNum), x, y, 0, 0, width, height, width, height, width, height

    RenderTexture Tex_Buttons_c(Buttons(I).PicNum), x, y, 0, 0, Width, Height, Width, Height

    ElseIf (GlobalX >= x And GlobalX <= x + Buttons(I).Width) And (GlobalY >= y And GlobalY <= y + Buttons(I).Height) Then

    ' we're hoverin'

    'EngineRenderRectangle Tex_Buttons_h(Buttons(i).PicNum), x, y, 0, 0, width, height, width, height, width, height

    RenderTexture Tex_Buttons_h(Buttons(I).PicNum), x, y, 0, 0, Width, Height, Width, Height

    ' play sound if needed

    If Not lastButtonSound = I Then

    PlaySound Sound_ButtonHover, -1, -1

    lastButtonSound = I

    End If

    Else

    ' we're normal

    'EngineRenderRectangle Tex_Buttons(Buttons(i).PicNum), x, y, 0, 0, width, height, width, height, width, height

    RenderTexture Tex_Buttons(Buttons(I).PicNum), x, y, 0, 0, Width, Height, Width, Height

    ' reset sound if needed

    If lastButtonSound = I Then lastButtonSound = 0

    End If

    End If

    ```
    And in Sub initialisegui

    ```

    ' main - little friend

    With Buttons(56)

    .state = 0 ' normal

    .x = 30

    .y = 5

    .Width = 69

    .Height = 29

    .Visible = True

    .PicNum = 27

    End With

    ```

    In MAX_BUTTONS

    ```

    Public Const MAX_BUTTONS As Long = 56

    ```

    In HandleMouseUp

    ```

    Case GUI_FRIENDS

    Buddies_MouseUp

    mouseClicked = False

    ```

    In HandleMouseDown

    ```

    Case GUI_FRIENDS

    Buddies_MouseDown

    mouseState = GUI_FRIENDS

    If Button = vbRightButton Then mouseClicked = True

    ```

    What's wrong?
  8. I want to create more buttons

    ![](http://www.freemmorpgmaker.com/uploadfiles/1f372fe337e0b0db62213e6468f80ad0.png)

    I want to create the friends, quests, and skills buttons

    For when you click each button, window appears them
  9. > I found this before the last release and I forgot about it lol.
    >
    > I was a little lazy. I apologize. Thank you for reporting though, it is greatly appreciated.
    >
    > I'm going to update the Client.exe with the fix.

    Can u help me?

    I need put the skills, quests and friend buttons in the gui

    How I create the buttons?
×
×
  • Create New...