home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / Programy / Emulatory / AmigaOS-uae086-exe.lha / uae-0.8.6 / UAEWB.rexx < prev   
OS/2 REXX Batch file  |  1999-01-12  |  13KB  |  345 lines
  1. /*rx
  2.  * UAE.wb - A nice GUI for launching uae using MUIREXX
  3.  *
  4.  * (c) By Samuel Devulder, 01/98.
  5.  *
  6.  * $VER: UAEWB.rexx (01.05.98) © by Samuel Devulder
  7.  *
  8.  * History: 
  9.  *   v0.1 (14.01.98): first try
  10.  *   v0.2 (26.01.98): adaptation to MUIRexx3.0 (too bad, scripts for
  11.  *                    MUIRexx2.0 are not fully compatible with MUIRexx3.0)
  12.  *   v0.3 (28.02.98): added "quality" parameter for sound.
  13.  *   v0.4 (01.05.98): added support for CPU selection.
  14.  */
  15.  
  16. OPTIONS RESULTS
  17. ADDRESS COMMAND
  18.  
  19. /* Run MUIREXX */
  20. IF ~show('p','UAEWB') THEN DO
  21.    'run >nil: muirexx port UAEWB'
  22.    DO WHILE ~show('p','UAEWB')
  23.       'wait 1'
  24.    END
  25. END
  26.  
  27. ADDRESS UAEWB
  28.  
  29. WINDOW ID WAIT ATTRS 0x80421923 0 0x8042045d 0
  30.   LABEL "\033b\033cPlease wait\nwhile UAE is loading...\033n"
  31. ENDWINDOW
  32.  
  33. TRUE = 1
  34. FALSE = 0
  35. MUIA_Application_Title     = 0x804281b8
  36. MUIA_Application_Version   = 0x8042b33f
  37. MUIA_Application_Copyright = 0x8042ef4d
  38. MUIA_Application_Author    = 0x80424842
  39. MUIA_Application_Base      = 0x8042e07a
  40. MUIA_Application_OpenConfigWindow = 0x804299ba
  41. MUIA_Application_AboutMUI  = 0x8042d21d
  42. MUIA_Background            = 0x8042545b
  43. MUIA_Image_FreeHoriz       = 0x8042da84
  44. MUIA_Image_FontMatchWidth  = 0x804239bf
  45. MUIA_Image_FontMatchHeight = 0x804239c0
  46. MUIA_Width                 = 0x8042b59c
  47. MUIA_Image_FontMatch       = 0x8042815d
  48. MUIA_Image_FontMatchHeight = 0x80429f26
  49. MUIA_FixWidthTxt           = 0x8042d044
  50. MUIA_Weight                = 0x80421d1f
  51. MUIA_Pressed               = 0x80423535
  52. MUIA_ShowMe                = 0x80429ba8
  53. MUIA_Slider_Horiz          = 0x8042fad1
  54. MUIA_Slider_Min            = 0x8042e404
  55. MUIA_Slider_Max            = 0x8042d78a
  56. MUIA_Slider_Level          = 0x8042ae3a
  57. MUIA_Frame                 = 0x8042ac64
  58. MUIA_Screen_Accept         = 0x8042e3e1
  59. MUIA_Screen_MaxLen         = 0x80424984
  60. MUIA_List_Format           = 0x80423c0a
  61. MUIA_Cycle_Active          = 0x80421788
  62. MUIA_Menuitem_Shortcut     = 0x80422030
  63. MUIA_Menuitem_Title        = 0x804218be
  64. MUIA_Selected              = 0x8042654b
  65. MUIA_Disabled              = 0x80423661
  66. MUIA_Group_Columns         = 0x8042f416
  67. MUIA_ControlChar           = 0x8042120b
  68. ASLFR_DrawersOnly          = 0x8008002F
  69.  
  70. MUIV_Frame_Text = 3
  71. MUIV_Frame_Group = 9
  72.  
  73. MUII_BACKGROUND    = 128
  74. MUII_SHADOWFILL    = 133
  75. MUII_HSHADOWBACK   = 140
  76. MUII_HSHADOWSHADOW = 142
  77. WINDOW ID MAIN COMMAND """QUIT""" PORT UAEWB TITLE """UAE Launcher"""
  78.  
  79.   MENU LABEL "Project"
  80.     MENU LABEL "About"
  81.          ITEM COMMAND '"UAEWB.aux about"',
  82.              ATTRS MUIA_Menuitem_Shortcut 'A',
  83.              LABEL "UAE"
  84.          ITEM COMMAND '"method 'MUIA_Application_AboutMUI' 0"',
  85.              ATTRS MUIA_Menuitem_Shortcut 'M',
  86.              PORT UAEWB LABEL "MUI"
  87.     ENDMENU
  88.     MENU LABEL "Settings"
  89.          ITEM COMMAND '"UAEWB.aux a500"'    LABEL "Preset to A500"
  90.          ITEM COMMAND '"UAEWB.aux HAM"'     LABEL "Set output to HAM6"
  91.          ITEM ATTRS MUIA_Menuitem_Title '-1'
  92.          ITEM COMMAND '"UAEWB.aux default"' LABEL "Reset to default"
  93.          ITEM COMMAND 'ENV:UAEWB'           LABEL "Reset to last saved"
  94.          ITEM ATTRS MUIA_Menuitem_Title '-1'
  95.          ITEM COMMAND '"method 'MUIA_Application_OpenConfigWindow'"',
  96.               PORT UAEWB LABEL "MUI..."
  97.     ENDMENU
  98.     ITEM ATTRS MUIA_Menuitem_Title '-1'
  99.     ITEM COMMAND '"quit"' PORT UAEWB ATTRS MUIA_Menuitem_Shortcut 'Q',
  100.          LABEL "Quit"
  101.   ENDMENU
  102.  
  103.   /* Presentation txt */
  104.   TEXT ATTRS MUIA_Frame MUIV_Frame_Group MUIA_Background MUII_HSHADOWSHADOW,
  105.        LABEL "\0338\033c\033bUAE Launcher v0.4\033n",
  106.              "\n© by Samuel Devulder, 05/98."
  107.  
  108.   SPACE 
  109.  
  110.   /* Main group */
  111.   GROUP REGISTER LABELS "Display,Memory,Disks,Sound,Misc"
  112.     /* DISPLAY */
  113.     GROUP FRAME LABEL "Gfx Setup"
  114.       GROUP HORIZ
  115.         LABEL "Size:"
  116.         CYCLE ID SIZE,
  117.               HELP """LORES makes UAE use a 320x256 window "||,
  118.                      "(\033ifast and good for games\033n)\n"||,
  119.                      "HIRES makes UAE use a 640x512 window "||,
  120.                      "(\033igood for Workbench\033n)""",
  121.               LABELS "LORES,HIRES"
  122.         LABEL "Screen:"
  123.         CYCLE ID SCRN,
  124.               HELP """PUBLIC => Workbench output\n"||,
  125.                      "ASLREQ => ASL-Requester selection\n"||,
  126.                      "DEFSCR => Automatically Selected screen\n"||,
  127.                      "ModeID => ModeID and Depth below define screen.""",
  128.               LABELS "PUBLIC,ASLREQ,DEFSCR,ModeID"
  129.       ENDGROUP
  130.       GROUP HORIZ
  131.         LABEL "ModeID:"
  132.         STRING ID SM,
  133.                HELP """Enter the screen mode you want UAE to use.\n"||,
  134.                       "(format 0xNNNNNNNN).""",
  135.                PORT UAEWB COMMAND """CYCLE ID SCRN ATTRS 0x80421788 3"""
  136.         LABEL "Depth:"
  137.         CYCLE ID DEPTH,
  138.               HELP """Select the depth of UAE's screen. (\033iUse\n"||,
  139.                      "this in conjunction with ModeID\033n)""",
  140.               PORT UAEWB COMMAND """CYCLE ID SCRN ATTRS 0x80421788 3""",
  141.               ATTRS MUIA_Weight 1,
  142.               LABELS "N/A,1,2,3,4,5,6,7,8,15,16,24,32"
  143.       ENDGROUP
  144.       GROUP HORIZ
  145.         LABEL "Frame Rate:"
  146.         SLIDER ID SLDR,
  147.                HELP """Use this slider gadget to select the frame rate\n"||,
  148.                       "(\033ithe lower, the smoother the display will "||,
  149.                       "be\033n).""",
  150.                MUIA_Slider_Horiz TRUE MUIA_Slider_Min 1 MUIA_Slider_Max 20
  151.       ENDGROUP
  152.       GROUP HORIZ
  153.         SPACE HORIZ
  154.         LABEL "Gray scale:"
  155.         CHECK ID GRAY,
  156.           HELP """Make UAE use a gray output\n(\033iusefull for WB with few"||,
  157.                  " colors\033n)"""
  158.         SPACE HORIZ
  159.         LABEL "Dithering:";
  160.         CHECK ID DITH ATTRS MUIA_Selected TRUE,
  161.           HELP """If activated, UAE will use dithering to approximate "||,
  162.                  "colors.\n(\033idisable this if you want to emulate "||,
  163.                  "WB-based programs\nor to gain some speed\033n)"""
  164.         SPACE HORIZ
  165.       ENDGROUP
  166.     ENDGROUP
  167.     /* MEMORY */
  168.     GROUP
  169.       GROUP HORIZ FRAME ATTRS MUIA_Group_Columns 4 LABEL "RAM" 
  170.         LABEL "ChipRam:"
  171.         CYCLE ID CHIP,
  172.           ATTRS MUIA_Cycle_Active 2,
  173.           HELP """Select the amount of ChipRam UAE will emulate\n"||,
  174.                  "(\033i2Mb max if FASTRAM is used\033n).""",
  175.           LABELS "512 Kb,1 Mb,2 Mb,4 Mb,8 Mb"
  176.         LABEL "SlowFast:"
  177.         CYCLE ID SLOW,
  178.           HELP """Select the amount of FASTRAM size that UAE\n"||,
  179.                  "will emulate at 0xC00000.""",
  180.           LABELS "None,512 Kb,1024 Kb"
  181.         LABEL "FastRam:"
  182.         CYCLE ID FAST,
  183.           HELP """Select the amount of 32bit FASTRAM that UAE\n"||,
  184.                  "will emulate at 0x200000.""",
  185.           LABELS "None,1 Mb,2 Mb,3 Mb,4 Mb,5 Mb,6 Mb,7 Mb,8 Mb"
  186.         LABEL "ZorroIII: "
  187.         GROUP HORIZ
  188.           POPSLIDER ID Z3RAM,
  189.             ATTRS MUIA_Slider_Level 0 MUIA_Slider_Min 0 MUIA_Slider_Max 64,
  190.             HELP """Select the amount of 32bit Zorro-III\nram UAE will "||,
  191.                    "emulate."""
  192.           LABEL "Mb"
  193.           SPACE HORIZ
  194.         ENDGROUP
  195.       ENDGROUP
  196.       GROUP HORIZ FRAME LABEL "ROM"
  197.         LABEL "Romfile:"
  198.         POPASL ID ROMF HELP """Enter the romfile UAE will use.""",
  199.                CONTENT "DEVS:Kickstarts/"
  200.       ENDGROUP
  201.     ENDGROUP
  202.     /* DISKS */
  203.     GROUP
  204.       GROUP HORIZ FRAME ATTRS MUIA_Group_Columns 4 LABEL "Diskfiles" 
  205.         LABEL "DF0:"
  206.         POPASL ID DF0 HELP """Enter the diskfile for emulating DF0:"""
  207.         LABEL "DF1:"
  208.         POPASL ID DF1 HELP """Enter the diskfile for emulating DF1:"""
  209.         LABEL "DF2:"
  210.         POPASL ID DF2 HELP """Enter the diskfile for emulating DF2:"""
  211.         LABEL "DF3:"
  212.         POPASL ID DF3 HELP """Enter the diskfile for emulating DF3:"""
  213.       ENDGROUP
  214.       GROUP HORIZ ATTRS MUIA_Group_Columns 4
  215.         LABEL "HDisk 1:"
  216.         STRING ID VMOU1 HELP """Enter the name of the 1st hard-disk (or partition)\n"||,
  217.                                "UAE will mount (\033iUse Misc/Extra param to mount "||,
  218.                                "more\nthan 3 hard-disks\033n)."""
  219.         LABEL '"="'
  220.         POPASL ID VPAT1 ATTRS ASLFR_DrawersOnly 1 MUIA_Weight 300,
  221.             HELP """Enter the path to use for the 1st hard-disk (or partition)"""
  222.         LABEL "HDisk 2:"
  223.         STRING ID VMOU2 HELP """Enter the name of the 2nd hard-disk (or partition)\n"||,
  224.                                "UAE will mount (\033iUse Misc/Extra param to mount "||,
  225.                                "more\nthan 3 hard-disks\033n)."""
  226.         LABEL '"="'
  227.         POPASL ID VPAT2 ATTRS ASLFR_DrawersOnly 1 MUIA_Weight 300,
  228.             HELP """Enter the path to use for the 2nd hard-disk (or partition)"""
  229.       ENDGROUP
  230.     ENDGROUP
  231.     /* SOUND */
  232.     GROUP HORIZ FRAME LABEL "Audio Setup"
  233.       SPACE HORIZ
  234.       GROUP HORIZ ATTRS MUIA_Group_Columns 2 muia_weight 400
  235.         LABEL "Sound:"
  236.         CYCLE ID SOUND,
  237.               HELP """NONE => No sound\n"||,
  238.                      "OFF  => Emulated but no output\n"||,
  239.                      "ON   => Emulated\n"||,
  240.                      "BEST => Accurate emulation (\033iCPU power "||,
  241.                      "needed\033n).""",
  242.               LABELS "NONE,OFF,ON,BEST"
  243.         LABEL "Quality:"
  244.         GROUP HORIZ
  245.           CYCLE ID AUDBIT, 
  246.               HELP """16 bits will only work if AHI is installed""",
  247.               LABELS "8 bits,16 bits"
  248.           CYCLE ID AUDMS,
  249.               HELP """Stereo will only work if AHI is installed""",
  250.               LABELS "mono,stereo"
  251.         ENDGROUP
  252.         LABEL "Frequency:"
  253.         GROUP HORIZ
  254.           POPSLIDER ID FREQ,
  255.             HELP """Select the frequency UAE will use to\n"||,
  256.                    "mix output (the more, the better [\033ibut\n"||,
  257.                    "the more CPU power is needed too\033n]).""",
  258.             ATTRS MUIA_Slider_Level 11 MUIA_Slider_Min 4 MUIA_Slider_Max 44
  259.           LABEL "KHz"
  260.           SPACE HORIZ
  261.         LABEL "Buffer:"
  262.         GROUP HORIZ
  263.           POPSLIDER ID BUFF,
  264.             HELP """Select the sound buffer size for UAE\n"||,
  265.                    "(the more, the better).""",
  266.             ATTRS MUIA_Slider_Level 2 MUIA_Slider_Min 8 MUIA_Slider_Max 256
  267.           LABEL "Kb"
  268.         ENDGROUP
  269.         ENDGROUP
  270.         LABEL "Soundfile:"
  271.         POPASL ID SFILE,
  272.           HELP """\033bEXPERT OPTION\033n: Select the filename UAE\n"||,
  273.                  "will use to output sound."""
  274.       ENDGROUP
  275.       SPACE HORIZ
  276.     ENDGROUP
  277.     /* MISC */
  278.     GROUP
  279.       GROUP HORIZ ATTRS MUIA_Group_Columns 4
  280.         LABEL "FastBlt:"
  281.         CYCLE ID FBLT,
  282.           HELP """When activated, UAE will emulate\na 32bit fast blitter.""",
  283.           LABELS "ON,OFF"
  284.         LABEL "GUI:"
  285.         CYCLE ID GUI,
  286.           HELP """If not enabled, UAE will run without GUI.""",
  287.           LABELS "Enabled,Disabled"
  288.         LABEL "Port 0:"
  289.         CYCLE ID JOY0,
  290.           ATTRS MUIA_Disabled FALSE,
  291.           LABELS "Mouse,Joystick,KeyPad,Arrows"
  292.         LABEL "Port 1:"
  293.         CYCLE ID JOY1,
  294.           ATTRS MUIA_Cycle_Active 1 MUIA_Disabled FALSE,
  295.           LABELS "Mouse,Joystick,KeyPad,Arrows"
  296.         LABEL "CPU:"
  297.         CYCLE ID CPUT,
  298.           HELP """Select the CPU you want to emulate:\n"||,
  299.                  "  - 680x0   => No need explain :-)\n"||,
  300.                  "  - 020/881 => 68020 (or 68EC030) with fpu\n"||,
  301.                  "  - mc68k   => more compatible (but slower) 68000 mode""",
  302.           ATTRS MUIA_Cycle_Active 2,
  303.           LABELS "68000,68010,68020,020/881,mc68k"
  304.         LABEL "Power:"
  305.         SLIDER ID CPUR,
  306.             HELP """\033bEXPERT OPTION\033n:\n"||,
  307.                    "1 => More time spent in CPU emulation "||,
  308.                                    "(good for Workbench)\n"||,
  309.                    "4 => Normal CPU vs CHIPSET time ratio\n"||,
  310.                    "8 => More time spent in CHIPSET emulation "||,
  311.                                    "(good for games/demos)""",
  312.             ATTRS MUIA_Slider_Horiz TRUE MUIA_Slider_Level 4,
  313.                   MUIA_Slider_Min 1 MUIA_Slider_Max 16
  314.       ENDGROUP
  315.       GROUP HORIZ ATTRS MUIA_Group_Columns 2
  316.         LABEL "AutoGrap IFF:"
  317.         POPASL ID SIFF HELP """\033bEXPERT OPTION\033n: Enter here the "||,
  318.                               "filename\nUAE will use to save frames."""
  319.         LABEL "Extra options:"
  320.         STRING ID EXTRA HELP """Write here the extra parameters (see README)\n"||,
  321.                                "you want to pass to UAE."""
  322.       ENDGROUP
  323.     ENDGROUP
  324.   ENDGROUP
  325.  
  326.   SPACE
  327.  
  328.   /* SAVE | USE | CANCEL */
  329.   GROUP HORIZ
  330.     button PRESS HELP """Save current setup and launch UAE""",
  331.       COMMAND """UAEWB.aux save""" LABEL "Save"
  332.     button PRESS HELP """Launch UAE with current settings""",
  333.       COMMAND """UAEWB.aux use""" LABEL "Use"
  334.     button PRESS HELP """Exit without launching UAE""",
  335.       COMMAND "quit" PORT UAEWB LABEL "Cancel"
  336.   ENDGROUP
  337. EndWindow
  338.  
  339. WINDOW ID WAIT CLOSE
  340.  
  341. ENV="ENV:UAEWB"
  342. IF EXISTS(ENV) THEN ADDRESS COMMAND "rx " ENV
  343.  
  344. exit 0
  345.