Convidado Convidado
| Assunto: [ALL]Mostrando quem entra e quem sai no jogo Seg 11 Out 2010, 19: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. [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem] |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]Mostrando quem entra e quem sai no jogo Seg 11 Out 2010, 21:26 | |
| | |
|