Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[ALL]Mostrando quem entra e quem sai no jogo

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

Thales12


Membro
Membro
Procure por:

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

Mude toda esse Sub JoinGame(index) para

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

GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName"))
MOTD = GetVar("motd.ini", "MOTD", "Msg")

' Send a global message that he/she joined
If GetPlayerAccess(index) = 0 Then
Call GlobalMsg(GetPlayerName(index) & " Está Online", 14)
else
If GetPlayerAccess(index) = 1 Then
Call GlobalMsg(GetPlayerName(index) & " VIP Está Online", 9)
else
If GetPlayerAccess(index) = 2 Then
Call GlobalMsg(GetPlayerName(index) & " VIPFULL Está Online", 2)
else
If GetPlayerAccess(index) = 3 Then
Call GlobalMsg(GetPlayerName(index) & " MONITOR Está Online", 5)
else
If GetPlayerAccess(index) = 4 Then
Call GlobalMsg(GetPlayerName(index) & " GAME MASTER Está Online", 13)
else
If GetPlayerAccess(index) = 5 Then
Call GlobalMsg(GetPlayerName(index) & " SUB-ADMINISTRADOR Está Online", 11)
else
If GetPlayerAccess(index) > 6 Then
Call GlobalMsg(GetPlayerName(index) & " ADMINISTRADOR Está Online", 0)

End If
End If
End If
End If
End If
End If
End If

' Dar boas-vindas
Call PlayerMsg(index, "Bem-vindo(a) ao " & GameName & "!", 15)

' Send motd
If Trim(MOTD) <> "" Then
Call PlayerMsg(index, "MOTD: " & MOTD, 11)
End If
End Sub

depois procure por:

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

Mude tudo para:

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

GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName"))

' Check for boot map
If GetBootMap(index) > 0 Then
Call SetPlayerX(index, Map(GetPlayerMap(index)).BootX)
Call SetPlayerY(index, Map(GetPlayerMap(index)).BootY)
Call SetPlayerMap(index, Map(GetPlayerMap(index)).BootMap)
End If

'Send a global message that he/she left
If GetPlayerAccess(index) = 0 Then
Call GlobalMsg(GetPlayerName(index) & " saiu do " & GameName & "!", 14)
ElseIf GetPlayerAccess = 1 Then
Call GlobalMsg(GetPlayerName(index) & " VIP saiu do " & GameName & "!", 9)
ElseIf GetPlayerAccess = 2 Then
Call GlobalMsg(GetPlayerName(index) & " VIPFULL saiu do " & GameName & "!", 2)
ElseIf GetPlayerAccess = 3 Then
Call GlobalMsg(GetPlayerName(index) & " MONITOR saiu do " & GameName & "!", 5)
ElseIf GetPlayerAccess = 4 Then
Call GlobalMsg(GetPlayerName(index) & " GAME MASTER saiu do " & GameName & "!", 13)
ElseIf GetPlayerAccess = 5 Then
Call GlobalMsg(GetPlayerName(index) & " SUB-ADMINISTRADOR saiu do " & GameName & "!", 11)
ElseIf GetPlayerAccess = 6 Then
Call GlobalMsg(GetPlayerName(index) & " ADMINISTRADOR saiu do " & GameName & "!", 0)
End If
End Sub
End Sub

Creditos: GamesPower por criar o sistema
Créditos: Thales.



[Você precisa estar registrado e conectado para ver esta imagem.]

Luucas Robeerto


Fundador
Fundador
+1 CRED

http://universogamesmmo.forumeiros.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum