home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / avis2043.dms / in.adf / Install_AVPlayer < prev    next >
Encoding:
Text File  |  1992-12-01  |  8.2 KB  |  251 lines
  1.  
  2. (complete 0)
  3.  
  4.  
  5. ;=============================================================================
  6. ; say hi!
  7. (welcome)
  8.  
  9.  
  10. ;=============================================================================
  11. ; figure out what the user wants to do
  12.  
  13. (set completeInstall (askbool (prompt "\n\nDo you wish to perform a complete installation of the "
  14.                                       "AmigaVision Player program, or do you wish to install "
  15.                                       "a new AmigaVision videodisc driver?"
  16.                               )
  17.                               (choices "Install AmigaVision Player" "Install Videodisc Driver")
  18.                               (help "Complete installation will create a drawer called AVPlayer. "
  19.                                     "Into this drawer will be copied the AmigaVision Player "
  20.                                     "program and all necessary support files.\n\n"
  21.                                     "You only need to install a videodisc driver if you plan to "
  22.                                     "run an AmigaVision Professional application which uses a "
  23.                                     "videodisc player.\n\n"
  24.                                     @askbool-help)
  25.                      )
  26. )
  27.  
  28.  
  29. ;=============================================================================
  30. ; get location where the main player should go
  31. (if (= completeInstall TRUE)
  32. (
  33.  
  34. (set target (askdir (prompt "Where do you want the AmigaVision Player "
  35.                             "drawer installed?"
  36.                     )
  37.                     (help "This install procedure will create a drawer "
  38.                           "called AVPlayer within the drawer or "
  39.                           "partition you specify. \n\n"
  40.                           @askdir-help)
  41.                     (default @default-dest)
  42.             )
  43. )
  44.  
  45. (set target (tackon target "AVPlayer"))
  46. (set @default-dest target)
  47. (makedir target (infos))
  48.  
  49.  
  50. ;=============================================================================
  51. ; copy files to target
  52.  
  53. (complete 5)
  54.  
  55. (copyfiles (source "AV_Player:AVPlayer")
  56.            (dest target)
  57.            (infos)
  58. )
  59.  
  60. (complete 25)
  61.  
  62. (copylib (source "AV_Player:Libs/avdb.library")
  63.          (dest target)
  64. )
  65.  
  66. (complete 30)
  67.  
  68. (copylib (source "AV_Player:Libs/avtextgad.library")
  69.          (dest target)
  70. )
  71.  
  72. (complete 40)
  73.  
  74. (copylib (source "AV_Player:Libs/camd.library")
  75.          (dest "LIBS:")
  76. )
  77.  
  78. (complete 50)
  79.  
  80. (copylib (source "AV_Player:Libs/realtime.library")
  81.          (dest "LIBS:")
  82. )
  83.  
  84. (complete 70)
  85.  
  86. (if (not (askbool (prompt "\nDo you wish to install a videodisc "
  87.                           "driver to be used with the AmigaVision Player?"
  88.                   )
  89.                   (help "You must install a videodisc driver if you are going "
  90.                         "to run an AmigaVision Professional application that uses "
  91.                         "a videodisc player. \n\n"
  92.                         @askbool-help)
  93.                   (choices "Install Videodisc Driver" "Skip")
  94.          )
  95.     )
  96. (
  97.     (exit)
  98. ))
  99.  
  100. ))
  101.  
  102. ;=============================================================================
  103. ; Which videodisc driver should we plop on there...
  104.  
  105. (set vd (askchoice (prompt "Which videodisc driver should be installed?")
  106.                    (help "You can install only one videodisc driver at a time.\n\n "
  107.                          @askchoice-help)
  108.                    (choices "NEC_PC-VCR"
  109.                             "Panasonic_tq3032f"
  110.                             "Philips_405"
  111.                             "Philips_410"
  112.                             "Philips_835"
  113.                             "Pioneer_2200"
  114.                             "Pioneer_4200"
  115.                             "Pioneer_6000"
  116.                             "Pioneer_6010"
  117.                             "Pioneer_8000"
  118.                             "Sony_1200"
  119.                             "Sony_1500"
  120.                             "Sony_1550"
  121.                             "Sony_2000"
  122.                             "Sony_Umatic9"
  123.                     )
  124.                     (default 0)
  125.         )
  126. )
  127.  
  128. (if (OR (= vd 0) (= vd 2))
  129. (
  130.     (set baud 1200)
  131. )
  132. (
  133.     (if (OR (= vd 5) (= vd 6))
  134.     (
  135.         (set baud (askchoice (prompt "\nWhich baud rate should be used to communicate "
  136.                                      "with the videodisc unit?"
  137.                              )
  138.                              (choices "1200 baud" "4800 baud")
  139.                              (help @askchoice-help)
  140.                              (default 0)
  141.                   )
  142.         )
  143.         (if (= baud 0) (set baud 1200))
  144.         (if (= baud 1) (set baud 4800))
  145.     )
  146.     (
  147.         (set baud (askchoice (prompt "\nWhich baud rate should be used to communicate "
  148.                                      "with the videodisc unit?"
  149.                              )
  150.                              (choices "1200 baud" "2400 baud" "4800 baud" "9600 baud")
  151.                              (help @askchoice-help)
  152.                              (default 0)
  153.                   )
  154.         )
  155.  
  156.         (if (= baud 0) (set baud 1200))
  157.         (if (= baud 1) (set baud 2400))
  158.         (if (= baud 2) (set baud 4800))
  159.         (if (= baud 3) (set baud 9600))
  160.     ))
  161. ))
  162.  
  163. (set vdname (select vd "NEC_PC-VCR"
  164.                        "Panasonic_tq3032f_4800"
  165.                        "Philips_405_1200"
  166.                        "Philips_410_9600"
  167.                        "Philips_835_9600"
  168.                        "Pioneer_2200_4800"
  169.                        "Pioneer_4200_4800"
  170.                        "Pioneer_6000_9600"
  171.                        "Pioneer_6010_9600"
  172.                        "Pioneer_8000_4800"
  173.                        "Sony_1200_9600"
  174.                        "Sony_1500_9600"
  175.                        "Sony_1550_9600"
  176.                        "Sony_2000_9600"
  177.                        "Sony_Umatic9_9600"
  178.              )
  179. )
  180.  
  181. (complete 60)
  182.  
  183. (if (askbool (prompt "\n\nIs the videodisc unit connected to the Amiga's built-in "
  184.                      "serial port, or to an add-on serial port?"
  185.              )
  186.              (choices "Built-In Serial Port" "Add-On Serial Port")
  187.              (help "A videodisc player connects to a computer through a serial port. "
  188.                    "Your Amiga or CDTV unit came equipped with a built-in serial port "
  189.                    "(found in the back of the machine). You can also attach additional "
  190.                    "serial ports to your machine through a multi-port serial card.\n\n"
  191.                    "Select \"Built-In Serial Port\" if your videodisc player is connected "
  192.                    "to that port. Otherwise select \"Add-On Serial Port.\" \n\n"
  193.                    @askbool-help)
  194.     )
  195. (
  196.     (set device "serial.device")
  197.     (set unit 1)
  198. )
  199. (
  200.     (set device (askfile (prompt "Which device does the add-on serial port use? "
  201.                                  "Refer to the documentation for your add-on "
  202.                                  "serial port to obtain this information. "
  203.                           )
  204.                          (help "Select the device driver which your specific add-on serial "
  205.                                "port uses. For example, the \"MorePorts\" multi-serial "
  206.                                "board might use the file \"MorePorts.device.\" \n\n"
  207.                                @askstring-help)
  208.                          (default "DEVS:")
  209.                 )
  210.     )
  211.     (set unit (asknumber (prompt ("\n\nTo which unit of %s is the videodisc player connected?"
  212.                                   device
  213.                                  )
  214.                          )
  215.                          (default 1)
  216.                          (help "Specify a number which represents the serial port that "
  217.                                "your videodisc player is connected. The default port "
  218.                                "number is \"1\". \n\n"
  219.                                @asknumber-help)
  220.               )
  221.     )
  222. ))
  223.  
  224. (complete 70)
  225.  
  226. (copyfiles (source (cat "AV_Player:Devs/Players/" vdname))
  227.            (dest "DEVS:Players")
  228. )
  229.  
  230. ; if copying the PC-VCR driver, also include TapeStamp
  231. (if (= vd 0)
  232. (
  233.     (copyfiles (source "AV_Player:Devs/Players/TapeStamp")
  234.                (dest "DEVS:Players")
  235.     )
  236. ))
  237.  
  238. (complete 90)
  239.  
  240. (textfile (dest "DEVS:player-units")
  241.           (append "0 " vdname " " baud " " device " " unit)
  242. )
  243.  
  244. (complete 100)
  245.  
  246. (if (= completeInstall FALSE)
  247. (
  248.     (message (cat "\n\nThe " vdname " driver has been installed."))
  249.     (exit (quiet))
  250. ))
  251.