[Tutorial] Atendimento On/Off

Código:

CPartyLeave

Código:

CAtendimento
    CPAtendimento

Código:

Case "/debug"
                    If GetPlayerAccess(MyIndex) < ADMIN_CREATOR Then GoTo Continue

                    DEBUG_MODE = (Not DEBUG_MODE)

Código:

Case "/atendimentoon"
                    If GetPlayerAccess(MyIndex) > 0 Then
                        SendAtendimento (1)
                        
                     Else
                         AddText "Você não tem permissão para ativar o atendimento", HelpColor
                     End If
                    Case "/atendimentooff"
                     If GetPlayerAccess(MyIndex) > 0 Then
                         SendAtendimento (0)
                         Else
                         AddText "Você não tem permissão para desativar o atendimento", HelpColor
                    End If
                    
                        
                    Case "/atendimento"
                     SendPAtendimento (1)

Código:

Sub SendAtendimento(ByVal valor As Long)
Dim Buffer As clsBuffer

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
    
    Set Buffer = New clsBuffer
    Buffer.WriteLong CAtendimento
    Buffer.WriteByte valor
    SendData Buffer.ToArray()
    Set Buffer = Nothing

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SendAtendimento", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub


Sub SendPAtendimento(ByVal valor As String)
Dim Buffer As clsBuffer

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
    
    Set Buffer = New clsBuffer
    Buffer.WriteLong CPAtendimento
    Buffer.WriteByte valor
    SendData Buffer.ToArray()
    Set Buffer = Nothing

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SendPAtendimento", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub


Código:

CPartyLeave

Código:

CAtendimento
    CPAtendimento

Código:

Function GetPlayerAtendimento(ByVal index As Long) As String
    GetPlayerAtendimento = Trim$(Player(index).SAtendimento)
End Function
 
Sub SetPlayerAtendimento(ByVal index As Long, ByVal SAtendimento As String)
 Dim i As Long
For i = 1 To MAX_PLAYERS

   Player(i).SAtendimento = SAtendimento
Next
End Sub


Código:

HandleDataSub(CPartyLeave) = GetAddress(AddressOf HandlePartyLeave)

Código:

HandleDataSub(CAtendimento) = GetAddress(AddressOf HandleAtendimento)
    HandleDataSub(CPAtendimento) = GetAddress(AddressOf HandlePAtendimento)

Código:

Sub HandleAtendimento(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
  Dim Buffer As clsBuffer
  Dim Valor As String
  
Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    
Valor = Buffer.ReadByte

    If Valor = 1 Then
        Call GlobalMsg("O atendimento foi ativado, apartir de agora os GM estarão atendendo, para obter suporte digite /atendimento.", Yellow)
        Call SetPlayerAtendimento(index, 1)
    End If

    If Valor = 0 Then
        Call GlobalMsg("O atendimento foi desativado, apartir de agora os GM não estarão atendendo.", Yellow)
        Call SetPlayerAtendimento(index, 0)
    End If

End Sub

Sub HandlePAtendimento(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
  Dim Buffer As clsBuffer
  Dim verifica As String
  
Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    
verifica = Buffer.ReadByte

        If verifica = 1 Then

             If GetPlayerAtendimento(index) = 1 Then
             Call PlayerWarp(index, 1, 7, 'dê as cordenadas 1 = mapa, 7 = x , 8 = y
             Call SendPlayerData(index)
             Else
             PlayerMsg index, "Nenhum GM disponível no momento.", BrightCyan
            End If

        End If

End Sub


Call PlayerWarp(index, 1, 7, 'dê as cordenadas 1 = mapa, 7 = x , 8 = y

Código:

Private Type PlayerRec

Código:

Atendimento As Byte
   SAtendimento As Byte

TheKirin escreveu:Infuncional... Dá um erro logo na parte de mudar as coordenadas:

Call PlayerWarp

ModHandleData

marakgarin escreveu:Aqui não funfou não acho que é por causa do dx8

marakgarin escreveu:e tipo se todo mundo do jogo quiser ir na mesma hora a sala não vai suporta e servidor vai cair

DarkWolf escreveu:Aqui deu
Compile error
Method or data not found
.Satendimento

vc deve t feito alguma coisa errado por que o sistema é funcional..

lincol eu tenho uma duvida aki tipoh c euquisé por um requerimento pro players ir la pro "atendimento"

tipoh um lv (pd c lv 10) como q eu fasço isso ?

DarkWolf escreveu:Aqui deu
Compile error
Method or data not found
.Satendimento

no modTypes
procure por

Código:

Private Type PlayerRec

Antes do End type adicione

Código:

Atendimento As Byte
  SAtendimento As Byte

dazateam escreveu:

DarkWolf escreveu:Aqui deu
Compile error
Method or data not found
.Satendimento

vc deve t feito alguma coisa errado por que o sistema é funcional..

lincol eu tenho uma duvida aki tipoh c euquisé por um requerimento pro players ir la pro "atendimento"

tipoh um lv (pd c lv 10) como q eu fasço isso ?

Código:

Sub HandlePAtendimento(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
  Dim Buffer As clsBuffer
  Dim verifica As String
 
Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
   
verifica = Buffer.ReadByte

        If verifica = 1 Then

            If GetPlayerAtendimento(index) = 1 Then
            If GetPlayerLevel(index) <= 10 Then 'aqui o level que abaixo dele não poderá entrar(neste caso só entrar level 11 ou maior.)
playermsg index, "Você não tem o level necessário para entrar, o level minimo é 11.", BrightCyan
            Exit Sub
            End If
           
            Call PlayerWarp(index, 100, 5, 6, False) 'dê as cordenadas 100 = mapa, 5 = x , 6 = y
            Call SendPlayerData(index)
            Else
            PlayerMsg index, "Nenhum GM disponível no momento.", BrightCyan
            End If

        End If

End Sub