Foto da Classe na FrmMirage

por thales12 Qui Jun 30, 2011 4:32 pm

Primeiro crie uma pasta dentro da pasta GFX chamada Fotos.
dentro da pasta fotos crie outra pasta chamada Goku.
e dentro da pasta fotos novamente crie outra chamada Vegeta.
Dentro da pasta goku vc ira por a foto q vc kizer ou seja com o nome "0" sem aspas e com formata BMP.
Fassa o mesmo na pasta Vegeta.

Agora va na FrmMirage e crie uma IMAGEBOX chamada picClass

Vamos aos codigos

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

Abaixo 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\0.bmp") ElseIf GetPlayerClass(MyIndex) = 2 Then frmMirage.picClass.Picture = LoadPicture(App.Path & "\GFX\Fotos\Vegeta\0.bmp") Else ' aqui vc poe as demais classes End If End If

...:::Server~Side:::...

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

No modGameLogic ache:

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

Abaixo adicione:

Código:: ' Mandar imagens das classes Call SendClassPicRequest(Index)

OBS: Se quiser por outra classe e so fazer o msm procedimento !

Fim ! Smile

por **spectrus** Qui Jun 30, 2011 4:57 pm

Otimo tutorial uso e recomendo!! tutorial tambem muito util para criar um sistema de clikar na imagem da Classe ao inves de escolher na Combobox!
+ CRED