MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

Run Time Error 9

5 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos

Ir para baixo

Run Time Error 9 Empty Run Time Error 9

Mensagem por marccvz Dom 06 maio 2012, 17:52

Ola pessoal estou criando um server no elysium e toda hora ta dando esse erro 9 isso acontece quando eu vo pegar um item que o npc dropa dai da esse erro e nao consigo mais entra com o char tenho que deletar e criar outro char para jogar mais todas vez que tento pegar itens do chao o cliente da esse erro alguem ai poderia ajudar ja estalei todos os library

Run Time Error 9 Imagemfsv


Última edição por marccvz em Dom 06 maio 2012, 18:19, editado 1 vez(es)
marccvz
marccvz
Membro
Membro

Mensagens : 132

http://cvzshop.comunidades.net

Ir para o topo Ir para baixo

Run Time Error 9 Empty Re: Run Time Error 9

Mensagem por Pad;* Dom 06 maio 2012, 17:57

Cara fica meio dificil pq ainda não tenho bola de cristal séria mais apropriado você postar a imagem do erro da linha no vb (visual basic) Very Happy

Caso não saiba , fazer isso você roda o server e o cliente pela source e da debug na linha do erro Very Happy

pad;-*
Pad;*
Pad;*
Membro
Membro

Mensagens : 213

Ir para o topo Ir para baixo

Run Time Error 9 Empty Re: Run Time Error 9

Mensagem por marccvz Dom 06 maio 2012, 18:20

Malz mais ta ai a foto
marccvz
marccvz
Membro
Membro

Mensagens : 132

http://cvzshop.comunidades.net

Ir para o topo Ir para baixo

Run Time Error 9 Empty Re: Run Time Error 9

Mensagem por Pablo Dom 06 maio 2012, 18:39

troque a sub inteira por

Código:
Public Sub UpdateVisInv()
Dim Index As Long
Dim d As Long

    For Index = 1 To MAX_INV
        If GetPlayerShieldSlot(MyIndex) <> Index Then frmMirage.ShieldImage.Picture = LoadPicture()
        If GetPlayerWeaponSlot(MyIndex) <> Index Then frmMirage.WeaponImage.Picture = LoadPicture()
        If GetPlayerHelmetSlot(MyIndex) <> Index Then frmMirage.HelmetImage.Picture = LoadPicture()
        If GetPlayerArmorSlot(MyIndex) <> Index Then frmMirage.ArmorImage.Picture = LoadPicture()
    Next Index
   
    For Index = 1 To MAX_INV
        If GetPlayerShieldSlot(MyIndex) = Index Then Call BitBlt(frmMirage.ShieldImage.hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, (Item(GetPlayerInvItemNum(MyIndex, Index)).Pic - Int(Item(GetPlayerInvItemNum(MyIndex, Index)).Pic / 6) * 6) * PIC_X, Int(Item(GetPlayerInvItemNum(MyIndex, Index)).Pic / 6) * PIC_Y, SRCCOPY)
        If GetPlayerWeaponSlot(MyIndex) = Index Then Call BitBlt(frmMirage.WeaponImage.hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, (Item(GetPlayerInvItemNum(MyIndex, Index)).Pic - Int(Item(GetPlayerInvItemNum(MyIndex, Index)).Pic / 6) * 6) * PIC_X, Int(Item(GetPlayerInvItemNum(MyIndex, Index)).Pic / 6) * PIC_Y, SRCCOPY)
        If GetPlayerHelmetSlot(MyIndex) = Index Then Call BitBlt(frmMirage.HelmetImage.hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, (Item(GetPlayerInvItemNum(MyIndex, Index)).Pic - Int(Item(GetPlayerInvItemNum(MyIndex, Index)).Pic / 6) * 6) * PIC_X, Int(Item(GetPlayerInvItemNum(MyIndex, Index)).Pic / 6) * PIC_Y, SRCCOPY)
        If GetPlayerArmorSlot(MyIndex) = Index Then Call BitBlt(frmMirage.ArmorImage.hDC, 0, 0, PIC_X, PIC_Y, frmMirage.picItems.hDC, (Item(GetPlayerInvItemNum(MyIndex, Index)).Pic - Int(Item(GetPlayerInvItemNum(MyIndex, Index)).Pic / 6) * 6) * PIC_X, Int(Item(GetPlayerInvItemNum(MyIndex, Index)).Pic / 6) * PIC_Y, SRCCOPY)
    Next Index
       
    frmMirage.EquipS(0).Visible = False
    frmMirage.EquipS(1).Visible = False
    frmMirage.EquipS(2).Visible = False
    frmMirage.EquipS(3).Visible = False

    For d = 0 To MAX_INV - 1
        If Player(MyIndex).Inv(d + 1).Num > 0 Then
            If Item(GetPlayerInvItemNum(MyIndex, d + 1)).Type <> ITEM_TYPE_CURRENCY Then
                'frmMirage.descName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex, d + 1)).Name) & " (" & GetPlayerInvItemValue(MyIndex, d + 1) & ")"
            'Else
                If GetPlayerWeaponSlot(MyIndex) = d + 1 Then
                    'frmMirage.picInv(d).ToolTipText = Trim(Item(GetPlayerInvItemNum(MyIndex, d + 1)).Name) & " (worn)"
                    frmMirage.EquipS(0).Visible = True
                    frmMirage.EquipS(0).Top = frmMirage.picInv(d).Top - 2
                    frmMirage.EquipS(0).Left = frmMirage.picInv(d).Left - 2
                ElseIf GetPlayerArmorSlot(MyIndex) = d + 1 Then
                    'frmMirage.picInv(d).ToolTipText = Trim(Item(GetPlayerInvItemNum(MyIndex, d + 1)).Name) & " (worn)"
                    frmMirage.EquipS(1).Visible = True
                    frmMirage.EquipS(1).Top = frmMirage.picInv(d).Top - 2
                    frmMirage.EquipS(1).Left = frmMirage.picInv(d).Left - 2
                ElseIf GetPlayerHelmetSlot(MyIndex) = d + 1 Then
                    'frmMirage.picInv(d).ToolTipText = Trim(Item(GetPlayerInvItemNum(MyIndex, d + 1)).Name) & " (worn)"
                    frmMirage.EquipS(2).Visible = True
                    frmMirage.EquipS(2).Top = frmMirage.picInv(d).Top - 2
                    frmMirage.EquipS(2).Left = frmMirage.picInv(d).Left - 2
                ElseIf GetPlayerShieldSlot(MyIndex) = d + 1 Then
                    'frmMirage.picInv(d).ToolTipText = Trim(Item(GetPlayerInvItemNum(MyIndex, d + 1)).Name) & " (worn)"
                    frmMirage.EquipS(3).Visible = True
                    frmMirage.EquipS(3).Top = frmMirage.picInv(d).Top - 2
                    frmMirage.EquipS(3).Left = frmMirage.picInv(d).Left - 2
                Else
                    'frmMirage.picInv(d).ToolTipText = Trim(Item(GetPlayerInvItemNum(MyIndex, d + 1)).Name)
                End If
            End If
        End If
    Next d
End Sub

Att: Pablo
Pablo
Pablo
Moderador Global
Moderador Global

Mensagens : 1371

Ir para o topo Ir para baixo

Run Time Error 9 Empty Re: Run Time Error 9

Mensagem por marccvz Dom 06 maio 2012, 19:56

ainda continua dando o erro
marccvz
marccvz
Membro
Membro

Mensagens : 132

http://cvzshop.comunidades.net

Ir para o topo Ir para baixo

Run Time Error 9 Empty Re: Run Time Error 9

Mensagem por Pad;* Dom 06 maio 2012, 20:15

Deleta esse item e testa com outros, pois ao meu ver ele está dando um atributo que não está de acordo com os dados do servidor - cliente.
Pad;*
Pad;*
Membro
Membro

Mensagens : 213

Ir para o topo Ir para baixo

Run Time Error 9 Empty Re: Run Time Error 9

Mensagem por Guilhermefirered Qui 28 Fev 2013, 20:58

Só baixar o Visual Basic 6
Guilhermefirered
Guilhermefirered
Novato
Novato

Mensagens : 2

Ir para o topo Ir para baixo

Run Time Error 9 Empty Re: Run Time Error 9

Mensagem por Frozen Qui 28 Fev 2013, 23:30

Guilhermefirered escreveu:Só baixar o Visual Basic 6
Sei que você é novato mais olha ai a data do tópico maio de 2012 mano , já é antiguinho né?
Tópico Trancado .
Frozen
Frozen
Membro Veterano
Membro Veterano

Mensagens : 1339

Ir para o topo Ir para baixo

Run Time Error 9 Empty Re: Run Time Error 9

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos

 
Permissões neste sub-fórum
Não podes responder a tópicos