[Aportes indexados] Labels de vida, mana, stamina, sed y hambre

Estado
Cerrado para nuevas respuestas.

Amraphen

Aprendiz Lvl 6
[CLIENTE] Labels de vida, mana, stamina, sed y hambre

Bueno, el objetivo de este post es darles el famoso código de los labels de vida, mana, stamina, sed y hambre que se pueden agregar en el frmMain del cliente.

Ya sé que muchos han posteado el código en diferentes posts, pero mi objetivo no es sacarles crédito, sino presentarselos en forma bien organizada, ya que nunca se creó un post para mostrar el código al público.

Bien, ahora el código.

Cliente 0.11.5

1. Agregamos los labels con el Visual Basic dentro del frmMain en los lugares que deseamos que se muestren. Luego, dejamos la propiedad caption de cada label en blanco, y a los 5 labels los llamamos:

  • lblSTA
  • lblHP
  • lblMAN
  • lblSED
  • lblHAM

2. Dentro del módulo TCP (TCP.bas), buscamos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">        <span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"EST"</span></li><li style="" class="li2"> </li></ol></div>[/vb]

Y dentro de ese case, abajo de la línea que dice:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">            UserExp = <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span>ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">10</span>, Rdata, <span style="color: #cc66cc;">44</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> </li></ol></div>[/vb]

Colocamos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">            frmMain.<span style="color: #66cc66;">lblSTA</span>.<span style="color: #66cc66;">Caption</span> = UserMinSTA & <span style="color: #ffffff;">"/"</span> & UserMaxSTA</li><li style="" class="li2">            frmMain.<span style="color: #66cc66;">lblMAN</span>.<span style="color: #66cc66;">Caption</span> = <span style="color: #b1b100;">IIf</span><span style="color: #66cc66;">(</span>UserMaxMAN > <span style="color: #cc66cc;">0</span>, UserMinMAN & <span style="color: #ffffff;">"/"</span> & UserMaxMAN, <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            frmMain.<span style="color: #66cc66;">lblHP</span>.<span style="color: #66cc66;">Caption</span> = UserMinHP & <span style="color: #ffffff;">"/"</span> & UserMaxHP</li><li style="" class="li1"> </li></ol></div>[/vb]

3. Dentro del módulo TCP (TCP.bas), buscamos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">        <span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"AS"</span></li><li style="" class="li2"> </li></ol></div>[/vb]

Y dentro de ese Case, debajo de la línea que dice:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">            <span style="color: #b1b100;">End</span> Select</li><li style="" class="li2"> </li></ol></div>[/vb]

Colocamos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">            frmMain.<span style="color: #66cc66;">lblSTA</span>.<span style="color: #66cc66;">Caption</span> = UserMinSTA & <span style="color: #ffffff;">"/"</span> & UserMaxSTA</li><li style="" class="li2">            frmMain.<span style="color: #66cc66;">lblMAN</span>.<span style="color: #66cc66;">Caption</span> = <span style="color: #b1b100;">IIf</span><span style="color: #66cc66;">(</span>UserMaxMAN > <span style="color: #cc66cc;">0</span>, UserMinMAN & <span style="color: #ffffff;">"/"</span> & UserMaxMAN, <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            frmMain.<span style="color: #66cc66;">lblHP</span>.<span style="color: #66cc66;">Caption</span> = UserMinHP & <span style="color: #ffffff;">"/"</span> & UserMaxHP</li><li style="" class="li1"> </li></ol></div>[/vb]

4. Dentro del módulo TCP (TCP.bas) buscamos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">        <span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"EHYS"</span></li><li style="" class="li2"> </li></ol></div>[/vb]

Y dentro de ese Case, antes de la línea que dice:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">            <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> </li></ol></div>[/vb]

Colocamos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">            frmMain.<span style="color: #66cc66;">lblSED</span> = UserMinAGU & <span style="color: #ffffff;">"/"</span> & UserMaxAGU</li><li style="" class="li2">            frmMain.<span style="color: #66cc66;">lblHAM</span> = UserMinHAM & <span style="color: #ffffff;">"/"</span> & UserMaxHAM</li><li style="" class="li1"> </li></ol></div>[/vb]

Y listo, así tendriamos los labels funcionando perfectamente.

Saludos!
 
Estado
Cerrado para nuevas respuestas.
Arriba