;;;;
;;;;
;;;; Install_NT - NetTime installation script for Installer
;;;;
;;;; Copyright © 1996 Sergej Kravchenko
;;;;                  All Right reserved.
;;;;                  email dlife@pub.osf.lt
;;;;
;;;;     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.
;;;;
(complete 0)


(set #welcome           (cat "Welcome to the NetTime 3.2 installation\n\nThis program is shareware\nPlease register\n\n\n\n© 1996 Sergej Kravchenko\nemail: dlife@pub.osf.lt"))
(set #dir-choice        (cat "Select the directory where the NetTime Directory will be created." ))
(set #dir-choic         (cat "Select the directory where ARexx files will be copyed." ))
(set #copy              (cat "Copying NetTime "))
(set #copy              (cat "Copying NetTime "))
(set #copy-prefs        (cat "Copying Calc"))
(set #copy-guide        (cat "Copying Guide"))
(set #copy-key          (cat "Copying ARexx"))
(set #crdir             (cat "Create directory"))
;=============================================================================
(message #welcome)
(welcome)


;========================================================================
;
; Select the NetTime directory
;
(complete 0)

(set NTdir
   ( askdir
      ( prompt #dir-choice )
      (help "")
      (default "ram:")
      (newpath)
   )
)
(set NTdir (tackon NTdir "NetTime"))

(makedir NTdir
 (prompt #crdir NTdir)
 (infos)
 ) 

(complete 10)
(copyfiles
   (prompt #copy)
   (source "NetTime")
   (help   @copyfiles-help)
   (infos)
   (dest NTdir)
)

(complete 20)
(copyfiles
   (source "Calc.rexx")
   (help @copyfiles-help)
   (dest    NTdir)
   (infos)
   (prompt #copy-prefs)
)
(complete 30)
(copyfiles
   (prompt #copy-guide)
   (source "NetTime.guide")
   (help   @copyfiles-help)
   (infos)
   (dest NTdir)
)
(complete 40)
(copylib
   (prompt "Updating easyrexx.library")
   (help "This action will install easyrexx.library on your HD.")
   (source "Libs/easyrexx.library")
   (dest "Libs:")
   (confirm)
)
(complete 50)    
(set NTdir
   ( askdir
      ( prompt #dir-choic )
      (help "")
      (default "rexx:")
      (newpath)
   )
)
(complete 60)
(copyfiles
   (prompt #copy-key)
   (source "ARexx/NTQuit.rexx")
   (help   @copyfiles-help)
   (dest NTdir)
)
(complete 70)
(copyfiles
   (prompt #copy-key)
   (source "ARexx/NTStart.rexx")
   (help   @copyfiles-help)
   (dest NTdir)
)
(complete 80)
(copyfiles
   (prompt #copy-key)
   (source "ARexx/NTStop.rexx")
   (help   @copyfiles-help)
   (dest NTdir)
) 
(complete 100)

(exit)