[ALL] Títulos nos NPC's 1.0

por lucas100vzs Sex Set 21, 2012 5:38 pm

Bem, para quem ainda não sabe, este tutorial vai mostrar como colocar títulos em cima da cabeça dos npc's de acordo com o tipo dele...Então vamos ao que interessa, né?

Client~Side

Primeiramente,em "ModText" , procure pela Sub :

Código:: Public Sub DrawNpcName

E abaixo desta sub, adicione esta:

Código:: 'Titles By Lucas Dantas e Lima Public Sub DrawNpcTitle(ByVal Index As Long) Dim TextX As Long Dim TextY As Long Dim color As Long Dim name As String Dim NPCNum As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler NPCNum = MapNpc(Index).num Select Case NPC(NPCNum).Behaviour Case NPC_BEHAVIOUR_ATTACKONSIGHT color = QBColor(BrightRed) name = "[Agressivo]" Case NPC_BEHAVIOUR_ATTACKWHENATTACKED color = QBColor(Yellow) name = "[Inimigo]" Case NPC_BEHAVIOUR_GUARD color = QBColor(White) name = "[Guarda]" Case Else color = QBColor(BrightGreen) name = "[Amigável]" End Select TextX = ConvertMapX(MapNpc(Index).X * PIC_X) + MapNpc(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(name))) If NPC(NPCNum).Sprite < 1 Or NPC(NPCNum).Sprite > NumCharacters Then TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + MapNpc(Index).YOffset - 16 Else ' Determine location for text TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + MapNpc(Index).YOffset - (DDSD_Character(NPC(NPCNum).Sprite).lHeight / 4) + 4 End If ' Draw name Call DrawText(TexthDC, TextX, TextY, name, color) ' Error handler Exit Sub errorhandler: HandleError "DrawNpcTitle", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Agora no "ModDirectDraw7" , na seção "Render_Graphics" , procure por:

Código:: Call DrawNpcName(i)

E abaixo adicione:

Código:: Call DrawNpcTitle(i)

E pronto, agora você tem npc's com títulos de acordo com o tipo de cada um !! Very Happy

ScreenShot:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Créditos:

A mim:Lucas Dantas e Lima