Evolução de Classes

Código:

HandleDataSub(CPartyLeave) = GetAddress(AddressOf HandlePartyLeave)

Código:

HandleDataSub(CClass) = GetAddress(AddressOf HandleSetClass)

Código:

Sub HandleSetClass(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim n As Long, i As Long
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
   
    n = FindPlayer(Buffer.ReadString)
    i = Buffer.ReadLong
    Set Buffer = Nothing
 
    If n < 1 Then
      PlayerMsg index, GetPlayerName(index) & ": " & "não está online.", BrightRed
      Exit Sub
    End If

                If IsPlaying(n) = False Then Exit Sub

    Player(n).Class = i
    Player(n).Sprite = i
    SendPlayerData n
    SavePlayer n
    PlayerMsg n, "Você evoluiu para classe: " & Class(GetPlayerClass(index)).Name, Green
End Sub

Código:

CPartyLeave

Código:

CClass

Código:

SendSetClass Trim$(txtAName.text), CLng(Trim$(1))
 Timer2.Enabled = False
 picClass.top = 600

Código:

SendSetClass Trim$(txtAName.text), CLng(Trim$(2))
 Timer2.Enabled = False
 picClass.top = 600

Código:

SendSetClass Trim$(txtAName.text), CLng(Trim$(3))
 Timer2.Enabled = False
 picClass.top = 600

Código:

If Time > 0 Then
Time = Time - 1
lblTime.Caption = "Resta: " & Time & " para escolher sua classe"
End If

Código:

Dim Time As Integer

Private Sub Form_Activate()
Time = 20
Timer1.Enabled = True
lblTime.Caption = "Resta: 20s para escolher sua classe"
End Sub

de dois clicks na tmrClass2 e adicione:

[b]picClass[/b].Visible = True
If Time = 0 Then
Timer2.Enabled = False
[b]picClass[/b].top = 600
End If

Código:

Public Sub SendSetClass(ByVal Name As String, ByVal ClassNum 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 CClasse
      Buffer.WriteString Name
      Buffer.WriteLong ClassNum
      SendData Buffer.ToArray()
      Set Buffer = Nothing
 
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SendSetClass", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Código:

' Make sure CMSG_COUNT is below everything else

Código:

CClass

Código:

Function GetPlayerLevel(ByVal index As Long) As Long

Código:

If index > MAX_PLAYERS Then Exit Function
    GetPlayerLevel = Player(index).Level

Código:

If GetPlayerLevel = 20 Then ' 20 e o level q vai aparecer a pic para vc escolher sua classe
    frmMain.Timer2.Enabled = True
    End If

Código:

cmbClass.ListIndex = 0

Código:

Player(n).Sprite = i

Código:

If n < 1 Then
      PlayerMsg index, GetPlayerName(index) & ": " & "não está online.", BrightRed
      Exit Sub
    End If

Código:

Sub HandleSetClass(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim n As Long, i As Long
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
   
    n = FindPlayer(Buffer.ReadString)
    i = Buffer.ReadLong
    Set Buffer = Nothing

    If n = VbnullString then Exit Sub

    Player(n).Class = i
    Select Case Player(n).Sex
        Case SEX_MALE
              Player(n).Sprite = Class(GetPlayerClass(n)).MaleSprite(0)
        Case SEX_FEMALE
              Player(n).Sprite = Class(GetPlayerClass(n)).FemaleSprite(0)
        Case Else
              Exit Sub
    End Select
    SendPlayerData n
    PlayerMsg n, "Você evoluiu para classe: " & Class(GetPlayerClass(index)).Name, Green
End Sub

MrMota escreveu:Imagem de como fica?

MrMota escreveu:Ok, kkkkk'
Mas é sempre bom posta como fica, assim alguns não desperdiçam tempo, se não for o que querem...