Implementacion /reset by Dervet

Estado
Cerrado para nuevas respuestas.

MAB

Level 101
Código:
If UserClase = eClass.Mage Then 'Cambio en mana inicial (ToxicWaste)
    MiInt = .Stats.UserAtributos(eAtributos.Inteligencia) * 3
    .Stats.MaxMAN = MiInt
    .Stats.MinMAN = MiInt
ElseIf UserClase = eClass.Cleric Or UserClase = eClass.Druid Or UserClase = eClass.Bard Or UserClase = eClass.Assasin Then
    .Stats.MaxMAN = 50
    .Stats.MinMAN = 50
ElseIf UserClase = eClass.Bandit Then 'Mana Inicial del Bandido (ToxicWaste)
    .Stats.MaxMAN = 50
    .Stats.MinMAN = 50
Else
    .Stats.MaxMAN = 0
    .Stats.MinMAN = 0
End If

Esa es la parte donde setea el mana, fijate en lo que hiciste porque esta llegando al último else y esta seteando min y max mana a 0.
 

flashangel

Newbie Lvl 1
Código:
If UserClase = eClass.Mage Then 'Cambio en mana inicial (ToxicWaste)
    MiInt = .Stats.UserAtributos(eAtributos.Inteligencia) * 3
    .Stats.MaxMAN = MiInt
    .Stats.MinMAN = MiInt
ElseIf UserClase = eClass.Cleric Or UserClase = eClass.Druid Or UserClase = eClass.Bard Or UserClase = eClass.Assasin Then
    .Stats.MaxMAN = 50
    .Stats.MinMAN = 50
ElseIf UserClase = eClass.Bandit Then 'Mana Inicial del Bandido (ToxicWaste)
    .Stats.MaxMAN = 50
    .Stats.MinMAN = 50
Else
    .Stats.MaxMAN = 0
    .Stats.MinMAN = 0
End If

Esa es la parte donde setea el mana, fijate en lo que hiciste porque esta llegando al último else y esta seteando min y max mana a 0.

Que onda MAB todo tranqui?

Copie lo que me pasaste, y sigue empezando con cero.

Hay algo ahi que no le gusta, ya que como vos indicas no le da bolilla a los IF y pasa directo al Else.

Igual te digo, hace mucho estudie programacion hay cosas que saco por deduccion pero estoy muy lejos de entender el codigo del AO

Saludos
 

flashangel

Newbie Lvl 1
  1. Pasa el sub completo talvez no estas asignando UserClase
Código:
Public Sub HandleReset(ByVal UserIndex As Integer)
Dim UserClase As eClass
Call UserList(UserIndex).incomingData.ReadByte
With UserList(UserIndex)
  .flags.Muerto = 0
  .flags.Escondido = 0
  .Reputacion.BandidoRep = 0
  .Reputacion.NobleRep = 0
Dim i As Byte
  For i = 1 To NUMSKILLS
  .Stats.UserSkills(i) = 0
  Call CheckEluSkill(UserIndex, i, True)
  Next i
  .Stats.SkillPts = 10
  .Char.heading = eHeading.SOUTH
  Dim MiInt As Long
  MiInt = RandomNumber(1, .Stats.UserAtributos(eAtributos.Constitucion) \ 3)
  .Stats.MaxHp = 15 + MiInt
  .Stats.MinHp = 15 + MiInt
  MiInt = RandomNumber(1, .Stats.UserAtributos(eAtributos.Agilidad) \ 6)
  If MiInt = 1 Then MiInt = 2
  .Stats.MaxSta = 20 * MiInt
  .Stats.MinSta = 20 * MiInt
  .Stats.MaxAGU = 100
  .Stats.MinAGU = 100
  .Stats.MaxHam = 100
  .Stats.MinHam = 100
  Dim A As Integer
  For A = 1 To MAXUSERHECHIZOS
  .Stats.UserHechizos(A) = 0
  Next A
  If UserClase = eClass.Mage Then 'Cambio en mana inicial (ToxicWaste)
  MiInt = .Stats.UserAtributos(eAtributos.Inteligencia) * 3
  .Stats.MaxMAN = MiInt
  .Stats.MinMAN = MiInt
  ElseIf UserClase = eClass.Cleric Or UserClase = eClass.Druid _
  Or UserClase = eClass.Bard Or UserClase = eClass.Assasin Then
  .Stats.MaxMAN = 50
  .Stats.MinMAN = 50
  ElseIf UserClase = eClass.Bandit Then 'Mana Inicial del Bandido (ToxicWaste)
  .Stats.MaxMAN = 50
  .Stats.MinMAN = 50
  Else
  .Stats.MaxMAN = 0
  .Stats.MinMAN = 0
  End If
  If UserClase = eClass.Mage Or UserClase = eClass.Cleric Or _
  UserClase = eClass.Druid Or UserClase = eClass.Bard Or _
  UserClase = eClass.Assasin Then
  .Stats.UserHechizos(1) = 2
  If UserClase = eClass.Druid Then .Stats.UserHechizos(2) = 46
  End If
  .Stats.MaxHIT = 2
  .Stats.MinHIT = 1
  .Stats.Exp = 0
  .Stats.ELU = 300
  .Stats.ELV = 1
End With
Call WriteConsoleMsg(UserIndex, "Has sido reseteado.", FontTypeNames.FONTTYPE_INFO)
Call CloseSocket(UserIndex)
  End Sub
 

NicolasRz

Newbie Lvl 5
Código:
If UserClase = eClass.Mage Then 'Cambio en mana inicial (ToxicWaste)
' Arriba de esto pones UserClase = .clase
 

flashangel

Newbie Lvl 1
Código:
If UserClase = eClass.Mage Then 'Cambio en mana inicial (ToxicWaste)
' Arriba de esto pones UserClase = .clase

Impecable.

Como una linea te puede cambiar la vida. =)

Hay algunos en el foro que se la dan de bill gates y no quieren pasar el codigo con la solucion o explicarte bien las cosas por que las dan por sobreentendidas.

Muchas gracias mostro!
 

Toyz

Newbie Lvl 6
Especialista de Argentum
Ya te habían dicho en el otro post que no estabas dándole valor a UserClase.

UserClase es una variable, por lo tanto buscas en youtube/google "Cómo darle valor a una variable en vb6". Buscalo y vas a ver que vas a llegar a la misma conclusión que @NicolasRz.

Me parece bien que no pasen el código, no te costaba nada buscar eso jajaja
 

flashangel

Newbie Lvl 1
Ya te habían dicho en el otro post que no estabas dándole valor a UserClase.

UserClase es una variable, por lo tanto buscas en youtube/google "Cómo darle valor a una variable en vb6". Buscalo y vas a ver que vas a llegar a la misma conclusión que @NicolasRz.

Me parece bien que no pasen el código, no te costaba nada buscar eso jajaja

Si ya se, pero nunca use VB6, tampoco soy un programador.

Yo se que para algunos es una boludez.

Pero agradezco al chico que me ayudo.

Solucionado!

Saludos
 
Estado
Cerrado para nuevas respuestas.
Arriba