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...

Me ajudem com a fala do NPC

3 participantes

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

Ir para baixo

Me ajudem com a fala do NPC Empty Me ajudem com a fala do NPC

Mensagem por CAIO Qui 23 Dez 2010, 06:43

Eae pessoal tudo bom , eu qeria saber como faço pra arrumar a fala do npc , quando clico nele abre a fala dele normal , porém o corpo dele fica irregular ou de outro npc , da pra me ajudar com isso gente ? pff to precisando mesmo disso, me ajudem ai
obs: uso EEB , e fiz o tutorial pra aumentar o tamanho das sprites .tem q por alguma coisa no frm talk pra ficar normal ? G_G

Screen'
Me ajudem com a fala do NPC ADAD

CAIO
CAIO
Membro Sênior
Membro Sênior

Mensagens : 337

Ir para o topo Ir para baixo

Me ajudem com a fala do NPC Empty Re: Me ajudem com a fala do NPC

Mensagem por Gu1lh3rm3 Qui 23 Dez 2010, 11:52

hum, creio que sim neh... pq o tamanho nao vai ser almentado sosinho, ou tambem proucure por os tamanho das sprites dentro dessa caixinha e tente modificar!
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

Me ajudem com a fala do NPC Empty Re: Me ajudem com a fala do NPC

Mensagem por CAIO Qui 23 Dez 2010, 12:41

Código:
' Copyright (c) 2009 - Elysium Source. Alguns direitos reservados.
' Tradução e revisão por MMODEV Brasil @ http://www.mmodev.com.br
' Este código está licensiado sob a licença EGL.

Option Explicit
Public animi As Long

Private Sub Form_Load()
Dim I As Long
Dim Ending As String
    For I = 1 To 3
        If I = 1 Then Ending = ".gif"
        If I = 2 Then Ending = ".jpg"
        If I = 3 Then Ending = ".png"
 
        If FileExist("GUI\content" & Ending) Then frmNewChar.Picture = LoadPicture(App.Path & "\GUI\content" & Ending)
    Next I
   
    Picsprites.Picture = LoadPicture(App.Path & "\GFX\sprites.bmp")
End Sub

Private Sub lblQuit_Click()
    Me.Hide
End Sub

Private Sub lblChoice_Click(Index As Integer)
    If Speech(SpeechConvo1).Num(SpeechConvo2).Respond < Index + 1 Then Exit Sub
   
    If Speech(SpeechConvo1).Num(SpeechConvo2).Responces(Index + 1).Exit = 1 Then
        Me.Hide
        Exit Sub
    End If
   
    SpeechConvo2 = Speech(SpeechConvo1).Num(SpeechConvo2).Responces(Index + 1).GoTo
   
    If Speech(SpeechConvo1).Num(SpeechConvo2).Script <> 0 Then
        Call SendData("SPEECHSCRIPT" & SEP_CHAR & Speech(SpeechConvo1).Num(SpeechConvo2).Script & END_CHAR)
    End If
   
    If Speech(SpeechConvo1).Num(SpeechConvo2).Exit = 1 Then
        Me.Hide
        Exit Sub
    End If
   
    frmTalk.txtActual.Caption = Speech(SpeechConvo1).Num(SpeechConvo2).Text
   
    frmTalk.txtActual.Left = frmTalk.Picture4.Left + frmTalk.Picture4.Width + 16
   
    If Speech(SpeechConvo1).Num(SpeechConvo2).Respond > 0 Then
        frmTalk.lblChoice(0).Caption = Speech(SpeechConvo1).Num(SpeechConvo2).Responces(1).Text
    Else
        frmTalk.lblChoice(0).Caption = vbNullString
    End If
       
    If Speech(SpeechConvo1).Num(SpeechConvo2).Respond > 1 Then
        frmTalk.lblChoice(1).Caption = Speech(SpeechConvo1).Num(SpeechConvo2).Responces(2).Text
    Else
        frmTalk.lblChoice(1).Caption = vbNullString
    End If
       
    If Speech(SpeechConvo1).Num(SpeechConvo2).Respond > 2 Then
        frmTalk.lblChoice(2).Caption = Speech(SpeechConvo1).Num(SpeechConvo2).Responces(3).Text
    Else
        frmTalk.lblChoice(2).Caption = vbNullString
    End If
End Sub

Private Sub Picpic_Click()

End Sub

Private Sub Timer1_Timer()
    If frmTalk.Visible Then
        If Speech(SpeechConvo1).Num(SpeechConvo2).SaidBy = 0 Then
            Picpic.Width = SIZE_X
            Picpic.Height = SIZE_Y
            Picture4.Width = SIZE_X + 4
            Picture4.Height = SIZE_Y + 4
            Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Npc(SpeechConvo3).Sprite) * SIZE_Y - (SIZE_Y - PIC_Y), SRCCOPY)
        Else
            Picpic.Width = SIZE_X
            Picpic.Height = SIZE_Y
            Picture4.Width = SIZE_X + 4
            Picture4.Height = SIZE_Y + 4
            Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Player(MyIndex).Sprite) * SIZE_Y - (SIZE_Y - PIC_Y), SRCCOPY)
        End If
    End If
End Sub

Private Sub Timer2_Timer()
    If frmTalk.Visible Then
        animi = animi + 1
        If animi > 4 Then
            animi = 3
        End If
    End If
End Sub

ai meu frm talk , pode me ajudar?n sei identificar mto bem
CAIO
CAIO
Membro Sênior
Membro Sênior

Mensagens : 337

Ir para o topo Ir para baixo

Me ajudem com a fala do NPC Empty Re: Me ajudem com a fala do NPC

Mensagem por SkyZero Qui 23 Dez 2010, 12:44

Código:
If frmTalk.Visible Then
        If Speech(SpeechConvo1).Num(SpeechConvo2).SaidBy = 0 Then
            Picpic.Width = SIZE_X
            Picpic.Height = SIZE_Y
            Picture4.Width = SIZE_X + 4
            Picture4.Height = SIZE_Y + 4
            Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Npc(SpeechConvo3).Sprite) * SIZE_Y - (SIZE_Y - PIC_Y), SRCCOPY)
        Else
            Picpic.Width = SIZE_X
            Picpic.Height = SIZE_Y
            Picture4.Width = SIZE_X + 4
            Picture4.Height = SIZE_Y + 4
            Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Player(MyIndex).Sprite) * SIZE_Y - (SIZE_Y - PIC_Y), SRCCOPY)
        End If
    End If
End Sub

Acho que é algo aqui , não tenho certeza , porque seu problema é o encaixe da img no caso tamanho , modifica isso ai e testa , vai fuçando ai .
SkyZero
SkyZero
Membro Veterano
Membro Veterano

Mensagens : 890

Ir para o topo Ir para baixo

Me ajudem com a fala do NPC Empty Re: Me ajudem com a fala do NPC

Mensagem por CAIO Qui 23 Dez 2010, 12:46

Bom eu nao sei exatamente onde mexer cara , eu nao são experiente com vb , da pra me ajudar ae '-'
CAIO
CAIO
Membro Sênior
Membro Sênior

Mensagens : 337

Ir para o topo Ir para baixo

Me ajudem com a fala do NPC Empty Re: Me ajudem com a fala do NPC

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