diff options
Diffstat (limited to 'bin/G-FSUAE/G-FS-UAE/.src/scrivi.module')
-rw-r--r-- | bin/G-FSUAE/G-FS-UAE/.src/scrivi.module | 220 |
1 files changed, 220 insertions, 0 deletions
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/scrivi.module b/bin/G-FSUAE/G-FS-UAE/.src/scrivi.module new file mode 100644 index 0000000..656aca9 --- /dev/null +++ b/bin/G-FSUAE/G-FS-UAE/.src/scrivi.module @@ -0,0 +1,220 @@ +' 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 + |