home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / a / audiothunderv1.1.dms / audiothunderv1.1.adf / Install-Audio_Thunder < prev    next >
Text File  |  1996-09-03  |  5KB  |  195 lines
  1. ;$VER: Audio Thunder Install 1.0 (3.9.96) 
  2. ;Copyright ©1996 Asimware Innovations Inc.
  3.  
  4. (complete 0)
  5.  
  6.  
  7. (onerror 
  8.     ((makeassign "AMInst")
  9.     (makeassign "AM_Dest")
  10. ))
  11.  
  12. (set @default-dest "SYS:")
  13. (set #theirlevel @user-level )
  14.  
  15. (set #wbversion (getversion "libs:version.library"))
  16. (set #wbversion (/ #wbversion 65536) )
  17. (if (< #wbversion 37)
  18.     (abort "\n\nAmigaDOS 2.0 or higher is required for Audio Thunder.  "
  19.              "An upgrade will be needed for your Amiga."
  20.              "\n\nYou are currently running version " #wbversion ".\n\n"
  21.              "Also ensure that your libs:version.library file is correct "
  22.              "for your AmigaDOS version." )
  23. )
  24.  
  25.  
  26.  
  27.  
  28. (if (exists "l:AsimCDFS")
  29.     ((set #version (getversion "devs:asimcdfs.device"))        
  30.     (set #asimversion (/ #version 65536) )
  31.     (set #asimrevision (- #version (* #asimversion 65536) ) )
  32.     (if (< #version 196614)
  33.         ((user 2)
  34.         (message "\n\nYou have AsimCDFS v" #asimversion "." #asimrevision " installed on your system.  "
  35.                  "Audio Thunder will function better with AsimCDFS v3.6, or higher.  Consult Asimware Innovations Inc. for update details.\n\n" )
  36.         )
  37.     ))
  38. )
  39.  
  40.  
  41.  
  42. (askdisk
  43.     (prompt "Please insert the CD-ROM disc labeled \"Audio_Thunder_MasterCD\".")
  44.     (help    "The Audio Thunder program and files will be copied "
  45.             "from this disk into your system.")
  46.     (dest  "Audio_Thunder_MasterCD")
  47.     (newname "AMInst")
  48. )
  49.  
  50.  
  51.  
  52. (user 2)
  53. (set #AMDir
  54.     (askdir
  55.         (prompt "Specify the directory in which the Audio_Thunder directory will be created:" )
  56.         (help "An Audio_Thunder directory will be created in this specified directory.")
  57.         (default @default-dest)
  58.         (newpath)
  59.     )
  60. )
  61. (user #theirlevel)
  62.  
  63.  
  64. (set #AMDir (tackon #AMDir "Audio_Thunder"))
  65.  
  66.  
  67. (if (not (exists #AMDir (noreq)))
  68.     (makedir #AMDir
  69.         (prompt "Creating the Audio_Thunder: directory...")
  70.         (help "This will create the specified directory for the program.")
  71.         (infos)
  72.         )
  73. )
  74. (makeassign "AM_Dest" #AMDir)
  75.  
  76.  
  77.  
  78. (set #instAM
  79.     (askbool
  80.         (prompt "\n\nShould Audio Thunder be installed?")
  81.         (help "\n\nThis will copy over the Audio Thunder program "
  82.                 "to the " #AMDir " directory\n\nIf you do not "
  83.                 "wish the Audio Thunder program to be transferred to your system, "
  84.                 "skip this step.\n" )
  85.         (default 1)
  86.     )
  87. )
  88.  
  89. (if #instAM 
  90.     ((protect "AM_Dest:Audio_Thunder" "rwed" )
  91.     (protect "AM_Dest:Audio_Thunder.info" "rwed" )
  92.  
  93.  
  94.  
  95.  
  96. ;***************************************************
  97. ; copy over main program 
  98.     (copyfiles
  99.         (prompt "\n\nCopying the Audio_Thunder program to the "
  100.                   #AMDir " directory.\n" )
  101.         (source "AMInst:Audio_Thunder")
  102.         (dest "AM_Dest:")
  103.         (infos)
  104.         (help "\n\nThis will copy over the Audio_Thunder program"
  105.                 "to your"  #AMDir " directory.\n" )
  106.         (confirm)
  107.     )
  108.  
  109.     (tooltype
  110.         (prompt "\n\Setting Audio_Thunder icon.\n" )
  111.         (dest "AM_Dest:Audio_Thunder")
  112.         (noposition)
  113.         (help "\n\nThis will reset the Audio_Thunder icon.\n")
  114.         (confirm)
  115.     )
  116.  
  117.  
  118.  
  119. ;***************************************************
  120. ; make FlyerBuffer directory
  121.     (set #temp "AM_Dest:FlyerBuffer")
  122.     (if (not (exists #temp (noreq)))
  123.         (makedir #temp
  124.             (prompt "Creating the Audio_Thunder:FlyerBuffer directory...")
  125.             (help "This will create a sub-directory which can be used to buffer Flyer audio clips.")
  126.             (infos)
  127.             )
  128.     )
  129.  
  130.     
  131.  
  132.  
  133.  
  134. ;***************************************************
  135. ; make Project directory
  136.     (set #temp "AM_Dest:Projects")
  137.     (if (not (exists #temp (noreq)))
  138.         (makedir #temp
  139.             (prompt "Creating the Audio_Thunder:Projects directory...")
  140.             (help "This will create a sub-directory which can be used to store saved projects.")
  141.             (infos)
  142.             )
  143.     )
  144. ))
  145.  
  146. (protect "S:User-Startup" "rwed" )
  147. (protect "S:Startup-Sequence" "rwed" )
  148.  
  149. (startup "Audio_Thunder"
  150.     (command (cat "assign Audio_Thunder: \"" #AMDir "\"\n"))
  151.     (prompt "Inserting assignment command into the startup-sequence")
  152.     (help "Assignment commands are being inserted into your "
  153.             "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  154.             "allow Audio_Thunder to find the needed files." )
  155. )
  156.  
  157.  
  158.  
  159. (set #Toast "Toaster:ARexx/Editor/StartUpScripts")
  160.  
  161. (if (exists #Toast (noreq))
  162.     (
  163.     ;***************************************************
  164.     ; copy over toaster startup
  165.     (copyfiles
  166.         (prompt "\n\nCopying the Audio_Thunder program to the "
  167.                   "Toaster:ARexx/Editor/Asimware directory.\n" )
  168.         (source "AMInst:Audio_Thunder.Rexx")
  169.         (dest #Toast )
  170.         (help "\n\nThis will copy over the Audio_Thunder program"
  171.                 "to your " #Toast " directory.\n" )
  172.         (confirm)
  173.     )
  174.  
  175.     (copyfiles
  176.         (prompt "\n\nCopying the Audio_Thunder icon to the "
  177.                   "Toaster:ARexx/Editor/Asimware directory.\n" )
  178.         (source "AMInst:Audio_Thunder.Rexx.I")
  179.         (dest #Toast )
  180.         (help "\n\nThis will copy over the Audio_Thunder icon"
  181.                 "to your " #Toast " directory.\n" )
  182.         (confirm)
  183.     )
  184.     )
  185. )
  186.  
  187.  
  188.  
  189. (set @default-dest #AMDir )
  190.  
  191. (makeassign "Audio_Thunder" #AMDir)
  192.  
  193. (makeassign "AMInst")
  194. (makeassign "AM_Dest")
  195.