Templo RPG Maker
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

1[Script] Mudar Nome Empty [Script] Mudar Nome 2/10/2012, 03:30

Myke ~

Myke ~
Membro Honorário I
Membro Honorário I
Vá até, Servidor -> Script -> Principal.txt.

Procure Por:

Código:
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

De 2 Enter e Adicione:

Código:
'Mudar o Nome'
If LCase(Mid(TextSay, 1, 10)) = "/mudarnome" Then
If Len(TextSay) > 11 Then
If GetPlayerAccess(index) < 5 Then
Call PlayerMsg(index, "Você Não Tem Acesso Para Usar Este Comando", 4)
Exit Sub
End If 

n = Mid(TextSay, 11, Len(TextSay) - 10)
If n <> "" Then
Call SetPlayerName(index, n)
Call PlayerMsg(index, "Nome Alterado Para:" & n, 0)
Call SendPlayerData(index)
Call SendOnlineList
Else
Call PlayerMsg(index, "Por favor, Digite Um Nome.", 15)
End If
End If
Exit Sub
End If

Explicando:

Código:
If LCase(Mid(TextSay, 1, 10)) = "/mudarnome" Then
é o comando para trocar o nome

Código:
If GetPlayerAccess(index) < 5 Then
Pega o Acesso em que Player precisa para usar o Comando!

Créditos ~
Eu por Postar
mmorpgbr por disponibilizar

Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

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