Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Visualização de itens em mapa 1.0v
+2
iJackboy
magleo
6 participantes
Página 1 de 1
Visualização de itens em mapa 1.0v
Olá galerinha olha eu ai vou começa a posta sistema simples e outro não tão simples vou ajuda essa galera que ta fazendo seus projetos, sou da Equipe Punk Games!!, Vamos ao Sistema
Bom o Sistema ele irá Identificar os itens no mapa e irá mostrar seu Nomes!!
Lado do Cliente
Vá em ModText e no final da Mod Adicione essa Nova Sub..
- Código:
Public Sub DrawMapaItem(ByVal ItemNum As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
Dim Nome As String
If Options.Debug = 1 Then On Error GoTo errorhandler
' Verificando se existem itens no mapa !!
If ItemNum > 0 Then
Select Case Item(MapItem(ItemNum).num).Rarity
Case 0 'Sem raridade
Color = QBColor(White)
Case 1
Color = QBColor(DarkGrey)
Case 2
Color = QBColor(Cyan)
Case 3
Color = QBColor(BrightGreen)
Case 4
Color = QBColor(Yellow)
End Select
Else
Exit Sub ' Verificação sem sucesso!!
End If
Nome = Trim$(Item(MapItem(ItemNum).num).Name)
' Calcular coordenadas
TextX = ConvertMapX(MapItem(ItemNum).x * PIC_X) + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Nome)))
If MapItem(ItemNum).num < 1 Or MapItem(ItemNum).num > NumItems Then
TextY = ConvertMapY(MapItem(ItemNum).y * PIC_Y)
Else
' Determinação do texto
TextY = ConvertMapY(MapItem(ItemNum).y * PIC_Y) - (DDSD_Item(MapItem(ItemNum).num).lHeight / 4) + 16
End If
' Execução dos textos
Call DrawText(TexthDC, TextX, TextY, Nome, Color)
' Error handlerr
Exit Sub
errorhandler:
HandleError "DrawMapaItem", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
Pronto agora vá em ModDirectDraw7 e Procure por
- Código:
For i = 1 To Action_HighIndex
Pronto agora acima desse Codigo Adicione esse aqui!!
- Código:
'Draw Mapitem
For i = 1 To MAX_MAP_ITEMS
If MapItem(i).num > 0 Then
Call DrawMapaItem(i)
End If
Next
Pronto Fim do Sistema User ele em seu Projeto e sem duvida isso será uma novidade
magleo- Iniciante
- Mensagens : 37
Créditos : 5
Nando Moura gosta desta mensagem
Re: Visualização de itens em mapa 1.0v
Boa ;D Apesar que acho melhor pegar o item e ver para não poluir o mapa XD
iJackboy- Semi-Experiente
- Mensagens : 87
Créditos : 6
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Re: Visualização de itens em mapa 1.0v
entendo vou criar outro sistema que deixa esse ai completo :)
magleo- Iniciante
- Mensagens : 37
Créditos : 5
Re: Visualização de itens em mapa 1.0v
Bom pra não poluir o mapa você pode Trocar esse
Por Esse:
A idéia é aparecer o nome apenas com o mouse em cima do Item.
(Não testei isso ainda)
- Código:
'Draw Mapitem
For i = 1 To MAX_MAP_ITEMS
If MapItem(i).num > 0 Then
Call DrawMapaItem(i)
End If
Next
Por Esse:
- Código:
'Draw Mapitem
For i = 1 To MAX_MAP_ITEMS
If MapItem(i).num > 0 Then
If CurX = MapItem(i).x And CurY = MapItem(i).y Then
Call DrawMapaItem(i)
End If
End If
Next
A idéia é aparecer o nome apenas com o mouse em cima do Item.
(Não testei isso ainda)
Última edição por Grilox em Ter Jul 08, 2014 2:56 pm, editado 1 vez(es)
_________________
Coleção Sprites:
- Imagem::
Grilox- Novato
- Mensagens : 21
Créditos : 1
Re: Visualização de itens em mapa 1.0v
Grilox escreveu:Bom pra não poluir o mapa você pode Trocar esse
- Código:
'Draw Mapitem
For i = 1 To MAX_MAP_ITEMS
If MapItem(i).num > 0 Then
Call DrawMapaItem(i)
End If
Next
Por Esse:
- Código:
'Draw Mapitem
For i = 1 To MAX_MAP_ITEMS
If MapItem(i).num > 0 Then
If CurX = MapItem(i).x And CurY = MapItem(i).y Then
Call DrawPlayerName(i)
End If
End If
Next
A idéia é aparecer o nome apenas com o mouse em cima do Item.
(Não testei isso ainda)
Eu adorei essa ideia de aparece o nome só quando coloca o Mouse em cima , porem nao pego :/
monkey d.dragon- Novato
- Mensagens : 12
Créditos : 0
Re: Visualização de itens em mapa 1.0v
monkey d.dragon escreveu:Grilox escreveu:Bom pra não poluir o mapa você pode Trocar esse
- Código:
'Draw Mapitem
For i = 1 To MAX_MAP_ITEMS
If MapItem(i).num > 0 Then
Call DrawMapaItem(i)
End If
Next
Por Esse:
- Código:
'Draw Mapitem
For i = 1 To MAX_MAP_ITEMS
If MapItem(i).num > 0 Then
If CurX = MapItem(i).x And CurY = MapItem(i).y Then
Call DrawPlayerName(i)
End If
End If
Next
A idéia é aparecer o nome apenas com o mouse em cima do Item.
(Não testei isso ainda)
Eu adorei essa ideia de aparece o nome só quando coloca o Mouse em cima , porem nao pego :/
ñ pegou pq em vez d ele por DrawMapaItem, ele colocou DrawPlayerName O.o, mas o codigo está certo.
Re: Visualização de itens em mapa 1.0v
Editado, vlw DooOooOlly kkk
_________________
Coleção Sprites:
- Imagem::
Grilox- Novato
- Mensagens : 21
Créditos : 1
Re: Visualização de itens em mapa 1.0v
Dolly n sei se é pedir muito, mas você pode transformar isso pra aquela sua engine ? que Apocalypse pq ta dando uns erros no x e y
_________________
Assinatura removida pela Staff
^ Tenho nova, surprise
Re: Visualização de itens em mapa 1.0v
kkkkkkkkkkkkkkkkkkkkkkk bom vou melhorar esse sistema
magleo- Iniciante
- Mensagens : 37
Créditos : 5
Tópicos semelhantes
» Drania pré visualização.
» [NP Master 3] Baú de Itens, excluir itens e inventário limitado
» Mini mapa mapa Net Play Master
» colocar Itens ??
» Hotkey/Itens
» [NP Master 3] Baú de Itens, excluir itens e inventário limitado
» Mini mapa mapa Net Play Master
» colocar Itens ??
» Hotkey/Itens
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos