Vitorias e derrotas em label.

por Pablo Dom 17 Fev 2013, 18:09

Bom eu estava no msn programando o dbz e o meu amigo pediu para que eu fizesse então tai \õ

Lembrando que precisa do sistema de contador de kills e deaths.

Sistema - Clique Aqui!

Client~side

Crie 2 labeis na frmmirage com as seguintes própriedades:

1º Label
Name: lblkill
Caption: Vitorias:

2º Label
Name: lbldead
Caption: Derrotas:

Agora procure por:

Código:: frmMirage.lblLevel.Caption = "Level: " & Val(Parse(7))

Abaixo adicione:

Código:: frmMirage.lblkill.Caption = "Vitórias: " & Val(Parse(8)) frmMirage.lbldead.Caption = "Derrotas: " & Val(Parse(9))

Server~side

Procure por:

Código:: Sub SendStats(ByVal Index As Long)

Troque ela toda por:

Código:: Sub SendStats(ByVal Index As Long) Dim Packet As String Packet = "PLAYERSTATSPACKET" & SEP_CHAR & GetPlayerstr(Index) & SEP_CHAR & GetPlayerDEF(Index) & SEP_CHAR & GetPlayerSPEED(Index) & SEP_CHAR & GetPlayerMAGI(Index) & SEP_CHAR & GetPlayerNextLevel(Index) & SEP_CHAR & GetPlayerExp(Index) & SEP_CHAR & GetPlayerLevel(Index) & SEP_CHAR & GetPlayerKill(Index) & SEP_CHAR & GetPlayerDead(Index) Call SendDataTo(Index, Packet) End Sub

Créditos ~ Pablo
Caso outra pessoa já tenha feito esse tutorial favor comentar, irei modificar os créditos mesmo não se baseado em nenhum.

por GuiinhoLP Dom 17 Fev 2013, 18:12

Vlw................ Ajudo Demais

Vitorias e derrotas em label.

Vitorias e derrotas em label.

Re: Vitorias e derrotas em label.