Deixando o Player Mudo Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

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

Deixando o Player Mudo

2 participantes

Ir para baixo

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
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)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

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.
Ian
Ian
Ocasional
Ocasional

Mensagens : 216
Créditos : 27

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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