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.

Alguem pode me dar um script "reset automatico" ja feito ?

3 participantes

Ir para baixo

Alguem pode me dar um script "reset automatico" ja feito ? Empty Alguem pode me dar um script "reset automatico" ja feito ?

Mensagem por pedrex Dom 06 maio 2012, 13:57

Alguem pode me dar um script "reset automatico" ja feito ?
Dou cred , por favor arranja naum consigo fazer da erro Sad
pedrex
pedrex
Novato
Novato

Mensagens : 44

Ir para o topo Ir para baixo

Alguem pode me dar um script "reset automatico" ja feito ? Empty Re: Alguem pode me dar um script "reset automatico" ja feito ?

Mensagem por Cris~ Dom 06 maio 2012, 14:02

abra o server vá em Main.txt...
para proucurar algo eh soh apertar CTRL + F ...
proucure por

Código:
Sub PlayerLevelUp(index)
Dim I   
Dim D
Dim C

nessa SUB proucure por ...

Código:
If C > 1 Then
        'Call GlobalMsg(GetPlayerName(index) & " subiu " & C & " levels!", 10)
    Else
        'Call GlobalMsg(GetPlayerName(index) & " subiu um level!", 10)     
    End If   
    Call BattleMsg(index, "Você tem " & GetPlayerPOINTS(index) & " pontos para adicionar.", 9, 0)
End Sub

entre o

Código:
Call BattleMsg(index, "Você tem " & GetPlayerPOINTS(index) & " pontos para adicionar.", 9, 0)

e o

Código:
End Sub

coloque o

Código:
If GetPlayerLevel(index) => 500 Then
    Call PlayerMsg(index, "Você resetou com sucesso!", 15)
    Call SetPlayerExp(index, 1) 
      Call SetPlayerLevel(index, 1)
    Call SetPlayerPOINTS(index, GetPlayerPoints(index) + 200)
    Call SetPlayerResets(index, GetPlayerResets(index) + 1)
    Call SavePlayer(index)
          Call SendPOINTS(Index)
          Call SendStats(Index)
    End If

Explicando ...

>>>If GetPlayerLevel(index) => 500 Then ... mudo o 500 para o numero q o player reseta ...
>>>Call PlayerMsg(index, "Você resetou com sucesso!", 15) ... a mensagen que falara quando vc reseta ...
>>>Call SetPlayerExp(index, 1) ... deixe esse desse geito ...
>>>Call SetPlayerLevel(index, 1) ... para o level q o player vai volta depois que resetou ...
>>>Call SetPlayerPOINTS(index, GetPlayerPoints(index) + 200) ... o pontos que o player vai ganhar depois de reseta mude o 200 para o numero de pontos se voces quiser ...
>>>Call SetPlayerResets(index, GetPlayerResets(index) + 1) ... esse n mecha tambem ...
>>>Call SavePlayer(index) ... salva o player ...
>>>Call SendPOINTS(Index) ... serve para os pontos
>>>Call SendStats(Index) ... serve para os Status
>>>End If ... fim de SUB "não mecha"
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

Alguem pode me dar um script "reset automatico" ja feito ? Empty Re: Alguem pode me dar um script "reset automatico" ja feito ?

Mensagem por Lucas Roberto Qua 09 maio 2012, 20:54

Cris~ muito bom +1 de credito

Topico Trancado e movido para Suporte e pedidos resolvidos
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

Alguem pode me dar um script "reset automatico" ja feito ? Empty Re: Alguem pode me dar um script "reset automatico" ja feito ?

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