[TUTO] Colocando Nome Nos Npc's

por Elton_Master Ter 18 Dez 2012, 05:31

~Descrição~
•vamos deixar visivel o nome dos NPC.

~Tutorial~
1) Vá até:
Code: ---------------------------------------------------------------------------------SelecionarmodDirectDraw7

2) Procure por:
Code: ---------------------------------------------------------------------------------Selecionar' draw player names

3) Abaixo desse código coloque:
Code: ---------------------------------------------------------------------------------Selecionar ' draw npc names
For i = 1 To MAX_MAP_NPCS
Call DrawNPCName(i)
Next i

4) Agora procure por:
Code: ---------------------------------------------------------------------------------SelecionarPublic Sub DrawPlayerName

5) Obs.: No código abaixo, para mudar a cor vá na linha:
Code: ---------------------------------------------------------------------------------SelecionarCall DrawText(TexthDC, TextX, TextY, NpcName, QBColor(White))

E mude o White para a cor que desejar.

6) Abaixo ou antes desse código coloque:
Code: ---------------------------------------------------------------------------------SelecionarPublic Sub DrawNPCName(ByVal Index As Long)
Dim NpcName As String
Dim TextX As Long, TextY As Long, Sprite As Long, NpcNum As Long

NpcNum = MapNpc(Index).Num

If NpcNum = 0 Then
Exit Sub
End If

Sprite = Npc(NpcNum).Sprite
NpcName = Trim$(Npc(NpcNum).Name)

' Calculate the X coordinate to place the name
TextX = ConvertMapX(MapNpc(Index).X * PIC_X) + MapNpc(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, NpcName)

If Sprite < 1 Or Sprite > NumCharacters Then
TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + MapNpc(Index).YOffset - 17
Else
TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + MapNpc(Index).YOffset - (DDSD_Character(Sprite).lHeight) + 16
End If

' Draw name
Call DrawText(TexthDC, TextX, TextY, NpcName, QBColor(White))
End Sub