Convidado Convidado
| Assunto: [ALL]Scripter Mudar Nome Seg 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] |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]Scripter Mudar Nome Seg 11 Out 2010, 21:22 | |
| | |
|
Convidado Convidado
| Assunto: Re: [ALL]Scripter Mudar Nome Dom 23 Set 2012, 20:20 | |
| Thales isso não vai funcionar no elysium engine tem que por umas subs aki |
|
Conteúdo patrocinado
| Assunto: Re: [ALL]Scripter Mudar Nome | |
| |
|