' Gambas module file

Private opzione As New String[]
Private tipo As String
Private valore As String

Public Sub leggi_conf()
Dim hFile As File
Dim sLine As String

hFile = Open (fmain.ComboBox5.Text) For Input
While Not Eof(hFile)
  Line Input #hFile, sLine
  Try opzione = Split(sline, "\n")
  confronta
  Wend
Close #hFile
  
End

Public Sub confronta()
  Dim a As Integer
  Dim risultato As String
  For Each risultato In opzione
  Try a = InStr(risultato, "=")  
  If a <> 0 Then
    tipo = Left(risultato, a - 2)
    valore = Mid(risultato, a + 2, a + 100)
    assegna
  End If
  Next
End

Public Sub assegna()

  Select Case tipo
    Case "amiga_model"
      FMain.ComboBox1.text = valore
    Case "accurancy"
      FMain.slider1.value = Val(valore)
    Case "ntsc_mode"
      If valore = "1" Then
        FMain.radiobutton1.value = True
      Else If valore = "0" Then
        FMain.RadioButton2.value = True
      End If
    Case "#mAmiga"
      Select Case valore
        Case "500"
          fmain.RadioButton3.value = True
          fmain.TextBox9.text = ""
        Case "1200"
          fmain.RadioButton4.value = True
          fmain.TextBox8.text = ""
      End Select
      
    Case "kickstart_file"
      If fmain.RadioButton3.value = True Then fmain.TextBox8.text = valore
      If fmain.RadioButton4.value = True Then fmain.TextBox9.text = valore
    Case "kickstart_ext_file"
      fmain.TextBox10.text = valore
    
    Case "chip_memory"
      Select Case Left(valore, 1)
        Case "5"
          FMain.RadioButton5.value = True
        Case "1"
          FMain.RadioButton6.value = True
        Case "2"
          FMain.RadioButton7.value = True
        Case "4"
          FMain.RadioButton8.value = True
        Case "8"
          FMain.RadioButton9.value = True
      End Select
      
      Case "slow_memory"
      Select Case Trim(Left(valore, 2))
        Case "51"
          FMain.RadioButton10.value = True
        Case "10"
          FMain.RadioButton11.value = True
        Case "17"
          FMain.RadioButton12.value = True
        Case "0"
          FMain.RadioButton13.value = True
      End Select
      
      Case "fast_memory"
      Select Case Left(valore, 1)
        Case "0"
          FMain.RadioButton14.value = True
        Case "1"
          FMain.RadioButton15.value = True
        Case "2"
          FMain.RadioButton16.value = True
        Case "4"
          FMain.RadioButton17.value = True
        Case "8"
          FMain.RadioButton18.value = True
      End Select
      
      Case "zorro_iii_memory"
      Select Case Left(valore, 2)
        Case "0"
          FMain.RadioButton19.value = True
        Case "10"
          FMain.RadioButton20.value = True
        Case "20"
          FMain.RadioButton21.value = True
        Case "40"
          FMain.RadioButton22.value = True
        Case "81"
          FMain.RadioButton23.value = True
        Case "16"
          FMain.RadioButton24.value = True
        Case "32"
          FMain.RadioButton25.value = True
        Case "65"
          FMain.RadioButton38.value = True
        Case "13"
          FMain.RadioButton39.value = True
        Case "26"
          FMain.RadioButton40.value = True
      End Select
      
      Case "uae_gfxcard_size"
        fmain.Slider6.value = valore
      
      Case "joystick_port_0"
      Select Case valore
        Case "auto"
          FMain.RadioButton29.value = True
        Case "mouse"
          FMain.RadioButton30.value = True
        Case "keyboard"
          FMain.RadioButton31.value = True
      End Select
      
      Case "joystick_port_1"
      Select Case valore
        Case "auto"
          FMain.RadioButton26.value = True
        Case "mouse"
          FMain.RadioButton27.value = True
        Case "keyboard"
          FMain.RadioButton28.value = True
      End Select
      
      Case "joystick_port_2"
      Select Case valore
        Case "auto"
          FMain.RadioButton32.value = True
        Case "mouse"
          FMain.RadioButton33.value = True
        Case "keyboard"
          FMain.RadioButton34.value = True
      End Select
      
      Case "joystick_port_3"
      Select Case valore
        Case "auto"
          FMain.RadioButton35.value = True
        Case "mouse"
          FMain.RadioButton36.value = True
        Case "keyboard"
          FMain.RadioButton37.value = True
      End Select
      
      Case "#df1"
        If valore = "-1" Then
          FMain.CheckBox8.Value = CBool(valore)
        Else
          FMain.CheckBox8.Value = False
        End If
      Case "#df2"
        If valore = "-1" Then
          FMain.CheckBox7.Value = CBool(valore)
        Else
          FMain.CheckBox7.Value = False
        End If
      Case "#df3"
        If valore = "-1" Then
          FMain.CheckBox5.Value = CBool(valore)
        Else
          FMain.CheckBox5.Value = False
        End If
      Case "floppy_drive_0"  
        fmain.TextBox20.text = valore
      Case "floppy_drive_1"
        fmain.TextBox16.text = valore
      Case "floppy_drive_2"
        fmain.TextBox17.text = valore
      Case "floppy_drive_3"  
        fmain.TextBox18.text = valore
       Case "floppy_image_0"  
        fmain.TextBox15.text = valore
      Case "floppy_image_1"
        fmain.TextBox11.text = valore
      Case "floppy_image_2"
        fmain.TextBox12.text = valore
      Case "floppy_image_3"  
        fmain.TextBox13.text = valore
      Case "floppy_image_4"  
        fmain.TextBox14.text = valore
        
      Case "#hd0"
        If valore = "-1" Then
          FMain.CheckBox4.Value = CBool(valore)
        Else
          FMain.CheckBox4.Value = False
        End If
      Case "#hd1"
        If valore = "-1" Then
          FMain.CheckBox6.Value = CBool(valore)
        Else
          FMain.CheckBox6.Value = False
        End If
      Case "#hd2"
        If valore = "-1" Then
          FMain.CheckBox9.Value = CBool(valore)
        Else
          FMain.CheckBox9.Value = False
        End If
      Case "hard_drive_0"
        FMain.TextBox6.text = valore
      Case "hard_drive_1"
        FMain.TextBox19.text = valore
      Case "hard_drive_2"
        FMain.TextBox22.text = valore
      Case "#cd0"
        If valore = "-1" Then
          FMain.CheckBox10.Value = CBool(valore)
        Else
          FMain.CheckBox10.Value = False
        End If
      Case "#cd1"
        If valore = "-1" Then
          FMain.CheckBox11.Value = CBool(valore)
        Else
          FMain.CheckBox11.Value = False
        End If
      Case "cdrom_drive_0"
        FMain.TextBox23.text = valore
      Case "cdrom_image_0"
        FMain.TextBox24.text = valore
        
      Case "floppy_drive_volume"
        FMain.slider4.value = Val(valore)
      Case "floppy_drive_speed"
        FMain.slider5.value = Val(valore)
      Case "fullscreen"
        fmain.CheckBox1.value = CBool(Val(valore))
      Case "keep_aspect"
        fmain.CheckBox2.value = CBool(Val(valore))
      Case "fsaa"
        fmain.combobox2.text = valore
      Case "video_sync"
        fmain.ComboBox3.text = valore
      Case "scanlines"
        fmain.CheckBox3.value = CBool(Val(valore))
      Case "scanlines_dark"
        FMain.slider3.value = Val(valore)
      Case "scanlines_light"
        FMain.slider2.value = Val(valore)
      Case "#shad"
        fmain.ComboBox10.text = valore
      Case "line_doubling"
        fmain.CheckBox14.value = CBool(Val(valore))
      Case "low_resolution"
        fmain.CheckBox15.value = CBool(Val(valore))
  End Select
 
  
End