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!


Participe do fórum, é rápido e fácil

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!
Makers Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Makers Brasil

Suport, Ajuda e Downloads para Futuros Maker's de servidores online 2D e 3D


Mostrando quem entra e quem sai

2 participantes

Makers Brasil :: Engines MmoRpgs 2D :: Elysium Diamond :: Tutoriais

Ir para baixo

Mostrando quem entra e quem sai Empty Mostrando quem entra e quem sai

Mensagem por thales12 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
thales12
thales12
Moderador
Moderador

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

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Mostrando quem entra e quem sai Empty Re: Mostrando quem entra e quem sai

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

mt bom + 1 cred ..
Uchiha
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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

Makers Brasil :: Engines MmoRpgs 2D :: Elysium Diamond :: Tutoriais

 
Permissões neste sub-fórum
Não podes responder a tópicos