;**************************************************************************
; Install_RayStorm - RayStorm installation script for Installer
;
; Copyright  1995 Andreas Heumann
;
; $Id: Install_RayStorm,v 1.3 1996/03/12
;
;     Installer and Installer project icon
;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
;     Reproduced and distributed under license from Commodore.
;
;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
;     OR RESPONSIBILITY IS ASSUMED.
;
;**************************************************************************
(welcome "Welcome to the " @app-name " installation.\n")

; "Needs"
(set need-version 37)  ; version of operating system need by RayStorm

; The source directory name
(set #source-dir
 (if (= 1 (exists @icon))
  (pathonly (expandpath @icon))
  (expandpath @icon)
 )
)

;**************************************************************************
; Select destination directory for the installation. We suggest the user
; to install to the place from where the installer was started. This is
; since normally this software will be unarchived to its proper location
; and the files don't have to be copied any more.
;**************************************************************************
(procedure P_select-destination-directory
 (transcript "Selecting destination directory for the installation.")
 (while
  (
   (set #default-dest
    (askdir
     (prompt "Select directory where to install " @app-name ".\n"
             "You have to create a directory for " @app-name " yourself."
     )
     (help "Here you can specify location where to install " @app-name ".\n"
           "Installation can be made on-place. "
           "This is recommended if you have already unarchived "
           "the " @app-name " archive to its final location. "
           "In this case most of the files are left where they are. "
           "Only necessary files are copied to different "
           "positions.\n"
     )
     (newpath)
     (default #source-dir)
    )
   )
   (if (= 2 (exists #default-dest))
    0
    (makedir #default-dest
     (infos)
    )
   )
  )
 )
)

;**************************************************************************
; Installatation sequence
;**************************************************************************
(message "This installation script will overwrite an older installed version "
   "of " @app-name ". Please make a backup of any files you have changed.\n\n"
   "Please remember during this installation:\n"
   "Read the instructions provided behind the \"Help\" "
   "buttons, if you are not absolutely sure what you are doing.\n"
)

(complete 00)
(transcript "On making " @app-name " 1.8.")
(P_select-destination-directory)
(complete 10)
(working "Uncompressing basic files")
(run (cat "lha x basic.lha " #default-dest "/ #?"))
(complete 50)
(working "Uncompressing executable files")
(run (cat "lha x exe.lha " #default-dest "/ #?"))
(complete 90)
(startup @app-name
   (prompt "An assign need to be added to the \"S:user-startup\" so that " @app-name " will find it's libraries.\n"
           "Should I add this assign for you?")
   (help "If you skip this you have to copy \"" (tackon #default-dest "libs/raystorm.library")
      "\" to \"libs:\" or execute this command: \"assign libs: " (tackon #default-dest "libs") " add\".")
   (command "assign libs: " (tackon #default-dest "libs ") " add\n")
)
(message "Installation of " @app-name " done.\n"
         "Important note: If you have problems with the window update open the MUI settings requester\n"
         "and select from the window part for 'Refresh' the 'Smart'-mode.\n"
         "Note: There is another archive with the example files, which you can install too.")
(complete 100)

;;; All done!

; EOF

