Captions De nivel Stylo Tpao (50 + 10) para 11.5

Es una boludes pero me lo pidieron y bue jajaja.

En el setconnected

Código:

If UserLvl > 50 Then
frmmain.Nivel.ForeColor = vbYellow
Else
frmmain.Nivel.ForeColor = vbRed
End If

En el case "AS" si tenian algo para darle el caption al label de nivel saquenlo y pongan

Código:

                       If UserLvl > 50 Then
            frmMain.Nivel.Caption = 50 & " + " & UserLvl - 50
            frmMain.Nivel.ForeColor = &HFFFF&
            Else
            frmMain.Nivel.Caption = UserLvl
            End If

Ahora en el case "EST" lo mismo:

       

Código:

   If UserLvl > 50 Then
           frmMain.Nivel.Caption = 50 & " + " & UserLvl - 50
           Else
           frmMain.Nivel.Caption = UserLvl
           End If

         

Y van a tener que poner nivel maximo 60

Buscan en el servidor:

Código:

Public Const STAT_MAXELV As Byte =

y hay iría 60

Fuentes Gs Zone

Ciudades Perdidas Se acerca...

ESTE ES OTRO UN POCO MAS EXPLICADO http://www.gs-zone.org/50_10_tpao_style_tmWR.html