Lucas Roberto Administrador
Mensagens : 711
| Assunto: [ALL]Comando PlaySound no Server ~EO Dom 12 Dez 2010, 17:23 | |
| 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 - Citação :
- 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) - Citação :
- STradeStatus
em baixo,adicione - Citação :
- SPlaySound
Server acabadoClient~Procure por - Citação :
- HandleDataSub(STradeStatus) = GetAddress(AddressOf HandleTradeStatus)
em baixo,adicione - Citação :
- HandleDataSub(SPlaySound) = GetAddress(AddressOf HandlePlaySound)
no final do ModHandleData,adicione a sub - Citação :
- 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) - Citação :
- stradeStatus
em baixo,adicione - Citação :
- SPlaySound
Pronto.Agora tu pode botar vida chamando sons pelo server em algum script usando - Citação :
- PlaySound NomeDoSom.Wav
ps: O arquivo tem q ser WAVTestado e Aprovado | |
|