[EE]Foto no Status, a Pedidos

Primeiramente, crie uma PictureBox na frmMirage e mude o nome para picClass. Agora Crie uma pasta dentro da GFX. Após isso, mude o nome da pasta para Fotos. Lá coloca suas fotos... Exemplo: Eu tenho 3 classes:

Goku, Vegeta e Piccolo

Então na pasta terei as fotos:

Goku.jpg, Vegeta.jpg e Piccolo.jpg

Client~Side

Procure por:

Código:


    If Parse(0) = "itembreak" Then
        ItemDur(Val(Parse(1))).Item = Val(Parse(2))
        ItemDur(Val(Parse(1))).Dur = Val(Parse(3))
        ItemDur(Val(Parse(1))).done = 1
        Exit Sub
    End If


Embaixo adicione:

Código:


    ' :::::::::::::::::::::::
    ' :: Class Pic request ::
    ' :::::::::::::::::::::::
    If Parse(0) = "classpic" Then
        If GetPlayerClass(MyIndex) = 1 Then
            frmMirage.picClass.Picture = LoadPicture(App.Path & "\GFX\Fotos\Goku.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picClass.Picture = LoadPicture(App.Path & "\GFX\Fotos\Vegeta.jpg")
        ElseIf GetPlayerClass(MyIndex) = 3 Then
            frmMirage.picClass.Picture = LoadPicture(App.Path & "\GFX\Fotos\Piccolo.jpg")
        End If
    End If


Server~Side

Agora no final do modServerTCP, adicione:

Código:


Sub SendClassPicRequest(ByVal Index As Long)
    Dim Packet As String

    Packet = "CLASSPIC" & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub


Código:


    If Parse(0) = "itembreak" Then
        ItemDur(Val(Parse(1))).Item = Val(Parse(2))
        ItemDur(Val(Parse(1))).Dur = Val(Parse(3))
        ItemDur(Val(Parse(1))).done = 1
        Exit Sub
    End If

Spoiler:

Spoiler:

Código:

Procure por:
If Parse(0) = "itembreak" Then     
ItemDur(Val(Parse(1))).Item = Val(Parse(2))
ItemDur(Val(Parse(1))).Dur = Val(Parse(3))
ItemDur(Val(Parse(1))).done = 1
Exit Sub
End If

Código:

 ' :::::::::::::::::::::::
    ' :: Class Pic request ::
    ' :::::::::::::::::::::::
    If Parse(0) = "classpic" Then
        If GetPlayerClass(MyIndex) = 1 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Fotos\Goku\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Fotos\Vegeta\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 3 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Fotos\Piccolo\normal.jpg")
        End If
    End If


Código:

Agora no final do modServerTCP, adicione:

    Sub SendClassPicRequest(ByVal Index As Long)
        Dim Packet As String

        Packet = "CLASSPIC" & END_CHAR
        Call SendDataTo(Index, Packet)
    End Sub

Código:

' Mandar a flag, assim vão poder fazer algo
Call SendDataTo(Index, "INGAME" & END_CHAR)

Código:

'Mandar imagens das classes
    Call SendClassPicRequest(Index)