Universo Games
Ola , Convidado



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

[ALL]Mostrando quem entra e quem sai no jogo

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial [ALL]Mostrando quem entra e quem sai no jogo

Mensagem por Thales12 em Seg 11 Out 2010, 18:35

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.]
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Mostrando quem entra e quem sai no jogo

Mensagem por Lucas Roberto em Seg 11 Out 2010, 20:26

+1 CRED
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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