[ALL]Mudando Fonte do PicScreen e colocano negrio em volta

olha pessoal eu sei que muitas pessoas estava atraz disso , intao fiquei aqui fazendo e deu muitos erros ... mais acabei conseguindo ^^ ... vamos parar de falar e vamos logo ao Assunto que preste ^^

abra o Client~Side e vai em modGameLogic e proucure por ...(mudar a font)

Código:

Call SetFont("Fixedsys", 18, 0, 0, 0, 0)

Explicando ...(eu deixei o meu assim msm)
Fixedsys = Font
1º 18 = tamanho da letra
2º Mude o primeiro zero para 1 se voce quiser que a fonte esteja em negrito
3º Mude o segundo zero para 1 se voce quiser que a fonte esteja em italico
4º Mude o terceiro zero para 1 se voce quiser que a fonte esteja em Sublinhado
5º Mude o ultimo zero para 1 se voce quiser que a fonte esteja em Riscado

eu deixei o meu desse geito msm nem mechei ^^

agora para colocar negrito em volta da letra, abra o modText e proucure por ...

Código:

Public Sub DrawText(ByVal hDC As Long, ByVal x, ByVal y, ByVal Text As String, Color As Long)
    Call SelectObject(hDC, GameFont)
    Call SetBkMode(hDC, vbTransparent)
    Call SetTextColor(hDC, RGB(0, 0, 0))
    Call TextOut(hDC, x + 1, y + 1, Text, Len(Text))
    Call SetTextColor(hDC, Color)
    Call TextOut(hDC, x, y, Text, Len(Text))
End Sub

mude para

Código:

Public Sub DrawText(ByVal hDC As Long, ByVal x, ByVal y, ByVal Text As String, Color As Long)
    Call SelectObject(hDC, GameFont)
    Call SetBkMode(hDC, vbTransparent)
    Call SetTextColor(hDC, RGB(0, 0, 0))
    Call TextOut(hDC, x + 1, y + 0, Text, Len(Text))
    Call TextOut(hDC, x + 0, y + 1, Text, Len(Text))
        Call TextOut(hDC, x - 1, y - 0, Text, Len(Text))
    Call TextOut(hDC, x - 0, y - 1, Text, Len(Text))
        Call SetTextColor(hDC, Color)
    Call TextOut(hDC, x, y, Text, Len(Text))
End Sub

agora proucure por

Código:

Public Sub DrawPlayerNameText(ByVal hDC As Long, ByVal x, ByVal y, ByVal Text As String, Color As Long)
    Call SelectObject(hDC, GameFont)
    Call SetBkMode(hDC, vbTransparent)
    Call SetTextColor(hDC, RGB(0, 0, 0))
    Call TextOut(hDC, x + 1, y + 1, Text, Len(Text))
    Call SetTextColor(hDC, Color)
    Call TextOut(hDC, x, y, Text, Len(Text))
End Sub

mude para

Código:

Public Sub DrawPlayerNameText(ByVal hDC As Long, ByVal x, ByVal y, ByVal Text As String, Color As Long)
    Call SelectObject(hDC, GameFont)
    Call SetBkMode(hDC, vbTransparent)
    Call SetTextColor(hDC, RGB(0, 0, 0))
    Call TextOut(hDC, x + 1, y + 0, Text, Len(Text))
    Call TextOut(hDC, x + 0, y + 1, Text, Len(Text))
        Call TextOut(hDC, x - 1, y - 0, Text, Len(Text))
    Call TextOut(hDC, x - 0, y - 1, Text, Len(Text))
    Call SetTextColor(hDC, Color)
    Call TextOut(hDC, x, y, Text, Len(Text))
End Sub

Só isso ^^ XD
espero ter ajudo a voces !!!
Creditos:
Gu1lh3rm3^^
MMORPG BR

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

Depois

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

Bom Tuto