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.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

Opção Perder Experiência ao Morrer

2 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

Ir para baixo

Opção Perder Experiência ao Morrer Empty Opção Perder Experiência ao Morrer

Mensagem por RenanR Qua 17 Out 2012, 12:35

Perder experiência ao morrer por opção no Servidor.

Server~Side.

No inicio do modGeneral procure:
Código:
Public CurrentLoad As Long

De um enter e adicione:
Código:
' Opcao perder experiencia ao morrer
Public Perder As Long

No modGameLogic procure por:
Código:
' Calcular EXP retirada do jogador
            Exp = Int(GetPlayerExp(Victim) / 3)

            ' Ter certeza de não retirar menos que 0
            If Exp < 0 Then
                Exp = 0
            End If

            If Exp = 0 Then
                Call BattleMsg(Victim, "Você não perdeu experiência.", BrightRed, 0)
            Else
                Call SetPlayerExp(Victim, GetPlayerExp(Victim) - Exp)
                Call BattleMsg(Victim, "Você perdeu " & Exp & " de experiência.", BrightRed, 0)
            End If
        End If

Mude para:
Código:
' Calcular EXP retirada do jogador
            If Perder = True Then
            Exp = Int(GetPlayerExp(Victim) / 3)

            ' Ter certeza de não retirar menos que 0
            If Exp < 0 Then
                Exp = 0
            End If

            If Exp = 0 Then
                Call BattleMsg(Victim, "Você não perdeu experiência.", BrightRed, 0)
            Else
                Call SetPlayerExp(Victim, GetPlayerExp(Victim) - Exp)
                Call BattleMsg(Victim, "Você perdeu " & Exp & " de experiência.", BrightRed, 0)
            End If
        End If
        Else
        Exit Sub
        End If

Agora vá na frmServer e crie uma frame, dentro coloque 2 OptionsButtons. Deixe como na imagem:
Opção Perder Experiência ao Morrer 6cCmj

No optionbutton com caption de "Sim", nomeie(Name) de optSie e o de caption "Não" nomeie de optNio.
Dois cliques no optSie e adicione:
Código:
If optSie.Value = True Then
Perder = True
End If

Dois cliques no optNio e adicione:
Código:
If optNio.Value = True Then
Perder = False
End If

Créditos:
RenanR
RenanR
RenanR
Membro Veterano
Membro Veterano

Mensagens : 1048

Ir para o topo Ir para baixo

Opção Perder Experiência ao Morrer Empty Re: Opção Perder Experiência ao Morrer

Mensagem por newbie123 Qua 17 Out 2012, 12:53

Me desculpe mas tem um maneira mais facil de fazer isso, mas mesmo assim valeu pelo tuto +1 cred. ^^
newbie123
newbie123
Membro Vitalicio
Membro Vitalicio

Mensagens : 622

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

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