[ALL] Sistema de Reset 2.0

por Gu1lh3rm3 Qua 30 Mar 2011, 02:32

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

por Ricardo Qua 30 Mar 2011, 07:24

Não sei pq ainda invento sistema de resets

por Gu1lh3rm3 Qua 30 Mar 2011, 07:59

na verdade esta melhorado esse...

por Ricardo Qua 30 Mar 2011, 08:27

Não e isso tipo isso e so pra dbz ne? Dbz com reset nao e dbz se ja viu no anime alguem reseta?

por -Kira Qua 30 Mar 2011, 11:33

Sim, o goku, umas 3 vezes acho '-'

por snool Qua 30 Mar 2011, 12:40

Legal eu testei tá funcionand Very Happy

por Gu1lh3rm3 Qua 30 Mar 2011, 13:01

kkkkk, snool viro cobaia meu U_U

por snool Qua 30 Mar 2011, 13:03

putz , virei msm '--------------------'

por hbo123 Qui 31 Mar 2011, 22:09

Isso é ranking in-game?

por Gu1lh3rm3 Sex 01 Abr 2011, 11:52

kkkkkkkkkkk... sabe ler nao?

por caiden Sáb 02 Abr 2011, 23:02

Uma coisa n intendi dps q vc fala

adicione uma label nova!
mais facil você pegar copiar a index e colar da sim e mude a Caption dela para Resets.

agora procure

q lugar q eu procuro?

por Convidad Dom 03 Abr 2011, 18:00

Pra mim so teve o Problema do SendPoints na hora de resetar x.x, mais vou tirar o Ganhar pontos e pronto =D

por FilipeJF Dom 03 Abr 2011, 19:30

Tantos sistemas de Reset... Bom, testado e aprovado.

por Gu1lh3rm3 Seg 04 Abr 2011, 22:34

caiden escreveu:Uma coisa n intendi dps q vc fala

adicione uma label nova!
mais facil você pegar copiar a index e colar da sim e mude a Caption dela para Resets.

agora procure

q lugar q eu procuro?

bom depois de ter feito aquilo ali de cima na aba do Player la... você pega proucure pela coisa que esta pedindo no Ctrl + F

por Ricardo Ter 05 Abr 2011, 07:39

Ainda nao entendo pq eles ainda inventam sistema de reset

por Dr.Manhattan Ter 05 Abr 2011, 08:05

O jogo de cada um eles colocam o que quizer ricardo...

por Ricardo Ter 05 Abr 2011, 08:12

E eu sei mais olha vamos fazer uma conta aqui:
Jogo com reset+sistema de pdl (aquele que ai fica sem for def agi e int) = a jogo noob

por Dr.Manhattan Ter 05 Abr 2011, 08:15

ai é verdade, eu n so fã de resets, mas, se for bem feito, pode ser que tenha.
Que nem mu online nas versões piratas, mano reset foi um sacanagem FU@#Da que eles inventaram, mas fico tão bom, que o pessoal acostumou

por Ricardo Ter 05 Abr 2011, 08:25

Olha, aqui no meu dbz, acho que vai ter um sistema de reset, quando completa tudo, digamos zerar o jogo, vc podera fazer a quest reset, que resetara vc e ai vc vai ter novas missoes e novas armas liberadas

por super2000 Sex 20 maio 2011, 11:26

Onde é pra eu procurar:
CharInfo(20).Caption = "Index: " & Index

por PlayerBeer Sáb 14 Jul 2012, 20:25

Malz , eu fiz busca e nem vi a data , nao da pra excluir ?? =/

por Incrivel508 Sáb 14 Jul 2012, 20:32

Parabéns vc reviveu um tópico -_- Neutral

por 60 Sáb 14 Jul 2012, 23:44

onde coloco a label '-'

por OIOI Ter 17 Jul 2012, 16:58

tipo quando eu reseto meu hp volta pra o que era no lvl 1 ao inves de ir evoluindo. tipo eu tenho 100 de hp no lvl 1 eu reseto com 1000 de hp e quando reseta o hp volta pra 100 (que raiva) aaa