Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

[ALL]Scripter Mudar Nome

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial [ALL]Scripter Mudar Nome

Mensagem por Thales12 em Seg 11 Out 2010, 18:43

Procure no Principal ou Main:

Código:
Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

e adicione no lugar q achar melhor :


Código:
If LCase(Mid(TextSay, 1, 10)) = "/mudarnome" Then
If Len(TextSay) > 11 Then
If GetPlayerAccess(index) < 1 Then
Call PlayerMsg(index, "Você não tem acesso o suficiente 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, "Please type a name.", 15)
End If
End If
Exit Sub
End If


OBS:
Código:
If GetPlayerAccess(index) < 1 Then
é o acesso q precisa para poder usar o comando.

Créditos: GamesPower.
Créditos: Thales.

[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Scripter Mudar Nome

Mensagem por Lucas Roberto em Seg 11 Out 2010, 20:22

+1 DE CRED
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Scripter Mudar Nome

Mensagem por -=(У$trØy£r$)=- em Dom 23 Set 2012, 19:20

Thales isso não vai funcionar no elysium engine tem que por umas subs aki
avatar
-=(У$trØy£r$)=-

Mensagens : 8

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Scripter Mudar Nome

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum