[Aportes indexados] Experiencia En Combate

Function ExpEnCombate(ByVal UserIndex As Integer, ByVal VictimaIndex As Integer, UserClase As String) As Boolean
Dim rndnumber
If UserList(VictimaIndex).Stats.MinHP <= 0 Then
 
If UserClase = "Mago" Or UserClase = "Clerigo" Or _
   UserClase = "Druida" Or UserClase = "Bardo" Or _
   UserClase = "Asesino" Then
rndnumber = RandomNumber(1, 6)
If rndnumber = 1 Then
 Call AddtoVar(UserList(UserIndex).Stats.MaxHP, RandomNumber(5, 12), STAT_MAXHP)
End If
If rndnumber = 2 Then
 Call AddtoVar(UserList(UserIndex).Stats.Def, RandomNumber(1, 2), STAT_MAXDEF)
End If
If rndnumber = 3 Then
 Call AddtoVar(UserList(UserIndex).Stats.MinHIT, RandomNumber(1, 2), STAT_MAXHIT)
End If
If rndnumber = 4 Then
 Call AddtoVar(UserList(UserIndex).Stats.MaxHIT, RandomNumber(1, 2), STAT_MAXHIT)
End If
If rndnumber = 5 Then
 Call AddtoVar(UserList(UserIndex).Stats.MaxMAN, RandomNumber(5, 20), STAT_MAXMAN)
End If
If rndnumber = 6 Then
 Call AddtoVar(UserList(UserIndex).Stats.Exp, RandomNumber(500, 600), MAXEXP)
End If
End If
 
If Not UserClase = "Mago" Or UserClase = "Clerigo" Or _
   UserClase = "Druida" Or UserClase = "Bardo" Or _
   UserClase = "Asesino" Then
rndnumber = RandomNumber(1, 5)
If rndnumber = 1 Then
 Call AddtoVar(UserList(UserIndex).Stats.MaxHP, RandomNumber(5, 12), STAT_MAXHP)
End If
If rndnumber = 2 Then
 Call AddtoVar(UserList(UserIndex).Stats.Def, RandomNumber(1, 2), STAT_MAXDEF)
End If
If rndnumber = 3 Then
 Call AddtoVar(UserList(UserIndex).Stats.MinHIT, RandomNumber(1, 2), STAT_MAXHIT)
End If
If rndnumber = 4 Then
 Call AddtoVar(UserList(UserIndex).Stats.MaxHIT, RandomNumber(1, 2), STAT_MAXHIT)
End If
If rndnumber = 5 Then
 Call AddtoVar(UserList(UserIndex).Stats.MaxMAN, RandomNumber(5, 20), STAT_MAXMAN)
End If
If rndnumber = 6 Then
 Call AddtoVar(UserList(UserIndex).Stats.Exp, RandomNumber(500, 600), MAXEXP)
End If
End If
End If
End Function