UPs visualizadas en el juego (Adiós a las calculadoras) 0.13

Ir abajo

UPs visualizadas en el juego (Adiós a las calculadoras) 0.13

Mensaje por Toyz el 15/7/2016, 3:54 am

Foto:


Empezamos...

Servidor:

En el connectnewuser abajo de:
Código:
   .Stats.ELV = 1

Ponen:

Código:
   Call WriteAttributes(UserIndex)

En el connectuser abajo de:

Código:
  .flags.UserLogged = True

Ponen:

Código:
   Call WriteAttributes(UserIndex)


Ahora vamos por el CLIENTE

Cliente:

Al final del modulo protocol:

Código:

Public Sub UpdateUPS()

    Dim ModVida(1 To NUMCLASES) As Single
    Dim Promedio As Integer
    Dim Prom As Integer
    Dim UPs As Integer

1    ModVida(Mage) = 7.5      'Mago
2    ModVida(Cleric) = 8.5    'Clerigo
3    ModVida(Warrior) = 10    'Guerrero
4    ModVida(Assasin) = 8.5   'Asesino
5    ModVida(Thief) = 10      'Ladrón
6    ModVida(Bard) = 8.5      'Bardo
7    ModVida(Druid) = 8.5     'Druida
8    ModVida(Bandit) = 9.5    'Bandido
9    ModVida(Paladin) = 9.5   'Paladin
10   ModVida(Hunter) = 9.5    'Cazador
11   ModVida(Worker) = 9.5    'Trabajador
12   ModVida(Pirat) = 9.5     'Pirata

    Promedio = ModVida(UserClase) - (21 - UserAtributos(5)) * 0.5
    Prom = Promedio * (UserLvl - 1) + 20

    UPs = UserMaxHP - Prom

    'Label1.Caption = UPs
    'MsgBox UPs

    With frmMain

        If UPs < 0 Then
      
               .ups_lbl.Caption = "- " & UPs
               .ups_lbl.ForeColor = vbRed
               '.ups_lbl_sombra = "- " & UPs
               '.ups_lbl_sombra2 = "- " & UPs
            
        ElseIf UPs = 0 Then
        
               .ups_lbl.Caption = UPs
               .ups_lbl.ForeColor = vbWhite
               '.ups_lbl_sombra = UPs
               '.ups_lbl_sombra2 = UPs
            
        Else
        
               .ups_lbl.Caption = "+ " & UPs
               .ups_lbl.ForeColor = vbGreen
               '.ups_lbl_sombra = "+ " & UPs
               '.ups_lbl_sombra2 = "+ " & UPs
    
        End If

    End With

End Sub


Abajo de:

Código:

Sub Login()
    If EstadoLogin = E_MODO.Normal Then
        Call WriteLoginExistingChar

Ponen:

Código:
UpdateUPS

En este sub:
Código:
Private Sub HandleUpdateUserStats()

Buscan:
Código:

    frmMain.GldLbl.Caption = UserGLD
    frmMain.lblLvl.Caption = UserLvl
Y abajo ponen:
Código:
UpdateUPS
Buscan:
Código:

Public Enum eClass
y reemplazan todo ese enum por este:
Código:

Public Enum eClass
    Mage = 1        'Mago
    Cleric = 2      'Clérigo
    Warrior = 3     'Guerrero
    Assasin = 4     'Asesino
    Thief = 5       'Ladrón
    Bard = 6        'Bardo
    Druid = 7       'Druida
    Bandit = 8      'Bandido
    Paladin = 9     'Paladín
    Hunter = 10     'Cazador
    Worker = 11     'Trabajador
    Pirat = 12      'Pirata
End Enum

Ahora van al formulario MAIN y crean un label llamado "ups_lbl" y listo.

Lo generan y lo prueban :p[/QUOTE]
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: UPs visualizadas en el juego (Adiós a las calculadoras) 0.13

Mensaje por Ahurkrill el 6/9/2016, 5:39 am

Lo puse y cuando relogueo me tira el sub indice esta fuera de intervalo!
avatar
Ahurkrill
Staff Zhentey
Staff Zhentey

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 256
Edad : 22
Localización : Ullathorpe
Fecha de inscripción : 25/09/2015

Ver perfil de usuario

Volver arriba Ir abajo

Re: UPs visualizadas en el juego (Adiós a las calculadoras) 0.13

Mensaje por Toyz el 6/9/2016, 8:37 pm

Es un problema al llamar al método.

Borrá la llamada
Código:
UpdateUP()
y ponela abajo de acá:

Código:
 UserClase = incomingData.ReadByte

Fijate que tenés que hacer un cálculo más para sacar la raza. Es simple. Si tenés problemas en realizarlo me avisás y te ayudo.


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: UPs visualizadas en el juego (Adiós a las calculadoras) 0.13

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.