InícioCalendárioFAQBuscarMembrosGruposRegistrar-seConectar-se
Os que mais criam tópicos
Sonart
 
Alenaldo
 
Over~
 
Warrior
 
Caio~
 
SSO
 
newbie123
 
Kaue
 
Jim
 
yuri godinho
 
Conectar-se
Nome de usuário:
Senha:
Conexão automática: 
:: Esqueci minha senha

Compartilhe | 
 

 Oque eu fiz de errado??

Ir em baixo 
AutorMensagem
Warrior
Admin
Admin
avatar

Mensagens : 164
Moeda : 1726
Pontos : 3
Data de inscrição : 30/08/2012
Idade : 28

MensagemAssunto: Oque eu fiz de errado??   Sab Jan 19, 2013 7:29 am

Gente eu estava adicionando um sistema de colocar uma tag de adm so que deu esse erro na ora de conpilar o client:
Spoiler:
 
Querem o codigo aqui:

- 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

por favor ajude preciso desse sistem!
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://revolutionmaker.forumeiros.com
Over~
Moderador.G
Moderador.G
avatar

Mensagens : 149
Moeda : 214
Pontos : 11
Data de inscrição : 04/01/2013

MensagemAssunto: Re: Oque eu fiz de errado??   Sab Jan 19, 2013 11:30 am

Bom acho que na parte que estava escrito:

' Error Handler

Abaixo possui o exit sub.

Retire-o dai e coloque no final da sub.

Não sou programador mais tenta vai que...

_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Renanr
Membro
Membro
avatar

Mensagens : 19
Moeda : 31
Pontos : 5
Data de inscrição : 17/01/2013

MensagemAssunto: Re: Oque eu fiz de errado??   Sab Jan 19, 2013 1:51 pm

Apague este código que está na print:
Código:
' Error handler
    Exit Sub
errorhandler:
    HandleError "DrawPlayerName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub

E ainda na print não aparecendo muito tem esse código:
Código:
Call DrawText(TexthDC, TextX, TextY, sTag & GetPlayerName(Index), color)
Abaixo dele(em cima do end sub) adicione:
Código:
' Error handler
    Exit Sub
errorhandler:
    HandleError "DrawPlayerName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub

E pronto teste..
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Warrior
Admin
Admin
avatar

Mensagens : 164
Moeda : 1726
Pontos : 3
Data de inscrição : 30/08/2012
Idade : 28

MensagemAssunto: Re: Oque eu fiz de errado??   Seg Jan 21, 2013 1:57 pm

Vlw deu certo +1 para os 2! XD
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://revolutionmaker.forumeiros.com
Renanr
Membro
Membro
avatar

Mensagens : 19
Moeda : 31
Pontos : 5
Data de inscrição : 17/01/2013

MensagemAssunto: Re: Oque eu fiz de errado??   Seg Jan 21, 2013 2:54 pm

Que bom que deu certo , de nada =)
Você mesmo poderia bloquear o tópico.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Warrior
Admin
Admin
avatar

Mensagens : 164
Moeda : 1726
Pontos : 3
Data de inscrição : 30/08/2012
Idade : 28

MensagemAssunto: Re: Oque eu fiz de errado??   Seg Jan 21, 2013 3:21 pm

Topico trancado duvida resolvida XD
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://revolutionmaker.forumeiros.com
Conteúdo patrocinado




MensagemAssunto: Re: Oque eu fiz de errado??   

Voltar ao Topo Ir em baixo
 
Oque eu fiz de errado??
Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Titulo no navegador errado
» Oque devo fazer se um forum copiou algumas coisas exclusivas do meu?
» Oque significa "excluir os cookies do fórum"
» Link do último membro a postar errado
» Horario errado

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
 :: Desenvolvimento de Jogos :: Engines :: Eclipse Origins :: Suporte e Pedidos-
Ir para: