Pedido script ou Comando

por Rio Absolut Qui 15 Out 2009, 23:11

Queria 1 Script de Rank automatico

e 1 comando pra trans por foto ou por botão

por **Lendário** Sex 16 Out 2009, 09:47

ja tem aqui uma telepot por butão no forum.
procura antes de postar Mad

por Rio Absolut Sex 16 Out 2009, 11:03

+ é Transformação por Botão !

por Zeus Sex 16 Out 2009, 11:44

Também tem uma trasnformação por foto no fórum. E ao reset também tem só não sei se é automático.

por boasfesta Dom 18 Out 2009, 16:56

Tudo bem, quer que eu poste eles aqui ou em Tutoriais? Laughing

Obs:Rank vou fazer só o level, caso queira de reset voce vai ter que fazer o meu sistema de resets que uso

por Rio Absolut Seg 19 Out 2009, 21:47

passa o de reset

outra coisa trans por foto aki no forum n tem

por **Lendário** Ter 20 Out 2009, 11:39

reset tem sim Exclamation

por boasfesta Ter 20 Out 2009, 14:39

Aqui está o de Reset Automático!

Tutorial :
Definição : O player quando atinge o level maximo e sai, quando ele entra de novo e sai ele reseta.

No seu código principal.txt Localizado na pasta Script busque por :

Código:
Sub JoinGame(index) Dim GameName Dim MOTD GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") ' Dar boas-vindas Call PlayerMsg(index, "Bem-vindo(a) ao " & GameName & "!", 15) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End If End Sub

No fim adicione :

Código:
If GetPlayerLevel(index) >= 500 Then ' mude 500 pra o level que reseta Call SetPlayerLevel(index, 1) Call SetPlayerPOINTS(index, GetPlayerPoints(index) + 200) ' 200 o tanto de pontos que ganha quando reseta Call SetPlayerResets(index, GetPlayerResets(index) + 1) Call SavePlayer(index) Call SendPOINTS(Index) Call SendStats(Index) Call PlayerMsg(index, "Você resetou!", 14) End If

Pronto!, agora voce não pode dizer que não tem Exclamation

Seguinte se vai ter que fazer o comando de SetPlayerResets, então voce vai ter que fazer o tutorial de Comando de "reset"
Caso não tenha faça o tutorial assim

Tutorial :
Definição : O player quando atinge o level maximo e sai, quando ele entra de novo e sai ele reseta.

No seu código principal.txt Localizado na pasta Script busque por :

Código:
Sub JoinGame(index) Dim GameName Dim MOTD GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") ' Dar boas-vindas Call PlayerMsg(index, "Bem-vindo(a) ao " & GameName & "!", 15) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End If End Sub

No fim adicione :

Código:
If GetPlayerLevel(index) >= 500 Then ' mude 500 pra o level que reseta Call SetPlayerLevel(index, 1) Call SetPlayerPOINTS(index, GetPlayerPoints(index) + 200) ' 200 o tanto de pontos que ganha quando reseta Call SavePlayer(index) Call SendPOINTS(Index) Call SendStats(Index) Call PlayerMsg(index, "Você resetou!", 14) End If