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...

[ALL]Ganhar item ao chegar em certo Level

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

Ir para baixo

[ALL]Ganhar item ao chegar em certo Level Empty [ALL]Ganhar item ao chegar em certo Level

Mensagem por Del Piero Qui 05 Abr 2012, 18:08

Primeiro de tudo, vá no final da sua "Principal.txt" ou "Main.txt" e adicione:
Código:
Sub ItemLvl(index, IdItem, LvlNess, Frase)
Dim Num
Num = FindInvSlot(Index)
    If GetPlayerLevel(index) >= LvlNess Then
      If Num > 0 Then
          Call SetPlayerInvItemNum(Index, Num, IdItem)
          Call SendInventoryUpdate(Index, Num)
          Call PlayerMsg(index, Frase, BrightGreen)
      Else
          Call PlayerMsg(index, "Seu inventario está cheio, não pode ganhar novo item!", BrightRed)
      End If
    End If
End Sub

Function FindInvSlot(Index)
    Dim i
    FindInvSlot = 0
    i = 1
    Do While i <= 24
        If GetPlayerInvItemNum(Index, i) = 0 Then
            FindInvSlot = i
            Exit Function
        End If
    i = i + 1
    loop
End Function
Obs: Edite a linha Do While i <= 24 caso o número de itens máximo do player seja diferente de 24.
Agora vá na Sub PlayerLevelUp(index) e procure:
Código:
Do While GetPlayerExp(index) => GetPlayerNextLevel(index)

Em baixo desta linha adicione:
Código:
Call ItemLvl(index, IdItem, LvlNess, Frase)

Entendendo o código: Substitua os valores IdItem, LvlNess como desejar, aonde está escrito "Frase" é a frase que aparecerá quando o player ganhar o item.

Exemplo: Call ItemLvl(index, 10, 50, "Você ganhou o item de id 10 ao chegar lvl 50!")

Se quiser por classe :
Código:
If GetPlayerClass(Index) = 1 Then  ' classe 1

Creditos : FelipeBN

e eu por simplesmente postar e editar um erro. Basketball
Del Piero
Del Piero
Membro Vitalicio
Membro Vitalicio

Mensagens : 602

http://www.exodusgames.com.br/

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