[Kis~] Copiar e colar npcs Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[Kis~] Copiar e colar npcs

Ir para baixo

[Kis~] Copiar e colar npcs Empty [Kis~] Copiar e colar npcs

Mensagem por Kies Sex Out 07, 2016 2:16 pm

Fala galera, Todos nós sabemos que é muito chato editar os npcs na propriedades do mapa então estou trazendo pra vocês um modo fácil de fazer isso então vamos ao tutorial:

1° - Abra o Cliente.vbp, depois de aberto vá até frmEditor_MapProperties


Depois de aberto faça como o da img abaixo:

[Kis~] Copiar e colar npcs 332z86b

E faça as seguintes configurações:

Botão: Limpar
Nome: cmdClearNPC

Botão: Copiar
Nome: cmdCopyNPC

Botão: Colar
Nome: cmdPasteNPC

Agora de um duplo clique no botão Limpar e adicione isso:
Código:
Private Sub cmdClearNPC_Click()
If lstNpcs.ListIndex >= 0 Then
    Map.Npc(lstNpcs.ListIndex + 1) = 0
    Dim x As Long
    Dim tmpIndex As Long
    ' re-load the list
    tmpIndex = lstNpcs.ListIndex
    lstNpcs.Clear
    For x = 1 To MAX_MAP_NPCS
        If Map.Npc(x) > 0 Then
        lstNpcs.AddItem x & ": " & Trim$(Npc(Map.Npc(x)).Name)
        Else
            lstNpcs.AddItem x & ": No NPC"
        End If
    Next
    lstNpcs.ListIndex = tmpIndex
End If
End Sub

Agora no botão copiar de um duplo clique e coloque isso:
Código:
Private Sub cmdCopyNPC_Click()
If lstNpcs.ListIndex >= 0 Then
    NPCCopied = Map.Npc(lstNpcs.ListIndex + 1)
End If
End Sub

Agora no ultimo, De um duplo clique no botão colar e coloque isso:
Código:
Private Sub cmdPasteNPC_Click()
If lstNpcs.ListIndex >= 0 Then
    If NPCCopied > 0 And NPCCopied < MAX_NPCS Then
        Map.Npc(lstNpcs.ListIndex + 1) = NPCCopied
        Dim x As Long
        Dim tmpIndex As Long
        ' re-load the list
        tmpIndex = lstNpcs.ListIndex
        lstNpcs.Clear
        For x = 1 To MAX_MAP_NPCS
            If Map.Npc(x) > 0 Then
            lstNpcs.AddItem x & ": " & Trim$(Npc(Map.Npc(x)).Name)
            Else
                lstNpcs.AddItem x & ": No NPC"
            End If
        Next
        lstNpcs.ListIndex = tmpIndex
    End If
End If
End Sub

E pra finalizar vá nos códigos do frmEditor_MapProperties se não souber como ir abra o mesmo e vá em view code ou clique em qualquer lugar do frmEditor_MapProperties, Depois de ter acessado o cód procure:
Código:
Option Explicit

Vai estar na primeira linha dos cód e em baixo adicione isso:
Código:
Private NPCCopied As Long

E pronto o sistema vai estar pronto, qualquer bug me avise para eu arrumar.
Até o próximo sistemas


Cred: Kielleds~
Kies
Kies
Diva
Diva

Mensagens : 1154
Créditos : 124

Ficha do personagem
Nível: 1
Experiência:
[Kis~] Copiar e colar npcs Left_bar_bleue0/0[Kis~] Copiar e colar npcs Empty_bar_bleue  (0/0)
Vida:
[Kis~] Copiar e colar npcs Left_bar_bleue30/30[Kis~] Copiar e colar npcs Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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