From f140a1642ebfde198946ad6760c1003c1cb9a8c3 Mon Sep 17 00:00:00 2001 From: Rasmus Steinke Date: Sat, 11 Aug 2012 02:40:34 +0200 Subject: scripts --- bin/G-FSUAE/G-FS-UAE/.src/leggi.module | 278 +++++++++++++++++++++++++++++++++ 1 file changed, 278 insertions(+) create mode 100644 bin/G-FSUAE/G-FS-UAE/.src/leggi.module (limited to 'bin/G-FSUAE/G-FS-UAE/.src/leggi.module') diff --git a/bin/G-FSUAE/G-FS-UAE/.src/leggi.module b/bin/G-FSUAE/G-FS-UAE/.src/leggi.module new file mode 100644 index 0000000..1f76967 --- /dev/null +++ b/bin/G-FSUAE/G-FS-UAE/.src/leggi.module @@ -0,0 +1,278 @@ +' 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 + + + -- cgit v1.2.3-24-g4f1b