[DW] Dream World v0.1.0

goldslash escreveu:Já fiz, mas não resolveu aq...

Tem certos erros cara...

* Erros de library OCX
* Erros de quest

Ricardo escreveu:

goldslash escreveu:Já fiz, mas não resolveu aq...

Tem certos erros cara...

* Erros de library OCX
* Erros de quest

Realmente não tem nenhum erro na quest, os que tinha eu arrumei nessa versão, agora, por favor, se têm inveja do meu trabalho não me venha criticar porque você não faz melhor

Ricardo escreveu:
Realmente não tem nenhum erro na quest, os que tinha eu arrumei nessa versão, agora, por favor, se têm inveja do meu trabalho não me venha criticar porque você não faz melhor

goldslash escreveu:

Ricardo escreveu:
Realmente não tem nenhum erro na quest, os que tinha eu arrumei nessa versão, agora, por favor, se têm inveja do meu trabalho não me venha criticar porque você não faz melhor

Aonde inveja cara, tem alguns erros.

O que é isso então, defina:

Ricardo escreveu:É só baixar o VB Service pack 6: http://www.microsoft.com/en-us/download/details.aspx?id=5721

lipinhomix escreveu:Se der ainda poe o sistema de chat desenhado na tela pq eu não consegui por nesse engine!

gagabenito escreveu:quem diria em ...

Naron fazendo uma engine ótima dessas... tem gente que a uns anos atrás nunca iriam acreditar nisso!

vi os códigos e estão bem arrumadinhos das versões anteriores gostei...

Código:

Imports Microsoft.DirectX.AudioVideoPlayback
Imports Microsoft.DirectX.DirectSound

Module modSound
    ' Using for playing and stop musics
    Public SoundBuffer(Sound.Sound_Count - 1) As SecondaryBuffer
    Public DirectMusic As Audio

    ' Using for the loading of sound
    Public SoundDesc As BufferDescription
    Public DirectDevice As Device

    ' The current music currently loaded
    Public CurrentMusic As Byte

    Public Sub Init_Music()
        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler

        ' Create the directSound device (with the default device)
        DirectDevice = New Device
        DirectDevice.SetCooperativeLevel(frmMain.Handle, CooperativeLevel.Priority)

        ' Set up the buffer description for later use
        SoundDesc = New BufferDescription()
        SoundDesc.Flags = BufferDescriptionFlags.ControlPan Or BufferDescriptionFlags.ControlVolume

        ' Error handler
        Exit Sub
errorhandler:
        HandleError("Init_Music", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext)
        Err.Clear()
        Exit Sub
    End Sub

    Public Sub Play_Sound(ByVal WaveNum As Byte)
        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler

        ' Exit out early if we have the system turned off
        If Options.Sound = 0 Then Exit Sub

        ' Prevent subscript out range
        If WaveNum = 0 Or WaveNum > Sound.Sound_Count - 1 Then Exit Sub

        ' Create the buffer if needed
        If SoundBuffer(WaveNum) Is Nothing And FileExist(Application.StartupPath & "\data files\sound\" & WaveNum & ".wav", True) Then
            SoundBuffer(WaveNum) = New SecondaryBuffer(Application.StartupPath & "\data files\sound\" & WaveNum & ".wav", DirectDevice)
        End If

        ' Play the sound
        SoundBuffer(WaveNum).Play(0, BufferPlayFlags.Default)

        ' Error handler
        Exit Sub
errorhandler:
        HandleError("Play_Sound", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext)
        Err.Clear()
        Exit Sub
    End Sub

    Public Sub Play_Music(ByVal MusicNum As Byte)
        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler

        ' Exit out early if we have the system turned off
        If Options.Music = 0 Then Exit Sub

        ' don't re-start currently playing songs
        If CurrentMusic = MusicNum Then Exit Sub

        ' Play music
        DirectMusic = New Audio(Application.StartupPath & "\data files\music\" & MusicNum & ".mid")
        DirectMusic.Play()

        ' Set current music
        CurrentMusic = MusicNum

        ' Error handler
        Exit Sub
errorhandler:
        HandleError("Play_Music", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext)
        Err.Clear()
        Exit Sub
    End Sub

    Public Sub Stop_Music()
        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler

        ' Stop player current segment
        DirectMusic.Stop()
        CurrentMusic = 0

        ' Error handler
        Exit Sub
errorhandler:
        HandleError("Destroy_Music", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext)
        Err.Clear()
        Exit Sub
    End Sub

    Public Sub Destroy_Music()
        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler

        ' destroy music engine
        DirectMusic = Nothing
        SoundDesc = Nothing
        DirectDevice = Nothing

        ' Error handler
        Exit Sub
errorhandler:
        HandleError("Destroy_Music", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext)
        Err.Clear()
        Exit Sub
    End Sub
End Module