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  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
avatar

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
avatar

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
avatar

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
-
» Hoppi Hotel - Sistema Lucrativo - Habbo Pirata - Gratis - Eventos - Promoções - Vagas na Equipe
» Habbo Sistema Lucrativo - Sem Lag - Totalmente Novo - Wireds 100& - Cassinos - Raros Semanais
» (NOTA) Unversity Of Champions Fc (Entregue - Vaggnão)
» Novo sistema da Receita
» Tabueiro Redondo 010 - Autores de jogos

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