' Gambas module file Public valori As String Public Sub sConfig() Dim amiga, paths, jinput, media, audio, speed, video As String Dim model, accurancy, ntsc, kickstart, exkickstart, chip, slow, cFast, zorro, picasso As String Dim df1, df2, df3, df4, hdf0, hdf1, hdf2, cd0, cd1 As String Dim fulls, fsaa, sync, aspect, escan, lscan, dscan, eShaders, shad, double, low As String Dim port0, port1, port2, port3 As String Dim ab1, ab2, ab3, ab4, ab5, ab6, ab7, ab8 As String 'amiga ' model = "amiga_model = " & FMain.ComboBox1.text & "\n" accurancy = "accurancy = " & FMain.Slider1.value & "\n" If FMain.RadioButton1.value = True Then ntsc = "ntsc_mode = 1" & "\n" Else ntsc = "ntsc_mode = 0" & "\n" Endif If FMain.RadioButton3.value = True Then kickstart = "#mAmiga = 500" & "\n" & "kickstart_file = " & FMain.textbox8.text & "\n" Else kickstart = "#mAmiga = 1200" & "\n" & "kickstart_file = " & FMain.textbox9.text & "\n" End If exkickstart = "kickstart_ext_file = " & FMain.textbox10.text & "\n" If FMain.RadioButton5.value = True chip = "chip_memory = 512" & "\n" Else If FMain.RadioButton6.value = True chip = "chip_memory = 1024" & "\n" Else If FMain.RadioButton7.value = True chip = "chip_memory = 2048" & "\n" Else If FMain.RadioButton8.value = True chip = "chip_memory = 4096" & "\n" Else If FMain.RadioButton9.value = True chip = "chip_memory = 8192" & "\n" End If If FMain.RadioButton13.value = True slow = "slow_memory = 0" & "\n" Else If FMain.RadioButton10.value = True slow = "slow_memory = 512" & "\n" Else If FMain.RadioButton11.value = True slow = "slow_memory = 1024" & "\n" Else If FMain.RadioButton12.value = True slow = "slow_memory = 1792" & "\n" End If If FMain.RadioButton14.value = True cFast = "fast_memory = 0" & "\n" Else If FMain.RadioButton15.value = True cFast = "fast_memory = 1024" & "\n" Else If FMain.RadioButton16.value = True cFast = "fast_memory = 2048" & "\n" Else If FMain.RadioButton17.value = True cFast = "fast_memory = 4096" & "\n" Else If FMain.RadioButton18.value = True cFast = "fast_memory = 8192" & "\n" End If If FMain.RadioButton19.value = True zorro = "zorro_iii_memory = 0" & "\n" Else If FMain.RadioButton20.value = True zorro = "zorro_iii_memory = 1024" & "\n" Else If FMain.RadioButton21.value = True zorro = "zorro_iii_memory = 2048" & "\n" Else If FMain.RadioButton22.value = True zorro = "zorro_iii_memory = 4096" & "\n" Else If FMain.RadioButton23.value = True zorro = "zorro_iii_memory = 8192" & "\n" Else If FMain.RadioButton24.value = True zorro = "zorro_iii_memory = 16384" & "\n" Else If FMain.RadioButton25.value = True zorro = "zorro_iii_memory = 32768" & "\n" Else If FMain.RadioButton38.value = True zorro = "zorro_iii_memory = 65536" & "\n" Else If FMain.RadioButton39.value = True zorro = "zorro_iii_memory = 131072" & "\n" Else If FMain.RadioButton40.value = True zorro = "zorro_iii_memory = 262144" & "\n" End If picasso = "uae_gfxcard_size = " & FMain.slider6.value & "\n" amiga = "[amiga]" & "\n" & "\n" & model & accurancy & ntsc & kickstart & exkickstart & chip & slow & cFast & zorro & picasso '------------------------------------------------------- 'paths paths = "\n" & "\n" & "[paths]" & "\n" & "\n" & "kickstarts_dir = " & FMain.TextBox5.text & "\n" & "save_states_dir = " & FMain.TextBox7.text & "\n" & "floppy_overlays_dir = " & FMain.TextBox4.text & "\n" & "flash_memory_dir = " & FMain.TextBox3.text & "\n" & "controllers_dir = " & FMain.textbox2.text & "\n" & "base_dir = " & FMain.textbox1.text & "\n" '------------------------------------------------------- ' 'inputs If FMain.RadioButton29.value = True Then port0 = "joystick_port_0 = auto" & "\n" Else If FMain.RadioButton30.value = True Then port0 = "joystick_port_0 = mouse" & "\n" Else If FMain.RadioButton31.value = True Then port0 = "joystick_port_0 = keyboard" & "\n" Endif If FMain.RadioButton26.value = True Then port1 = "joystick_port_1 = auto" & "\n" Else If FMain.RadioButton27.value = True Then port1 = "joystick_port_1 = mouse" & "\n" Else If FMain.RadioButton28.value = True Then port1 = "joystick_port_1 = keyboard" & "\n" Endif If FMain.RadioButton32.value = True Then port2 = "joystick_port_2 = auto" & "\n" Else If FMain.RadioButton33.value = True Then port2 = "joystick_port_2 = mouse" & "\n" Else If FMain.RadioButton34.value = True Then port2 = "joystick_port_2 = keyboard" & "\n" Endif If FMain.RadioButton35.value = True Then port3 = "joystick_port_3 = auto" & "\n" Else If FMain.RadioButton36.value = True Then port3 = "joystick_port_3 = mouse" & "\n" Else If FMain.RadioButton37.value = True Then port3 = "joystick_port_3 = keyboard" & "\n" Endif jinput = "\n" & "\n" & "[input]" & "\n" & "\n" & port0 & port1 & port2 & port3 & "\n" '------------------------------------------------------- ' 'media ' If FMain.CheckBox8.Value = False Then ab1 = "#" If FMain.CheckBox7.Value = False Then ab2 = "#" If FMain.CheckBox5.Value = False Then ab3 = "#" If FMain.CheckBox4.Value = False Then ab4 = "#" If FMain.CheckBox6.Value = False Then ab5 = "#" If FMain.CheckBox9.Value = False Then ab6 = "#" If FMain.CheckBox10.Value = False Then ab7 = "#" If FMain.CheckBox11.Value = False Then ab8 = "#" df1 = "#df1 = " & FMain.CheckBox8.Value & "\n" & ab1 & "floppy_drive_1 = " & FMain.TextBox16.text & "\n" df2 = "#df2 = " & FMain.CheckBox7.Value & "\n" & ab2 & "floppy_drive_2 = " & FMain.TextBox17.text & "\n" df3 = "#df3 = " & FMain.CheckBox5.Value & "\n" & ab3 & "floppy_drive_3 = " & FMain.TextBox18.text & "\n" hdf0 = "#hd0 = " & FMain.CheckBox4.Value & "\n" & ab4 & "hard_drive_0 = " & FMain.TextBox6.text & "\n" hdf1 = "#hd1 = " & FMain.CheckBox6.value & "\n" & ab5 & "hard_drive_1 = " & FMain.TextBox19.text & "\n" hdf2 = "#hd2 = " & FMain.CheckBox9.value & "\n" & ab6 & "hard_drive_2 = " & FMain.TextBox22.text & "\n" cd0 = "#cd0 = " & FMain.CheckBox10.value & "\n" & ab7 & "cdrom_drive_0 = " & FMain.TextBox23.text & "\n" cd1 = "#cd1 = " & FMain.CheckBox11.value & "\n" & ab8 & "cdrom_image_0 = " & FMain.TextBox24.text & "\n" ' media = "\n" & "\n" & "[media]" & "\n" & "\n" & "floppy_drive_0 = " & FMain.TextBox20.text & "\n" & df1 & df2 & df3 & "floppy_image_0 = " & FMain.TextBox15.text & "\n" & "floppy_image_1 = " & FMain.TextBox11.text & "\n" & "floppy_image_2 = " & FMain.TextBox12.text & "\n" & "floppy_image_3 = " & FMain.TextBox13.text & "\n" & "floppy_image_4 = " & FMain.TextBox14.text & "\n" & hdf0 & hdf1 & hdf2 & cd0 & cd1 '------------------------------------------------------- ' ' 'preferences floppy ' audio = "\n" & "\n" & "[audio]" & "\n" & "\n" & "floppy_drive_volume = " & FMain.slider4.value & "\n" speed = "floppy_drive_speed = " & FMain.slider5.value & "\n" '------------------------------------------------------- ' 'video ' If FMain.CheckBox1.value = True Then fulls = "fullscreen = 1" & "\n" Else fulls = "fullscreen = 0" & "\n" End If fsaa = "fsaa = " & FMain.combobox2.text & "\n" sync = "video_sync = " & FMain.combobox3.text & "\n" If FMain.CheckBox2.value = True Then aspect = "keep_aspect = 1" & "\n" Else aspect = "keep_aspect = 0" & "\n" End If If FMain.CheckBox3.value = True Then escan = "scanlines = 1" & "\n" Else escan = "scanlines = 0" & "\n" End If If FMain.CheckBox14.value = True Then double = "line_doubling = 1" & "\n" Else double = "line_doubling = 0" & "\n" Endif If FMain.CheckBox15.value = True Then low = "low_resolution = 1" & "\n" Else low = "low_resolution = 0" & "\n" Endif dscan = "scanlines_dark = " & FMain.slider3.value & "\n" lScan = "scanlines_light = " & FMain.slider2.value & "\n" eShaders = "shader = " & FMain.inshader & "/" & FMain.ComboBox10.text & ".shader" & "\n" shad = "#shad = " & FMain.ComboBox10.text & "\n" video = "\n" & "\n" & "[video]" & "\n" & "\n" & fulls & fsaa & sync & aspect & escan & dscan & lscan & eShaders & shad & double & low '------------------------------------------------------- ' ''scrittura valori = amiga & paths & jinput & media & audio & speed & video End