Transformação por foto

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


Serve~Side

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)


Fim

qualquer duvida/erro poste aqui que eu ajudo xD


Creditos:

Raizen/Dazateam
Ricardo