home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Converter / SBOX25B2.LHA / SoundBox / Install < prev    next >
Encoding:
Text File  |  1996-05-11  |  4.4 KB  |  206 lines
  1. ; ************************************************
  2. ; *
  3. ; * SoundBox - HD Install Script
  4. ; *
  5. ; * $VER: Install-SoundBox 1.40
  6. ; *
  7. ; * Script written by Richard Körber
  8. ; *
  9. ; ************************************************
  10.  
  11. ;------- Prompts ---------------------------------
  12. ;
  13. (set DestDirPrompt
  14.   (cat  "Where do you want to install SoundBox?\n"
  15.         "A new drawer will be created."
  16.   )
  17. )
  18. (set CopySBoxPrompt
  19.   "Copying SoundBox..."
  20. )
  21. (set LanguagePrompt
  22.   "What documentation language do you want?"
  23. )
  24. (set CopySBGuidePrompt
  25.   "Copying SoundBox guide..."
  26. )
  27. (set DockIconPrompt
  28.   "Do you want to copy the ToolManager dock icon?"
  29. )
  30. (set DockIconWherePrompt
  31.   "Where do you store the dock icons?"
  32. )
  33. (set CopyDockIconPrompt
  34.   "Copying dock icon..."
  35. )
  36. (set CopyLangPrompt
  37.   "Copying language catalogs..."
  38. )
  39.  
  40. ;------- Help ------------------------------------
  41. ;
  42. (set DestDirHelp
  43.   (cat  "Choose a directory where to place SoundBox to.\n"
  44.         "(e.g. Work:)"
  45.   )
  46. )
  47.  
  48. ;------- Messages --------------------------------
  49. ;
  50. (set StartupMsg
  51.   (cat  "\nSoundBox installation\n\n"
  52.         "This program installs the whole SoundBox\n"
  53.         "system to your hard disk.\n\n"
  54.         "This is only an evaluation version, with\n"
  55.         "some limitations. Please register to get\n"
  56.         "the fully functional version.\n\n"
  57.         "Please read the guide file to see how you\n"
  58.         "can obtain a registration."
  59.   )
  60. )
  61. (set AllrightMsg
  62.   (cat  "\nSoundBox is now installed.\n\n"
  63.         "And please don't forget to\n"
  64.         "register after one month ;-)\n\n"
  65.         "Have fun!\n\n"
  66.         "        Richard Körber"
  67.   )
  68. )
  69.  
  70. ;------- Files -----------------------------------
  71. ;
  72. (set SoundBoxFile   "SoundBox")
  73. (set GuideDFile     "SoundBox-D.guide")
  74. (set GuideEFile     "SoundBox-E.guide")
  75. (set GuidePicFile   "SoundBox.pic")
  76. (set DockIconFile   "SoundBoxDock.info")
  77. (set LangSource     "catalogs")
  78. (set LibSource1File "libs/provision.library")
  79. (set LibSource2File "libs/reqtools.library")
  80.  
  81. ;------- Installation ----------------------------
  82. ;
  83. (message StartupMsg)            ;-------- Welcome the user
  84.  
  85. (set DestDir                    ;-------- Ask dir to create drawer into
  86.   (askdir
  87.     (prompt  DestDirPrompt)
  88.     (help    DestDirHelp)
  89.     (default "Work:")
  90.   )
  91. )
  92. (set DestDir                            ; And create this directory
  93.   (tackon DestDir "SoundBox")
  94. )
  95. (makedir
  96.   (DestDir)
  97.   (infos)
  98. )
  99. (set @default-dest (DestDir))
  100.  
  101. (copyfiles                              ; Copy SoundBox
  102.   (prompt CopySBoxPrompt)
  103.   (help   @copyfiles-help)
  104.   (source SoundBoxFile)
  105.   (dest   DestDir)
  106.   (infos)
  107. )
  108.  
  109. (set Lang                               ; What language?
  110.   (askchoice
  111.     (prompt LanguagePrompt)
  112.     (help   @askchoice-help)
  113.     (choices "Deutsch" "English")
  114.     (default 1)
  115.   )
  116. )
  117.  
  118. (set GuideTarg DestDir)
  119. (if (= Lang 0)
  120.   (
  121.     (set GuideFile GuideDFile)
  122.     (if (= (exists "HELP:deutsch") 2)
  123.       (set GuideTarg "HELP:deutsch")
  124.     )
  125.   )
  126.   (
  127.     (set GuideFile GuideEFile)
  128.     (if (= (exists "HELP:english") 2)
  129.       (set GuideTarg "HELP:english")
  130.     )
  131.   )
  132. )
  133.  
  134. (copyfiles                              ; Copy SoundBox doc
  135.   (prompt  CopySBGuidePrompt)
  136.   (help    @copyfiles-help)
  137.   (source  GuideFile)
  138.   (dest    GuideTarg)
  139.   (newname "SoundBox.guide")
  140.   (infos)
  141. )
  142.  
  143. (copyfiles                              ; and picture
  144.   (help    @copyfiles-help)
  145.   (source  GuidePicFile)
  146.   (dest    GuideTarg)
  147.   (infos)
  148. )
  149.  
  150. (set DockIcon                           ; user needs dock icon?
  151.   (askbool
  152.     (prompt  DockIconPrompt)
  153.     (help    @askbool-help)
  154.     (default 0)
  155.   )
  156. )
  157.  
  158. (if (= DockIcon 1)                      ; Copy dock icon?
  159.   (
  160.     (set DockDest
  161.       (askdir
  162.         (help    @askdir-help)
  163.         (prompt  DockIconWherePrompt)
  164.         (default DestDir)
  165.       )
  166.     )
  167.     (copyfiles
  168.       (prompt  CopyDockIconPrompt)
  169.       (help    @copyfiles-help)
  170.       (source  DockIconFile)
  171.       (dest    DockDest)
  172.       (infos)
  173.     )
  174.   )
  175. )
  176.  
  177. (copyfiles                              ;Catalogs
  178.         (prompt CopyLangPrompt)
  179.         (help    @copyfiles-help)
  180.         (source LangSource)
  181.         (dest   "LOCALE:Catalogs")
  182.         (confirm)
  183.         (all)
  184. )
  185.  
  186. (copylib                                ;Libs
  187.         (prompt CopyLib1Prompt)
  188.         (help    @copyfiles-help)
  189.         (source LibSource1File)
  190.         (dest   "LIBS:")
  191.         (confirm)
  192. )
  193.  
  194. (copylib
  195.         (prompt CopyLib2Prompt)
  196.         (help    @copylib-help)
  197.         (source LibSource2File)
  198.         (dest   "LIBS:")
  199.         (confirm)
  200. )
  201.  
  202. (message AllrightMsg)
  203.  
  204. ;------- Done ------------------------------------
  205.  
  206.