Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


2 participantes

    Deixando o Player Mudo

    thales12
    thales12
    Membro de Honra
    Membro de Honra


    Mensagens : 322
    Créditos : 108

    Ficha do personagem
    Nível: 1
    Experiência:
    Deixando o Player Mudo Left_bar_bleue0/0Deixando o Player Mudo Empty_bar_bleue  (0/0)
    Vida:
    Deixando o Player Mudo Left_bar_bleue30/30Deixando o Player Mudo Empty_bar_bleue  (30/30)

    Deixando o Player Mudo Empty Deixando o Player Mudo

    Mensagem por thales12 Sex Set 09, 2011 1:04 am

    no Server~Side na frmServer na aba Players crie 1 commandbutton chamado:

    Name: mnumMute
    Caption: Emudecer

    de 2 clicks e adicione:

    Código:
        Dim Name As String
        Name = frmServer.lvwInfo.SelectedItem.SubItems(3)
       
        If Not Name = "Not Playing" Then
            Call ToggleMute(FindPlayer(Name))
        End If

    dps na modDatabase procure por:

    Código:
    Public Sub LoadOptions()
       
        Options.Game_Name = GetVar(App.Path & "\data\options.ini", "OPTIONS", "Game_Name")
        Options.Port = GetVar(App.Path & "\data\options.ini", "OPTIONS", "Port")
        Options.MOTD = GetVar(App.Path & "\data\options.ini", "OPTIONS", "MOTD")
        Options.Website = GetVar(App.Path & "\data\options.ini", "OPTIONS", "Website")
       
    End Sub

    em em baixo adicione:

    Código:
    Public Sub ToggleMute(ByVal index As Long)
        ' sair out for rte9
        If index <= 0 Or index > MAX_PLAYERS Then Exit Sub

        ' alternância do jogador mudo
        If Player(index).isMuted = 1 Then
            Player(index).isMuted = 0
            ' Let them know
            PlayerMsg index, "Você foi Discilenciado e ja pode falar em global.", BrightGreen
            TextAdd GetPlayerName(index) & " Você foi Discilenciado."
        Else
            Player(index).isMuted = 1
            ' Let them know
            PlayerMsg index, "Você foi silenciado e não pode falar em global.", BrightRed
            TextAdd GetPlayerName(index) & " Você foi Silenciado."
        End If
       
        ' salvar o player
        SavePlayer index
    End Sub

    procure por:

    Código:
    Private Sub HandleBroadcastMsg(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

    em baixo de :

    Código:
    Msg = Buffer.ReadString

    adicione:

    Código:
    If Player(index).isMuted Then
            PlayerMsg index, "Você foi silenciado e não pode falar em global.", BrightRed
            Exit Sub
        End If

    procure por :

    Código:
    ' Position
     MAP As Long
        x As Byte
        y As Byte
        Dir As Byte

    em baixo adicione:

    Código:
    'mudo
    isMuted As Byte

    Explicando oq faz: Simples Ele deixa o player mudo, o impossibilitando de falar no global !

    Créditos: Thales12 pelo /tutoria/postar. e adicionar algumas coisas ...


    Última edição por thales12 em Sex Set 09, 2011 2:03 pm, editado 1 vez(es)


    _________________
    Meu fã ? Meu Amigo ? Entao Use !

    Deixando o Player Mudo Thalesfan
    Deixando o Player Mudo Mv0yg8

    Minha Sign:

    Deixando o Player Mudo Zkqt5e
    Ian
    Ian
    Ocasional
    Ocasional


    Mensagens : 216
    Créditos : 27

    Deixando o Player Mudo Empty Re: Deixando o Player Mudo

    Mensagem por Ian Sex Set 09, 2011 12:19 pm

    sistema ripado da chistal shire por favor arrume os creditos.

      Data/hora atual: Qui Mar 28, 2024 2:57 pm