Arena RPG Maker
Olá, visitante!
Seja bem-vindo ao fórum Arena RPG Maker, caso queira aprender sobre criação de jogos, está no fórum certo. Esperamos que possa aprender tanto quanto possa nos ensinar aqui.

Atenciosamente,
Equipe Arena RPG Maker.
Arena RPG Maker

Estamos de volta o/ ... Ou não.Eu amo a -Dark
Doações para o fórum abertas, clique aqui e saiba mais.
Últimos assuntos
» Pokémon Genesis Online! (PGO)
Qua 05 Jul 2017, 17:08 por Lexar

» Tileset Converter to MV
Sex 12 Maio 2017, 13:07 por Douggi

» [Dúvida] Como tirar a porcentagem de esquiva
Ter 09 Maio 2017, 22:15 por Neil Flame Runner

» Pack Resources, Sprites e etc
Qua 23 Dez 2015, 09:30 por raydengv

» Download RPG Maker 2003 + RTP em português
Ter 22 Dez 2015, 08:14 por ::KimMax::

» Fantasy Art Online
Dom 18 Out 2015, 16:42 por daviih123

» Você vai ter medo do Nerve gear?
Sab 25 Jul 2015, 16:02 por Kirito-kun

» O Barato é louco
Sab 27 Jun 2015, 15:26 por Halt

» Download RPG Maker 2000 + RTP em português
Qui 21 Maio 2015, 19:28 por Wismael

» Divulgando meu grupo e página do Facebook
Ter 19 Maio 2015, 13:06 por Halt


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Deixando o player mudo em Seg 14 Jan 2013, 10:04

Halt

avatar
Administrador
Administrador
thales12 escreveu: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 ...


__________________________________________
[Você precisa estar registrado e conectado para ver este link.]
Ei Convidado, sim você mesmo! Ajude o fórum à crescer postando coisas úteis, dê sugestões para melhorar-mos e divulgue o fórum.

Step inside, see the devil in I.

Gifts-
[Você precisa estar registrado e conectado para ver este link.] - [Você precisa estar registrado e conectado para ver este link.] - [Você precisa estar registrado e conectado para ver este link.] - [Você precisa estar registrado e conectado para ver este link.] - [Você precisa estar registrado e conectado para ver este link.]

Zerei a internet
Ver perfil do usuário http://arenarpgmaker.eclipserpg.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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