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. General-Pony, Sorry, tidy.

    –------
    jcsnider, same thing.

    deleted all music and resulted in another problem, xD "run-time error '9': Subscript out of range" frmEditor_Events -> Sub From_Load ->

    ```
    cmbPlayAnim.ListIndex = 0
        PopulateLists
        cmbPlayBGM.Clear
        For i = 1 To UBound(musicCache) <- line error xD
          cmbPlayBGM.AddItem (musicCache(i))
        Next
    ```
    The sound is normal, just do not play music. xD
  2. @jcsnider:

    > Ok, replace your error handler with this (at the bottom of that sub)… and tell me what error it gives you when you turn music on.
    >
    > ```
    > errorhandler:
    >     If InGame Then
    >         HandleError "PlayMidi - Ingame = True - Map#= " & Player(MyIndex).Map & " - Filename = " & fileName, "modSound", Err.Number, Err.Description, Err.Source, Err.HelpContext
    >     Else
    >         HandleError "PlayMidi - Ingame = False - Filename = " & fileName, "modSound", Err.Number, Err.Description, Err.Source, Err.HelpContext
    >     End If
    >     Err.Clear
    >     Exit Sub
    > ```

    error still continues.

    –--
    jcsnider, Client-Side~

    ```
    Public Sub PlayMidi(ByVal fileName As String)
    Dim Splitmusic() As String

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

        If Options.Music = 0 Then Exit Sub ' <- it only runs after replacing the 0 by 1

        Splitmusic = Split(fileName, ".", , vbTextCompare)

        If Performance Is Nothing Then Exit Sub
        If LenB(Trim$(fileName)) < 1 Then Exit Sub
        If UBound(Splitmusic) <> 1 Then Exit Sub
        If Splitmusic(1) <> "mid" Then Exit Sub
        If Not FileExist(App.Path & MUSIC_PATH & fileName, True) Then Exit Sub

        If Not Music_On Then Exit Sub

        If Music_Playing = fileName Then Exit Sub

        Set Segment = Nothing
        Set Segment = Loader.LoadSegment(App.Path & MUSIC_PATH & fileName) ' <- line error

        ' repeat midi file
        Segment.SetLoopPoints 0, 0
        Segment.SetRepeats 100
        Segment.SetStandardMidiFile

        Performance.PlaySegment Segment, 0, 0

        Music_Playing = fileName

        ' Error handler
        Exit Sub
    errorhandler:
        If InGame Then
            HandleError "PlayMidi - Ingame = True - Map#= " & Player(MyIndex).Map & " - Filename = " & fileName, "modSound", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Else
            HandleError "PlayMidi - Ingame = False - Filename = " & fileName, "modSound", Err.Number, Err.Description, Err.Source, Err.HelpContext
        End If
        Err.Clear
        Exit Sub
    End Sub
    ```
  3. Client-Side~

    Public Sub PlayMidi(ByVal fileName As String)
    Dim Splitmusic() As String

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

        If Options.Music = 1 Then Exit Sub ' -> after i change from 0 to 1, typically opens.

    –-----------

    this system very good, congratulations.
  4. @Erwin:

    > Hmm, I seem to get alot 'Invalid prodecure call or argument' errors at:
    > ```
    > Set Segment = Loader.LoadSegment(App.Path & MUSIC_PATH & fileName)
    > ```
    > Which is obvious related to the sound.
    > I'm not sure if I'm the only one having this but you might wanna check this out.

    I am having the same problem yours.

    Run-time error '5':
    Invalid prodecure call or argument

    modSound
    Public Sub PlayMidi(ByVal fileName As String)

    line:
    Set Segment = Loader.LoadSegment(App.Path & MUSIC_PATH & fileName)
  5. @Justn:

    > Oh I mean in the item editor also the cmbtype list make sure shield is below ur new items
    >
    > ![](http://www.freemmorpgmaker.com/files/imagehost/pics/77b72c87563550acfc48d94534b22f0e.bmp)
    >
    > Cause if u click on the cmbtype u will see that frame equipment  data is set to be visible if the item is a weapon and everything until u get after the shield so anything after shield in the list won't display the frame

    Thank you for your attention, my cmdType two item was wrong.

    My lack of attention here :) , more, thank you al for your help.
  6. @Justn:

    > welll the easiest thing would be for you to make sure that you put "wing" above shield in the item type list

    My modConstants

    ' Item constants
    Public Const ITEM_TYPE_NONE As Byte = 0
    Public Const ITEM_TYPE_WEAPON As Byte = 1
    Public Const ITEM_TYPE_ARMOR As Byte = 2
    Public Const ITEM_TYPE_HELMET As Byte = 3
    Public Const ITEM_TYPE_WING As Byte = 4
    Public Const ITEM_TYPE_BRAZAO As Byte = 5
    Public Const ITEM_TYPE_RING As Byte = 6
    Public Const ITEM_TYPE_BRACELET As Byte = 7
    Public Const ITEM_TYPE_ENCHANT As Byte = 8
    Public Const ITEM_TYPE_SHIELD As Byte = 9
    Public Const ITEM_TYPE_CONSUME As Byte = 10
    Public Const ITEM_TYPE_KEY As Byte = 11
    Public Const ITEM_TYPE_CURRENCY As Byte = 12
    Public Const ITEM_TYPE_SPELL As Byte = 13

    Added other items to test, they were all out of order panel.

    NONE… WING.. Key - Current = Equipment Data

    Brazao = Consume

    Ring - Bracelet = went blank

    Currency = Equipmanet Data

    Enchant = Spell
  7. @Justn:

    > im sorry im having trouble understanding the problem maybe can you explain whats going on or send me a message.. Also if you are adding just one slot you don't need to add the dd7 stuff or the edit for frmmain.

    I added everything correctly, but it happens, the menu "Equipmente Date" where I would add the bonus to the new item does not appear.

    Armor: ![](http://img402.imageshack.us/img402/7674/armora.jpg)

    Wing: ![](http://img252.imageshack.us/img252/1651/winge.jpg)
  8. @Justn:

    > That is something u have done ur self I have added this tutorial many times with not a single issue.. if u want u can send me ur source before u added it and I will do it for you…

    Adding  according to the tutorial, only difference and put only one item. (Wing)
    –-----------
    As reverse the item in "Item Constants" appears "Spell, Consume ...." nothing of "Equipment Data".
  9. @Justn:

    > Did u guys delete ur old accounts first?

    Yes,
    –----------
    After many modifications the problem was solved.
    Now my item does not show the Frame "Equipment Data", if anyone knows where I should modify to tell it appears the "Equipment Data".

    Thanks in advance.
  10. @ςเςเ:

    > I don't know the other thing, but there are 2 settings that makes the animation much bigger. Try to find them, too lazy to redownload the engine and look.

    I changed some subs, but nothing has changed in-game.

    –------------------------------------------------------------------------

    If anyone knows and can share with us.Thanks in advance. :D
  11. someone could help me let the spell with that effect.

    Example area effect: ![](http://img217.imageshack.us/img217/9083/ex1wp.jpg)

    Example Linear effect: ![](http://img208.imageshack.us/img208/4634/ex2m.jpg)

    someone could tell me, how to make the animation look in all the squares.

    Thanks in advance.
  12. Scypher, all my characters are in a 384x384 image. or just need to increase the image size of the paperdoll?

    –--Edit---
    projectiles and let me know if you would know how to use them with the size 512x128.

    Thanks in advance.
  13. someone could tell me, when I increased the 'Sprite, item, spell size constants' also increases the size of paperdoll.

    or to increase the size of paperdoll have to edit elsewhere, Thanks in advance…
  14. @DarkScythe57:

    > I need help whenever a player logs into my game i get subscript out f range. it is referring to this If TargetIndex = Quest(QuestNum).Task(ActualTask).Map Then

    I am having the same problem, you managed to solve?
    –-------------------------

    anyone know to resolve? this occurs in the server. (I'm using PV)
    Thanks in advance.
×
×
  • Create New...