home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / cd-rom / mcdp / mcdp_install < prev    next >
Encoding:
Text File  |  1998-01-25  |  2.9 KB  |  142 lines

  1. (welcome "Welcome to the MCDPlayer installation utility.")
  2.  
  3. (set @default-dest
  4.    (askdir
  5.       (prompt "Where would you like MCDP to be installed?")
  6.       (help "Choose a directory to install the program ind its other\nfiles into.")
  7.       (default "SYS:Utilities/")
  8.    )
  9. )
  10.  
  11. (if
  12.    (askbool
  13.       (prompt "Should I create a new directory in\n" @default-dest "?")
  14.       (help "Yes = install MCDP here.\nNo  = install MCDP in here/MCDP")
  15.       (default 0)
  16.    )
  17.    (set @default-dest
  18.       (tackon @default-dest "MCDP/")
  19.    )
  20. )
  21.  
  22. (set FileThere
  23.    (exists @default-dest
  24.       (noreq)
  25.    )
  26. )
  27.  
  28. (if
  29.    (= FileThere 1)
  30.    (abort @default-dest "\nis a file. I can't install MCDP here.")
  31. )
  32.  
  33. (if
  34.    (= FileThere 0)
  35.    (makedir @default-dest)
  36. )
  37.  
  38. (set DoPatch 0)
  39.  
  40. (copyfiles
  41.    (prompt "Copying player...")
  42.    (source "")
  43.    (choices "MCDPlay" "MCDPlay.info")
  44.    (dest @default-dest)
  45. )
  46.  
  47. (copyfiles
  48.    (prompt "Installing fonts...")
  49.    (source "Fonts/")
  50.    (all)
  51.    (dest "FONTS:")
  52. )
  53.  
  54. (if
  55.    (askbool
  56.       (prompt "Do you want the CD definitions installed?")
  57.       (help "MCDP comes with many CD listings. This section installs them.")
  58.       (default 1)
  59.    )
  60.    (
  61.       (message "Installing disc descriptions...")
  62.       (run "lha x Disks.lha " @default-dest)
  63.    )
  64.    (if (= 0 (exists (tackon @default-dest "Disks")))
  65.       (makedir (tackon @default-dest "Disks"))
  66.    )
  67. )
  68.  
  69. (tooltype
  70.    (prompt "Setting the default disc directory...")
  71.    (dest
  72.       (tackon @default-dest "MCDPlay")
  73.    )
  74.    (settooltype "SongPath"
  75.       (tackon @default-dest "Disks/")
  76.    )
  77. )
  78.  
  79. (if 
  80.   (askbool
  81.      (prompt "Do you want to install the default control panel images?")
  82.      (help "MCDP comes with one custom control panel")
  83.      (default 1)
  84.   )
  85.   (copyfiles
  86.      (prompt "Install the control panel images?")
  87.      (source "")
  88.      (help "Gimme a dir")
  89.      (choices "Panel.brs" "Paneld.brs")
  90.      (dest @default-dest)
  91.   )
  92. )
  93.  
  94. (if
  95.   (askbool
  96.     (prompt "Do you want to add comments to existing CD definitions?")
  97.     (help "I can add the CD title as a comment to each definition you have.")
  98.     (default 1)
  99.   )
  100.   (
  101.     (message "Adding comments to disc IDs...")
  102.     (run (cat "AddCDComment " (tackon @default-dest "Disks/")))
  103.   )
  104. )
  105.  
  106. (tooltype
  107.    (dest (tackon @default-dest "MCDPlay"))
  108.    (settooltype "FONTNAME"
  109.       (select 
  110.          (askchoice
  111.             (prompt "Which font do you want to use?")
  112.             (help "Choose the default font.")
  113.             (default 0)
  114.             (choices
  115.                "Standard"
  116.                "Dot"
  117.                "LCD"
  118.             )
  119.          )
  120.          "MCDP_STD.font"
  121.          "MCDP_DOT.font"
  122.          "MCDP_LCD.font"
  123.       )
  124.    )
  125. )
  126.  
  127. (tooltype
  128.    (dest (tackon @default-dest "MCDPlay"))
  129.    (settooltype "XPOS" "0")
  130.    (settooltype "YPOS" "14")
  131. )
  132.  
  133. (copyfiles
  134.    (prompt "Where do you want the documentation installed?")
  135.    (help "Gimme a dir")
  136.    (source "")
  137.    (choices "MCDPlayer.Doc" "MCDP_ARexx.doc")
  138.    (dest @default-dest)
  139.    (infos)
  140.    (confirm)
  141. )
  142.