MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[Ajuda] Sistema de lvl max 1000.

5 participantes

Ir para baixo

[Ajuda] Sistema de lvl max 1000. Empty [Ajuda] Sistema de lvl max 1000.

Mensagem por aleqdias Seg 11 Fev 2013, 10:08

Estou colocando o sistema.. funciona normalmente, mas quando alcança o lvl 1000 e ataco algum npc, da erro e fecha, pois o lvl 1000 não está como nivel maximo na experiencia e ao matar um npc, a exp tenta subir e não pode Mad
como fixo isto ? [ajuda = +1 ]

Codigo usado nesse sistema.

Código:

1) Abra o Client-Side, vá no modConstants, e procure por:

Public Const MAX_LEVELS As Long = 100

2) Mude para:

Public Const MAX_LEVELS As Long = 1000

3) No modTypes, procure por:

Private Type PlayerRec

vá em

Level As Byte

Muda para

Level as long


Parte do Client-Side Terminada, compile.


5) Abra o Server-Side, vá no modConstants, e procure por:

Public Const MAX_LEVELS As Long = 100

mude para :

Public Const MAX_LEVELS As Long= 1000

7) No modTypes, procure por:

Private Type PlayerRec


vai em


Level As Byte


Mude para



Level As Long



depois, modificar essa sub para pegar troque o 50 dali de baixo por 6 e o
12 por 6 ai sim vai para 1000 senao da erro ou nao passa de 255


Function GetPlayerNextLevel(ByVal Index As Long) As Long
GetPlayerNextLevel = (50 / 3) * ((GetPlayerLevel(index) + 1) ^ 3 - (6 *
(GetPlayerLevel(index) + 1) ^ 2) + 17 * (GetPlayerLevel(index) + 1) -
12)
End Function

Quem poder dar uma força ai agradeço Smile,
e para quem quiser usar.. codigo disponivel pegando, apenas falta fixar este pequeno bug Smile .
e quem poder disponibilizar sistemas de naruto
, para ajudar em meu projeto, agradeço.
e terá creditos por isso Smile .
aleqdias
aleqdias
Novato
Novato

Mensagens : 26

http://www.loveanimes.com.br

Ir para o topo Ir para baixo

[Ajuda] Sistema de lvl max 1000. Empty Re: [Ajuda] Sistema de lvl max 1000.

Mensagem por Bluezac Seg 11 Fev 2013, 10:22

COloca 12 no 50 tambem e ve rse resolve nao lenbro mais o que fiz mais vo pesquisar aqui o mais rapido possivel coloco aqui pra vc isso se oura pessoa nao te ajuda primeiro mais substitui o 50 por 12
Bluezac
Bluezac
Membro
Membro

Mensagens : 120

Ir para o topo Ir para baixo

[Ajuda] Sistema de lvl max 1000. Empty Re: [Ajuda] Sistema de lvl max 1000.

Mensagem por aleqdias Seg 11 Fev 2013, 10:43

Bluezac escreveu:COloca 12 no 50 tambem e ve rse resolve nao lenbro mais o que fiz mais vo pesquisar aqui o mais rapido possivel coloco aqui pra vc isso se oura pessoa nao te ajuda primeiro mais substitui o 50 por 12


Vou testar aqui, espero que de certo ! Very Happy,
mesmo assim brigadão ai Zac !
aleqdias
aleqdias
Novato
Novato

Mensagens : 26

http://www.loveanimes.com.br

Ir para o topo Ir para baixo

[Ajuda] Sistema de lvl max 1000. Empty Re: [Ajuda] Sistema de lvl max 1000.

Mensagem por pabloluiz123 Qua 11 Set 2013, 22:43

Eu consigo fazer tudo .. mas quando eu abro o cliente digito login e senha da erro run time 9 :subscript out of range ... alguém ajuda ??
pabloluiz123
pabloluiz123
Membro Junior
Membro Junior

Mensagens : 59

Ir para o topo Ir para baixo

[Ajuda] Sistema de lvl max 1000. Empty Re: [Ajuda] Sistema de lvl max 1000.

Mensagem por Junior- Qui 12 Set 2013, 04:58

O char pode ganhar exp mesmo já tendo alcançado o level máximo. Isso pode fazer com que a variável estoure.

Vá no servidor e altere a sub SetPlayerExp por este:

Code: -------------------------------------------------------------Selecionar conteúdo
Código:
Sub SetPlayerExp(ByVal index As Long, ByVal exp As Long)
    If GetPlayerLevel(index) = MAX_LEVELS And Player(index).exp >= GetPlayerNextLevel(index) Then
        Player(index).exp = GetPlayerNextLevel(index)
        Exit Sub
    End If
    
    Player(index).exp = exp
End Sub
Códigos desnecessários removidos

Créditos: 
Dragonick
Raphael C
Tutorial Antigo
Junior-
Junior-
Membro Sênior
Membro Sênior

Mensagens : 271

Ir para o topo Ir para baixo

[Ajuda] Sistema de lvl max 1000. Empty Re: [Ajuda] Sistema de lvl max 1000.

Mensagem por dazateam Qui 12 Set 2013, 07:12

pabloluiz123 escreveu:Eu consigo fazer tudo .. mas quando eu abro o cliente digito login e senha da erro run time 9 :subscript out of range ... alguém ajuda ??
vc tem que excluir as contas para dar certo Smile




acho q já pd fecha o tópico, pq a solução era arruma o "Bug da exp"
q tah rellacionado ao lv maximo, ou seja, com esse "bug corigido" o player ñ tem mais um numero exato de xp pra upa então ele fica ganhando sempre, e o Junior~ já passo a coreção


mas eu acho melhor vc (Junior~) passar o codigo inteiro Wink
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

[Ajuda] Sistema de lvl max 1000. Empty Re: [Ajuda] Sistema de lvl max 1000.

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos