MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Sistema de AFK/Ausente

5 participantes

Ir para baixo

Sistema de AFK/Ausente Empty Sistema de AFK/Ausente

Mensagem por Uchiha Naruto Ter 08 Dez 2009, 18:06

Esse script serve para indicar os player AFK/Ausentes . o nome dele fika assim "NOME -=-=AUSENTE=-=-" e imposibilita de se mecher, so quando falar /voltei que pode se mecher.
aki vai os codigos:

Na Sub Commands...
Código:
Case "/ausente"
    If GetPlayerAccess(Index) > 0 Then
        Call GlobalMsg("Administrator - " & GetPlayerName(Index) & " esta Ausente", YELLOW)
    Else
        Call AdminMsg(GetPlayerName(Index) & " Esta Ausente", GREY)
    End If
    Call MapMsg(GetPlayerMap(Index), GetPlayerName(Index) & " Esta Ausente", BRIGHTBLUE)
    Call PlayerMsg(Index, "Você está AFK, digite /voltei para se tornar ativo", BRIGHTBLUE)
    Call SetPlayerName(Index, GetPlayerName(Index) & " -=-=AUSENTE=-=-")
    Call LockPlayer(Index, 1)
    Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index))
    Exit Sub
     
Case "/voltei"
    Dim Resetish
    Resetish = Split(GetPlayerName(Index))
    Call SetPlayerName(Index, Resetish(0))
    If GetPlayerAccess(Index) > 0 Then
        Call GlobalMsg("Administrator - " & GetPlayerName(Index) & " Voltou!", YELLOW)
    Else
        Call AdminMsg(GetPlayerName(Index) & " Voltou!", GREY)
    End If
    Call MapMsg(GetPlayerMap(Index), GetPlayerName(Index) & " Voltou!", BRIGHTBLUE)
    Call PlayerMsg(Index, "Você esta ativo agora!", BRIGHTBLUE)
    Call LockPlayer(Index, 0)
    Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index))
    Exit Sub

e incluí-lo na "Sub LeftGame" para salvar o nome do player antes de voltar

Código:
Dim AFKCheck
AFKCheck = Split(GetPlayerName(Index))
Call SetPlayerName(Index, AFKCheck(0))


CREDITOS:
mh1701 - Criador do Script
Yuri Ramos(Uchiha Naruto) - Tradutor e divulgador.


Testem ai e depois falem se funcionou. e feliz natal! :santa:

Sistema de AFK/Ausente Win2[By: P-]
Uchiha Naruto
Uchiha Naruto
Novato
Novato

Mensagens : 43

Ir para o topo Ir para baixo

Sistema de AFK/Ausente Empty Re: Sistema de AFK/Ausente

Mensagem por Karlos Ter 08 Dez 2009, 18:19

UP perfeito man. + 1 de cred pra vc
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

Sistema de AFK/Ausente Empty Re: Sistema de AFK/Ausente

Mensagem por Zeus Sex 11 Dez 2009, 19:57

Muito bom cara Parabéns !
Zeus
Zeus
Membro Vitalicio
Membro Vitalicio

Mensagens : 711

Ir para o topo Ir para baixo

Sistema de AFK/Ausente Empty Re: Sistema de AFK/Ausente

Mensagem por Uchiha Naruto Sáb 12 Dez 2009, 18:36

Ele tem um probleminha, se vc colocar um nome muito grande como "CachoroAbulante"
nao vai ficar o AUSENTE COMPLETO, ai se der, vc edita o maximo e letras no nome dos players.
Uchiha Naruto
Uchiha Naruto
Novato
Novato

Mensagens : 43

Ir para o topo Ir para baixo

Sistema de AFK/Ausente Empty Re: Sistema de AFK/Ausente

Mensagem por pokoloko Ter 10 Ago 2010, 16:44

Cara parabéns +1 CRED
pokoloko
pokoloko
Membro Junior
Membro Junior

Mensagens : 93

Ir para o topo Ir para baixo

Sistema de AFK/Ausente Empty Re: Sistema de AFK/Ausente

Mensagem por pedroaoshima@hotmail.com Sex 20 Ago 2010, 15:08

como que eu deixo o AUSENTE com uma corzinha?
pedroaoshima@hotmail.com
pedroaoshima@hotmail.com
Novato
Novato

Mensagens : 24

Ir para o topo Ir para baixo

Sistema de AFK/Ausente Empty Re: Sistema de AFK/Ausente

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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