Comando PlaySound no Server ~EO

por DshFox Sex 03 Dez 2010, 12:26

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

por Ian Ter 28 Dez 2010, 19:03

muito Bom Esse Tutorial
Seria legal si tivese como adpatar pra tipo quando atacar ele uzar determinado Som si tiver como posta ae ^^

Comando PlaySound no Server ~EO

Comando PlaySound no Server ~EO

Re: Comando PlaySound no Server ~EO