En el modulo SistemaCombate al final agregamos:
Objetivo es ganar puntos de exp o vida o mana o defensa o daño al matar a un usuario
Código:
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