Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!

Mostrando quem entra e quem sai

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

Mostrando quem entra e quem sai

Mensagem por thales12 em Dom Jul 03, 2011 5:17 pm

Abra seu Principal.txt ou main.txt e 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
Call PlayerWarp (index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index),False) 
End Sub

Sub LeftGame(index)
Dim GameName
Dim n

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

 ' Send a global message that he/she left
        If GetPlayerAccess(index) = 0 Then
    Call GlobalMsg(GetPlayerName(index) & "  Está Offline! ", 14)
    Else
    If GetPlayerAccess(index) = 1 Then
    Call GlobalMsg(GetPlayerName(index) & " VIP Está Offline", 9)
    Else 
    If GetPlayerAccess(index) = 2 Then
    Call GlobalMsg(GetPlayerName(index) & " VIP FULL Elite Está Offline! ", 10)
    Else   
    If GetPlayerAccess(index) = 3 Then
    Call GlobalMsg(GetPlayerName(index) & " MONITOR Está Offline! ", 2)
    Else
    If GetPlayerAccess(index) = 4 Then
    Call GlobalMsg(GetPlayerName(index) & " Mapper Está Offline! ", 12) 
    Else
    If GetPlayerAccess(index) = 5 Then
    Call GlobalMsg(GetPlayerName(index) & " Game Master Está Offline! ", 13)   
    Else 
    If GetPlayerAccess(index) => 6 Then
    Call GlobalMsg(GetPlayerName(index) & " (Administrador) Está Offline! ", 0) 
    End If         
    End If 
    End If 
    End If       
    End If
    End If
    End If                             
    Call PlayerWarp (index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index),False)

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

ate a proxima gente ! Smile
avatar
thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 22
Localização : Rio de Janeiro

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Re: Mostrando quem entra e quem sai

Mensagem por Uchiha em Ter Jul 05, 2011 7:55 pm

mt bom + 1 cred ..
avatar
Uchiha
Estagiário
Estagiário

Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba

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