[Scrip]Sistema de Ausente

Myke ~ · 1 [Scrip]Sistema de Ausente 5/10/2012, 00:43

Myke ~

Membro Honorário I

Mensagens : 184
<b> T$: </b>

T$: : 4885

Idade : 27

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 Comands adicione essa Case:

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

Agora adicione na LeftGame:

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

Caso há algum erro, ou não entendeu algo poste aqui.

Crédios ~
mh1701
Yuri Ramos
Eu por Postar

1 [Scrip]Sistema de Ausente 5/10/2012, 00:43

Myke ~