[Kis~] Copiar e colar npcs

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:

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~

Hitskin.com

[Kis~] Copiar e colar npcs

[Kis~] Copiar e colar npcs