Universo Games
Ola , Convidado

[ALL]Comando PlaySound no Server ~EO Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 [ALL]Comando PlaySound no Server ~EO

Ir para baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[ALL]Comando PlaySound no Server ~EO Empty
MensagemAssunto: [ALL]Comando PlaySound no Server ~EO   [ALL]Comando PlaySound no Server ~EO EmptyDom 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 acabado

Client~
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 WAV



Testado e Aprovado
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
 
[ALL]Comando PlaySound no Server ~EO
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Server de Pokemon PFO V1.5 [DOWNLOAD Server + Client]
» [EEB]Comando PDL
» [ALL]Comando /SSJ ~EO
» [ALL]Comando /ssj ( transformação )
» [ALL]Comando /iventario

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Eclipse Origens :: Tutorias-
Ir para: