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, 0 insertions, 220 deletions
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/scrivi.module b/bin/G-FSUAE/G-FS-UAE/.src/scrivi.module deleted file mode 100644 index 656aca9..0000000 --- a/bin/G-FSUAE/G-FS-UAE/.src/scrivi.module +++ /dev/null @@ -1,220 +0,0 @@ -' 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 - |