Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Registrar-seRegistrar-se  Conectar-seConectar-se  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Compartilhe | 
 

 Sistema de Mudar Nome

Ir em baixo 
AutorMensagem
athos100
Iniciante
Iniciante
athos100

Mensagens : 27

MensagemAssunto: Sistema de Mudar Nome    Ter 26 Nov 2013, 20:46

Primeiramente vcs irao abrir Main.Txt em seguida procure

Code: -------------------------------------------------------------Selecionar conteúdo
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)
Abaixo pule 1 linha e coloque

Code: -------------------------------------------------------------Selecionar conteúdo
Código:
'Mudar o Nome'
If LCase(Mid(TextSay, 1, 10)) = "/mudarnome" Then
If Len(TextSay) > 11 Then
If GetPlayerAccess(index) <= 3 Then
Call PlayerMsg(index, "Você nao 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
Voltar ao Topo Ir em baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto

Mensagens : 709

MensagemAssunto: Re: Sistema de Mudar Nome    Ter 26 Nov 2013, 23:47

Obrigado Pela Colaboração +1 De Creditos

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
Voltar ao Topo Ir em baixo
http://universogamesmmo.forumeiros.com
athos100
Iniciante
Iniciante
athos100

Mensagens : 27

MensagemAssunto: Re: Sistema de Mudar Nome    Qua 27 Nov 2013, 19:17

De Nada e que quero Postar todos os sistemas que sei Smile
Voltar ao Topo Ir em baixo
Conteúdo patrocinado




MensagemAssunto: Re: Sistema de Mudar Nome    

Voltar ao Topo Ir em baixo
 
Sistema de Mudar Nome
Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Nintendo: Um único jogo poderá mudar o rumo das coisas
» Esse é o sistema de moeda e é isso?
» Joke Hotel - Atualizado - Comando Pet - Vagas - Rádio - Sistema Lucrativo

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Universo Games :: Tutoriais-
Ir para: