home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / workbench+shell / g-p / mcarchive / magicclock-install.eng < prev    next >
Encoding:
Text File  |  1995-08-13  |  4.6 KB  |  214 lines
  1. ;
  2. ; MagicClock-Installer
  3. ;
  4.     (complete 0)
  5.     (welcome)
  6.  
  7. ;output strings --------------------------------------------------------
  8.  
  9.     (set WrongKick "\nYou must be using at least\nKickStart 2.04\nto use MagicClock")
  10.     (set WrongCPU  "\nYou must have at least a\n68020 CPU\nto run MagicClock\n")
  11.  
  12. ;-----------------------------------------------------------------------
  13.     (set currentver (/ (getversion "libs:iff.library") 65536))
  14.     (set currentrev (BITAND (getversion "libs:iff.library") 65535))
  15.     (set myver      (/ (getversion "libs/iff.library") 65536))
  16.     (set myrev      (BITAND (getversion "libs/iff.library") 65535))
  17. ;-----------------------------------------------------------------------
  18.     (if (< (/ (getversion) 65536) 37)
  19.       (abort WrongKick)
  20.     )
  21.  
  22.     (set version (database "cpu"))
  23.     (if (> "68020" version)
  24.         (abort WrongCPU)
  25.     )
  26.  
  27. (complete 10)
  28.  
  29.     (message
  30.     "\n\n\n"
  31.     "Welcome\n"
  32.     "to\n"
  33.     "MagicClock V1.1\n"
  34.     "Installation Script"
  35.     )
  36.  
  37.  
  38.     (set maindir
  39.         (askdir (prompt "Please select a drawer for installing MagicClock.\n"
  40.              "(a new drawer 'MagicClock' will be created)")
  41.             (help @askdir-help)
  42.             (default "sys:")
  43.         )
  44.     )
  45. (copyfiles (source "extraicon/MagicClock.info")(dest maindir)(files))
  46. (if (OR (patmatch "#?:" maindir)
  47.         (patmatch "#?/" maindir)
  48.     )
  49.     (makedir(set maindir (cat maindir "MagicClock")))
  50.     (makedir(set maindir (cat maindir "/MagicClock")))
  51. )
  52.  
  53.     (complete 20)
  54.  
  55.     (set destdir
  56.         (askdir (prompt "Please select a drawer for the mainprogram of\n"
  57.              "MagicClock  e.g. WBStartup / C ...")
  58.             (help @askdir-help)
  59.             (default maindir)
  60.         )
  61.     )
  62.  
  63. (complete 30)
  64.  
  65.     (copyfiles 
  66.         (prompt "\nCopying MagicClock to "destdir" ...\n")
  67.         (source "MagicClock")
  68.         (dest destdir)
  69.         (files)
  70.     )
  71.  
  72. (complete 40)
  73.  
  74.     (if(askbool
  75.         (prompt "\n Do you want to copy MagicClock-Icon to\n"destdir" ?")
  76.         (help @askbool_help)
  77.         (default 1))
  78.         (copyfiles 
  79.             (prompt "\nCopying the MagicClock-Icon...\n")
  80.             (source "MagicClock.info")
  81.             (dest maindir)
  82.             (files)
  83.             (infos)
  84.         )
  85.     )
  86.  
  87. (complete 50)
  88.  
  89.     (if(askbool
  90.         (prompt "\n Do you want to install the polygon-editor ?")
  91.         (help @askbool_help)
  92.         (default 1)) 
  93.         ((set destdirmc
  94.             (askdir (prompt "Please select drawer\nfor installing MC-Edit")
  95.                 (help @askdir-help)
  96.                 (default maindir)
  97.             )
  98.         )
  99.         (copyfiles 
  100.             (prompt "\nCopying MC-Edit...\n")
  101.             (source "MC-Edit")
  102.             (dest destdirmc)
  103.             (files)
  104.             (infos)
  105.         ))
  106.     )
  107.  
  108. (complete 60)
  109.  
  110.     (if(askbool
  111.         (prompt "\n Do you want to install \n\niff.library Version "myver"."myrev"\n\n"
  112.             "Current installed Version "currentver"."currentrev"\n\n")
  113.         (help "Installs a newer version of iff.library to your Libs: drawer,"
  114.               "if you want.")
  115.         (default 1)) 
  116.         (copyfiles 
  117.             (prompt "\nCopying the iff.library...\n")
  118.             (source "libs/iff.library")
  119.             (dest   "Libs:")
  120.             (files)
  121.         )
  122.     )
  123.  
  124. (complete 70)
  125.  
  126.     (if(askbool
  127.         (prompt "\n Do you want to install documentations ?\n")
  128.         (help "")
  129.         (default 1))
  130.         ((set doc(askoptions 
  131.              (prompt "Select which documentation(s) do you want to install.")
  132.              (help "")
  133.              (choices 
  134. ;"German  Textfile"
  135.                         "German  Guidefile"
  136. ;                        "English Textfile"
  137.                         "English Guidefile"
  138.                         "German  MC-Edit Textfile"
  139.                         "English MC-Edit Textfile")))
  140.             (set docdir
  141.                 (askdir (prompt "Please select a drawer for the documentation(s)\n"
  142.                  "(a new drawer won't be created)")
  143.                 (help @askdir-help)
  144.                 (default maindir)
  145.                 )
  146.             )
  147.             (set n 0)
  148.             (while
  149.                 (set docfile
  150.                     (select n 
  151.                                     "docs/MagicClock_deu.guide"
  152.                                     "docs/MagicClock_eng.guide"
  153.                                     "docs/MC-Edit.dok"
  154.                                     "docs/MC-Edit.doc"
  155.                                     ""
  156.                     )
  157.                 )
  158.                 (if (in doc n)
  159.                     ((if (= n 0)
  160.                         (copyfiles
  161.                             (source "docs/Registrierungsformular")
  162.                             (dest docdir)
  163.                             (files)
  164.                             (infos))
  165.                     )
  166.                     (if (= n 1)
  167.                         (copyfiles
  168.                             (source "docs/Registration_form")
  169.                             (dest docdir)
  170.                             (files)
  171.                             (infos))
  172.                     )
  173.                     (copyfiles
  174.                         (source docfile)
  175.                         (dest docdir)
  176.                         (files)
  177.                         (infos)))
  178.                 )
  179.                 (set n (+ n 1))
  180.             )
  181.         )
  182.     )
  183.  
  184. (complete 90)
  185.  
  186.     (if(askbool
  187.         (prompt "\n Do you want to install some handfiles?")
  188.         (help @askbool_help)
  189.         (default 1))
  190.         (
  191.             (set dirdir
  192.                 (askdir (prompt "Please select directory for installing hands.\nA drawer "
  193.                                      "'Hands' will be created.")
  194.                 (help @askdir-help)
  195.                 (default maindir)
  196.                 )
  197.             )
  198.             (if    (OR    (patmatch "#?:" dirdir)
  199.                             (patmatch "#?/" dirdir)
  200.                     )
  201.                 (makedir(set dirdir (cat dirdir "Hands")))
  202.                 (makedir(set dirdir (cat dirdir "/Hands")))
  203.             )
  204.             (copyfiles
  205.                 (source "hands")
  206.                 (dest dirdir)
  207.                 (all))
  208.         )
  209.     )
  210.  
  211.  
  212. (set @default-dest maindir)
  213. (complete 100)
  214. (exit "Have fun with MagicClock.\n\nMagicClock is Shareware!\nSee guidefile for more informations.")