Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Información de hechizo en un formulario

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: Información de hechizo en un formulario   Lun Ago 25, 2008 3:15 am

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
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Información de hechizo en un formulario
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Más información sobre los mapas del bf3
» HILO CON TODA LA INFORMACIÓN SOBRE EL CAMPO DE TIRANDODADOS - PEDIDOS TAMBIÉN AQUÍ
» [Noticia] Recopilación de toda la información nueva disponible de "Aventura en la isla"
» Información servidores BF4.
» Información sobre Minecraft

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: jijijijijiij-
Cambiar a: