home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_47x_to_481 / StartSys / StartOpts.rexx < prev    next >
OS/2 REXX Batch file  |  2000-07-08  |  8KB  |  189 lines
  1. /* MUIrexx Application: StartOpts for ModAS */
  2.  
  3. ThisPort='STARTOPTS'
  4. AppName='StartOpts'
  5. ActDir='SYS:StartSys/'
  6.  
  7. Language=GetClip('Language')
  8. Resource=ActDir''Language'/'AppName'.locale'
  9. IF ~EXISTS(Resource) THEN
  10. DO
  11.  Language='english'
  12.  Resource=ActDir''english'/'AppName'.locale'
  13. END
  14.  
  15. ActFile=ActDir''Language'/'AppName
  16. ActionFile=ActDir || AppName || 'Set' || '.rexx'
  17.  
  18. CR='0a'x
  19. TRUE=1
  20. FALSE=0
  21. MUIA_Background=0x8042545b
  22. MUII_WindowBack=0
  23. MUIA_ShowMe=0x80429ba8
  24. MUIA_Selected=0x8042654b
  25. MUIA_String_Contents=0x80428ffd
  26.  
  27. CALL Open(ftmp,Resource,'R')
  28. i=1
  29. DO FOREVER
  30.  rsctxt.i=READLN(ftmp)
  31.  IF EOF(ftmp) THEN LEAVE
  32.  IF rsctxt.i='' THEN rsctxt.i=' '
  33.  i=i+1
  34. END
  35. CALL CLOSE(ftmp)
  36. rsctxt.count=i
  37.  
  38. /*------------------------------------------------------------------------------*/
  39. ADDRESS VALUE ThisPort
  40.  
  41. window ID Start TITLE '"'rsctxt.1'"' COMMAND """quit""" PORT ThisPort
  42.  menu LABEL "Project"
  43.      item COMMAND '"'ActionFile' INFO"' LABEL "About.."
  44.      item COMMAND "quit" PORT ThisPort LABEL "Quit"
  45.  endmenu
  46.  menu LABEL "Settings"
  47.      item COMMAND "muiset" PORT ThisPort LABEL "MUI..."
  48.  endmenu
  49.  
  50.  LABEL LEFT '"'rsctxt.2'"'
  51.  
  52.  group REGISTER LABELS rsctxt.3
  53.  
  54. /*------------------------------------------------------------------------------*/
  55.         group
  56.             ThisFile=ActFile'1.txt'
  57.             view FILE ThisFile
  58.             group HORIZ
  59.                 group HORIZ FRAME
  60.                     group
  61.                         Option=MyGetENV("Flags/StartVerbose")
  62.                         IF (Option="1") THEN check ID VERBOSE ATTRS MUIA_Selected 1 STRINGS '"0,1"' HELP '"'rsctxt.4'"'
  63.                         ELSE check ID VERBOSE ATTRS MUIA_Selected 0 STRINGS '"0,1"' HELP '"'rsctxt.4'"'
  64.  
  65.                         Option=MyGetENV("Flags/StartSayReady")
  66.                         IF (Option="0") THEN check ID SRDY ATTRS MUIA_Selected 0 STRINGS '"0,1"' HELP '"'rsctxt.6'"'
  67.                         ELSE check ID SRDY ATTRS MUIA_Selected 1 STRINGS '"0,1"' HELP '"'rsctxt.6'"'
  68.  
  69.                         Option=MyGetENV("Flags/StartSayTime")
  70.                         IF (Option="0") THEN check ID STME ATTRS MUIA_Selected 0 STRINGS '"0,1"' HELP '"'rsctxt.7'"'
  71.                         ELSE check ID STME ATTRS MUIA_Selected 1 STRINGS '"0,1"' HELP '"'rsctxt.7'"'
  72.  
  73.                         Option=MyGetENV("Flags/StartMusic")
  74.                         IF (Option="0") THEN check ID PLAYMUSIC COMMAND '"string ID STR5 %s"' ATTRS MUIA_Selected 0 STRINGS '"0,1"' HELP '"'rsctxt.8'"'
  75.                         ELSE check ID PLAYMUSIC ATTRS MUIA_Selected 1 STRINGS '"0,1"' HELP '"'rsctxt.8'"'
  76.  
  77.                         Option=MyGetENV("Flags/StartPicture")
  78.                         IF (Option="0") THEN check ID SHOWPIC COMMAND '"string ID STR4 %s"' ATTRS MUIA_Selected 0 STRINGS '"0,1"' HELP '"'rsctxt.9'"'
  79.                         ELSE check ID SHOWPIC ATTRS MUIA_Selected 1 STRINGS '"0,1"' HELP '"'rsctxt.9'"'
  80.  
  81.                         Option=MyGetENV("Flags/StartShell")
  82.                         IF (Option="0") THEN check ID SHELL ATTRS MUIA_Selected 0 STRINGS '"0,1"' HELP '"'rsctxt.10'"'
  83.                         ELSE check ID SHELL ATTRS MUIA_Selected 1 STRINGS '"0,1"' HELP '"'rsctxt.10'"'
  84.                     endgroup
  85.  
  86.                     group WEIGHT 30
  87.                         label LEFT SINGLE '"'rsctxt.11'"'
  88.                         label LEFT SINGLE '"'rsctxt.13'"'
  89.                         label LEFT SINGLE '"'rsctxt.14'"'
  90.                         label LEFT SINGLE '"'rsctxt.15'"'
  91.                         label LEFT SINGLE '"'rsctxt.16'"'
  92.                         label LEFT SINGLE '"'rsctxt.17'"'
  93.                     endgroup
  94.  
  95.                     group WEIGHT 50
  96.                         label LEFT SINGLE '"'rsctxt.18'"'
  97.                         label LEFT SINGLE '"'rsctxt.20'"'
  98.                         label LEFT SINGLE '"'rsctxt.21'"'
  99.                         Option=MyGetENV("Flags/StartMusic.dat")
  100.                          popasl ID ASL2 HELP '"'rsctxt.22'"' CONTENT Option
  101.                          Option=MyGetENV("Flags/StartPicture.dat")
  102.                          popasl ID ASL1 HELP '"'rsctxt.23'"' CONTENT Option
  103.                         label LEFT SINGLE '"'rsctxt.24'"'
  104.                     endgroup
  105.  
  106.                     group
  107.                         label LEFT SINGLE '"'rsctxt.25'"'
  108.                         button ICON '"btn-images/Btn_Sound"' COMMAND '"'ActionFile' TESTSAYREADY"' HELP '"'rsctxt.28'"' '"'rsctxt.29'"'
  109.                         button ICON '"btn-images/Btn_Sound"' COMMAND '"'ActionFile' TESTSAYTIME"' HELP '"'rsctxt.30 '"'rsctxt.31'"'
  110.                         button ICON '"btn-images/Btn_Sound"' COMMAND '"'ActionFile' TESTMUSIC"' HELP '"'rsctxt.32 '"'rsctxt.33'"'
  111.                         button ICON '"btn-images/Btn_Eye"' COMMAND '"'ActionFile' TESTPIC"' HELP '"'rsctxt.34 '"'rsctxt.35'"'
  112.                         button ICON '"btn-images/Btn_Shell"' COMMAND '"'ActionFile' SNAPSHELL"' HELP '"'rsctxt.36 '"'rsctxt.37'"'
  113.                     endgroup
  114.                 endgroup
  115.  
  116.                 group FRAME
  117.                     label LEFT SINGLE '"'rsctxt.38'"'
  118.                     label LEFT SINGLE '"'rsctxt.39'"'
  119.                     label LEFT SINGLE '"'rsctxt.40'"'
  120.                     label LEFT SINGLE '"'rsctxt.41'"'
  121.                     label LEFT SINGLE '"'rsctxt.42'"'
  122.                     button ICON '"btn-images/Btn_Start"' COMMAND '"'ActionFile' TESTSCRIPT"' HELP '"'rsctxt.43'"' '"'rsctxt.44'"'
  123.                     button ICON '"btn-images/Btn_Save"' COMMAND '"'ActionFile' SAVESTARTOPTS"' HELP '"'rsctxt.45'"' '"'rsctxt.46'"'
  124.                 endgroup
  125.             endgroup
  126.         endgroup
  127. /*------------------------------------------------------------------------------*/
  128.  
  129.         group
  130.             ThisFile=ActFile'2.txt'
  131.             view FILE ThisFile
  132.             group HORIZ
  133.                 group HORIZ FRAME
  134.                     group
  135.                         Option=MyGetENV("Flags/NEW_ICONS")
  136.                         IF (Option="0" | Option=" ") THEN check ID NEWICONS ATTRS MUIA_Selected 0 STRINGS '"0,1"' HELP '"'rsctxt.47'"'
  137.                         ELSE check ID NEWICONS ATTRS MUIA_Selected 1 STRINGS '"0,1"' HELP '"'rsctxt.47'"'
  138.  
  139.                         Option=MyGetENV("Flags/USE_MCP")
  140.                         IF (Option="0" | Option=" ") THEN check ID MCP ATTRS MUIA_Selected 0 STRINGS '"0,1"' HELP '"'rsctxt.48'"'
  141.                         ELSE check ID MCP ATTRS MUIA_Selected 1 STRINGS '"0,1"' HELP '"'rsctxt.48'"'
  142.  
  143.                         Option=MyGetENV("Flags/TalkToUser")
  144.                         IF (Option="0" | Option=" ") THEN check ID CSPK ATTRS MUIA_Selected 0 STRINGS '"0,1"' HELP '"'rsctxt.49'"'
  145.                         ELSE check ID CSPK ATTRS MUIA_Selected 1 STRINGS '"0,1"' HELP '"'rsctxt.49'"'
  146.                     endgroup
  147.  
  148.                     group
  149.                         label LEFT SINGLE '"'rsctxt.50'"'
  150.                         label LEFT SINGLE '"'rsctxt.51'"'
  151.                         label LEFT SINGLE '"'rsctxt.52'"'
  152.                     endgroup
  153.  
  154.                     group
  155.                         label LEFT SINGLE '"'rsctxt.53'"'
  156.                         button ID SetMCP COMMAND '"'ActionFile' SETMCP"' HELP '"'rsctxt.54'"' LABEL rsctxt.55
  157.                         label LEFT SINGLE '"'rsctxt.56'"'
  158.                     endgroup
  159.  
  160.                 endgroup
  161.  
  162.                 group FRAME
  163.                     label LEFT SINGLE '"'rsctxt.57'"'
  164.                     label LEFT SINGLE '"'rsctxt.58'"'
  165.                     button ICON '"btn-images/Btn_Save"' COMMAND '"'ActionFile' SAVEOTHERS"' HELP '"'rsctxt.59'"' '"'rsctxt.60'"'
  166.                 endgroup
  167.             endgroup
  168.         endgroup
  169. /*------------------------------------------------------------------------------*/
  170.     endgroup
  171. endwindow
  172. EXIT 0
  173.  
  174. /*----------------------------------------------------------------*/
  175. MyGetENV:     PROCEDURE
  176. PARSE ARG name
  177.  
  178. TheFile="ENV:" || name
  179. IF (open(TEMPFILE, TheFile, 'read')) THEN
  180. DO
  181.  ENVvalue=READLN(TEMPFILE)
  182.  Result=close(TEMPFILE)
  183. END
  184. ELSE
  185.  ENVvalue=" "
  186.  
  187. RETURN ENVvalue
  188.  
  189.