Suporte ao desenvolvimento de jogos!


    [Kis~] Copiar e colar npcs

    Compartilhe
    avatar
    Kies
    Membro de Honra
    Membro de Honra

    Mensagens : 1059
    Créditos : 115

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    [Kis~] Copiar e colar npcs

    Mensagem por Kies em 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:


    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~


    _________________
    Visite Vofawus Online no IndieDB


    Vofawus Online

      Data/hora atual: Sex Set 21, 2018 2:25 pm