[EO] Adicionar pontos(Status) por comando

Código:

Public Sub HandleKeyPresses(ByVal KeyAscii As Integer)

Código:

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

                    DEBUG_MODE = (Not DEBUG_MODE)

Código:

'::::::::::::::::::::::::::
                  ':::Add Stats by Command:::
                  '::::::::::::::::::::::::::
                Case "/str"
               
                ' Checks to make sure we have more than one string in the array
                    If UBound(Command) < 1 Then
                        AddText "Usage: /str (Points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Not IsNumeric(Command(1)) Then
                        AddText "Usage: /str (points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Command(1) >= MAX_INTEGER Then
                    AddText "Too Much(Máx 32766).", AlertColor
                        GoTo Continue
                    End If
               
                  Call SendCommandTrainStat(1, Command(1))
                 
                Case "/end"
               
                ' Checks to make sure we have more than one string in the array
                    If UBound(Command) < 1 Then
                        AddText "Usage: /end (Points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Not IsNumeric(Command(1)) Then
                        AddText "Usage: /end (points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Command(1) >= MAX_INTEGER Then
                    AddText "Too Much(Máx 32766).", AlertColor
                        GoTo Continue
                    End If
               
                  Call SendCommandTrainStat(2, Command(1))
                 
                Case "/int"
                ' Checks to make sure we have more than one string in the array
                    If UBound(Command) < 1 Then
                        AddText "Usage: /int (Points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Not IsNumeric(Command(1)) Then
                        AddText "Usage: /int (points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Command(1) >= MAX_INTEGER Then
                    AddText "Too Much(Máx 32766).", AlertColor
                        GoTo Continue
                    End If
               
                  Call SendCommandTrainStat(3, Command(1))
                 
                Case "/agi"
                ' Checks to make sure we have more than one string in the array
                    If UBound(Command) < 1 Then
                        AddText "Usage: /agi (Points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Not IsNumeric(Command(1)) Then
                        AddText "Usage: /agi (points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Command(1) >= MAX_INTEGER Then
                    AddText "Too Much(Máx 32766).", AlertColor
                        GoTo Continue
                    End If
               
                  Call SendCommandTrainStat(4, Command(1))
                 
                Case "/will"
                ' Checks to make sure we have more than one string in the array
                    If UBound(Command) < 1 Then
                        AddText "Usage: /agi (Points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Not IsNumeric(Command(1)) Then
                        AddText "Usage: /agi (points)", AlertColor
                        GoTo Continue
                    End If
                   
                    If Command(1) >= MAX_INTEGER Then
                    AddText "Too Much(Máx 32766).", AlertColor
                        GoTo Continue
                    End If
               
                  Call SendCommandTrainStat(5, Command(1))

Código:

Sub SendTrainStat(ByVal StatNum As Byte)
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 CUseStatPoint
    Buffer.WriteByte StatNum
    SendData Buffer.ToArray()
    Set Buffer = Nothing
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SendTrainStat", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub


Código:

Sub SendCommandTrainStat(ByVal StatNum As Byte, ByVal Quantity As Long)
Dim Buffer As clsBuffer

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
     
      If Val(Quantity) > MAX_INTEGER Then
      Exit Sub
      End If
     
     
    Set Buffer = New clsBuffer
    Buffer.WriteLong CCommandStatPoint
    Buffer.WriteByte StatNum
    Buffer.WriteInteger Quantity
    SendData Buffer.ToArray()
    Set Buffer = Nothing
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SendCommandTrainStat", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub


Código:

CUseStatPoint

Código:

CCommandStatPoint

Código:

HandleDataSub(CUseStatPoint) = GetAddress(AddressOf HandleUseStatPoint)

Código:

HandleDataSub(CCommandStatPoint) = GetAddress(AddressOf HandleCommandStatPoint)

Código:

Sub HandleUseStatPoint(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Código:

' ::::::::::::::::::::::::::
' :: Command stats packet ::
' ::::::::::::::::::::::::::
Sub HandleCommandStatPoint(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim PointType As Byte
Dim Val As Long
Dim Buffer As clsBuffer
Dim sMes As String
Dim i As Long
   
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    PointType = Buffer.ReadByte 'CLng(Parse(1))
    Val = Buffer.ReadInteger
    Set Buffer = Nothing

    ' Prevent hacking
    If (PointType < 0) Or (PointType > Stats.Stat_Count) Then
        Exit Sub
    End If
   
    ' Check if player has the indicated value
    If Val > GetPlayerPOINTS(Index) Or Val <= 0 Then
    PlayerMsg Index, "Você não tem essa quantidade de pontos.", Red
    Exit Sub
    End If
   
    ' Check to not overflow the value
    If Val > MAX_INTEGER Then
    PlayerMsg Index, "Você não pode adicionar tamanha quantidade(Máx 32766).", Red
    Exit Sub
    End If
   
    ' Make sure they have points
    If GetPlayerPOINTS(Index) > 0 Then
        ' make sure they're not maxed#
        If GetPlayerRawStat(Index, PointType) >= MAX_LONG Then
            PlayerMsg Index, "Máximo Obtido.", BrightRed
            Exit Sub
        End If
       
        ' Take away a stat point
        Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) - Val)

        ' Everything is ok
        Select Case PointType
            Case Stats.strength
                Call SetPlayerStat(Index, Stats.strength, GetPlayerRawStat(Index, Stats.strength) + Val)
                Call PlayerMsg(Index, "Você adicionou +" & Val & " pontos em força!", White)
                sMes = "Strength"
            Case Stats.Endurance
                Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) + Val)
                Call PlayerMsg(Index, "Você adicionou +" & Val & " pontos em defesa!", White)
                sMes = "Endurance"
            Case Stats.Intelligence
                Call SetPlayerStat(Index, Stats.Intelligence, GetPlayerRawStat(Index, Stats.Intelligence) + Val)
                Call PlayerMsg(Index, "Você adicionou +" & Val & " pontos em inteligência!", White)
                sMes = "Intelligence"
            Case Stats.Agility
                Call SetPlayerStat(Index, Stats.Agility, GetPlayerRawStat(Index, Stats.Agility) + Val)
                Call PlayerMsg(Index, "Você adicionou +" & Val & " pontos em agilidade!", White)
                sMes = "Agility"
            Case Stats.WillPower
                Call SetPlayerStat(Index, Stats.WillPower, GetPlayerRawStat(Index, Stats.WillPower) + Val)
                Call PlayerMsg(Index, "Você adicionou +" & Val & " pontos em força de vontade!", White)
                sMes = "Willpower"
        End Select
       
        SendActionMsg GetPlayerMap(Index), "+" & Val & sMes, White, 1, (GetPlayerX(Index) * 32), (GetPlayerY(Index) * 32)

    Else
        Exit Sub
    End If

    ' Send the update
    SendPlayerData Index

    For i = 1 To Vitals.Vital_Count - 1
        SendVital Index, i
    Next
End Sub


Código:

CUseStatPoint

Código:

CCommandStatPoint

Código:

' values
Public Const MAX_BYTE As Byte = 255
Public Const MAX_INTEGER As Integer = 32767
Public Const MAX_LONG As Long = 2147483647

Código:

' values
Public Const MAX_BYTE As Byte = 255
Public Const MAX_INTEGER As Integer = 32767
Public Const MAX_LONG As Long = 2147483647

pabloluiz123 escreveu:Desculpa reviver mas é que estou precisando deste sistema .. alguém pode me ajudar nesse error ??
http://imageshack.us/content_round.php?page=done&l=img707/4772/qf2r.png

Código:

' ::::::::::::::::::::::
' :: Use stats packet ::
' ::::::::::::::::::::::
Sub HandleUseStatPoint(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)


Código:

' ::::::::::::::::::::::
' :: Use stats packet ::
' ::::::::::::::::::::::
Sub HandleUseStatPoint(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim PointType As Byte
Dim Buffer As clsBuffer
Dim sMes As String
   
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    PointType = Buffer.ReadByte 'CLng(Parse(1))
    Set Buffer = Nothing

    ' Prevent hacking
    If (PointType < 0) Or (PointType > Stats.Stat_Count) Then
        Exit Sub
    End If

    ' Make sure they have points
    If GetPlayerPOINTS(index) > 0 Then
        ' make sure they're not maxed#
        If GetPlayerRawStat(index, PointType) >= 255 Then
            PlayerMsg index, "You cannot spend any more points on that stat.", BrightRed
            Exit Sub
        End If
       
        ' Take away a stat point
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1)

        ' Everything is ok
        Select Case PointType
            Case Stats.Strength
                Call SetPlayerStat(index, Stats.Strength, GetPlayerRawStat(index, Stats.Strength) + 1)
                sMes = "Strength"
            Case Stats.Endurance
                Call SetPlayerStat(index, Stats.Endurance, GetPlayerRawStat(index, Stats.Endurance) + 1)
                sMes = "Endurance"
            Case Stats.Intelligence
                Call SetPlayerStat(index, Stats.Intelligence, GetPlayerRawStat(index, Stats.Intelligence) + 1)
                sMes = "Intelligence"
            Case Stats.Agility
                Call SetPlayerStat(index, Stats.Agility, GetPlayerRawStat(index, Stats.Agility) + 1)
                sMes = "Agility"
            Case Stats.Willpower
                Call SetPlayerStat(index, Stats.Willpower, GetPlayerRawStat(index, Stats.Willpower) + 1)
                sMes = "Willpower"
        End Select
       
        SendActionMsg GetPlayerMap(index), "+1 " & sMes, White, 1, (GetPlayerX(index) * 32), (GetPlayerY(index) * 32)

    Else
        Exit Sub
    End If

    ' Send the update
      Dim i As Long

    For i = 1 To Vitals.Vital_Count - 1
        SendVital index, i
    Next
   
    'Call SendStats(Index)
    SendPlayerData index
End Sub

rodrigomarquesz escreveu:Por isso eu disse que estava estranho.

E como estou sem a Eclipse Origins aqui comigo, apenas corrigi o erro informado, mas continuaria com esse problema visto que essa é uma Handle fundamental para o projeto.

Código:

Sub HandleCommandStatPoint(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Código:

Sub HandleUseStatPoint

Código:

Sub Teste() 'Início (Nome da "Sub" e seus complementos)
 'Intermediário (O código)
End Sub 'Fim (Finalização de uma "Sub")

Código:

Function Teste() 'Início (Nome da "Function" e seus complementos)
 'Intermediário (O código)
End Function 'Fim (Finalização de uma "Function")