home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / screenplay / utilities / graal / hd_install < prev    next >
Encoding:
Text File  |  1996-10-15  |  8.4 KB  |  293 lines
  1. ; 
  2. ; ====================
  3. ; PERFORMANCE SOFTWARE
  4. ; ====================
  5. ; 
  6. ; GRAAL 2.0 Beta Installer Script
  7. ; (c) 1996 Per Thulin
  8. ; 
  9. (welcome)
  10.  
  11. ; Set up some variables
  12. ; 
  13. (set #diskname_a "GRAAL 2.0 - Disk A")
  14. (set #diskname_b "GRAAL 2.0 - Disk B")
  15. (set #diskname_c "GRAAL 2.0 - Disk C")
  16. (set #source_a (cat #diskname_a ":"))
  17. (set #source_b (cat #diskname_b ":"))
  18. (set #source_c (cat #diskname_c ":"))
  19. (set #diskprompt_a (cat "Please insert disk " #diskname_a))
  20. (set #diskprompt_b (cat "Please insert disk " #diskname_b))
  21. (set #diskprompt_c (cat "Please insert disk " #diskname_c))
  22. (set #helpdisk
  23.   (cat
  24.     "The installation procedure requires the disks to be named exactly"
  25.     " as requested. If you have created the disks from the Aminet archives,"
  26.     " just rename them properly before running the installer."
  27.     )
  28.   )
  29.  
  30. (select
  31.   (askchoice
  32.     (prompt "Please select the type of installation you want to perform:")
  33.     (help
  34.       (cat "Install the GRAAL 2.0 system:\n\n"
  35.         "Choose this if you have not installed or used GRAAL before,"
  36.         " or if you want to install the new demo adventure.\n\n"
  37.         "Update a development drawer:\n\n"
  38.         "Choose this if you just want to update the GRAAL tools and"
  39.         " documentation in an existing directory, without harming the rest"
  40.         " of its contents."
  41.         ) ; end cat
  42.       ) ; end help
  43.     (choices
  44.       "Install the GRAAL 2.0 system"
  45.       "Update a development drawer"
  46.       ) ; end choices
  47.     (default 0)
  48.     ) ; end askdir
  49.  
  50.   ( ; Installation sequence
  51.     (complete 5)
  52.     (set #instoptions
  53.       (askoptions
  54.         (prompt "Please select the parts you wish to install:")
  55.         (help
  56.           (cat
  57.             "All selected parts will be copied to the same (new)"
  58.             " hard disk drawer.\n\n"
  59.             "Demo Adventure:\n\n"
  60.             "This installs the graal driver program and all files"
  61.             " necessary to run the demo adventure.\n\n"
  62.             "Developer files:\n\n"
  63.             "This installs all programs and documentation necessary"
  64.             " to develop GRAAL adventures.\n\n"
  65.             "Tutorial\n\n"
  66.             "This installs the beginner's tutorial. Experienced GRAAL 1.0"
  67.             " and 1.2 users will perhaps not need this edition:"
  68.             ) ; end cat
  69.           ) ; end help
  70.           (choices
  71.             "Demo adventure"
  72.             "Developer files"
  73.             "Tutorial"
  74.             ) ; end choices
  75.         ) ; end askoptions
  76.       ) ; end set #instoptions
  77.     ; 
  78.     ; Set the installation directory
  79.     ; 
  80.     (complete 10)
  81.     (set #instdir
  82.       (askdir
  83.         (prompt
  84.           (cat
  85.             "Please select the place where GRAAL should be installed."
  86.             " A new drawer called GRAAL_2 will be created in the chosen"
  87.             " location."
  88.             ) ; end cat
  89.           ) ; end prompt
  90.         (help
  91.           (cat
  92.             "You do not need to make any assigns to use GRAAL. However,"
  93.             " keeping the GRAAL tools and the adventure script files in"
  94.             " the same drawer is important.)"
  95.             ) ; end cat
  96.           ) ; end help
  97.         (default @default-dest)
  98.         ) ; end askdir
  99.       ) ; end set #instdir
  100.     ; 
  101.     ; Check if drawer needs to be created
  102.     ; 
  103.     (complete 15)
  104.     (set #instdir (tackon #instdir "GRAAL_2"))
  105.     (set @default-dest #instdir)
  106.     (if (not (exists #instdir))
  107.       (makedir #instdir (infos))
  108.       ) ; end if
  109.     ; 
  110.     ; Check if we should install demo files
  111.     ; 
  112.     (if (in #instoptions 0)
  113.       ( ; demo installation sequence
  114.         (askdisk
  115.           (prompt #diskprompt_a)
  116.           (help #helpdisk)
  117.           (dest #diskname_a)
  118.           ) ; end askdisk
  119.         (copyfiles
  120.           (source #source_a)
  121.           (dest #instdir)
  122.           (all)
  123.           (infos)
  124.           ) ; end copyfiles
  125.         (askdisk
  126.           (prompt #diskprompt_b)
  127.           (help #helpdisk)
  128.           (dest #diskname_b)
  129.           ) ; end askdisk
  130.         (copyfiles
  131.           (source #source_b)
  132.           (dest #instdir)
  133.           (all)
  134.           (infos)
  135.           ) ; end copyfiles
  136.         (if (not (in #instoptions 1))
  137.           (delete (tackon #instdir "gpro") (infos))
  138.           ) ; endif
  139.         ) ; end demo installation sequence
  140.       ) ; end if
  141.     ; 
  142.     ; Check if we should install developer files
  143.     ; 
  144.     (complete 50)
  145.     (if (in #instoptions 1)
  146.       ( ; developer installation sequence
  147.         ; check if GRAAL_2 has been copied already
  148.         (if (not (exists (tackon #instdir "GRAAL_2")))
  149.           ( ; install driver
  150.             (askdisk
  151.               (prompt #diskprompt_a)
  152.               (help #helpdisk)
  153.               (dest #diskname_a)
  154.               ) ; end askdisk
  155.             (copyfiles
  156.               (source #source_a)
  157.               (dest #instdir)
  158.               (choices "GRAAL_2")
  159.               (infos)
  160.               ) ; end copyfiles
  161.             ) ; end install driver
  162.           ) ; end if
  163.         (if (not (exists (tackon #instdir "gpro")))
  164.           ; check if gpro has been copied already
  165.           ( ; install gpro
  166.             (askdisk
  167.               (prompt #diskprompt_b)
  168.               (help #helpdisk)
  169.               (dest #diskname_b)
  170.               ) ; end askdisk
  171.             (copyfiles
  172.               (source #source_b)
  173.               (dest #instdir)
  174.               (pattern "gpro")
  175.               (infos)
  176.               ) ; end copyfiles
  177.             ) ; end install gpro
  178.           ) ; end if
  179.         (askdisk
  180.           (prompt #diskprompt_c)
  181.           (help #helpdisk)
  182.           (dest #diskname_c)
  183.           ) ; end askdisk
  184.         (copyfiles
  185.           (source #source_c)
  186.           (dest #instdir)
  187.           (choices
  188.             "GRAAL_Editor"
  189.             "gdc"
  190.             "GRAAL.guide"
  191.             "GRAAL_2.readme"
  192.             "Prod.text"
  193.             "Editor.text"
  194.             ) ; end choices
  195.           (infos)
  196.           ) ; end copyfiles
  197.         ) ; end developer installation sequence
  198.       ) ; end if
  199.     ; 
  200.     ; Check if we should install tutorial
  201.     ; 
  202.     (complete 90)
  203.     (if (in #instoptions 2)
  204.       ( ; tutorial installation sequence
  205.         (askdisk
  206.           (prompt #diskprompt_c)
  207.           (help #helpdisk)
  208.           (dest #diskname_c)
  209.           ) ; end askdisk
  210.         (copyfiles
  211.           (source #source_c)
  212.           (dest #instdir)
  213.           (choices "GRAAL_Tutorial.text")
  214.           (infos)
  215.           ) ; end copyfiles
  216.         ) ; end tutorial installation sequence
  217.       ) ; end if
  218.  
  219.     ) ; end of installation sequence
  220.  
  221.   ( ; Update sequence
  222.     (complete 5)
  223.     (set #instdir
  224.       (askdir
  225.         (prompt
  226.           (cat
  227.             "Please point to the development directory to be updated with"
  228.             " the new GRAAL tools and documentation."
  229.             ) ; end cat
  230.           ) ; end prompt
  231.         (help
  232.           (cat
  233.             "All old GRAAL tools and documentation files will be removed"
  234.             " and replaced with the new versions. However, renamed copies of"
  235.             " GRAAL_Dev or GRAAL_Run will NOT be handled automatically."
  236.             " When the installation has finished, you must deal with them"
  237.             " and rename the GRAAL_2 file to your liking manually."
  238.             ) ; end cat
  239.           ) ; end help
  240.         (default @default-dest)
  241.         ) ; end askdir
  242.       ) ; end set #instdir
  243.     (set @default-dest #instdir)
  244.     (complete 10)
  245.     (delete (tackon #instdir "GRAAL_Run") (infos))
  246.     (delete (tackon #instdir "GRAAL_Dev") (infos))
  247.     (delete (tackon #instdir "GRAAL_Tutorial.text") (infos))
  248.     (delete (tackon #instdir "GRAAL_Editor") (infos))
  249.     (delete (tackon #instdir "Editor.text") (infos))
  250.     (delete (tackon #instdir "GRAAL.guide") (infos))
  251.     ( ; developer installation sequence
  252.       (askdisk
  253.         (prompt #diskprompt_a)
  254.         (help #helpdisk)
  255.         (dest #diskname_a)
  256.         ) ; end askdisk
  257.       (copyfiles
  258.         (source #source_a)
  259.         (dest #instdir)
  260.         (choices "GRAAL_2")
  261.         (infos)
  262.         ) ; end copyfiles
  263.       (complete 20)
  264.       (askdisk
  265.         (prompt #diskprompt_b)
  266.         (help #helpdisk)
  267.         (dest #diskname_b)
  268.         ) ; end askdisk
  269.       (copyfiles
  270.         (source #source_b)
  271.         (dest #instdir)
  272.         (pattern "gpro")
  273.         (infos)
  274.         ) ; end copyfiles
  275.       (complete 30)
  276.       (askdisk
  277.         (prompt #diskprompt_c)
  278.         (help #helpdisk)
  279.         (dest #diskname_c)
  280.         ) ; end askdisk
  281.       (copyfiles
  282.         (source #source_c)
  283.         (dest #instdir)
  284.         (all)
  285.         (infos)
  286.         ) ; end copyfiles
  287.       ) ; end developer installation sequence
  288.     ) ; end of update sequence
  289.  
  290.   ) ; end select
  291.  
  292. (complete 100)
  293.