[EO]Transformação por Imagem

Picture1
Name: picNormal

Picture2
Name: picTrans

Código:

    Call SendNormal

Código:

    Call SendTrans

Código:

Public Sub SendNormal()
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
   
    Buffer.WriteLong CNormal
   
    SendData Buffer.ToArray()
    Set Buffer = Nothing
End Sub

Public Sub SendTrans()
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
   
    Buffer.WriteLong CTrans
   
    SendData Buffer.ToArray()
    Set Buffer = Nothing
End Sub

Código:

    ' Make sure CMSG_COUNT is below everything else
    CMSG_COUNT

Código:

    CNormal
    CTrans

Código:

    ' Make sure SMSG_COUNT is below everything else
    SMSG_COUNT

Código:

    SImagens

Código:

    HandleDataSub(SPartyVitals) = GetAddress(AddressOf HandlePartyVitals)

Código:

    HandleDataSub(SImagens) = GetAddress(AddressOf HandleImagens)

Código:

Private Sub HandleImagens(ByVal Index As Long, ByRef Data() As Byte, ByVal EditorIndex As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim Buffer As clsBuffer

    If GetPlayerClass(Index) = 1 Then
        frmMain.picNormal.Picture = LoadPicture(App.Path & "\data files\graphics\imagens\normal.bmp")
        frmMain.picTrans.Picture = LoadPicture(App.Path & "\data files\graphics\imagens\trans.bmp")
    ElseIf GetPlayerClass(Index) = 2 Then
        ' Aqui é se vocÊ quiser pro mais classes
    End If

    Set Buffer = Nothing
End Sub

Código:

    HandleDataSub(CPartyLeave) = GetAddress(AddressOf HandlePartyLeave)

Código:

    HandleDataSub(CNormal) = GetAddress(AddressOf HandleNormal)
    HandleDataSub(CTrans) = GetAddress(AddressOf HandleTrans)

Código:

Sub HandleNormal(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
   
    If GetPlayerSprite(Index) = 2 Then
        If GetPlayerClass(Index) = 1 Then
            Call SetPlayerSprite(Index, 1)
            Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) - 1)
            Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) - 1)
        End If
    End If
   
    Set Buffer = Nothing
End Sub

Sub HandleTrans(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
   
    If GetPlayerSprite(Index) = 1 Then
        If GetPlayerClass(Index) = 1 Then
            Call SetPlayerSprite(Index, 2)
            Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) + 1)
            Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) + 1)
        End If
    End If
   
    Set Buffer = Nothing
End Sub

Código:

' Make sure CMSG_COUNT is below everything else
    CMSG_COUNT

Código:

CNormal
    CTrans

Código:

    ' Make sure SMSG_COUNT is below everything else
    SMSG_COUNT

Código:

    SImagens

Código:

Sub SendImagens(ByVal Index As Long)
Dim Buffer As clsBuffer
   
    Set Buffer = New clsBuffer
    Buffer.WriteLong SImagens
   
    SendDataToMap GetPlayerMap(Index), Buffer.ToArray()
    Set Buffer = Nothing
End Sub

Código:

    Call SendHotbar(Index)

Código:

    Call SendImagens(Index)

Código:

Sub HandleNormal(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
   
    If GetPlayerSprite(Index) = 2 Then
        If GetPlayerClass(Index) = 1 Then
            Call SetPlayerSprite(Index, 1)
            Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) - 1)
            Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) - 1)
        End If
    End If
   
    Set Buffer = Nothing
End Sub

M.Dutra escreveu:Se um dia o Ricardo se cadastrar no fórum eu dou crédito a ele mais o Tutorial tem alguns erros só pela leitura do código da para ver.

Código:

Sub HandleNormal(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
   
    If GetPlayerSprite(Index) = 2 Then
        If GetPlayerClass(Index) = 1 Then
            Call SetPlayerSprite(Index, 1)
            Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) - 1)
            Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) - 1)
        End If
    End If
   
    Set Buffer = Nothing
End Sub

Cade o SendPlayerData index ?

Sem isso não ira atualizar a não ser que você clique em char novamente.

Atenciosamente, M.Dutra