[EO] Vital Generator

[abhi2011]

This is a vital generator that was made using [Richy's Experience Generator for EO](http://www.touchofdeathforums.com/community/index.php?/topic/129646-eo-experience-generator/) as a base. Credits go to him for making the base and to me for doing most of the edits.

The code for the Generator can be found as an attachment. But for it to work a few source edits have to be made. Do these edits with VB6

SERVER SIDE

modTypes

Below
```
Public Options As OptionsRec

```Add this
```
Public VitalGen As GenRec

```In the same mod add anywhere
```
Public Type GenRec
Health(1 To Max_players) As Long
Mana(1 To Max_players) As Long
End Type

```In modDatabase add these anywhere
```
Public Sub LoadVitalFile(ByVal File As Byte)
Dim filename As String
Dim F As Long
Select Case File
Case 1
Call CheckVitalFile(File)
filename = App.path & "\data\health" & ".dat"
F = FreeFile
Open filename For Binary As #F
Get #F, , HealthGen.Health
Close #F
Case 2
Call CheckVitalFile(File)
filename = App.path & "\data\mana" & ".dat"
F = FreeFile
Open filename For Binary As #F
Get #F, , ManaGen.Mana
Close #F
End Select
End SubPublic Sub CheckVitalFile(ByVal File As Byte)
Select Case File
Case 1
If Not FileExist("\data\health.dat") Then
Call SaveVitalFile(File)
End If

Case 2
If Not FileExist("\data\mana.dat") Then
Call SaveVitalFile(File)
End If
End Select
End SubPublic Sub SaveVitalFile(ByVal File As Byte)
Dim filename As String
Dim F As Long
Select Case File
Case 1
filename = App.path & "\data\health" & ".dat"
F = FreeFile
Open filename For Binary As #F
Put #F, , HealthGen.Health
Close #F

Case 2
filename = App.path & "\data\mana" & ".dat"
F = FreeFile
Open filename For Binary As #F
Put #F, , ManaGen.Mana
End Select
End Sub

```In the sub
```
Private Sub LoadGameData()

```Before end sub add this
```
Call SetStatus("Loading Vitals Sheet...")
Call LoadVitalFile(1)
Call LoadVitalFile(2)

```modCombat
Replace the function
```
Function GetPlayerMaxVital(ByVal index As Long, ByVal Vital As Vitals) As Long

```With this
```
Function GetPlayerMaxVital(ByVal index As Long, ByVal Vital As Vitals) As Long
If index > MAX_PLAYERS Then Exit Function
Select Case Vital
Case HP
Select Case GetPlayerClass(index)
Case 1 ' Warrior
GetPlayerMaxVital = HealthGen.Health(GetPlayerLevel(index))
Case 2 ' Mage
GetPlayerMaxVital = HealthGen.Health(GetPlayerLevel(index))
Case Else ' Anything else - Warrior by default
GetPlayerMaxVital = HealthGen.Health(GetPlayerLevel(index))
End Select
Case MP
Select Case GetPlayerClass(index)
Case 1 ' Warrior
GetPlayerMaxVital = ManaGen.Mana(GetPlayerLevel(index))
Case 2 ' Mage
GetPlayerMaxVital = ManaGen.Mana(GetPlayerLevel(index))
Case Else ' Anything else - Warrior by default
GetPlayerMaxVital = ManaGen.Health(GetPlayerLevel(index))
End Select
End Select
End Function

```

[adisorn]

Is it can generate spells vit?

Thanks

[tslusny]

No it is making Vitals (like HP, MP) for each level

[abhi2011]

I suppose he meant does it make the MP.

[clark]

Abhi , i can't make it work on EA 3.0.17 (the one you sent me does unrecovarable dx8 error) please take a look at it :/

[abhi2011]

Yea overflow which check it out ASAP.