[Resolvido] Me ajduem a resolve esse erro

dazateam escreveu: mostra o erro e a linha do erro --'


ñ só a linha..

guifs escreveu:ja fez ? .-. http://www.mmorpgbr.com/t11742-sistema-de-rank-funcional

RenanR escreveu:Esse erro ocorre por que você não tem um sistema de resets no VB, com a function GetPlayerResets.

RenanR escreveu:Acho que pra Eclipse Origins ainda ninguém postou um desses.
Mas é bem simples, depois eu faço um e posto aqui, oks?

Código:

Function GetPlayerResets(ByVal index As Long) As Long
If index > MAX_PLAYERS Then Exit Function
GetPlayerResets = Player(index).Resets
End Function

Sub SetPlayerResets(ByVal index As Long, ByVal Resets As Long)
Player(index).Resets = Resets
End Sub

Guardian escreveu:

 Tsc, No Server adicione isso no final do ModPlayer :

Código:

Function GetPlayerResets(ByVal index As Long) As Long
If index > MAX_PLAYERS Then Exit Function
GetPlayerResets = Player(index).Resets
End Function

Sub SetPlayerResets(ByVal index As Long, ByVal Resets As Long)
Player(index).Resets = Resets
End Sub

Após isso, procure por :

Código:

Type PlayerRec

Deve ter isso abaixo :

Código:

Level As Byte

Adicione em baixo :

Código:

Resets As Long

Após isso vai na Sub AddChar e ache :

Código:

Player(index).Level = 1

Adicione abaixo :

Código:

Player(index).Resets = 0

Após isso, procure por :

Código:

Function PlayerData

E abaixo de :

Código:

Buffer.WriteLong GetPlayerPK(index)

Adicione :

Código:

Buffer.WriteLong GetPlayerResets(index)

Agora vá para o Cliente e adicione no final do ModDatabase :

Código:

Function GetPlayerResets(ByVal Index As Long) As Long
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If Index > MAX_PLAYERS Then Exit Function
GetPlayerResets = Player(Index).Resets
' Error handler
Exit Function
errorhandler:
HandleError "GetPlayerResets", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Function
End Function

Sub SetPlayerResets(ByVal Index As Long, ByVal Resets As Long)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

If Index > MAX_PLAYERS Then Exit Sub
Player(Index).Resets = Resets

' Error handler
Exit Sub
errorhandler:
HandleError "SetPlayerResets", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Agora vá até a Sub HandlePlayerdata e ache :

Código:

Call SetPlayerPK(i, buffer.ReadLong)

E abaixo adicione :

Código:

Call SetPlayerResets(i, buffer.ReadLong)

Pronto! Agora basta fazer seu código na CheckPlayerLevelUp para quando o Player chegar em certo nível ele ganhar mais 1 reset.