home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / DasModulePlayer3,4R.LHA / DASModPlayer / Install-DASMP < prev    next >
Encoding:
Text File  |  1994-09-20  |  11.4 KB  |  504 lines
  1. ; This is installation script (V1.5a) for D.A.S.ModulePlayer V3.4
  2.  
  3. (set daseplibsource "libs/dasmp")
  4. (set dasextarcsource "ENV/dasmp.extarc")
  5. (set dasauthorsource "ENV/dasmp.author")
  6. (set arexxsource    "rexx")
  7. (set #copying-eplib     "Copying External Player Libraries... ")
  8. (set #copying-exes      "Copying Executables and guide files... ")
  9. (set #copying-arexx     "Copying example arexx scripts...")
  10. (set #exists-extarc
  11. (cat    "dasmp.extarc was already found from your ENV: drawer "
  12.         "Would you like to overwrite it? This may destroy "
  13.         "previous settings you may have done for external archivers. "))
  14. (set #exists-author
  15. (cat    "dasmp.author was already found from your ENV: drawer "
  16.         "Would you like to overwrite it? This will destroy "
  17.         "previous settings you may have done for your author listing. "))
  18.                 
  19. (set #copy-extarc       
  20. (cat    "Would you like to have an example external archiver "
  21.         "listfile copied to your ENV: and ENVARC:? This listing "
  22.         "is required if you want to use external archivers (such as LHA) "
  23.         "This example file includes examples for LHA and ZIP archivers. "))
  24. (set #copy-author
  25. (cat    "Would you like to have an example author listing "
  26.         "file copied to your ENV: and ENVARC:? "
  27.         "If you have your own author listing done this will "
  28.         "Overwrite it. This includes atleast the same as previous "
  29.         "example author files."))
  30.  
  31. (set #copy-magicwb
  32. (cat    "Would you like to have neat 8-color MAGIC WB "
  33.         "icons copied instead of those dull 4 color ones? "))
  34.  
  35. (set #scandir-do
  36. (cat    "Would you like to select a directory which will "
  37.         "be scanned everytime you run D.A.S.MP? "))
  38. (set #blaahlastwords
  39. (cat    "Now that you have installed D.A.S.MP: "
  40.         "If you want to play other than PT/NT modules "
  41.         "You have to add appropriate EPL files to "
  42.         "External Player List in Config page 5. "
  43.         "Read the manual for more infomation. "))
  44.  
  45. (set #blaahlastwords2
  46. (cat    "There is fake damsp.key file available from pirate BBS's "
  47.         "Using the Fake/Cracked dasmp.key file is direct violation "
  48.         "of copyright laws and WILL cause appropriate measures to "
  49.         "be taken. Using fake key file may cause anything. "
  50.         "You have been warned! "
  51.         "(Unregistered and registered users are safe)"))
  52.  
  53.  
  54. (set #copy-arexx
  55. (cat    "Do you want to have example arexx script copied?"))
  56. (set #copy-020libs
  57. (cat "Do you want to copy 68020++ specific libraries? "
  58.      "You will need MC68020 or better for these to work. "))
  59. (set @default-dest
  60.     (askdir
  61.         (prompt "Please select directory to install D.A.S.MP into. ")
  62.     (help "You must select a directory into which D.A.S.ModulePlayer "
  63.     "will be installed. There should be around 400 KB space "
  64.     "available for full software installation. Directory is "
  65.     "not created by the script. "
  66.     @askdir-help
  67.     )
  68.     (default "SYS:")
  69.     )
  70. )
  71.  
  72. (set @default-docdest
  73.     (askdir
  74.         (prompt "Please select directory to install Documents into. "
  75.         "Documents include: Dasmp.guide, Dasmp.guide.info. ")
  76.     (help "Dasmp.guide file will be copied to this destination "
  77.     @askdir-help
  78.     )
  79.     (default @default-dest)
  80.     )
  81. )
  82.  
  83.  
  84. (complete 5)
  85.  
  86. (copyfiles
  87.     (prompt "\n" #copying-exes)
  88.     (help "")
  89.     (source "dasmodplayer")
  90.     (dest @default-dest)
  91. )
  92. (copyfiles
  93.     (prompt "\n" #copying-exes)
  94.     (help "")
  95.     (source "converter")
  96.     (dest @default-dest)
  97.     (infos)
  98. )
  99.  
  100. (complete 25)
  101. (copyfiles
  102.     (prompt "\n" #copying-exes)
  103.     (help "")
  104.     (source "dasmp.guide")
  105.     (dest @default-docdest)    
  106.     (infos)
  107. )
  108. (if (< (/ (getversion) 65536) 39)
  109. (
  110.     (tooltype
  111.         (dest (tackon @default-docdest "dasmp.guide"))
  112.         (setdefaulttool "SYS:Utilities/AmigaGuide")
  113.     )
  114. ))
  115.  
  116. (set doregdoc (exists "l:dasmp.key"))
  117. (if (= doregdoc 0)
  118. (copyfiles
  119.     (prompt "\n" #copying-docs)
  120.     (help "")
  121.     (source "Register.doc")
  122.     (dest @default-dest)
  123.     (infos)
  124. ))
  125.  
  126. (set @default-ldest
  127.     (askdir
  128.         (prompt "Please select directory to install D.A.S.MP "
  129.         "External player libraries (EPL) into. ")
  130.     (help "You may select any directory you wish. To use these "
  131.         "External player libraries, you will have to add them "
  132.         "one by one from the D.A.S.MP itself. "
  133.     @askdir-help)
  134.     (default "LIBS:")
  135.     )
  136. )
  137. (complete 50)
  138.  
  139. ; EPL COPY ------------------------------------------------------
  140. (set tools
  141.     (askoptions
  142.         (prompt "Which EPLs you want to install?")
  143.         (help @askoptions-help)
  144.         (choices "S3M player" "MTM Player" "6-8 Channel mods" "QuadraComposer" "Future Composer" "(Octa)Med" 
  145.         "PT/NT FAST ram" "Sound Mon 2.0" "MULT (6 formats)" "SID" "TFMX")
  146.     )
  147. )
  148.  
  149. (if (in tools 0)
  150. (
  151. (copyfiles
  152.  (prompt "\n" #copying-eplib)
  153.  (help @copylib-help)
  154.  (source "libs/dasmp/dasS3M0.library")
  155.  (dest @default-ldest)
  156. )
  157. ))
  158.  
  159. (if (in tools 1)
  160. (
  161. (copyfiles
  162.  (prompt "\n" #copying-eplib)
  163.  (help @copylib-help)
  164.  (source "libs/dasmp/dasMTM.library")
  165.  (dest @default-ldest)
  166. )
  167. ))
  168.  
  169. (if (in tools 2)
  170. (
  171. (copyfiles
  172.  (prompt "\n" #copying-eplib)
  173.  (help @copylib-help)
  174.  (source "libs/dasmp/das68CH.library")
  175.  (dest @default-ldest)
  176. )
  177. ))
  178. (if (in tools 3)
  179. (
  180. (copyfiles
  181.  (prompt "\n" #copying-eplib)
  182.  (help @copylib-help)
  183.  (source "libs/dasmp/dasQC20.library")
  184.  (dest @default-ldest)
  185. )
  186. ))
  187. (if (in tools 4)
  188. (
  189. (copyfiles
  190.  (prompt "\n" #copying-eplib)
  191.  (help @copylib-help)
  192.  (source "libs/dasmp/dasFC.library")
  193.  (dest @default-ldest)
  194. )
  195. ))
  196. (if (in tools 5)
  197. (
  198. (copyfiles
  199.  (prompt "\n" #copying-eplib)
  200.  (help @copylib-help)
  201.  (source "libs/dasmp/dasMMD0.library")
  202.  (dest @default-ldest)
  203. )
  204. ))
  205. (if (in tools 6)
  206. (
  207. (copyfiles
  208.  (prompt "\n" #copying-eplib)
  209.  (help @copylib-help)
  210.  (source "libs/dasmp/dasFAST.library")
  211.  (dest @default-ldest)
  212. )
  213. ))
  214. (if (in tools 7)
  215. (
  216. (copyfiles
  217.  (prompt "\n" #copying-eplib)
  218.  (help @copylib-help)
  219.  (source "libs/dasmp/dasSM20.library")
  220.  (dest @default-ldest)
  221. )
  222. ))
  223. (if (in tools 8)
  224. (
  225. (copyfiles
  226.  (prompt "\n" #copying-eplib)
  227.  (help @copylib-help)
  228.  (source "libs/dasmp/dasMULT.library")
  229.  (dest @default-ldest)
  230. )
  231. ))
  232. (if (in tools 9)
  233. (
  234. (copyfiles
  235.  (prompt "\n" #copying-eplib)
  236.  (help @copylib-help)
  237.  (source "libs/dasmp/dasSID.library")
  238.  (dest @default-ldest)
  239. )
  240. ))
  241. (if (in tools 10)
  242. (
  243. (copyfiles
  244.  (prompt "\n" #copying-eplib)
  245.  (help @copylib-help)
  246.  (source "libs/dasmp/dasTFMX.library")
  247.  (dest @default-ldest)
  248. )
  249. ))
  250. (if 
  251.     (askbool
  252.         (prompt #copy-020libs)
  253.         (help "")
  254.         (default 1)
  255.     )
  256.     (
  257.     (set tools
  258.         (askoptions
  259.             (prompt "Select the 020 optimized libraries to install.")
  260.             (help @askoptions-help)
  261.             (choices "S3M player" "MTM Player" "6-8 Channel mods")
  262.         )
  263.     )
  264. (if (in tools 0)
  265. (
  266. (copyfiles
  267.  (prompt "\n" #copying-eplib)
  268.  (help @copylib-help)
  269.  (source "libs/dasmp/020/dasS3M0.library")
  270.  (dest @default-ldest)
  271. )
  272. ))
  273.  
  274. (if (in tools 1)
  275. (
  276. (copyfiles
  277.  (prompt "\n" #copying-eplib)
  278.  (help @copylib-help)
  279.  (source "libs/dasmp/020/dasMTM.library")
  280.  (dest @default-ldest)
  281. )
  282. ))
  283.  
  284. (if (in tools 2)
  285. (
  286. (copyfiles
  287.  (prompt "\n" #copying-eplib)
  288.  (help @copylib-help)
  289.  (source "libs/dasmp/020/das68CH.library")
  290.  (dest @default-ldest)
  291. )
  292. ))
  293.  
  294. ))   ; End 020 optimized library install
  295.  
  296. ; Example lists --------------------------------------------------------
  297.  
  298. (set tools
  299.     (askoptions
  300.         (prompt "Select what parts to install. "
  301.                 "These will override old lists/scripts. " )
  302.         (help @askoptions-help)
  303.         (choices "Example: External arc list" "Example: Author list" "Example: Rexx scripts")
  304.     )
  305. )
  306.  
  307. (if (in tools 0)
  308. (
  309.     (
  310.         (if (exists "ENV:dasmp.extarc")
  311.             (askbool
  312.                 (prompt #exists-extarc)
  313.                 (help "")
  314.                 (default 1)
  315.             )
  316.             (
  317.                 (copyfiles
  318.                 (source dasextarcsource)
  319.                 (dest "ENVARC:")        
  320.                 )
  321.                 (copyfiles
  322.                 (source dasextarcsource)
  323.                 (dest "ENV:")
  324.                 )
  325.             )
  326.     ))
  327. ))
  328. (if (in tools 1)
  329. (
  330.     (if (exists "ENV:dasmp.author")
  331.         (askbool
  332.         (prompt #exists-author)
  333.         (help "")
  334.         (default 1)
  335.         )
  336.     (
  337.     (copyfiles
  338.         (source dasauthorsource)
  339.         (dest "ENVARC:")    
  340.     )
  341.     (copyfiles
  342.         (source dasauthorsource)
  343.         (dest "ENV:")
  344.     )
  345.     )
  346. )))
  347. (if (in tools 2)
  348. (
  349.       (set @default-rexxdest
  350.             (askdir
  351.             (prompt "Please select directory to install example "
  352.             "arexx scripts to. ")
  353.             (help @askdir-help)
  354.             (default "rexx:")
  355.             ))
  356.         (copyfiles
  357.             (prompt "\n" #copying-arexx)
  358.             (help "")
  359.             (source "rexx")
  360.             (dest @default-rexxdest)
  361.             (all)    
  362.         )
  363. ))
  364.  
  365. ;(if
  366. ;    (askbool
  367. ;        (prompt #copy-extarc)
  368. ;       (help "")
  369. ;        (default 1)
  370. ;    )
  371. ;    (
  372. ;        (if (exists "ENV:dasmp.extarc")
  373. ;            (askbool
  374. ;                (prompt #exists-extarc)
  375. ;                (help "")
  376. ;                (default 1)
  377. ;            )
  378. ;            (
  379. ;                (copyfiles
  380. ;                (source dasextarcsource)
  381. ;                (dest "ENVARC:")        
  382. ;                )
  383. ;                (copyfiles
  384. ;                (source dasextarcsource)
  385. ;                (dest "ENV:")
  386. ;                )
  387. ;            )
  388. ;    )
  389. ;    )
  390. ;)
  391. ;(if
  392. ;    (askbool
  393. ;        (prompt #copy-author)
  394. ;        (help "")
  395. ;        (default 1)
  396. ;    )
  397. ;    (
  398. ;    (copyfiles
  399. ;        (source dasauthorsource)
  400. ;        (dest "ENVARC:")    
  401. ;    )
  402. ;    (copyfiles
  403. ;        (source dasauthorsource)
  404. ;        (dest "ENV:")
  405. ;    )
  406. ;    )
  407. ;)
  408.  
  409. (complete 70)
  410.  
  411. ;(if
  412. ;    (askbool
  413. ;        (prompt #copy-arexx)
  414. ;        (help "")
  415. ;        (default 1)
  416. ;    )
  417. ;
  418. ;    (           ; start of if statement
  419. ;      (set @default-rexxdest
  420. ;            (askdir
  421. ;            (prompt "Please select directory to install example "
  422. ;            "arexx scripts to. ")
  423. ;            (help @askdir-help)
  424. ;            (default "rexx:")
  425. ;            ))
  426. ;        (copyfiles
  427. ;            (prompt "\n" #copying-arexx)
  428. ;            (help "")
  429. ;            (source "rexx")
  430. ;            (dest @default-rexxdest)
  431. ;            (all)    
  432. ;    )))
  433. (set dasicon (tackon @default-dest "dasmodplayer.info"))
  434. (set doinfo (exists dasicon))
  435. (if (= doinfo 0)
  436. (
  437. (copyfiles
  438.     (prompt "\n" #copying-exes)
  439.     (help "")
  440.     (source "DMODPAPPICON.info")
  441.     (dest @default-dest)
  442. )
  443. (copyfiles
  444.     (prompt "\n" #copying-exes)
  445.     (help "")
  446.     (source "dasmodplayer.info")
  447.     (dest @default-dest)
  448. )
  449. (if
  450.     (askbool
  451.         (prompt #copy-magicwb)
  452.         (help "")
  453.         (default 1)
  454.     )
  455.     (
  456.     (copyfiles
  457.         (source "MagicWB-icons")
  458.         (dest @default-dest)
  459.         (all)
  460.     )
  461.     )
  462. ))
  463. )
  464. (if (exists "HELP:English")
  465.     (
  466.     (copyfiles
  467.         (source "Locale/help/English/dasmphelp.guide")
  468.         (dest "HELP:English")
  469.     )
  470.     (tooltype
  471.     (dest (tackon @default-dest "dasmodplayer"))
  472.     (help @tooltype-help)
  473.     (settooltype "ONLINEHELP" "HELP:English/dasmphelp.guide")
  474.     )
  475. ))
  476. (complete 90)
  477.  
  478. (if
  479.     (askbool
  480.         (prompt #scandir-do)
  481.         (help "")
  482.         (default 0)
  483.     )
  484.  
  485.     (           ; start of if statement
  486.       (set @default-scandest
  487.             (askdir
  488.             (prompt "Please select directory to scan. ")
  489.             (help @askdir-help)
  490.             (default "sys:")
  491.             ))
  492.  
  493.         (tooltype
  494.             (prompt "Setting scandir tooltype")
  495.             (dest (tackon @default-dest "dasmodplayer"))
  496.             (settooltype "SCANDIR" @default-scandest)
  497.  
  498.     )))
  499.  
  500.  
  501. (complete 100)
  502. (message #blaahlastwords)
  503. ;(message #blaahlastwords2)
  504.