Natal chegando,passei direto(1° vez na vida,nunca mais piso numa escola,vo raspa a cabeça(n°0) hj.To alegre ;D.Mais tarde posto um sistema vip de verdade

Server~
no ModServerTCP
lá no final adicione

Sub PlaySound(ByVal Index As Long, ByVal som As String)
'DshFox
'OhYehBeibi.Blogspot.com
'OhYehBeibi.Webs.Com
Dim Buffer As clsBuffer
Set Buffer = New clsBuffer
Buffer.WriteLong SPlaySound
Buffer.WriteString som
SendDataToMap GetPlayerMap(Index), Buffer.ToArray()

Set Buffer = Nothing
End Sub

Procure por(no modEnumerations)

STradeStatus

em baixo,adicione

SPlaySound

Server acabado

Client~
Procure por

HandleDataSub(STradeStatus) = GetAddress(AddressOf HandleTradeStatus)

em baixo,adicione

HandleDataSub(SPlaySound) = GetAddress(AddressOf HandlePlaySound)

no final do ModHandleData,adicione a sub

Private Sub HandlePlaySound(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
'DshFox
'OhYehBeibi.Blogspot.com
'OhYehBeibi.Webs.Com
Dim Buffer As clsBuffer
Dim som As String
Set Buffer = New clsBuffer
Buffer.WriteBytes Data()

som = Buffer.ReadString
Set Buffer = Nothing

Call PlaySound("" & som & "")

End Sub

procure por(ModEnumeration)

stradeStatus

em baixo,adicione

SPlaySound

Pronto.Agora tu pode botar vida chamando sons pelo server em algum script
usando

PlaySound NomeDoSom.Wav

ps: O arquivo tem q ser WAV


Testado e Aprovado