activar o desactiva musica, sonido, etc desde launcher

» 04 Jun 2009 15:20

aki os dejo una foto por si alguien se pierde un poco al poner los controles

lo primero en vuestro launcher deben poner 4 checkbox llamados

name: chkSonido
caption: &Sonido Activado
value: 1- checked

name: chkMusica
caption: &Música Activada
value: 1- checked

name: chkUserVideo
caption: Usar M&emoria de Video
value: 1- checked

name: chkDinamico
caption: Carga &Dinámica
value: 1- checked

aora los codigos

en la funcion click del boton que ponga jugar deben agregar esto

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    setupMod.bNoSound = Not CBool(Me.chkSonido.value)
    
    setupMod.bNoMusic = Not CBool(Me.chkMusica.value)
    
    setupMod.bUseVideo = CBool(Me.chkUserVideo.value)
    
    setupMod.bDinamic = Me.chkDinamico.value
    
    DoEvents
    
    Dim handle As Integer
    handle = FreeFile
    Open App.Path & "\Init\AO.DAT" For Binary As handle
        Put handle, , setupMod
    Close handle
    DoEvents

y en la funcion form_load() esto

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Call LeerSetup

y por ultimo crean un modulo on el nombre que quieran y le ponen este codigo

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Type tSetupMods
    bDinamic    As Boolean
    byMemory    As Byte
    bUseVideo   As Boolean
    bNoMusic    As Boolean
    bNoSound    As Boolean
End Type
 
Public setupMod As tSetupMods
 
Public Sub LeerSetup()
'*************************************************
'Author: Juanjo
'*************************************************
On Error Resume Next
    If FileExist(App.Path & "\init\ao.dat", vbArchive) Then
        
        Dim handle As Integer
        handle = FreeFile
        
        Open App.Path & "\Init\AO.dat" For Binary As handle
            Get handle, , setupMod
        Close handle
        
        If setupMod.bDinamic Then
            frmLauncher.chkDinamico.value = True
        Else
            frmLauncher.chkDinamico.value = False
        End If
        
        frmLauncher.chkUserVideo = setupMod.bUseVideo
        
        frmLauncher.chkMusica.value = Not setupMod.bNoMusic
        
        frmLauncher.chkSonido.value = Not setupMod.bNoSound
    End If
End Sub

y listo esto es todo asi no tienen que estar abriendo el aosetup para poner si quieren sonido o no y para lo de la carga dinamica
NOTA: sirve para cualquier mod de AO que use el dx7