;$VER: Install 1.01 (15.02.2002) © T.B. <tonyiommi@gmx.net>

(effect "lower_right" "radial" $FFFFFF $0000FF)

(set #wbversion 0)
(set #wbversion (getversion "libs:version.library"))
(set #wbversion (/ #wbversion 65536) )

(set #default-prgdest "SYS:Utilities")
(set #default-docdest "HELP:")
(set #priority 51)

(complete 0)

(if (= @language "deutsch")
(

;============================================================
; Deutsch Strings

(set #msg-welcome
 (cat "\nDamage Inc. präsentiert\n\n"
      @app-name "\n\n"
      "© T.B. <tonyiommi@gmx.net>\n\n\n"
 ))

(set #msg-prgdir
(cat "\nWähle das Installationverzeichnis.\n"
     "Es wird kein neues Verzeichnis erzeugt.\n"
     ))

(set #msg-docdir
(cat "\nWähle das Anleitungsverzeichnis\n"
     ))

(set #msg-noinstaller
(cat "\nFehler! Installer v44 wird benötigt.\n\n"
     "Bitte das AmigaOS aktualisieren."
     ))

(set #msg-noos
(cat "\nFehler! AmigaOS 3.5 wird benötig.\n\n"
     "Bitte das AmigaOS aktualisieren."
     ))

(set #msg_installing_prg "Installiere das Program...")
(set #msg_installing_doc "Installiere Anleitung...")
(set #msg-startup (cat "\n" @app-name " in die User-Startup Sequenz eingetragen? (empfehlenswert)"))
(set #msg_priority (cat
 "\nBitte die Priorität des Inputhandlers eingeben.\n"
 "Commodities läuft mit Priorität 53\n"
 "Intuition läuft mit 50\n"
 "Consoledevice läuft mit 0"
 ))
(set #msg_startprg "\nProgramm jetzt starten?")
(set #msg_startprghelp "\nProgramm kann ohne Reboot gleich gestartet werden?")
)
(
;============================================================
; English Strings

(set #msg-welcome
(cat "\nDamage Inc. presents\n\n"
     @app-name "\n\n"
     "© T.B. <tonyiommi@gmx.net>\n\n\n"
    ))

(set #msg-prgdir
(cat "\nSelect Installationdirectory.\n"
     "No Directory will be created.\n"
     ))

(set #msg-docdir
(cat "\nSelect Documentationdirectoy.\n"
     ))

(set #msg-noinstaller
(cat "\nInstaller v44 needed Error!\n\n"
     "Update your AmigaOS, please."
     ))

(set #msg-noos
(cat "\nAmigaOS 3.5 needed Error!\n\n"
     "Update your AmigaOS, please."
     ))

(set #msg_installing_prg "Installing Program...")
(set #msg_installing_doc "Installing Docs...")
(set #msg-startup (cat "\nShould " @app-name " be added to User-Startup?  (recommended)"))
(set #msg_priority (cat
 "\nEnter the Priority for the Inputhandler, please.\n"
 "Commodities is running at Priority 53\n"
 "Intuition is running at 50\n"
 "Consoledevice is running at 0"
 ))
(set #msg_startprg "\nStart Program now?")
(set #msg_startprghelp "\nProgram can be started directly without Rebooting")
))

;============================================================
; BEGIN

(showmedia "Readme" (cat @app-name ".readme") "lower_left" "medium" 1 "wordwrap")

(welcome #msg-welcome)

(showmedia "DamagePic" "Damage.jpg" "upper_left" "none" 0)

;============================================================
; Check Installer, does not work

(if (< @installer-version 44)
    (   (exit #msg-noinstaller (quiet))
    ))

;============================================================
; Check OS

(if (< #wbversion 44)
(   (exit #msg-noos (quiet))
    ))

;============================================================
; Get Directories

(set #prgdir
    (askdir (prompt #msg-prgdir)
    (help @askdir-help)
    (default #default-prgdest)
    (disk)
    (back (retrace))
    ))

(set #docdir
    (askdir (prompt #msg-docdir)
    (help @askdir-help)
    (default #default-docdest)
    (disk)
    (back (retrace))
    ))

;============================================================
; Get Priority

(if (= @user-level 2)
    (set #priority (asknumber (prompt #msg_priority)
    (help @asknumber-help)
    (range -128 255)
    (default 51)
    (back (retrace))
    )))

;============================================================
; Copy Files

(copyfiles (prompt #msg_installing_prg)
           (help @copyfiles-help)
           (source @app-name)
           (dest #prgdir)
           (infos)
           (back (retrace))
           )

(complete 50)

(copyfiles (prompt #msg_installing_doc)
           (help @copyfiles-help)
           (source (cat @app-name ".readme"))
           (dest #docdir)
           (back (retrace))
           )

(complete 75)

;============================================================
; User-Startup

(if (= @user-level 2)

(startup @app-name
    (prompt #msg-startup)
    (help @startup-help)
    (command (cat 'RUN '  '> NIL: "' (tackon #prgdir @app-name) '"' ' PRI=' #priority))
    (confirm)
    (back (retrace))
    )

(startup @app-name
    (prompt #msg-startup)
    (help @startup-help)
    (command (cat 'RUN ' '> NIL: "' (tackon #prgdir @app-name) '"'))
    (confirm)
    (back (retrace))
    )

 )

;============================================================
; Start Prg

(run (cat 'RUN '  '> NIL: "' (tackon #prgdir @app-name) '"' ' PRI=' #priority)
	(prompt #msg_startprg)
	(help #msg_startprghelp)
	(confirm))

(complete 100)

;============================================================
; Installation complete

(set @default-dest #prgdir)
(exit)