o server cai por conta desse erro que ocorre, faz tempo que mexi em eo e estou sem base por onde comloeçar, acredito não ter colocado scripts relacionado a vital

Marca a linha pra saber o erro.

GetPlayerVital = Player(Index).vital(vital)

Olá amigo!
Não me recordo ao certo em quais dos vários testes fiz no qual saiu este erro, no entanto, vamos tentar consertá-lo?

Vamos lá....

Abra o server de seu projeto, e em "ModPlayer", substitua sua "function":

Código:

Function GetPlayerVital(ByVal Index As Long, ByVal Vital As Vitals) As Long

Por esta:

Código:

Function GetPlayerVital(ByVal Index As Long, ByVal Vital As Vitals) As Long
   
    'Previne futuros erros
    If Index <= 0 Or Index > MAX_PLAYERS Or Index > Player_HighIndex Then Exit Function
    If IsPlaying(Index) = False Then Exit Function
    If Vital <= 0 Or Vital > Vitals.Vital_Count - 1 Then Exit Function
   
    GetPlayerVital = Player(Index).Vital(Vital)
   
End Function

Muito bem, isso resolve uma boa parte dos erros.
No entanto, tenha em mente uma coisa:

1- Muitas coisas que você adiciona, principalmente em alguma "rec" pode obrigar você a deletar os dados já existentes para que não haja erro de leitura dos valores ou strings.
Exemplo: Na maioria dos casos onde você mexa no tipo "PlayerRec" para excluir algo do tipo dos jogadores, você terá que refazer um jogador novo. Adicionar algo novo não se faz necessário.

Se minha "PlayerRec" for assim:

Código:

Private Type PlayerRec
    ' Account
    Login As String * ACCOUNT_LENGTH
    Password As String * NAME_LENGTH
   
    ' General
    Name As String * ACCOUNT_LENGTH
    Sex As Byte
    Class As Long
    Sprite As Long
    Level As Byte
    exp As Long
    Access As Byte
    PK As Byte

End Type

E eu adicionar no final uma nova variável para ficar assim:

Código:

Private Type PlayerRec
    ' Account
    Login As String * ACCOUNT_LENGTH
    Password As String * NAME_LENGTH
   
    ' General
    Name As String * ACCOUNT_LENGTH
    Sex As Byte
    Class As Long
    Sprite As Long
    Level As Byte
    exp As Long
    Access As Byte
    PK As Byte

    Aleatorio as Long

End Type

Não necessitará que eu modifique as contas já existentes, pois o sistema irá ler tudo normalmente.
OBS: ele vai ler o "Aleatorio" que você definiu como 0 , então você deverá indicar um valor. É como se você criasse um espaço no seu guarda roupa com um nome, ele existe lá, mas não tem nada dentro, a não ser que você coloque.