Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
[Kis~] Copiar e colar npcs
Página 1 de 1
[Kis~] Copiar e colar npcs
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:
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~
Kies- Diva
- Mensagens : 1154
Créditos : 124
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Tópicos semelhantes
» Bloqueando funções Copiar e Colar em caixas de texto
» Sistema de fortalecimento de colar[com demo]
» Como copiar um Topico
» Spell de Copiar a Sprite do Player
» Saint Seiya: A Batalha Sem Fim (RPG Maker 2000)
» Sistema de fortalecimento de colar[com demo]
» Como copiar um Topico
» Spell de Copiar a Sprite do Player
» Saint Seiya: A Batalha Sem Fim (RPG Maker 2000)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|