Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Sistema de Reset 2.0

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Sistema de Reset 2.0 em Sex 04 Nov 2011, 20:09

Ricardo


Membro
Membro

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.

2Tutorial Re: Sistema de Reset 2.0 em Dom 17 Nov 2013, 12:56

~Stroner


Membro
Membro
cara aki n funfo '-'

3Tutorial Re: Sistema de Reset 2.0 em Seg 18 Nov 2013, 08:34

Luucas Robeerto


Fundador
Fundador
deve ter errado no Principal ou main!!!


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

4Tutorial Re: Sistema de Reset 2.0 em Seg 18 Nov 2013, 13:31

athos100


Membro
Membro
e ninguem nen da cred nen nada no meu topico fiz melhor e funciona.

5Tutorial Re: Sistema de Reset 2.0 Hoje à(s) 08:37

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum