Portal
![[Kis~] Copiar e colar npcs Left_bar_bleue](https://2img.net/i/fa/i/left_bar_bleue.jpg){kind=small}
![[Kis~] Copiar e colar npcs Empty_bar_bleue](https://2img.net/i/fa/i/empty_bar_bleue.jpg){kind=small}
![[Kis~] Copiar e colar npcs Empty](https://2img.net/i/empty.gif)
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:
![[Kis~] Copiar e colar npcs 332z86b](https://2img.net/h/oi68.tinypic.com/332z86b.png)
Agora no botão copiar de um duplo clique e coloque isso:
Agora no ultimo, De um duplo clique no botão colar e coloque isso:
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:
Vai estar na primeira linha dos cód e em baixo adicione isso:
E pronto o sistema vai estar pronto, qualquer bug me avise para eu arrumar.
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~
