home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / Welcome < prev    next >
AmigaDOS Script File  |  2001-02-20  |  7KB  |  247 lines

  1. .key CHECK/K,QUIET/K,VOL/K
  2. .bra {
  3. .ket }
  4.  
  5. ;set echo on
  6.  
  7. ;;; CD to AACD root if run from elsewhere, e.g. AutoRun
  8. cd >NIL: {VOL}
  9. ;;;
  10. ;;; Check argument - exit if Welcome has been run, otherwise ask
  11.     If {CHECK} EQ "YES"
  12.         Assign >NIL: AACD: EXISTS
  13.         If NOT WARN
  14.             Skip ABORT
  15.         Else
  16.             set init `:System/C/RequestChoice "Amiga Active CD" "Some assigns need to be made before we can proceed.*NYou can remove them later with the RemoveCD icon" "OK|Cancel"`
  17.             If $init EQ 0
  18.                 Skip ABORT
  19.                 EndIf
  20.             EndIf
  21.         EndIf
  22. ;;;
  23. ;;; Skip to HTML if Welcome has already been run
  24. Assign >NIL: AACD: EXISTS
  25. If NOT WARN
  26.     Skip HTML
  27.     EndIf
  28. ;;;
  29. ;;; Set up temporary assign
  30. Assign AACDtmp: :
  31. set ReqTitle Welcome to the Amiga Active CD
  32. ;;;
  33. ;;; Check for some system assigns
  34. ; MUI
  35. Assign MUI: EXISTS >NIL:
  36. If WARN
  37.     AACDtmp:System/C/RequestChoice >NIL: "`get ReqTitle`" "Some of the software on this CD requires MUI*NIf you use it regularly you should install MUI to your hard drive.*NThe installer is in the CDTools drawer of this CD" "I see"
  38.     Assign >NIL: MUI: AACDtmp:CDTools/MUI
  39.     Assign >NIL: LIBS: AACDtmp:CDTools/MUI/libs ADD
  40.     EndIf
  41. ; ClassAct
  42. If NOT EXISTS LIBS:window.class
  43.     AACDtmp:System/C/RequestChoice >NIL: "`get ReqTitle`" "Some of the software on this CD requires ClassAct*NIf you use it regularly you should install ClassAct to your hard drive.*NThe installer is in the CDTools drawer of this CD" "I see"
  44.     EndIf
  45. ;;;
  46. ;;; Start arexx if not running
  47. AACDtmp:System/rexxc/rx "address command" >NIL:
  48. If WARN
  49.     AACDtmp:System/System/RexxMast >NIL:
  50.     Wait 3
  51.     EndIf
  52. rx "call addlib('rexxsupport.library',0,-30,0)
  53. ;;;
  54. ;;; Make sure files needed by CD system are available
  55. ; muirexx.library
  56. If NOT EXISTS LIBS:muirexx.library
  57.     Copy >NIL: AACDtmp:CDTools/MUI/Libs/muirexx.library MUI:Libs CLONE
  58. Else
  59.     Version >NIL: muirexx.library 19 9
  60.     If WARN
  61.         Copy >NIL: AACDtmp:CDTools/MUI/Libs/muirexx.library MUI:Libs CLONE
  62.         EndIf
  63.     EndIf
  64.  
  65. ; icon.mcc
  66. Version >NIL: MUI:Libs/MUI/Icon.mcc 1 1
  67. If WARN
  68.     Copy >NIL: AACDtmp:Icon.mcc MUI:Libs/MUI CLONE
  69.     EndIf
  70.  
  71. ; MUIRexx
  72. cd CDTools
  73. which >NIL: MUIRexx
  74. if WARN
  75.     copy AACDtmp:MUIRexx SYS:Rexxc clone quiet
  76.     path SYS:Rexxc ADD
  77.     endif
  78. cd AACDtmp:
  79.  
  80. ; AACDfile
  81. If NOT EXISTS C:AACDfile
  82.     Copy >NIL: AACDtmp:System/C/AACDfile C: CLONE QUIET
  83.     EndIf
  84. ; AAShowDir
  85. Version >NIL: REXX:AAShowDir 1 6
  86. If WARN
  87.     Copy >NIL: AACDtmp:CDTools/S/AAShowDir REXX: CLONE
  88.     EndIf
  89. ; AAExtract
  90. Version >NIL: REXX:AAExtract 1 1
  91. If WARN
  92.     Copy >NIL: AACDtmp:CDTools/S/AAExtract REXX: CLONE
  93.     EndIf
  94. ; AAExtract
  95. Version >NIL: REXX:AAGoFetch 1 0
  96. If WARN
  97.     Copy >NIL: AACDtmp:CDTools/S/AAGoFetch REXX: CLONE
  98.     EndIf
  99. ; IDer
  100. Version >NIL: C:IDer 1 6
  101. If WARN
  102.     Copy >NIL: AACDtmp:System/C/IDer C: CLONE
  103.     EndIf
  104. ; FlashFind
  105. which >NIL: FlashFind
  106. If WARN
  107.     copy AACDtmp:System/C/FlashFind C: clone quiet
  108.     Endif
  109. ; AWeb config
  110. If NOT EXISTS ENVARC:AWeb3DEMO
  111.     Makedir >NIL: ENVARC:AWeb3DEMO
  112.     Makedir >NIL: ENV:AWeb3DEMO
  113.     Endif
  114. If NOT EXISTS ENVARC:AWeb3DEMO/Amigactive
  115.     Makedir >NIL: ENVARC:AWeb3DEMO/Amigactive
  116.     Makedir >NIL: ENV:AWeb3DEMO/Amigactive
  117.     Copy AACDtmp:System/Prefs/env-archive/AWeb3DEMO/Amigactive/#? ENVARC:AWeb3DEMO/Amigactive CLONE QUIET
  118.     Copy AACDtmp:System/Prefs/env-archive/AWeb3DEMO/Amigactive/#? ENV:AWeb3DEMO/Amigactive CLONE QUIET
  119.     Endif
  120. If EXISTS ENVARC:AWeb3
  121.     If NOT EXISTS ENVARC:AWeb3/Amigactive
  122.         Makedir >NIL: ENVARC:AWeb3/Amigactive
  123.         Makedir >NIL: ENV:AWeb3/Amigactive
  124.         Copy AACDtmp:System/Prefs/env-archive/AWeb3DEMO/Amigactive/#? ENVARC:AWeb3/Amigactive CLONE QUIET
  125.         Copy AACDtmp:System/Prefs/env-archive/AWeb3DEMO/Amigactive/#? ENV:AWeb3/Amigactive CLONE QUIET
  126.         Endif
  127.     Endif
  128. ;;;
  129. ;;; Give option for setting CD preferences, if not already done
  130. If NOT EXISTS ENV:AACD.prefs
  131.     If NOT EXISTS S:AACD.prefs
  132.         Version >NIL: version 39
  133.         If NOT WARN
  134.             Copy >NIL: AACDtmp:CDTools/S/AACD.prefs ENV:
  135.             Copy >NIL: AACDtmp:CDTools/S/AACD.prefs ENVARC:
  136.             set NoPrefs 1
  137.         Else
  138.             Copy >NIL: AACDtmp:CDTools/S/AACD.prefs_OS2 ENV:AACD.prefs
  139.             EndIf
  140.         EndIf
  141.     EndIf
  142. If NOT EXISTS ENV:AACDfile.prefs
  143.     If NOT EXISTS S:AACDfile.prefs
  144.         Version >NIL: version 39
  145.         If NOT WARN
  146.             Copy >NIL: AACDtmp:CDTools/S/AACDfile.prefs ENV:
  147.             Copy >NIL: AACDtmp:CDTools/S/AACDfile.prefs ENVARC:
  148.             set NoPrefs 1
  149.         Else
  150.             Copy >NIL: AACDtmp:CDTools/S/AACDfile.prefs_OS2 ENV:AACDfile.prefs
  151.             EndIf
  152.         EndIf
  153.     EndIf
  154. If $NoPrefs EQ 1
  155.     set edit `RequestChoice "Amigaactive CD" "AACD has a preferences program to specify*N the tools used to view/hear different types of files.*NWould you like to run it now?" "Yes|No"`
  156.     If $edit EQ 1
  157.         stack 16384
  158.         MuiRexx AACDPrefs port AACDPREFS
  159.     Else
  160.         RequestChoice >NIL: "Amiga Active CD" "You can run AACD preferences at any time.*NEither from its icon or from the Setup page of the documentation." "OK"
  161.         EndIf
  162.     EndIf
  163. ;;;
  164. ;;; Set assigns for programs on this CD and system drawers
  165. Execute AACDtmp:CDTools/S/ThisCD
  166. Assign >NIL: DEVS:    AACDtmp:System/Devs ADD
  167. Assign >NIL: Fonts:   AACDtmp:System/Fonts ADD
  168. Assign >NIL: Libs:    AACDtmp:System/Libs ADD
  169. Assign >NIL: L:       AACDtmp:System/L ADD
  170. Assign >NIL: S:       AACDtmp:CDTools/S ADD
  171. Assign >NIL: REXX:    AACDtmp:CDTools/S ADD
  172. Assign >NIL: LIBS:    AACDtmp:System/Classes ADD
  173.  
  174. ; Make environment variables defined on CD available to system
  175. Failat 21
  176. Assign >NIL: ENV: AACDtmp:System/Prefs/Env-Archive ADD
  177. ; For HappyENV users
  178. If FAIL
  179.     Assign >NIL: ENVARC: AACDtmp:System/Prefs/Env-Archive ADD
  180.     EndIf
  181. ;;;
  182. ;;;Check for NewIcons if not already running
  183. If $NoNewIcons NOT EQ TRUE
  184.     AACDtmp:System/C/isnirunning
  185.     If NOT WARN
  186.         Version >NIL: Version 44
  187.         If Warn
  188.             set RunNI `AACDtmp:System/C/RequestChoice "Amiga Active CD" "This CD is set up for use with NewIcons*NIf you do not run Newicons the icon*Nimages and layout may look strange.*N*NWould you like to run NewIcons now?" "Yes|No"`
  189.             If $RunNI EQ 1
  190.                 Run <>NIL: AACDtmp:System/C/NewIcons
  191.                 EndIf
  192.             EndIf
  193.         EndIf
  194.     EndIf
  195. ;;;
  196. ;;; Change temporary assign to permanent one
  197. If {QUIET} NOT EQ "YES"
  198.     Run >NIL: RequestChoice >NIL: "`get ReqTitle`" "We have set up some assigns to run software from the CD.*N*NIf you wish to remove the CD from the drive, doubleclick the RemoveCD icon,*Notherwise the icon will stay on your Workbench." " OK "
  199.     Endif
  200. Assign AACD: AACDtmp:
  201. Assign AACDtmp:
  202. ;;;
  203. ;;; Do this if this is the first time this CD has been initialised
  204. If `cd` GT $AACDlast
  205.     rx AACD:CDTools/S/UpdateIndices
  206.     setenv ENVARC:AACDNewsFlash 1
  207.     setenv AACDlast `cd`
  208.     copy ENV:AACDlast ENVARC: QUIET
  209.     EndIf
  210. ;;;
  211. ;;; Load HTML - using registered AWeb if available
  212. LAB HTML
  213. If {QUIET} EQ "YES"
  214.     If NOT EXISTS ENVARC:AACDNewsFlash
  215.         Skip END
  216.         EndIf
  217.     EndIf
  218. set Browser AACD:AACD/Information/Browsers/AWeb3/AWebDemo
  219. Assign >NIL: AWeb3: EXISTS
  220. If NOT WARN
  221.     Version >NIL: AWeb3:AWeb-II 3 3
  222.     If NOT WARN
  223.         set Browser AWeb3:AWeb-II
  224.         If NOT EXISTS ENVARC:AWeb3/Amigactive
  225.             Makedir >NIL: ENVARC:AWeb3/Amigactive
  226.             Makedir >NIL: ENV:AWeb3/Amigactive
  227.             copy >NIL: AACD:System/Prefs/Env-Archive/AWeb3DEMO/AmigActive/#? ENVARC:AWeb3/Amigactive clone
  228.             copy >NIL: AACD:System/Prefs/Env-Archive/AWeb3DEMO/AmigActive/#? ENV:AWeb3/Amigactive clone
  229.             EndIf
  230.         EndIf
  231.     EndIf
  232. If $AACDView EQ "Lo-Res"
  233.     Run >NIL: $Browser `cd`Welcome_Lores.html LOCAL CONFIG Amigactive
  234. Else
  235.     Run >NIL: $Browser `cd`Welcome.html LOCAL CONFIG Amigactive
  236.     EndIf
  237. rx CDTools/S/HideButtons.awebrx
  238. If EXISTS ENVARC:AACDNewsFlash
  239.     Run >NIL: rx AACD:CDTools/S/NewsFlash.awebrx
  240.     EndIf
  241. ;;;
  242. ;;; Abort
  243. LAB END
  244. LAB ABORT
  245. ;;;
  246.  
  247.