;Autor: Andre´ Trettin
;© by BangerSoft
;$VER: BangerMenu.install 1.220 (31-Okt-95)

(if (= @LANGUAGE "deutsch")
 (
  (set #bad-kick
  (cat "BangerMenu funktioniert erst ab Kickstart 2.0 oder höher!.\ns. auch BangerMenu.guide\nInstallation abgebrochen"
  ))
  (set #choose-medium
  (cat "Wähle das Medium, wo BangerMenu installiert werden soll."
  ))
  (set #choose-m-help
  (cat "Es kann auf der Festplatte oder aber auf Disketten installiert werden."
  ))
  (set #choose-color
  (cat "Wähle die Anzahl der Farben für die Icons."
  ))
  (set #choose-c-help
  (cat "Wenn Sie eine Workbench mit 8 Farben laufen haben, können Sie die 8 Farben Icons installieren."
  ))
  (set #choose-progdir
  (cat "Bitte wählen Sie ein Verzeichnis für BangerMenu aus. Das Verzeichnis BangerMenu wird dort erstellt.!"
  ))
  (set #choose-prog-help
  (cat "In das angewählte Verzeichnis wird ein Verzeichnis mit dem Namen BangerMenu erstellt und die folgenen Programme BangerMenu, BangerMenu.asm, BangerMenu.guide, BangerMenu.install und BangerMenu.prefs werden dort installiert."
  ))
  (set #create-dir
  (cat "Erstelle Unterverziechnis BangerMenu."
  ))
  (set #inst-main
  (cat "Kopiere Hauptprogramm."
  ))
  (set #choose-disk
  (cat "Bitte wählen Sie ein Laufwerk für BangerMenu aus."
  ))
  (set #choose-disk-help
  (cat "BangerMenu wird ins C-Verzeichnis kopiert (legt es an, sofern es nicht vorhanden ist). BangerMenu.Prefs wird ins S-Verzeichnis kopiert (es wird ebenfalls angelegt, falls kein S-Verzeichnis vorhanden ist. Anleitung, Quellcode  und Installationskript können auf Wunsch ebenfalls auf die Diskette kopiert werden."
  ))
  (set #ask-source
  (cat "Soll der Assembler-Sourcecode kopiert werden ?"
  ))
  (set #ask-source-help
  (cat "Programmierer können, wenn sie wollen das Programm nach ihren eigenen Vorstellungen anpassen."
  ))
  (set #inst-source
  (cat "kopiere BangerMenu.asm ..."
  ))
  (set #ask-guide
  (cat "Soll die Anleitung kopiert werden ?"
  ))
  (set #ask-guide-help
  (cat "Die Anleitung für das Programm"
  ))
  (set #inst-guide
  (cat "Kopiere BangerMenu.guide ..."
  ))
  (set #ask-install
  (cat "Soll das Installationskript kopiert werden ?"
  ))
  (set #ask-install-help
  (cat "Ist wichtig, wenn man auf noch weiteren Medien das Programm installiert haben möchte z.B. Disketten"
  ))
  (set #inst-install
  (cat "Kopiere BangerMenu.install ..."
  ))
  (set #ask-prefs
  (cat "Soll das mitgelieferte Konfigfile kopiert werden ?"
  ))
  (set #ask-prefs-help
  (cat "Eine typische Einstellung. Die dennoch abgeändert werden muß für jedes Rechner System."
  ))
  (set #inst-prefs
  (cat "Kopiere BangerMenu.prefs ..."
  ))
  (set #create-s-dir
  (cat "Erstelle das S Verzeichnis."
  ))
  (set #ask-bat
  (cat "Sollen die mitgelieferte Batchfiles kopiert werden ?"
  ))
  (set #ask-bat-help
  (cat "In Verbindung mit der Beispiel Konfig kann man die Batchfiles schnell um schreiben und erhält so einen guten Einstieg in die Benutzung des Programms."
  ))
  (set #inst-bat
  (cat "Kopiere das Verzeichnis Bat ..."
  ))
  (set #create-bat-dir
  (cat "Erstelle das Bat Verzeichnis."
  ))
  (set #endtext
  (cat "Zum Starten von BangerMenu muß BangerMenu in der Startup-Sequence eingebunden werden. Zum richtigen Einbinden in die Startup-Sequence lesen sie bitte in der BangerMenu.guide nach.\n Der Pfad lautet : "
  ))
 )
)
(if (= @LANGUAGE "english")
 (
  (set #bad-kick
  (cat "BangerMenu will only run under Kickstart 2.0 or above!.\nlooks on BangerMenu.guide\nInstallation abort."
  ))
  (set #choose-medium
  (cat "Please choose a medium where BangerMenu should be installed!"
  ))
  (set #choose-m-help
  (cat "BangerMenu can be install on harddrive or on disk."
  ))
  (set #choose-color
  (cat "How many colors should your icons have ?"
  ))
  (set #choose-c-help
  (cat "You can choose between 4 and 8 colors icons for your workbench."
  ))
  (set #choose-progdir
  (cat "Please choose a dir where BangerMenu should be installed! A drawer BangerMenu will be created there."
  ))
  (set #choose-prog-help
  (cat "In this location a drawer will be created. All files will be installed into this drawer."
  ))
  (set #create-dir
  (cat "Creating BangerMenu directory"
  ))
  (set #inst-main
  (cat "Installing main program."
  ))
  (set #choose-disk
  (cat "Please choose a diskfloppy where BangerMenu should be installed!"
  ))
  (set #choose-disk-help
  (cat "Installing BangerMenu in C-dir of the Disk (create a C-dir, if required). Installing BangerMenu.prefs in S-Dir of the Disk (create a S-dir, if required). If you wish to install the guide, source and intallscript when you can choose it."
  ))
  (set #ask-source
  (cat "Should I install the asm-sourcecode ?"
  ))
  (set #ask-source-help
  (cat "Coders can use this code for their own programms."
  ))
  (set #inst-source
  (cat "Installing BangerMenu.asm ..."
  ))
  (set #ask-guide
  (cat "Should I install the guide of the programm ?"
  ))
  (set #ask-guide-help
  (cat "The little guide of this programm."
  ))
  (set #inst-guide
  (cat "Installing BangerMenu.guide ..."
  ))
  (set #ask-install
  (cat "Should I copy the installscript ?"
  ))
  (set #ask-install-help
  (cat "This is important, if you want to install the programm on other medium for example on disk."
  ))
  (set #inst-install
  (cat "Installing BangerMenu.install ..."
  ))
  (set #ask-prefs
  (cat "Should I install the configfile ?"
  ))
  (set #ask-prefs-help
  (cat "A expamle configfile to lerning how to build yourself configfiles for BangerMenu."
  ))
  (set #inst-prefs
  (cat "Installing BangerMenu.prefs ..."
  ))
  (set #create-s-dir
  (cat "Creating S directory."
  ))
  (set #ask-bat
  (cat "Should I install the directory bat ?"
  ))
  (set #ask-bat-help
  (cat "A few example batch files for using BangerMenu."
  ))
  (set #inst-bat
  (cat "Installing directory bat ..."
  ))
  (set #create-bat-dir
  (cat "Creating Bat directory."
  ))
  (set #endtext
  (cat "Now you must wrote a few line to your Startup-Sequence. Look at the guide. The path is : "
  ))
 )
)
(complete 0)
(if (< (/ (getversion) 65536) 37) (abort #bad-kick))
(welcome)
(complete 5)
(set Medium
    (askchoice
        (prompt #choose-medium)
        (help #choose-m-help)
        (choices "HD" "Disk")
        (default 0)
    )
)
(complete 10)
(set color
    (askchoice
        (prompt #choose-color)
        (help #choose-c-help)
        (choices "4" "8")
        (default 1)
    )
)
(if (= Medium 0)
 (
 (set preprogdest
    (askdir
        (prompt #choose-progdir)
        (help #choose-prog-help)
        (default "SYS:")
        (newpath)
    )
 )
 (set progdest ( tackon preprogdest "BangerMenu" ))
 (makedir progdest
      (prompt #create-dir)
      (safe)
 )
 (if (= color 1) (set infosource "/BangerMenu.info")
    (set infosource "4ColorIcons/BangerMenu.info")
 )
 (copyfiles
    (source infosource)
    (dest preprogdest)
 )
 )
)
(complete 20)
(if (= Medium 1)
 ((set preprogdest
    (askdir
        (prompt #choose-disk)
        (help #choose-disk-help)
        (disk)
        (default "DF0:")
    )
  )
  (set progdest ( tackon preprogdest "C" ))
 )
)
(complete 30)
(copyfiles
    (prompt #inst-main)
    (source "BangerMenu")
    (dest progdest)
)
(if (= Medium 1) (set progdest preprogdest))
(complete 40)
(if (askbool
        (help #ask-source-help)
        (prompt #ask-source)
    )
 (
    (copyfiles
        (prompt #inst-source)
        (source "BangerMenu.asm")
        (dest progdest)
    )
    (if (= color 1) (set asminfo "BangerMenu.asm.info")
       (set asminfo "4ColorIcons/BangerMenu.asm.info")
    )
    (copyfiles
        (source asminfo)
        (dest progdest)
    )
 ) 
)
(complete 50)
(if (askbool
        (help #ask-guide-help)
        (prompt #ask-guide)
    )
 (
    (if (= @LANGUAGE "deutsch")
        ((set guidefile "BangerMenu.guide")
        (if (= color 1) (set guideinfo "BangerMenu.guide.info")
            (set guideinfo "4ColorIcons/BangerMenu.guide.info")
        )
        )
        ((set guidefile "BangerMenu_Eng.guide")
        (if (= color 1) (set guideinfo "BangerMenu_Eng.guide.info")
            (set guideinfo "4ColorIcons/BangerMenu_Eng.guide.info")
        ))
    )
    (copyfiles
        (prompt #inst-guide)
        (source guidefile)
        (dest progdest)
    )
    (copyfiles
        (source guideinfo)
        (dest progdest)
    )
 )
)
(complete 60)
(if (askbool
        (help #ask-install-help)
        (prompt #ask-install)
    )
 (   
    (if (= @LANGUAGE "deutsch")
        ((if (= color 1) (set installinfo "Deutsch.install.info")
            (set installinfo "4ColorIcons/Deutsch.install.info")
         )
        )
        ((if (= color 1) (set installinfo "English.install.info")
            (set installinfo "4ColorIcons/English.install.info")
         )
        )
    )
    (copyfiles
        (prompt #ins-install)
        (source "BangerMenu.install")
        (dest progdest)
    )
    (copyfiles
        (source installinfo)
        (dest progdest)
    )
 )
)
(complete 70)
(if (askbool
        (help #ask-prefs-help)
        (prompt #ask-prefs)
    )
   (
    (if (= Medium 1)
      (
        (set progdest ( tackon preprogdest "S" ))
        (makedir progdest
            (prompt #create-s-dir)
            (infos)
            (safe)
        )
      )
    )
    (copyfiles
        (prompt #inst-prefs)
        (source "BangerMenu.prefs")
        (dest progdest)
    )
    (if (= color 1) (set prefsinfo "BangerMenu.prefs.info")
        (set prefsinfo "4ColorIcons/BangerMenu.prefs.info")
    )
    (copyfiles
        (source prefsinfo)
        (dest progdest)
    )
    (if (askbool
        (help #ask-bat-help)
        (prompt #ask-bat)
        )
       (
        (if (= Medium 0)
           (
            (set batdest ( tackon progdest "bat"))
            (makedir batdest
                (prompt #create-bat-dir)
                (infos)
                (safe)
            )
           )
           (set batdest progdest)
        )
        (copyfiles
            (prompt #inst-bat)
            (source "bat")
            (all)
            (dest batdest)
        )
       )
    )
   )
)
(complete 80)
(if (= Medium 0) (set filedest ( tackon progdest "BangerMenu" ))
 (set filedest ( tackon preprogdest "C"))
)
(complete 90)
(message #endtext filedest)
(complete 99)
(exit)