home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d991 / aswarmii.lha / ASwarmII / ASwarmII-Install < prev    next >
Encoding:
Text File  |  1994-04-05  |  6.7 KB  |  247 lines
  1. ; **** Installscript written by Markus Illenseer        ****
  2. ; **** Does various checks now. Please report any error ****
  3. ; **** to markus@techfak.uni-bielefeld.de               ****
  4.  
  5. ; **** This script requires the Installer from Commodore
  6. ; **** which is available for free.
  7.  
  8. ; **** setting up some global variables
  9.  
  10. (set ProductName        "ASwarm II")    ; product name
  11. (set ProductBaseName        "ASwarm")    ; product base name
  12. (set VersionNum            "2.0")        ; product version number
  13. (set GuideFile            "ASwarm.guide")    ; AmigaGuide File
  14.  
  15. (set OSVersion            (/ (getversion) 65536))
  16. (set WBVersion            (/ (getversion "version.library" (resident)) 65536))
  17. (set Dirpath            "SYS:WBStartup")
  18. (set @dest-dir            "SYS:WBStartup")
  19. (set MUIVersion            6)
  20. (set Options            1) ; 1=english, 2=german, 3=e+g
  21.  
  22. (set LocLang1            "english")
  23. (set LocLang2            "german")
  24. (set Lang1            "english")
  25. (set Lang2            "deutsch")
  26.  
  27. (transcript "Installing %s Commodity..." ProductName)
  28.  
  29. (complete 0)
  30.  
  31. ; **** Check last chance
  32.  
  33. (message "\nShall I proceed with the installation?\n (see help for more)"
  34.     (help    ("Once you press the Proceed button, \"%s\" will be installed. This is your last chance " ProductName)
  35.         ("to abort this procedure without partially installing the selected files.\n")
  36.         ("\n")
  37.         ("After you press Proceed, you can use the Esc key to abort the installation procedure.\n")
  38.     )
  39. )
  40.  
  41. ; **** Check OSVersion
  42.  
  43. (if (< OSVersion 36)
  44.     (
  45.         (message ("Looks like you are running WB 1.3. If this is true, ")
  46.              ("please consider to update to WB 2.1 real soon. ")
  47.              ("\"%s\" does not work with WB 1.3 and below." ProductName)
  48.         )
  49.     )
  50. )
  51.  
  52. ; **** something very subtle :-)
  53.  
  54. (if (> OSVersion 39)
  55.     (
  56.         (message ("Dear Amiga Developer, \"%s\" hasn't been tested on your " ProductName)
  57.              ("installed Workbench version V%ld.\n Please test it and report any " OSVersion)
  58.              ("Bugs to us, when this Workbench is available to the community, thanks!")
  59.         )
  60.     )
  61. )
  62.  
  63. (complete 10)
  64.  
  65. ; **** Check MUI System
  66.  
  67. (if (exists ("Libs:MUIMASTER.library"))
  68.     (
  69.         (set muiver (/ (getversion "Libs:MUIMASTER.library") 65536))
  70.         (if (< muiver MUIVersion)
  71.             (message ("Sorry, your MUI System seems to be too old. " )
  72.                      ("\"%s\" needs at least MUI 1.4 with library version 6.x " ProductName)
  73.                      ("You seem to have installed a MUI library version %ld." muiver)
  74.                      ("Of course you can continue the intallation, but don't forget to ")
  75.                      ("update your MUI System.")
  76.             )
  77.         )
  78.     )
  79.     (
  80.         (message ("Sorry, you don't seem to have MUI installed on your ")
  81.              ("system. Remember that \"%s\" needs it in order to  " ProductName)
  82.              ("work full flavoured. " ProductName)
  83.                  ("Of course you can continue the intallation, but don't forget to ")
  84.                  ("update to MUI.")
  85.  
  86.         )
  87.     )
  88. )
  89.  
  90. (complete 20)
  91.  
  92. ; **** Copy Commodity
  93.  
  94. (copylib
  95.     (help @copylib-help)
  96.     (prompt ("Installing %s %s..." ProductName VersionNum))
  97.     (confirm)
  98.     (source ProductBaseName)
  99.     (infos)
  100.     (noposition)
  101.     (set DirPath
  102.         (askdir 
  103.             (prompt 
  104.               ("Please select a place for \"%s\".\n (See help for more)" ProductName)
  105.             )
  106.             (help 
  107.               ("\n")
  108.               ("About 20K is required for complete installation. ")
  109.               ("You may install over an older copy of \"%s\" " ProductName)
  110.               ("to update to this new version - your current ")
  111.               ("configuration which is stored in the Icon will be deleted though. ")
  112.               ("\"%s\" and the Icon will be installed in the directory " ProductName)
  113.               ("of your choice. You may wish to create a new directory ")
  114.               ("for \"%s\" by using the 'Make New Drawer' gadget. " ProductName)
  115.               ("Best place for \"%s\" is SYS:WbStartup, as \"%s\" will " ProductName ProductName)
  116.               ("be started automatically on boot time as Commodity.")
  117.               ("\n\n")
  118.               @askdir-help
  119.             )
  120.             (default "SYS:WBstartup")
  121.             (newpath)
  122.         )
  123.     )
  124.     (dest DirPath)
  125. )
  126.  
  127. (complete 50)
  128.  
  129. ; **** Ask GuideFiles
  130.  
  131. (set Options
  132. (askoptions
  133.     (prompt
  134.         ("Select the localized Guidefiles you want to install at this time\n")
  135.     )
  136.     (help
  137.         ("You click on the desired language to install the selected Guidefiles.\n\n")
  138.         @askoptions-help
  139.     )
  140.     (choices
  141.         ("English Online Manual")
  142.         ("Deutsche Sofort-Anleitung")
  143.     (default Options)
  144.     )
  145. )
  146. )
  147.  
  148. (complete 60)
  149.  
  150. (if (IN Options 0)
  151.     (
  152.         (if (<> (exists "libs:amigaguide.library"))
  153.             (message "I couldn't locate \"amigaguide.libary\" on your system, you probably won't be able to use online help.")
  154.         )
  155.         (copyfiles
  156.             (prompt "Installing the %s online help..." LocLang1)
  157.             (source ("%s/%s" Lang1 GuideFile))
  158.             (help @copyfiles-help)
  159.             (dest
  160.                 (set manpath (askdir
  161.                     (prompt "Please select a place for the english online help.\n")
  162.                     (help 
  163.                         ("The Guidefile \"%s\" will be copied to the appropriate place, " GuideFile)
  164.                         ("which normally is the HELP: directory on your SYS: partition.")
  165.                         ("You may want to install the package into a directory of its own, ")
  166.                         ("but then you need to enhance the search parth for AmigaGuide. Please refer to the Manual.")
  167.                         ("\n")
  168.                         @askdir-help
  169.                     )
  170.                     (default ("HELP:%s" Lang1))
  171.                     (newpath)
  172.                 ))
  173.             )
  174.         )
  175.     )
  176. )
  177.  
  178.  
  179. (complete 70)
  180.  
  181. ; **** Copy GuideFiles
  182.  
  183. (if (IN Options 1)
  184.     (
  185.         (if (<> (exists "libs:amigaguide.library"))
  186.             (message "I couldn't locate \"amigaguide.libary\" on your system, you probably won't be able to use online help.")
  187.         )
  188.         (copyfiles
  189.             (prompt "Installing the %s online help..." LocLang2)
  190.             (source ("%s/%s" Lang2 GuideFile))
  191.             (help @copyfiles-help)
  192.             (dest
  193.                 (set manpath (askdir
  194.                     (prompt "Please select a place for the german help.\n")
  195.                     (help 
  196.                         ("The Guidefile \"%s\" will be copied to the appropriate place, " GuideFile)
  197.                         ("which normally is the HELP: directory on your SYS: partition.")
  198.                         ("You may want to install the package into a directory of its own, ")
  199.                         ("but then you need to enhance the search parth for AmigaGuide. Please refer to the Manual.")
  200.                         ("\n")
  201.                         @askdir-help
  202.                     )
  203.                     (default ("HELP:%s" Lang2))
  204.                     (newpath)
  205.                 ))
  206.             )
  207.         )
  208.     )
  209. )
  210.  
  211. (complete 90)
  212.  
  213. ; **** Check installation
  214.  
  215. (if (exists (("SYS:WBstartup/%s" ProductBaseName)))
  216.     (
  217.         (message 
  218.             ("Looks like you have installed \"%s\" in the SYS:WbStartup-Drawer, fine.\n" ProductName)
  219.             ("This means we don't have to bother about how \"%s\" is started." ProductName)
  220.         )
  221.     )
  222.     (
  223.         (startup
  224.             (prompt 
  225.                 (("Add \"Run >NIL: %s/%s\" to \"S:user-startup\"? (see help for more)" DirPath ProductBaseName))
  226.             )
  227.             (ProductBaseName)
  228.             (help    
  229.                 ("Select the Proceed button to add the Line\n")
  230.                 ("\"Run >NIL: %s/%s\" " DirPath ProductBaseName)
  231.                 ("This will start \"%s\" automatically on boot time. " ProductName)
  232.                 ("You are requested to do this, because it looks like ")
  233.                 ("you don't have \"%s\" installed in the SYS:WBstartup-drawer." ProductName)
  234.                 ("\n\n")
  235.                 @startup-help)
  236.             (command ("Run >NIL: %s/%s" DirPath ProductBaseName))
  237.         )
  238.     )
  239. )
  240.  
  241.  
  242. (complete 99)
  243.  
  244. ; **** Ready
  245.  
  246. (exit)
  247.