Aldeia RPG

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

Suporte ao desenvolvimento de jogos


    [Kis~] Copiar e colar npcs

    Kies
    Kies
    Diva
    Diva


    Mensagens : 1155
    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)

    [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~

      Data/hora atual: Qui Nov 07, 2024 10:20 am