Información de hechizo en un formulario

Primera parte: SERVIDOR 0.11.5
TCP_HandleData1.bas
Buscar:

Citación :

Case "INFS"

Y reemplazar todo el bloque Case por:

Citación :

Case "SNFO"
rData = Right$(rData, Len(rData) - 4)
If val(rData) > 0 And val(rData) < MAXUSERHECHIZOS + 1 Then
Dim H As Integer
H = UserList(UserIndex).Stats.UserHechizos(val(rData))
If H > 0 And H < NumeroHechizos + 1 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "SNFO" & Hechizos(H).Nombre & "-" & Hechizos(H).Desc & "-" & Hechizos(H).MinSkill & "-" & Hechizos(H).ManaRequerido & "-" & Hechizos(H).StaRequerido)
End If
Else
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Primero selecciona el hechizo.!" & FONTTYPE_INFO)
End If
Exit Sub

Primera parte: CLIENTE 0.11.5
TCP.bas
Buscar:

Citación :

sData = UCase$(Rdata)

Y abajo colocar:

Citación :

If Left$(sData, 4) = "SNFO" Then
Rdata = Right$(sData, Len(sData) - 4)

With frmSpellInfo
.Caption = ReadField(1, Rdata, 45)
.lblDescripcion.Caption = "Descripción: " & ReadField(2, Rdata, 45)
.lblSkill.Caption = "Habilidad requerida: " & ReadField(3, Rdata, 45) & " de magia."
.lblMana.Caption = "Mana requerida: " & ReadField(4, Rdata, 45)
.lblStamina.Caption = "Energía requerida: " & ReadField(5, Rdata, 45)

.Show , frmMain
End With
End If

frmMain.frm
Reemplazar:

Citación :

Call SendData("INFS" & hlst.ListIndex + 1)

Por:

Citación :

Call SendData("SNFO" & hlst.ListIndex + 1)

frmSpellInfo.frm (se debe crear)
Propiedad StartUpPosition = '2 - Center screen'
Crear:

Label lblDescripcion
Label lblSkill
Label lblMana
Label lblStamina