;$VER:Script for TAScrollerDoor
;;;; Install_TAScrollerDoor - TAScrollerDoor disk installation script for Installer
;;;;
;;;; Copyright  1995 TAScrollerDoor,
;;;;                  OMASoft, Germany
;;;;                  All rights reserved.
;;;;
;;;; $Id: TAScrollerDoor, v 1.2 1995/12/03 20:57:34 jAl Exp $
;;;;
;;;; This script has been tested with Installer 1.24:
;;;;
;;;;     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.
;;;;
;;;; Use following Icon tooltypes / Command line options:
;;;; APPNAME=TAScrollerDoor
;;;; MINUSER=AVERAGE
;;;;
(welcome "    Welcome to the " @app-name " 1.1 shareware version installation.\n")
;;;;
;;;; What we are?
;;;;
(set app-name (cat @app-name " 1.1 shareware version"))

(complete 0) (transcript "On making " app-name ".")
(set @default-dest "BBS:")

; Texts

(set #Intro-Txt
 (cat "\n\nWelcome to \n"
  "TAScrollerDoor\n"
  "Hard Disk Install Script\n\n\n\n"
 )
)
(set #Path-Txt
 (cat "Select the target directory. "
 )
)
(set #Path-Help
 (cat "\nThis section lets you choose the "
  "target directory to install TAScrollerDoor. \n\n"
  "Default is BBS:\n\n\n"
  @askdir-help
 )
)
(set #Copy-Help-Txt
 (cat "Copy help files\n"
 )
)
(set #Copy-Working-Txt
 (cat "Copying data from floppy"
 )
)

; Main
(message #Intro-Txt)
(set target
 (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
 )
)
(set @default-dest target)
(set
 ;; Configuration
 conf-dir (tackon target "configs")
 ;; User binaries
 bin-dir (tackon target "bin")
 ;; documentation
 doc-dir (tackon target "docs")
 ;; rexx directory
 rexx-dir (tackon target "rexx")
 ;; Bulletin directory
 bull-dir (tackon target "Bulletins")
 ;; Text directory
 Text-dir (tackon target "Text")
 ;;
 System-dir (tackon target "system")
 ;;
 Example-dir (tackon target "Examples")
 ;;
 Rx-Example-dir (tackon Example-dir "Rexx")
 ;;
 Sys-Example-dir (tackon Example-dir "System")
 ;;
 Cfg-Example-dir (tackon Example-dir "Configs")
 ;;
 dir-pat (cat "(" "configs" "|" "bin" "|" "rexx" "|"
	      "bulletins" "|" "Text" "|" "System" ")")
)
;
;
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "bin/TAScrollerDoor")
  (dest bin-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "rexx/TAScrollerDoor.trans")
  (dest rexx-dir )
)
(complete 5)
(complete 25)
;
;
(if (askbool
      (prompt
       "Install Magic-Rexx Files"
      )
      (help
        "Magic Rexx Files a la Download.trans\n"
      )
     )
     (
      (message "Please take a look to TAFileTagger")
     )
)
(complete 30)

; Copy langfiles
(set langbitmap 0)
(while (= langbitmap 0)
  (set langbitmap
   (askoptions
     (prompt "Which Language do you want to copy?")
     (help   "Just select the files you want to copy.\n\n"
             "Scroller.lang                Default language (German)\n"
             "Scroller.DEUTSCH.lang        German language\n"
             "Scroller.ENGLISH.lang        English language\n"
     )
     (choices "Scroller.lang"
              "Scroller.DEUTSCH.lang"
              "Scroller.ENGLISH.lang"
     )
     (default 1)
   )
  )
)


(if (BITAND langbitmap 1)
   (copyfiles
      (prompt "Copying to " #target)
      (help @copy-files-help)
         (source "Configs/Scroller.lang")
         (dest Conf-dir )
         (infos)
   )
)
(if (BITAND langbitmap 2)
   (copyfiles
      (prompt "Copying to " #target)
      (help @copy-files-help)
         (source "Configs/Scroller.Deutsch.lang")
         (dest Conf-dir )
         (infos)
   )
)
(if (BITAND langbitmap 4)
   (copyfiles
      (prompt "Copying to " #target)
      (help @copy-files-help)
         (source "Configs/Scroller.English.lang")
         (dest Conf-dir )
         (infos)
   )
)
; Copy Help-Files
(message #Copy-Help-Txt)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "Text/ScrollerListHelp.ANSI")
  (dest Text-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "Text/ScrollerArcHelp.ANSI")
  (dest Text-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "Text/ScrollerPrivateHelp.ANSI")
  (dest Text-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "Text/ScrollerSysopHelp.ANSI")
  (dest Text-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "Text/ScrollerFreqHelp.ANSI")
  (dest Text-dir )
)
(complete 40)

(if (askbool
      (prompt
       "Install Magic-Text Files"
      )
      (help
        ""
      )
     )
     (
      (message "Please take a look to TAFileTagger")
     )
)

(complete 60)
;;(message #Copy-Doc-Txt)

(if (not (exists (doc-dir )))
    (makedir (doc-dir))
)
(message "Please take a look to TAFileTagger.doc")
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "Lies.Mich")
  (dest doc-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "Lies.Mich.info")
  (dest doc-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "Read.me")
  (dest doc-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "Read.me.info")
  (dest doc-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "RegForm_D.txt")
  (dest doc-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "RegForm_D.txt.info")
  (dest doc-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "RegForm_E.txt")
  (dest doc-dir )
)
(copyfiles
  (prompt "Copying to " #target)
  (help @copy-files-help)
  (source "RegForm_E.txt.info")
  (dest doc-dir )
)

(complete 90)
(complete 100)
(exit "You should read the manuals before you wants to use "
      @app-name
      "\nBefore running "@app-name " you must create a Configfile\n"
      "using TaggerCfgWrite or TaggerConCfg!!!\n"
      "\n\n"
      "Please check this archive with Md5Sum and PGP!"
      "\n"
      "Tia Juergen A.Lamers\n"
      )

; EOF
