Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Colocando Tag ADM/GM
5 participantes
Página 1 de 1
Colocando Tag ADM/GM
PREVIEW:
- Serve~Side -
Em modPlayer va ate o final e adicionar:
Va em modHandleData e substitua a seguinde sub:
Por essa sub:
Em modServeTCP subistitua a sub:
Por:
Substitua tabem abaixo dessa sub a sub:
Por:
Parte do Client:
~~~Client~~~
Em modText substitua a sub:
Ate:
Por:
Créditos: A mim por postar
- Serve~Side -
Em modPlayer va ate o final e adicionar:
- Código:
Public Function GetPlayerTag(ByVal index As Long) As String
Select Case GetPlayerAccess(index)
Case ADMIN_MONITOR, ADMIN_MAPPER
GetPlayerTag = "[GM] "
Case ADMIN_DEVELOPER, ADMIN_CREATOR
GetPlayerTag = "[ADM] "
Case Else
GetPlayerTag = " "
End Select
End Function
Va em modHandleData e substitua a seguinde sub:
- Código:
Private Sub HandleEmoteMsg(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Por essa sub:
- Código:
Private Sub HandleEmoteMsg(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Msg As String
Dim I As Long
Dim Buffer As clsBuffer
Set Buffer = New clsBuffer
Buffer.WriteBytes Data()
Msg = Buffer.ReadString
' Prevent hacking
For I = 1 To Len(Msg)
If AscW(Mid$(Msg, I, 1)) < 32 Or AscW(Mid$(Msg, I, 1)) > 126 Then
Exit Sub
End If
Next
Call AddLog("Map #" & GetPlayerMap(index) & ": " & GetPlayerName(index) & " " & Msg, PLAYER_LOG)
Call MapMsg(GetPlayerMap(index), GetPlayerTag(index) &
GetPlayerName(index) & " " & Right$(Msg, Len(Msg) - 1),
EmoteColor)
Set Buffer = Nothing
End Sub
Em modServeTCP subistitua a sub:
- Código:
Sub SayMsg_Map(ByVal MapNum As Long, ByVal Index As Long, ByVal message As String, ByVal saycolour As Long)
Por:
- Código:
Sub SayMsg_Map(ByVal MapNum As Long, ByVal index As Long, ByVal message As String, ByVal saycolour As Long)
Dim Buffer As clsBuffer
Set Buffer = New clsBuffer
Buffer.WriteLong SSayMsg
Buffer.WriteString GetPlayerName(index)
Buffer.WriteLong GetPlayerAccess(index)
Buffer.WriteLong GetPlayerPK(index)
Buffer.WriteString message
Buffer.WriteString "[Map] " & GetPlayerTag(index)
Buffer.WriteLong saycolour
SendDataToMap MapNum, Buffer.ToArray()
Set Buffer = Nothing
End Sub
Substitua tabem abaixo dessa sub a sub:
- Código:
Sub SayMsg_Global(ByVal Index As Long, ByVal message As String, ByVal saycolour As Long)
Por:
- Código:
Sub SayMsg_Global(ByVal index As Long, ByVal message As String, ByVal saycolour As Long)
Dim Buffer As clsBuffer
Set Buffer = New clsBuffer
Buffer.WriteLong SSayMsg
Buffer.WriteString GetPlayerName(index)
Buffer.WriteLong GetPlayerAccess(index)
Buffer.WriteLong GetPlayerPK(index)
Buffer.WriteString message
Buffer.WriteString "[Global]" & GetPlayerTag(index)
Buffer.WriteLong saycolour
SendDataToAll Buffer.ToArray()
Set Buffer = Nothing
End Sub
Parte do Client:
~~~Client~~~
Em modText substitua a sub:
- Código:
Public Sub DrawPlayerName(ByVal Index As Long)
Ate:
- Código:
'Ate :
' Draw name
Call DrawText(TexthDC, TextX, TextY, Name, color)
Por:
- Código:
Public Sub DrawPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Dim sTag As String
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
color = RGB(255, 96, 0)
sTag = vbNullString
Case 1
color = QBColor(DarkGrey)
sTag = "[GM] "
Case 2
color = QBColor(Cyan)
sTag = "[GM] "
Case 3
color = QBColor(BrightGreen)
sTag = "[ADM] "
Case 4
color = QBColor(Yellow)
sTag = "[ADM] "
End Select
Else
color = QBColor(BrightRed)
End If
If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) +
Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(sTag
& GetPlayerName(Index))))
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
Else
TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) +
Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(sTag
& GetPlayerName(Index))))
TextY =
ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset -
(DDSD_Character(GetPlayerSprite(Index)).lHeight) + 16
End If
Call DrawText(TexthDC, TextX, TextY, sTag & GetPlayerName(Index), color)
End Sub
Créditos: A mim por postar
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
Re: Colocando Tag ADM/GM
Legal esse, mais o que o povo mais procura é aqueles de naruto, que chunin, sei lá num gosto muito de naruto!
+1 Cred
+1 Cred
Juton- Experiente
- Mensagens : 486
Créditos : 129
Re: Colocando Tag ADM/GM
só funciona no E.O normal ou 2.0 , mais funciona tbm no E.O 2.6?
_________________
Re: Colocando Tag ADM/GM
isso é simples, e muiito legal, dah um grande adianto, eu vou fiz a mesma coisa no NP do Marlos somente nao coloquei um topico mais vou fazer isso!
abraços
abraços
_________________
Para Aqueles que gostam de Min e de meu Trabalho;
Upem Meu Pet nao custa nda!!
- Pet:
Nanzin- Membro de Honra
- Mensagens : 1550
Créditos : 252
Re: Colocando Tag ADM/GM
~Eclipser~ escreveu:só funciona no E.O normal ou 2.0 , mais funciona tbm no E.O 2.6?
Sim funciona em todas EO e edições dela !
@Nanzin: Jae(Y)
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
Re: Colocando Tag ADM/GM
@thales > postado o topico ja!
_________________
Para Aqueles que gostam de Min e de meu Trabalho;
Upem Meu Pet nao custa nda!!
- Pet:
Nanzin- Membro de Honra
- Mensagens : 1550
Créditos : 252
Re: Colocando Tag ADM/GM
Nanzin escreveu:@thales > postado o topico ja!
Vlws nanzin, vou dar 1 zoiada ! :)
@edit... ééé cd ? e.e
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
Re: Colocando Tag ADM/GM
o link é esse aqui se quiser
http://aldeiarpgbr.forumeiros.com/t2654-tutorial-aula-criando-tag-s-para-o-np-master-v30-ou-superior#24156
abraços
http://aldeiarpgbr.forumeiros.com/t2654-tutorial-aula-criando-tag-s-para-o-np-master-v30-ou-superior#24156
abraços
_________________
Para Aqueles que gostam de Min e de meu Trabalho;
Upem Meu Pet nao custa nda!!
- Pet:
Nanzin- Membro de Honra
- Mensagens : 1550
Créditos : 252
Re: Colocando Tag ADM/GM
Tipo qndo eu fico sem grafico o nome aparece
qndo ponho o grafico do krinha ele some
Ta ai a imagem
Edit: O nome fica muito acima na 1° imagem !!!
qndo ponho o grafico do krinha ele some
Ta ai a imagem
Edit: O nome fica muito acima na 1° imagem !!!
Faabinhuu ;- Experiente
- Medalhas :
Mensagens : 513
Créditos : 166
Re: Colocando Tag ADM/GM
Mal o Double
----------------------------------------------------------------------------------------------
Arrumando uma coisa que faltou ai.
~ Client Side ~
Codigo Errado:
Codigo Certo:
----------------------------------------------------------------------------------------------
Arrumando uma coisa que faltou ai.
~ Client Side ~
Codigo Errado:
- Código:
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight) + 16
Codigo Certo:
- Código:
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 16
Faabinhuu ;- Experiente
- Medalhas :
Mensagens : 513
Créditos : 166
Tópicos semelhantes
» [EO] Colocando Hp nos Monstros
» Colocando MP3 no seu Game
» colocando server on no-ip
» Colocando musicas MP3
» Colocando Status para %%%
» Colocando MP3 no seu Game
» colocando server on no-ip
» Colocando musicas MP3
» Colocando Status para %%%
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|