Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.
Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.

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

 » Visual Basic 6.0 » Elysium engine » Tutoriais » Source » [SCRIPT] Mudar o nome por comando.

[SCRIPT] Mudar o nome por comando.

2 participantes

Ir para baixo  Mensagem [Página 1 de 1]

1[SCRIPT] Mudar o nome por comando. Empty [SCRIPT] Mudar o nome por comando. Dom Fev 19, 2012 10:09 pm

AtlaS

AtlaS
Iniciante
Iniciante

Procure no Principal ou Main:

Código:
Sub Commands(index)On Error Resume NextDim PortalDim mapnumDim xDim yDim iDim TextSayDim nDim mDim 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" ThenIf Len(TextSay) > 11 ThenIf GetPlayerAccess(index) < 1 ThenCall PlayerMsg(index, "Você não tem acesso o suficiente para usar este comando!!", 4)Exit SubEnd Ifn = Mid(TextSay, 11, Len(TextSay) - 10)If n <> "" ThenCall SetPlayerName(index, n)Call PlayerMsg(index, "Nome alterado para:" & n, 0)Call SendPlayerData(index)Call SendOnlineListElseCall PlayerMsg(index, "Please type a name.", 15)End IfEnd IfExit SubEnd If

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

Créditos: GamesPower.
Créditos: Thales12.

2[SCRIPT] Mudar o nome por comando. Empty Re: [SCRIPT] Mudar o nome por comando. Ter Fev 21, 2012 1:14 pm

wyvern670

wyvern670
Iniciante
Iniciante

Bons scripts! pena que nao tem pra EO :/

Ir para o topo  Mensagem [Página 1 de 1]

 » Visual Basic 6.0 » Elysium engine » Tutoriais » Source » [SCRIPT] Mudar o nome por comando.

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