Universo Games
Ola , Convidado

Evoluir Automaticamente Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 Evoluir Automaticamente

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



Evoluir Automaticamente Empty
MensagemAssunto: Evoluir Automaticamente   Evoluir Automaticamente EmptySeg 13 Jun 2011, 21:41

Gente fiz um tuto assim:

Client~Side

Procurei por:

Código:
Sub SendLeaveParty()
Dim Packet As String

    Packet = "LEAVEPARTY" & END_CHAR
    Call SendData(Packet)
End Sub

E abaixo adicionei:

Código:
Sub SendAdulto()
Dim Packet As String

    Packet = "ADULTO" & END_CHAR
    Call SendData(Packet)
End Sub

Serve~Side

Procurei por:

Código:
        Case "dtrade"

E abaixo da casa adicionei:

Código:
        Case "Adulto"
        'Gohan
            If GetPlayerLevel(Index) = 6 Then
                Call SetPlayerSprite(Index, 30)
                Call SetPlayerstr(Index, GetPlayerstr(Index) + 10)
                Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 10)
                Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 20)
                Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 30)
                Call SetPlayerMP(Index, GetPlayerMP(Index) + 30)
                Call PlayerMsg(Index, "Você virou adulto!", BrightBlue)
                Call SendPlayerData(Index)
                Call SavePlayer(Index)
            End If

        'Trunks[/font]            [font=Comic Sans Ms]
            If GetPlayerLevel(Index) = 6 Then
                Call SetPlayerSprite(Index, 48)
                Call SetPlayerstr(Index, GetPlayerstr(Index) + 30)
                Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 30)
                Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 20)
                Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 10)
                Call SetPlayerMP(Index, GetPlayerMP(Index) + 10)
                Call PlayerMsg(Index, "Você virou adulto!", BrightBlue)
                Call SendPlayerData(Index)
                Call SavePlayer(Index)
            End If
        Exit Sub

E um sistema de evoluir automaticamente, mais nao pega poderiam me falar o erro?


Última edição por Ricardo XD em Ter 14 Jun 2011, 07:49, editado 1 vez(es)
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

Evoluir Automaticamente Empty
MensagemAssunto: Re: Evoluir Automaticamente   Evoluir Automaticamente EmptySeg 13 Jun 2011, 21:45

JA DECLARO "Adulto"

PARA FAZER UM CASE SEMPRE TEM QUE DECLARA ALGO NO CLIENT PARA MANDA PARA SERVER E ASSIM QUE FUNCIONA PROGRAMAÇÃO E NA BASE DE LIGAÇÕES
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



Evoluir Automaticamente Empty
MensagemAssunto: Re: Evoluir Automaticamente   Evoluir Automaticamente EmptyTer 14 Jun 2011, 07:24

A entendi, vlw lucas

Edit

Olha la, editei o topico ve agora
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

Evoluir Automaticamente Empty
MensagemAssunto: Re: Evoluir Automaticamente   Evoluir Automaticamente EmptyTer 14 Jun 2011, 15:26

bem e quase isto mais este codigo que você esta fazendo e para comando geralmente vai da nisto...
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



Evoluir Automaticamente Empty
MensagemAssunto: Re: Evoluir Automaticamente   Evoluir Automaticamente EmptyTer 14 Jun 2011, 18:16

Como assim? Daria pra você fazer um pra mim Lucas?
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

Evoluir Automaticamente Empty
MensagemAssunto: Re: Evoluir Automaticamente   Evoluir Automaticamente EmptyTer 14 Jun 2011, 20:39

Sim bom bem facil

Esse script é tipo um SSJ automático, q evolui o char automaticamente quando ele upa =]...
Procure por:
CÓDIGO:
Código:
Sub PlayerLevelUp(index)
Dim i

' Check if attacker got a level up
If GetPlayerExp(Index) >= GetPlayerNextLevel(Index) Then

Cole isso abaixo:
CÓDIGO:
Código:
If GetPlayerLevel(INDEX) = 13 Then
Call PlayerMsg(index, "Vc evoluiu (ponha o q quiser excrever nesse espaço entre aspas)", 7)
Call SetPlayerSTR(index, GetPlayerSTR(index) + 1)
Call SetPlayerDEF(index, GetPlayerDEF(index) + 1)
Call SetPlayerSprite(index, 11)
Call SendPlayerData(Index)
End If

Explicação e como mudar:

If GetPlayerLevel(INDEX) = 13 Then
Mude o 13 pelo Level necessário para evoluir, essa linha testa se o player tah no level 13^^

Call PlayerMsg(index, "Vc evoluiu (ponha o q quiser excrever nesse espaço entre aspas)", 7)
Dentro das aspas ponha o q quiser q apareça escrito.. troq o 7 pelo número da cor qvc deseja.. Essalinha chama uma mensagem

Call SetPlayerSTR(index, GetPlayerSTR(index) + 1)
Troque o 1 pela quantidade de força q o char ganha ao evoluir, Essa linha adiciona Str ao personagem

Call SetPlayerDEF(index, GetPlayerDEF(index) + 1)
Troque o 1 pela quantidade de defesa q o char ganha ao evoluir, essa linha adiciona Def ao personagem

Call SetPlayerSprite(index, 11)
Troque o 11 pelo sprite q o player terá após evoluir,essa linha troca o sprite do player

Call SendPlayerData(Index)
Essa linha "atualiza"os dados do player

End If
E essa finaliza a condição =]
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



Evoluir Automaticamente Empty
MensagemAssunto: Re: Evoluir Automaticamente   Evoluir Automaticamente EmptyQua 15 Jun 2011, 08:41

A obrigado, pode trancar o topico
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

Evoluir Automaticamente Empty
MensagemAssunto: Re: Evoluir Automaticamente   Evoluir Automaticamente EmptyQua 15 Jun 2011, 14:46

Topico Trancado e Movido
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Conteúdo patrocinado





Evoluir Automaticamente Empty
MensagemAssunto: Re: Evoluir Automaticamente   Evoluir Automaticamente Empty

Ir para o topo Ir para baixo
 
Evoluir Automaticamente
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» [ALL]Correr automaticamente por CheckBox
» Correr Automaticamente por CheckBox
» Deixar Online/Offline automaticamente
» Adicionando pontos automaticamente ao passar de level

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Duvida :: Duvidas Resolvidas-
Ir para: