Pocion de energia

buscan



Case 6 ' Pocion Negra
If UserList(UserIndex).flags.Privilegios = PlayerType.User Then
Call QuitarUserInvItem(UserIndex, Slot, 1)
Call UserDie(UserIndex)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Sientes un gran mareo y pierdes el conocimiento." & FONTTYPE_FIGHT)
End If



Y abajo ponen



Case 7 ' Poción de Energia, cura energia.
UserList(UserIndex).Stats.MinSta = UserList(UserIndex).Stats.MinSta + Porcentaje(UserList(UserIndex).Stats.MaxSta, 5)
If UserList(UserIndex).Stats.MinSta > UserList(UserIndex).Stats.MaxSta Then _
UserList(UserIndex).Stats.MinSta = UserList(UserIndex).Stats.MaxSta
End If



Bueno, seria asi la funcion: toman la pocion y les suma energia
En el dat de la pocion tienen que poner si o si

TipoPocion=7