Mostra quem entra e quem sabe ~ Heliojunior, espero que ajudem

por junior250374 Qui 21 Nov 2013, 15:29

Bom Ola pessoal hoje irei fazer Tutorial, quando gente entra e quando sai mostra o nome de quem saiu, bom vamos la, Vao em Server, e scripts,

E achem

Código:: Sub JoinGame(index) Dim GameName Dim MOTD

E abaixo coloque

Código:: If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & "(Free) Está Online! ", 0) Else If GetPlayerAccess(index) = 1 Then Call GlobalMsg(GetPlayerName(index) & "(Vip Normal) Está Online! ", 1) Else If GetPlayerAccess(index) = 2 Then Call GlobalMsg(GetPlayerName(index) & " (Future Vip) Está Online! ", 7) Else If GetPlayerAccess(index) = 3 Then Call GlobalMsg(GetPlayerName(index) & " (MONITOR) Está Online! ", 13) Else If GetPlayerAccess(index) = 5 Then Call GlobalMsg(GetPlayerName(index) & " (Mapper) Está Online! ", 12) Else If GetPlayerAccess(index) = 15 Then Call GlobalMsg(GetPlayerName(index) & " (ADMINISTRADOR) Está Online! ", 5) End If End If End If End If End If

Para qem sai!!

achem

Código:: Sub LeftGame(index) Dim GameName Dim n

E abaixo coloquem

Código:: If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & "(Free) Saiu! ", 0) Else If GetPlayerAccess(index) = 1 Then Call GlobalMsg(GetPlayerName(index) & "(Vip Normal) Saiu! ", 1) Else If GetPlayerAccess(index) = 2 Then Call GlobalMsg(GetPlayerName(index) & " (Future Vip) Saiu! ", 7) Else If GetPlayerAccess(index) = 4 Then Call GlobalMsg(GetPlayerName(index) & " (MONITOR) Saiu! ", 13) Else If GetPlayerAccess(index) = 5 Then Call GlobalMsg(GetPlayerName(index) & " (Mapper) Saiu! ", 12) Else If GetPlayerAccess(index) = 15 Then Call GlobalMsg(GetPlayerName(index) & " (ADMINISTRADOR) Saiu! ", 5) End If End If End If End If End If End If

Postador ~ HelioJunior

GOSTOU +1 CREDITO

por DragonicK Qui 21 Nov 2013, 15:56

Embaixo da Sub Joingame(index) adicione um "Dim tempStr"

Sub JoinGame(index)
Dim GameName
Dim MOTD

Dim tempStr

If GetPlayerAccess(index) = 0 Then tempStr = " (Free) Está Online!"

If GetPlayerAccess(index) = 1 Then tempStr = " (Vip Normal) Está Online!"

If GetPlayerAccess(index) = 2 Then tempStr = " (Future Vip) Está Online!"
If GetPlayerAccess(index) = 3 Then tempStr = " (MONITOR) Está Online!"
If GetPlayerAccess(index) = 5 Then tempStr = " (Mapper) Está Online! "
If GetPlayerAccess(index) = 15 Then tempStr = " (ADMINISTRADOR) Está Online!"

Call GlobalMsg(GetPlayerName(index) & tempStr, 0)

E pra sair a mesma coisa, adicione um "Dim tempStr" embaixo de LeftGame

Sub LeftGame(index)
Dim GameName
Dim n
Dim tempStr

If GetPlayerAccess(index) = 0 Then tempStr = " (Free) Saiu!"
If GetPlayerAccess(index) = 1 Then tempStr = " (Vip Normal) Saiu!"
If GetPlayerAccess(index) = 2 Then tempStr = " (Future Vip) Saiu!"
If GetPlayerAccess(index) = 3 Then tempStr = " (MONITOR) Saiu!"
If GetPlayerAccess(index) = 5 Then tempStr = " (Mapper) Saiu!"
If GetPlayerAccess(index) = 15 Then tempStr = " (ADMINISTRADOR) Saiu!"

Call GlobalMsg(GetPlayerName(index) & tempStr, 0)

Você está deixando Else dentro de Else ...

Mostra quem entra e quem sabe ~ Heliojunior, espero que ajudem

Mostra quem entra e quem sabe ~ Heliojunior, espero que ajudem

Re: Mostra quem entra e quem sabe ~ Heliojunior, espero que ajudem