[EO] Mudando Fonte dos nomes In-Game

por lucas100vzs Sex 18 Jan 2013, 19:55

É bem simples, toda a parte é feita no "Cliente~Side" !

Então, abra seu "client.vbp" , e em "ModText" , bem no início, abaixo de :

Código:: Option Explicit ' Text declares Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal i As Long, ByVal u As Long, ByVal S As Long, ByVal c As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal f As String) As Long Private Declare Function SetBkMode Lib "gdi32" (ByVal hDC As Long, ByVal nBkMode As Long) As Long Private Declare Function SetTextColor Lib "gdi32" (ByVal hDC As Long, ByVal crColor As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hDC As Long, ByVal x As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long

Adicione isto:

Código:: Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

E depois, ainda em "ModText" , substitua esta SUB :

Código:: ' GDI text drawing onto buffer Public Sub DrawText(ByVal hDC As Long, ByVal x, ByVal Y, ByVal text As String, color As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Call SelectObject(hDC, GameFont) Call SetBkMode(hDC, vbTransparent) Call SetTextColor(hDC, 0) Call TextOut(hDC, x + 1, Y + 1, text, Len(text)) Call SetTextColor(hDC, color) Call TextOut(hDC, x, Y, text, Len(text)) ' Error handler Exit Sub errorhandler: HandleError "DrawText", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Por esta :

Código:: ' GDI text drawing onto buffer Public Sub DrawText(ByVal hdc As Long, ByVal x, ByVal Y, ByVal text As String, color As Long) ' If debug mode, handle error then exit out Dim OldFont As Long ' HFONT If Options.Debug = 1 Then On Error GoTo errorhandler Call SetFont(FONT_NAME, FONT_SIZE) OldFont = SelectObject(hdc, GameFont) Call SetBkMode(hdc, vbTransparent) Call SetTextColor(hdc, 0) Call TextOut(hdc, x + 1, Y, text, Len(text)) Call TextOut(hdc, x, Y + 1, text, Len(text)) Call TextOut(hdc, x - 1, Y, text, Len(text)) Call TextOut(hdc, x, Y - 1, text, Len(text)) Call TextOut(hdc, x + 1, Y + 1, text, Len(text)) Call TextOut(hdc, x - 1, Y - 1, text, Len(text)) Call TextOut(hdc, x + 1, Y - 1, text, Len(text)) Call TextOut(hdc, x + 1, Y - 1, text, Len(text)) Call SetTextColor(hdc, color) Call TextOut(hdc, x, Y, text, Len(text)) Call SelectObject(hdc, OldFont) Call DeleteObject(GameFont) ' Error handler Exit Sub errorhandler: HandleError "DrawText", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Pronto, agora para você mudar a fonte do jogo, vá em "ModConstants" ,e procure por:

Código:: Public Const FONT_NAME As String =

E mude a fonte para a fonte que quiser.("Comic Sans" , "Georgia"(recomendo muito), "Arial"....etc)

E mude o tamanho da letra mudando o número da linha de baixo:

Código:: Public Const FONT_SIZE As Byte =

E pronto !! Você mudou a letra e o tamanho de:

-Nome de Npc's
-Nome de players
-Nome do mapa

Pra fonte que você escolheu !!! [EO] Mudando Fonte dos nomes In-Game 445483

[EO] Mudando Fonte dos nomes In-Game 445483

Créditos:

-Deus
-Eu, lucas100vzs
-Robin

por lTulio Sáb 19 Jan 2013, 08:09

Mt Bom amigo Smile

por Blizzard Sáb 19 Jan 2013, 08:20

Valeu man,por contribuir com o fórum e me ajudar também! +1 Crédito.

por jonny157 Dom 20 Jan 2013, 11:41

Ótimo tutorial, concerteza irei testar.

+1 por contribuir!!

por marak-garin Qua 30 Jan 2013, 12:53

ótimo tutorial Very Happy

por maraquanos-marakgarin Qua 30 Jan 2013, 17:07

ótimo obrigado pelo sistema

por Eduardo Sex 15 Nov 2013, 10:56

Terçeiro tópico que vejo você ressuscitar, cara isso é proibido você certamente sera punido por desrrespeitar as regras. Ficar comentando pra ganhar msgs que coisa feia rapa.

por Conteúdo patrocinado

[EO] Mudando Fonte dos nomes In-Game

[EO] Mudando Fonte dos nomes In-Game

Re: [EO] Mudando Fonte dos nomes In-Game

Re: [EO] Mudando Fonte dos nomes In-Game

Re: [EO] Mudando Fonte dos nomes In-Game

Re: [EO] Mudando Fonte dos nomes In-Game

Re: [EO] Mudando Fonte dos nomes In-Game

Re: [EO] Mudando Fonte dos nomes In-Game

Re: [EO] Mudando Fonte dos nomes In-Game