Universo Games
Ola , Convidado

[ALL]Scripter Mudar Nome Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 [ALL]Scripter Mudar Nome

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



[ALL]Scripter Mudar Nome Empty
MensagemAssunto: [ALL]Scripter Mudar Nome   [ALL]Scripter Mudar Nome EmptySeg 11 Out 2010, 19: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.

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[ALL]Scripter Mudar Nome Empty
MensagemAssunto: Re: [ALL]Scripter Mudar Nome   [ALL]Scripter Mudar Nome EmptySeg 11 Out 2010, 21:22

+1 DE CRED
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



[ALL]Scripter Mudar Nome Empty
MensagemAssunto: Re: [ALL]Scripter Mudar Nome   [ALL]Scripter Mudar Nome EmptyDom 23 Set 2012, 20:20

Thales isso não vai funcionar no elysium engine tem que por umas subs aki
Ir para o topo Ir para baixo
Conteúdo patrocinado





[ALL]Scripter Mudar Nome Empty
MensagemAssunto: Re: [ALL]Scripter Mudar Nome   [ALL]Scripter Mudar Nome Empty

Ir para o topo Ir para baixo
 
[ALL]Scripter Mudar Nome
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» [ALL]Scripter Tirando pk
» [ALL]Mudar Senha
» Mudar ip interno
» Baiak Yourots
» [pedido] Mudar cor do nome do NPC

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Tutoriais-
Ir para: