Convidado Convidado
| Assunto: Comando de Ausente /afk Seg 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ó... |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: Comando de Ausente /afk Seg 19 Set 2011, 20:08 | |
| | |
|