Lucas Roberto
Administrador
Mensagens : 711
 | Assunto: Sistema Resets (Source)  Qui 02 Fev 2017, 16:03 | |
| Ao chegar no level 1000 Seu jogador irá resetar,então voltará ao level um(1)-|Requerimentos|-
•Visual Basic
•Main.txt or Principal.txt
•Computador (LOL?)-|Tutorial|-
•Server~Side-|Inicio|-Primeiramente proucure por - Código:
-
CharInfo(20).Caption = "Index: " & Index abaixo adicione isso - Código:
-
CharInfo(21).Caption = "Resets: " & GetPlayerResets(Index) certo agora em ModDataBase proucure por - Código:
-
Player(Index).Char(i).Guildaccess = Val(GetVar(FileName, "CHAR" & i, "Guildaccess")) abaixo adicione - Código:
-
Player(Index).Char(i).Resets = Val(GetVar(FileName, "CHAR" & i, "Resets")) proucure por - Código:
-
Call PutVar(FileName, "CHAR" & i, "Guildaccess", STR(Player(Index).Char(i).Guildaccess)) abaixo adicione - Código:
-
Call PutVar(FileName, "CHAR" & i, "Resets", STR(Player(Index).Char(i).Resets)) mudando de Mod vamos para a modTypes, nela proucure por - Código:
-
PK As Byte abaixo adicione - Código:
-
Resets As Long agora proucure por - Código:
-
Sub SetPlayerY(ByVal Index As Long, _
ByVal y As Long)
Player(Index).Char(Player(Index).CharNum).y = y
End Sub logo abaixo adicione - Código:
-
Function GetPlayerResets(ByVal Index As Long) As Long
GetPlayerResets = Player(Index).Char(Player(Index).CharNum).Resets
End Function
Sub SetPlayerResets(ByVal Index As Long, _
ByVal Resets As Long)
Player(Index).Char(Player(Index).CharNum).Resets = Resets
End Sub terminamos no modTypes agora vamos para o clsCommands!!no Final da clsCommands adicione - Código:
-
Function GetPlayerResets(ByVal Index As Long) As Long
GetPlayerResets = Player(Index).Char(Player(Index).CharNum).Resets
End Function
Sub SetPlayerResets(ByVal Index As Long, _
ByVal Resets As Long)
Player(Index).Char(Player(Index).CharNum).Resets = Resets
End Sub agora para terminar na frmServer vai na aba Players proucure pela PicStats é onde fica os - Código:
-
Account:
Character:
Level:
HP:/
... abaixo do - Código:
-
Points: adicione uma label nova!
mais facil você pegar copiar a index e colar da sim e mude a Caption dela para Resets.Agora proucure por - Código:
-
Call BattleMsg(Index, "Você possui " & GetPlayerPOINTS(Index) & " pontos.", 9, 0) abaixo adicione - Código:
-
If GetPlayerLevel(index) => 1000 Then
Call PlayerMsg(index, "Você foi resetado com Sucesso!", 15)
Call SetPlayerExp(index, 1)
Call SetPlayerLevel(index, 1)
Call SetPlayerPOINTS(index, GetPlayerPoints(index) + 100)
Call SetPlayerResets(index, GetPlayerResets(index) + 1)
Call SavePlayer(index)
Call SendPOINTS(Index)
Call SendStats(Index)
End If isso faz que resete level 1000 e ao resetar você ganhara + 100 pontos extras!-|FIM|--|Observação|-
•Testado, Causo ocorra algum error Favor Avisar-me.-|Creditos|
•Gu1lh3rm3 - por fazer | |
|
Eventos
Publicações