Universo Games
Ola , Convidado

Comando de Ausente /afk 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!

 

 Comando de Ausente /afk

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



Comando de Ausente /afk Empty
MensagemAssunto: Comando de Ausente /afk   Comando de Ausente /afk EmptySeg 19 Set 2011, 15:37

Ok Vamos la...



No Principal.txt ou Main.txt Localizado na sua pasta Server/Scripts proucure por:


Código:
Código:
If LCase(Trim(TextSay)) = "/admin" Then
        If GetPlayerAccess(index) > 0 Then
            Call PlayerMsg(index, "Comandos Sociais:", 15)
            Call PlayerMsg(index, ";mensagem = Mensagem Global", 15)
            Call PlayerMsg(index, "@mensagem = Mensagem Administrativa", 15)
            Call PlayerMsg(index, "Para mais comandos digite: /admincmd", 15)
        End If
    Exit Sub
    End If

Abaixo Add:

Código:

Código:
Select Case LCase(Trim(TextSay))   
Case "/afk"
'If GetPlayerAccess(index) >= 1 Then[/color]
[b]If GetVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then
Call GlobalMsg(GetPlayerName(index) & " está ausente.", 14)
Call PutVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1)
Call PutVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index))
Call SetPlayerName(index, GetPlayerName(index) & " (AFK)")
Call SendPlayerData(index)
Exit Sub
ElseIf GetVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then
Call SetPlayerName(index, GetVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName"))
Call GlobalMsg(GetPlayerName(index) & " retornou.", 14)
Call PutVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0)
Call SendPlayerData(index)
Exit Sub
End If
'End If

Vamos la não me do bem na explicaçao:

Citação :
Select Case LCase(Trim(TextSay))
Case "/afk"'O Comando
'If GetPlayerAccess(index) >= 1 Then 'aki quer dizer que apenas acesso 1 ou superior poderam usar.
If GetVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then 'manda para o servidor.
Call GlobalMsg(GetPlayerName(index) & " está AFK.", 14)'mensagem que aparecera quando usado o Comando
Call PutVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1)
Call PutVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index))
Call SetPlayerName(index, GetPlayerName(index) & " (AFK)")' ficara do lado do seu nome
Call SendPlayerData(index)
Exit Sub
ElseIf GetVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then
Call SetPlayerName(index, GetVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName"))
Call GlobalMsg(GetPlayerName(index) & " retornou.", 14)aki mostra q vc "Voltou" retorno
Call PutVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0)
Call SendPlayerData(index)
Exit Sub
End If
'End If



Só...What a Face
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

Comando de Ausente /afk Empty
MensagemAssunto: Re: Comando de Ausente /afk   Comando de Ausente /afk EmptySeg 19 Set 2011, 20:08

'-' 4 topico que arrumo
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
 
Comando de Ausente /afk
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» [ALL]Comando /iventario
» [EEB]Comando PDL
» [ALL]Comando Warp
» [ALL]Comando /ssj ( transformação )
» Comando /tirarpk

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