home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / CDROM / BMCDDAPlayer / install < prev    next >
Text File  |  1997-06-22  |  10KB  |  259 lines
  1.  
  2. ;         BMCDDA Player
  3.  
  4. ;         Version 1.5
  5.  
  6. ;         CopyRight 1997
  7.  
  8. ;         Byron Montgomerie
  9.  
  10. ;         email:      byron@nfld.com
  11.  
  12. ;         Home Page:  http://www.nfld.com/~byron/ 
  13.  
  14. ;         Phone:      (709) 738-7659
  15.  
  16. ;         snail mail:
  17.  
  18. ;                     Byron Montgomerie
  19. ;                     23 Prince of Wales St.
  20. ;                     St. John's, NF, Canada
  21. ;                     A1C-4N1
  22.  
  23.  
  24. ;Various Text definitions
  25. (set #StartMsg       "\"And I must be..  An acrobat\nTo talk like this..  And act like that\nAnd you can dream..  So dream out loud\n...  don't let the bastards grind you down\"\n\n --U2 'Actung Baby'" )
  26. (set #optionprompt    "What do you wish to install at this time?")
  27. (set #optionhelp      "The images are option but you would be missing out if you didn't install them.  You should also configure the ToolTypes once to set the device and the unit at least.")
  28. (set #DevicePrompt    "Enter the name of the ATAPI device you are using.\nEx.  atapi.device")
  29. (set #DeviceHelp      "This is required for the program to access the CD-ROM drive.")
  30. (set #DeviceUnitPrompt "Enter the unit number that corresponds to the CDROM drive that you wish to use with this program.")
  31. (set #DeviceUnitHelp  "Consult the documentation that came with your ATAPI software.\n Ex. Unit 1")
  32. (set #DirPrompt1      "Where would you like me to copy ")
  33. (set #DirPrompt2      (cat #DirPrompt1 "the images for the gui?"))
  34. (set #DirPromptHelp1  "You'll be asked where to copy the images later on. You may put this in your WBStartup drawer if you wish to run this every time you boot your computer")
  35. (set #DirPromptHelp2  "The Tooltypes in the program icon will be set to point to the directory that you install these images to. Withe the exception of the ENVARC: option then the tooltype points to ENV: instead. The default images only amount to around 50k or so.")
  36. (set #DiscPrompt     "Where do you keep or plan to keep your CDID Collection files?")
  37. (set #DiscHelp       "The program needs to know where to go to look for song names for CDs.  Well, actually, if it can't find them it will just put up bland text instead.")
  38. (set #HelpPrompt     "Where would you like me to install the documentation?")
  39. (set #HelpHelp       "This can be anywhere you like, it is not access by the program.")
  40. (set #EndMsg         "All done!  Ok, go to your WBStartup drawer and click on the program or simply reboot.\n\nI hope you enjoy the program. :)\n\nSincerely,\n Byron Montgomerie\n")
  41.  
  42. (set #MoreToolTypes 0)
  43.  
  44. (set #wbversion (getversion "libs:version.library"))
  45.  
  46. (if (< #wbversion 39)
  47.     (abort "\n\nAmigaDOS 3.0 or higher is required for BMCDDAPlayer V1.5"
  48.      "\n\nAn upgrade will be needed for your Amiga."
  49.      "\n\nYou are currently running version " #wbversion ".")
  50. )
  51.  
  52. (welcome #StartMsg)
  53.  
  54. (if (= @app-name "Test App")
  55.     (set @app-name "BMCDDAPlayer")
  56. )
  57.  
  58. (set #DirPrompt1 ("%s%s?" #DirPrompt1 @app-name))
  59.  
  60. (set #done 0)
  61.  
  62. (while (= #done 0)
  63.     (
  64.         (set #options (askoptions (choices "Install Program"
  65.                                           "Install Images" 
  66.                                           "Install Documentation"
  67.                                           "Configure ToolTypes")
  68.                                 (prompt   #optionprompt)
  69.                                 (help     #optionhelp)
  70.                                 (default 15)
  71.                       )
  72.         )
  73.  
  74.         (if (BITAND #options 1)
  75.  
  76.            ;Get the prog dir
  77.  
  78.            (set #destprogdir (askdir (prompt #DirPrompt1)
  79.                                      (help #DirPromptHelp1)
  80.                                      (default "Sys:WBStartup")
  81.                                      (disk)
  82.                              )
  83.            )
  84.         )
  85.         
  86.         (if (BITAND #options 2)
  87.             (
  88.                (set #imageopts (askchoice (choices "Install 22:22 Images (ex. 640x512)"
  89.                                           "Install 22:22 Images (4 colour set)"
  90.                                           "Install 44:22 Images (ex.640x256)")
  91.                                          (prompt   "Select the images you wish to install")
  92.                                          (help     "The 22:22 image set is nicer, if you spend your time on hires lace or DblPal non interlace screens for example pick these.  If you like 640x256 resolution screens for some reason pick the other.")
  93.                                          (default 0)
  94.                                )
  95.                )
  96.                (if (OR (= #imageopts 0) (= #imageopts 1))
  97.                     (set #DefaultAspectRatio "22:22")
  98.                     (set #DefaultAspectRatio "44:22")
  99.                )
  100.  
  101.                ;Get the images dir
  102.  
  103.                (set #destimagedir (askdir (prompt  #DirPrompt2)
  104.                                       (help    #DirPromptHelp2)
  105.                                       (default "ENVARC:BMCDDAImages")
  106.                                       (disk)
  107.                               )
  108.                )
  109.            )
  110.         )
  111.  
  112.         (if (BITAND #options 4)
  113.             (set #HelpPath (askdir   (prompt #HelpPrompt)
  114.                                      (help   #HelpHelp)
  115.                                      (default "Help:")
  116.                                      (disk)
  117.                             )
  118.             )
  119.         )
  120.  
  121.         (if (BITAND #options 8)
  122.            (
  123.                (set #device (askfile (prompt  #DevicePrompt)
  124.                                      (help    #DeviceHelp)
  125.                                      (default "devs:atapi.device")
  126.                             )
  127.                )
  128.                (set #unit (asknumber (prompt #DeviceUnitPrompt)
  129.                                      (help   #DeviceUnitHelp)
  130.                                      (default "1")
  131.                             )
  132.                )
  133.                (set #DiscPath (askstring (prompt #DiscPrompt)
  134.                                      (help   #DiscHelp)
  135.                                      (default "temp:Discs")
  136.                               )
  137.                )
  138.  
  139.                (set #tempopts (askchoice (choices "Standby" "Random" "Sequential")
  140.                                          (prompt   "Select the initial Automatic play mode.")
  141.                                          (help     "Standby does nothing,\n Random plays random songs from any CDs inserted into the drive\n and Sequential plays entire cds in sequence.")
  142.                                          (default 2)
  143.                                )
  144.                )
  145.  
  146.                (set #OperationMode "")
  147.  
  148.                (if (= #tempopts 1)
  149.                    (set #OperationMode "Random")
  150.                )
  151.  
  152.                (if (= #tempopts 2)
  153.                    (set #OperationMode "Sequential")
  154.                )
  155.            )
  156.         )
  157.  
  158.         ;Confirm Selections
  159.  
  160.         (set #bah "You have selected the following:\n")
  161.  
  162.         (if (BITAND #options 1)
  163.             (set #bah ("Program Path: %s\n" #destprogdir))
  164.         )
  165.  
  166.         (if (BITAND #options 2)
  167.             (set #bah ("%sGui Images Path: %s\n" #bah #destimagedir))
  168.         )
  169.  
  170.         (if (BITAND #options 4)
  171.             (set #bah ("%sHelp Path: %s\n" #bah #HelpPath))
  172.         )
  173.  
  174.         (if (BITAND #options 8)
  175.             (set #bah ("%sCDID Path: %s\nDevice: %s\nUnit: %ld\n" #bah #DiscPath #device #unit))
  176.         )
  177.  
  178.         (set #bah ("%sIs everything satisfactory?\n" #bah))
  179.         
  180.         (if (askbool (prompt #bah) 
  181.                      (help #bah)
  182.                      (default 1)
  183.              )
  184.              (
  185.                  (if (BITAND #options 1) 
  186.                      (set @default-dest #destprogdir))
  187.                  ;(message #LastBitOfInstruction)
  188.                  (set #done 1)
  189.              )
  190.         )
  191.     )
  192. )
  193.  
  194. (if (= @pretend 0)
  195.     (
  196.         (if (BITAND #options 2)
  197.             (
  198.                (select #imageopts
  199.                   (copyfiles (source "HiresImages") (dest #destimagedir) (all))
  200.                   (copyfiles (source "4ColourImages") (dest #destimagedir) (all))
  201.                   (copyfiles (source "LoresImages") (dest #destimagedir) (all))
  202.                )
  203.  
  204.                (if (= (substr #destimagedir 0 7)  "ENVARC:")
  205.                   (
  206.                      (set #destimagedir ("ENV:%s" (substr #destimagedir 7)))
  207.  
  208.                      (select #imageopts
  209.                         (copyfiles (source "HiresImages") (dest #destimagedir) (all))
  210.                         (copyfiles (source "4ColourImages") (dest #destimagedir) (all))
  211.                         (copyfiles (source "LoresImages") (dest #destimagedir) (all))
  212.                      )
  213.                   )
  214.                )
  215.             )
  216.         )
  217.  
  218.         (if (BITAND #options 4)
  219.             (copyfiles (source "BMCDDA_Player.guide") (dest #HelpPath) (infos))
  220.         )
  221.  
  222.         (if (BITAND #options 8)
  223.             (
  224.                 (tooltype  (dest @app-name)
  225.                        (settooltype "Device"        #device)
  226.                        (settooltype "Unit"          ("%ld" #unit))
  227.                        (settooltype "Discs"         #DiscPath)
  228.                        (settooltype "OperationMode" #OperationMode)
  229.                  )
  230.  
  231.                  (if (BITAND #options 2)
  232.                        (
  233.                           (tooltype  (dest @app-name)
  234.                                   (settooltype "DefaultAspectRatio" #DefaultAspectRatio)
  235.                                   (settooltype "Images" #destimagedir)
  236.                           )
  237.                           (if (= #imageopts 1)
  238.                              (tooltype  (dest @app-name)
  239.                                   (settooltype "NoImageMasks" "")
  240.                                   (settooltype "PowerTopLeft" "")
  241.                               )
  242.                           )
  243.                        )
  244.                  )
  245.             )
  246.         )
  247.  
  248.         (if (BITAND #options 1)
  249.             (copyfiles (source @app-name) (dest #destprogdir) (infos))
  250.         )
  251.     )
  252.     (message "Gotcha!\n\nThought I was actually going to do something didn't you? :)")
  253. )
  254.     
  255. (if (= @pretend 0)
  256.    (exit #EndMsg)
  257. )
  258.  
  259.