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

[TUTORIAL] Mudando as barras de scroll para campos digitaveis no editor de NPC

2 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Tutoriais

Ir para baixo

[TUTORIAL] Mudando as barras de scroll para campos digitaveis no editor de NPC Empty [TUTORIAL] Mudando as barras de scroll para campos digitaveis no editor de NPC

Mensagem por -Kira Ter 15 Mar 2011, 20:14

REQUERIMENTOS:
1) Eclipse 2,7 funcionando perfeitamente.

SOMENTE CLIENT SIDE
FAZENDO:

1)
Baixe o novo editor de NPC e ponha EXATAMENTE os arquivos baixados
dentro da pasta do source, substituindo os arquivos e em seguida abra o
source do cliente.
DOWNLOAD EDITOR NPC

2) Procure por:

Código:
Código:
Public Sub NpcEditorOk()

3) Substitua o sub INTEIRO por:

Código:
Código:
Public Sub NpcEditorOk()
    Npc(EditorIndex).Name = frmNpcEditor.txtName.Text
    Npc(EditorIndex).AttackSay = frmNpcEditor.txtAttackSay.Text
    Npc(EditorIndex).Sprite = frmNpcEditor.scrlSprite.Value
    Npc(EditorIndex).Behavior = frmNpcEditor.cmbBehavior.ListIndex
    If Npc(EditorIndex).Behavior <> NPC_BEHAVIOR_SCRIPTED Then
        Npc(EditorIndex).SpawnSecs = Val(frmNpcEditor.txtSpawnSecs.Text)
    Else
        Npc(EditorIndex).SpawnSecs = frmNpcEditor.scrlScript.Value
    End If
    Npc(EditorIndex).Range = frmNpcEditor.scrlRange.Text
    Npc(EditorIndex).STR = frmNpcEditor.scrlSTR.Text
    Npc(EditorIndex).DEF = frmNpcEditor.scrlDEF.Text
    Npc(EditorIndex).speed = frmNpcEditor.scrlSPEED.Text
    Npc(EditorIndex).MAGI = frmNpcEditor.scrlMAGI.Text
    Npc(EditorIndex).Big = frmNpcEditor.BigNpc.Value
    Npc(EditorIndex).MaxHp = frmNpcEditor.StartHP.Text
    Npc(EditorIndex).Exp = frmNpcEditor.ExpGive.Text

    If frmNpcEditor.Opt64.Value = True Then
        Npc(EditorIndex).SpriteSize = 1
    Else
        Npc(EditorIndex).SpriteSize = 0
    End If

    If frmNpcEditor.chkDay.Value = Checked And frmNpcEditor.chkNight.Value = Checked Then
        Npc(EditorIndex).SpawnTime = 0
    ElseIf frmNpcEditor.chkDay.Value = Checked And frmNpcEditor.chkNight.Value = Unchecked Then
        Npc(EditorIndex).SpawnTime = 1
    ElseIf frmNpcEditor.chkDay.Value = Unchecked And frmNpcEditor.chkNight.Value = Checked Then
        Npc(EditorIndex).SpawnTime = 2
    End If

    Call SendSaveNPC(EditorIndex)
    InNpcEditor = False
    Unload frmNpcEditor
End Sub
</td></tr></table>

4) Procure por:

Código:
Código:
Public Sub NpcEditorInit()

5) Substitua o sub INTEIRO por:

Código:
Código:
Public Sub NpcEditorInit()
    On Error Resume Next

    frmNpcEditor.picSprites.Picture = LoadPicture(App.Path & "GFXSprites.bmp")

    frmNpcEditor.txtName.Text = Trim$(Npc(EditorIndex).Name)
    frmNpcEditor.txtAttackSay.Text = Trim$(Npc(EditorIndex).AttackSay)
    frmNpcEditor.scrlSprite.Value = Npc(EditorIndex).Sprite
    frmNpcEditor.txtSpawnSecs.Text = STR(Npc(EditorIndex).SpawnSecs)
    frmNpcEditor.cmbBehavior.ListIndex = Npc(EditorIndex).Behavior
    frmNpcEditor.scrlRange.Text = Npc(EditorIndex).Range
    frmNpcEditor.scrlSTR.Text = Npc(EditorIndex).STR
    frmNpcEditor.scrlDEF.Text = Npc(EditorIndex).DEF
    frmNpcEditor.scrlSPEED.Text = Npc(EditorIndex).speed
    frmNpcEditor.scrlMAGI.Text = Npc(EditorIndex).MAGI
    frmNpcEditor.BigNpc.Value = Npc(EditorIndex).Big
    frmNpcEditor.StartHP.Text = Npc(EditorIndex).MaxHp
    frmNpcEditor.ExpGive.Text = Npc(EditorIndex).Exp
    frmNpcEditor.scrlChance.Value = Npc(EditorIndex).ItemNPC(1).chance
    frmNpcEditor.scrlNum.Value = Npc(EditorIndex).ItemNPC(1).ItemNum
    frmNpcEditor.scrlValue.Value = Npc(EditorIndex).ItemNPC(1).ItemValue
    If Npc(EditorIndex).Behavior = NPC_BEHAVIOR_SCRIPTED Then
        frmNpcEditor.scrlScript.Value = Npc(EditorIndex).SpawnSecs
        frmNpcEditor.scrlElement.Value = Npc(EditorIndex).Element
    End If
    If Val(0 + Npc(EditorIndex).SpriteSize) = 0 Then
        frmNpcEditor.Opt32.Value = 1
        frmNpcEditor.Opt64.Value = 0
    Else
        frmNpcEditor.Opt64.Value = 1
        frmNpcEditor.Opt32.Value = 0
    End If
    If Npc(EditorIndex).SpawnTime = 0 Then
        frmNpcEditor.chkDay.Value = Checked
        frmNpcEditor.chkNight.Value = Checked
    ElseIf Npc(EditorIndex).SpawnTime = 1 Then
        frmNpcEditor.chkDay.Value = Checked
        frmNpcEditor.chkNight.Value = Unchecked
    ElseIf Npc(EditorIndex).SpawnTime = 2 Then
        frmNpcEditor.chkDay.Value = Unchecked
        frmNpcEditor.chkNight.Value = Checked
    End If

    frmNpcEditor.Show vbModal
End Sub
-Kira
-Kira
Membro Veterano
Membro Veterano

Mensagens : 895

Ir para o topo Ir para baixo

[TUTORIAL] Mudando as barras de scroll para campos digitaveis no editor de NPC Empty Re: [TUTORIAL] Mudando as barras de scroll para campos digitaveis no editor de NPC

Mensagem por lukeadans Sáb 19 Mar 2011, 09:22

não sei onde fica esse Public Sub NpcEditorOk() nem o Public Sub NpcEditorInit() fica em alguma forms ?

tem algum geito de procurar essas subs no VB

ajuda ai alguem obrigado!
lukeadans
lukeadans
Novato
Novato

Mensagens : 44

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Tutoriais

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