Bom amigos, hoje estou aqui com mas um probleminha tentando implementa o sistema de Boss da Egine Skywyre, No Eclipse Origins, so que depois do trabalho de implementação
tem o seguinte erro que talvez seja mas de 1 , mas mo caso tou cinte que da esse erro.
Não sei porque os dado e informação não ta chegando ate o HandleActionMsg
tem o seguinte erro que talvez seja mas de 1 , mas mo caso tou cinte que da esse erro.
- Código:
HandleError "HandleActionMsg", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
Não sei porque os dado e informação não ta chegando ate o HandleActionMsg
- Código:
Private Sub HandleActionMsg(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim buffer As clsBuffer
Dim x As Long, y As Long, Message As String, color As Long, tmpType As Long
If Options.Debug = 1 Then On Error GoTo errorhandler
Set buffer = New clsBuffer
buffer.WriteBytes Data()
Message = buffer.ReadString
color = buffer.ReadLong
tmpType = buffer.ReadLong
x = buffer.ReadLong
y = buffer.ReadLong
Set buffer = Nothing
CreateActionMsg Message, color, tmpType, x, y
' Error handler
Exit Sub
errorhandler:
HandleError "HandleActionMsg", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub