GS-Zone
Facebook Twitter

Volver a muestrar la experencia Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

2

Nota » 15 Mar 2011 15:47

Gs-Zone-

Dentro de los Codigos del Cliente, no muestra la experencia "1/300" del (Protocol.bas); sino me equiboco, Como lograria voler a mostrar dicha experencia del juego.
....Dentro de todo muestra el Porcentaje "33%" .
Como Correjir o una Mano, se lo agradeceria.

Aqui le dejo donde me dirije el "porcentaje". Pero en realidad nose si es tambien de la "experencia".
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. ' Handles the CreateFX message.
  3.  
  4. Private Sub HandleCreateFX()
  5. '***************************************************
  6. 'Author: Juan Martín Sotuyo Dodero (Maraxus)
  7. 'Last Modification: 05/17/06
  8. '
  9. '***************************************************
  10.     If incomingData.length < 7 Then
  11.         Err.Raise incomingData.NotEnoughDataErrCode
  12.         Exit Sub
  13.     End If
  14.    
  15.     'Remove packet ID
  16.     Call incomingData.ReadByte
  17.    
  18.     Dim CharIndex As Integer
  19.     Dim fX As Integer
  20.     Dim Loops As Integer
  21.    
  22.     CharIndex = incomingData.ReadInteger()
  23.     fX = incomingData.ReadInteger()
  24.     Loops = incomingData.ReadInteger()
  25.    
  26.     Call SetCharacterFx(CharIndex, fX, Loops)
  27. End Sub


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. ''
  3. ' Handles the UpdateUserStats message.
  4.  
  5. Private Sub HandleUpdateUserStats()
  6. '***************************************************
  7. 'Author: Juan Martín Sotuyo Dodero (Maraxus)
  8. 'Last Modification: 05/17/06
  9. '
  10. '***************************************************
  11.     If incomingData.length < 26 Then
  12.         Err.Raise incomingData.NotEnoughDataErrCode
  13.         Exit Sub
  14.     End If
  15.    
  16.     'Remove packet ID
  17.     Call incomingData.ReadByte
  18.    
  19.     UserMaxHP = incomingData.ReadInteger()
  20.     UserMinHP = incomingData.ReadInteger()
  21.     UserMaxMAN = incomingData.ReadInteger()
  22.     UserMinMAN = incomingData.ReadInteger()
  23.     UserMaxSTA = incomingData.ReadInteger()
  24.     UserMinSTA = incomingData.ReadInteger()
  25.     UserGLD = incomingData.ReadLong()
  26.     UserLvl = incomingData.ReadByte()
  27.     UserPasarNivel = incomingData.ReadLong()
  28.     UserExp = incomingData.ReadLong()
  29.    
  30.    
  31.     If UserPasarNivel > 0 Then
  32.         frmMain.lblPorcLvl.Caption = "[" & Round(CDbl(UserExp) * CDbl(100) / CDbl(UserPasarNivel), 2) & "%]"
  33.     Else
  34.         frmMain.lblPorcLvl.Caption = "[Nivel Maximo]"
  35.     End If
  36.    
  37.     frmMain.Hpshp.Width = (((UserMinHP / 100) / (UserMaxHP / 100)) * 94)
  38.    
  39.     If UserMaxMAN > 0 Then
  40.         frmMain.MANShp.Width = (((UserMinMAN + 1 / 100) / (UserMaxMAN + 1 / 100)) * 94)
  41.     Else
  42.         frmMain.MANShp.Width = 0
  43.     End If
  44.    
  45.     frmMain.STAShp.Width = (((UserMinSTA / 100) / (UserMaxSTA / 100)) * 94)
  46.  
  47.     frmMain.HpBar.Caption = UserMinHP & "/" & UserMaxHP
  48.     frmMain.ManaBar.Caption = UserMinMAN & "/" & UserMaxMAN
  49.     frmMain.StaBar.Caption = UserMinSTA & "/" & UserMaxSTA
  50.  
  51.     frmMain.GldLbl.Caption = UserGLD
  52.     frmMain.LvlLbl.Caption = UserLvl
  53.    
  54.     If UserMinHP = 0 Then
  55.         UserEstado = 1
  56.     Else
  57.         UserEstado = 0
  58.     End If
  59.    
  60.     If UserGLD >= CLng(UserLvl) * 10000 Then
  61.         'Changes color
  62.         frmMain.GldLbl.ForeColor = &HFF& 'Red
  63.     Else
  64.         'Changes color
  65.         frmMain.GldLbl.ForeColor = &HFFFF& 'Yellow
  66.     End If
  67. End Sub


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. '' Handles the WorkRequestTarget message.
  2.  
  3. Private Sub HandleWorkRequestTarget()
  4. '***************************************************
  5. 'Author: Juan Martín Sotuyo Dodero (Maraxus)
  6. 'Last Modification: 05/17/06
  7. '
  8. '***************************************************
  9.     If incomingData.length < 2 Then
  10.         Err.Raise incomingData.NotEnoughDataErrCode
  11.         Exit Sub
  12.     End If
  13.    
  14.     'Remove packet ID
  15.     Call incomingData.ReadByte
  16.    
  17.     UsingSkill = incomingData.ReadByte()
  18.  
  19.     frmMain.MousePointer = 2
  20.    
  21.     Select Case UsingSkill
  22.         Case Magia
  23.             Call AddtoRichTextBox(frmMain.RecTxt, MENSAJE_TRABAJO_MAGIA, 100, 100, 120, 0, 0)
  24.         Case Pesca
  25.             Call AddtoRichTextBox(frmMain.RecTxt, MENSAJE_TRABAJO_PESCA, 100, 100, 120, 0, 0)
  26.         Case Robar
  27.             Call AddtoRichTextBox(frmMain.RecTxt, MENSAJE_TRABAJO_ROBAR, 100, 100, 120, 0, 0)
  28.         Case Talar
  29.             Call AddtoRichTextBox(frmMain.RecTxt, MENSAJE_TRABAJO_TALAR, 100, 100, 120, 0, 0)
  30.         Case Mineria
  31.             Call AddtoRichTextBox(frmMain.RecTxt, MENSAJE_TRABAJO_MINERIA, 100, 100, 120, 0, 0)
  32.         Case FundirMetal
  33.             Call AddtoRichTextBox(frmMain.RecTxt, MENSAJE_TRABAJO_FUNDIRMETAL, 100, 100, 120, 0, 0)
  34.         Case Proyectiles
  35.             Call AddtoRichTextBox(frmMain.RecTxt, MENSAJE_TRABAJO_PROYECTILES, 100, 100, 120, 0, 0)
  36.     End Select
  37. End Sub

Imagen

Imagen

Imagen
retruns
Usuario Inmortal
39
Newbie [3]
Registrado: Años de membresía
Mensajes: 86
Aportes: 2
Premios: 1
Embajador (1)
Arriba

Nota » 16 Mar 2011 16:53

Proba creando en el frmmain un label donde quieras que se vea la experencia, con el nombre de experiencia

y cambia esto:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. ''
  3. ' Handles the UpdateUserStats message.
  4.  
  5. Private Sub HandleUpdateUserStats()
  6. '***************************************************
  7. 'Author: Juan Martín Sotuyo Dodero (Maraxus)
  8. 'Last Modification: 05/17/06
  9. '
  10. '***************************************************
  11.     If incomingData.length < 26 Then
  12.         Err.Raise incomingData.NotEnoughDataErrCode
  13.         Exit Sub
  14.     End If
  15.    
  16.     'Remove packet ID
  17.     Call incomingData.ReadByte
  18.    
  19.     UserMaxHP = incomingData.ReadInteger()
  20.     UserMinHP = incomingData.ReadInteger()
  21.     UserMaxMAN = incomingData.ReadInteger()
  22.     UserMinMAN = incomingData.ReadInteger()
  23.     UserMaxSTA = incomingData.ReadInteger()
  24.     UserMinSTA = incomingData.ReadInteger()
  25.     UserGLD = incomingData.ReadLong()
  26.     UserLvl = incomingData.ReadByte()
  27.     UserPasarNivel = incomingData.ReadLong()
  28.     UserExp = incomingData.ReadLong()
  29.    
  30.    
  31.     If UserPasarNivel > 0 Then
  32.         frmMain.lblPorcLvl.Caption = "[" & Round(CDbl(UserExp) * CDbl(100) / CDbl(UserPasarNivel), 2) & "%]"
  33.     Else
  34.         frmMain.lblPorcLvl.Caption = "[Nivel Maximo]"
  35.     End If
  36.    
  37.     frmMain.Hpshp.Width = (((UserMinHP / 100) / (UserMaxHP / 100)) * 94)
  38.    
  39.     If UserMaxMAN > 0 Then
  40.         frmMain.MANShp.Width = (((UserMinMAN + 1 / 100) / (UserMaxMAN + 1 / 100)) * 94)
  41.     Else
  42.         frmMain.MANShp.Width = 0
  43.     End If
  44.    
  45.     frmMain.STAShp.Width = (((UserMinSTA / 100) / (UserMaxSTA / 100)) * 94)
  46.  
  47.     frmMain.HpBar.Caption = UserMinHP & "/" & UserMaxHP
  48.     frmMain.ManaBar.Caption = UserMinMAN & "/" & UserMaxMAN
  49.     frmMain.StaBar.Caption = UserMinSTA & "/" & UserMaxSTA
  50.  
  51.     frmMain.GldLbl.Caption = UserGLD
  52.     frmMain.LvlLbl.Caption = UserLvl
  53.    
  54.     If UserMinHP = 0 Then
  55.         UserEstado = 1
  56.     Else
  57.         UserEstado = 0
  58.     End If
  59.    
  60.     If UserGLD >= CLng(UserLvl) * 10000 Then
  61.         'Changes color
  62.         frmMain.GldLbl.ForeColor = &HFF& 'Red
  63.     Else
  64.         'Changes color
  65.         frmMain.GldLbl.ForeColor = &HFFFF& 'Yellow
  66.     End If
  67. End Sub


Por esto:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. ''
  3. ' Handles the UpdateUserStats message.
  4.  
  5. Private Sub HandleUpdateUserStats()
  6. '***************************************************
  7. 'Author: Juan Martín Sotuyo Dodero (Maraxus)
  8. 'Last Modification: 05/17/06
  9. '
  10. '***************************************************
  11.     If incomingData.length < 26 Then
  12.         Err.Raise incomingData.NotEnoughDataErrCode
  13.         Exit Sub
  14.     End If
  15.    
  16.     'Remove packet ID
  17.     Call incomingData.ReadByte
  18.    
  19.     UserMaxHP = incomingData.ReadInteger()
  20.     UserMinHP = incomingData.ReadInteger()
  21.     UserMaxMAN = incomingData.ReadInteger()
  22.     UserMinMAN = incomingData.ReadInteger()
  23.     UserMaxSTA = incomingData.ReadInteger()
  24.     UserMinSTA = incomingData.ReadInteger()
  25.     UserGLD = incomingData.ReadLong()
  26.     UserLvl = incomingData.ReadByte()
  27.     UserPasarNivel = incomingData.ReadLong()
  28.     UserExp = incomingData.ReadLong()
  29.    
  30.     frmMain.Experiencia.Caption = "Exp: " & UserExp & "/" & UserPasarNivel
  31.  
  32.     If UserPasarNivel > 0 Then
  33.         frmMain.lblPorcLvl.Caption = "[" & Round(CDbl(UserExp) * CDbl(100) / CDbl(UserPasarNivel), 2) & "%]"
  34.     Else
  35.         frmMain.lblPorcLvl.Caption = "[Nivel Maximo]"
  36.     End If
  37.    
  38.     frmMain.Hpshp.Width = (((UserMinHP / 100) / (UserMaxHP / 100)) * 94)
  39.    
  40.     If UserMaxMAN > 0 Then
  41.         frmMain.MANShp.Width = (((UserMinMAN + 1 / 100) / (UserMaxMAN + 1 / 100)) * 94)
  42.     Else
  43.         frmMain.MANShp.Width = 0
  44.     End If
  45.    
  46.     frmMain.STAShp.Width = (((UserMinSTA / 100) / (UserMaxSTA / 100)) * 94)
  47.  
  48.     frmMain.HpBar.Caption = UserMinHP & "/" & UserMaxHP
  49.     frmMain.ManaBar.Caption = UserMinMAN & "/" & UserMaxMAN
  50.     frmMain.StaBar.Caption = UserMinSTA & "/" & UserMaxSTA
  51.  
  52.     frmMain.GldLbl.Caption = UserGLD
  53.     frmMain.LvlLbl.Caption = UserLvl
  54.    
  55.     If UserMinHP = 0 Then
  56.         UserEstado = 1
  57.     Else
  58.         UserEstado = 0
  59.     End If
  60.    
  61.     If UserGLD >= CLng(UserLvl) * 10000 Then
  62.         'Changes color
  63.         frmMain.GldLbl.ForeColor = &HFF& 'Red
  64.     Else
  65.         'Changes color
  66.         frmMain.GldLbl.ForeColor = &HFFFF& 'Yellow
  67.     End If
  68. End Sub

PointMe. ¿Serás el más votado?
Imagen


Publica tu ao en Ranking AO!
Imagen

© PointMe y Ranking AO by Dex Systems

Seguinos en Facebook: https://www.facebook.com/RankingAo

Cliente y servidor Dx7/Dx8 Optimizados
Midraks
Programming my world
670
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires > Lanus Oeste
Mensajes: 3357
Aportes: 48
Premios: 2
Embajador (2)
Arriba

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados