Convidado Convidado
| Assunto: Sistema de Reset 2.0 Sex 04 Nov 2011, 21:09 | |
| Resets - Att. Gu1lh3rm3 -|Descrição|-•Sistema de Reset Melhorado. -|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 •snool - por testar para min •MmoRpgBr - Por postar. |
|
Convidado Convidado
| Assunto: Re: Sistema de Reset 2.0 Dom 17 Nov 2013, 14:56 | |
| |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: Sistema de Reset 2.0 Seg 18 Nov 2013, 10:34 | |
| deve ter errado no Principal ou main!!! | |
|
Convidado Convidado
| Assunto: Re: Sistema de Reset 2.0 Seg 18 Nov 2013, 15:31 | |
| e ninguem nen da cred nen nada no meu topico fiz melhor e funciona. |
|
Conteúdo patrocinado
| Assunto: Re: Sistema de Reset 2.0 | |
| |
|