; Das ist das Installation Script für DISCOTHEK Professional V2.1
; geschrieben von Michael Reich

(complete 0)

(delopts "oknodelete" "force" "askuser")

(if (= @language "deutsch")
(
(set default_lang 2)

(set #bad-kick
(cat "Sie müssen Kickstart 2.04 zum Installieren von Discothek Professional benutzen."
))

(set #bad-boot
(cat "Bitte starten Sie neu mit der Diskette \"DISCO-Install\" Version 2.1, "
     "bevor Sie dieses Installationsprogramm starten."
))

(set #wich-disk
(cat "Auf welcher Disk oder welcher Schublade soll Discothek Professional 2.1 installiert werden ?"
))

(set #wich-disk-help
(cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
     "Schublade die Dateien von Discothek Professional 2.1 installiert werden soll.\n\n"
     @askdir-help
))

(set #confirm-target
(cat "\n\nDieses Programm aktualisiert Ihr Discothek Professional V1.0/V2.0 "
     "auf Ihrer Festplatte im bisherigen Ordner."
     "Ihr Discothek Professional ist offenbar in der Schublade \"%s\" ge"
     "speichert.\n\n"
     "Wollen Sie die aktualisierung in dieser Schublade \"%s\" installiert "
     "bekommen ?"
))

(set #confirm-target-help
(cat "\n\n  Geben Sie JA ein wird Ihr Discothek Professional V1.0/V2.0 "
     "auf Ihrer Festplatte im bisherigen Ordner installiert."
     "\n\n  Geben Sie NEIN ein können Sie ein anderes Verzeichnis auswählen."
     
))

(set #confirm-1
(cat "Ja"
))

(set #conform-2
(cat "Nein"
))
 
(set #preparing-icons
(cat "\n\nVorbereiten der Piktogramme ..."
))

(set #positioning-icons
(cat "\n\nPositionieren der Piktogramme"
))

(set #ask-install
(cat "\n\nBitte legen Sie die Diskette \"DISCO-Install\" in ein "
     "beliebiges Diskettenlaufwerk ein."
))

(set #ask-install-help
(cat "\n  Diskette \"DISCO-Install\" muss eingelegt werden !"
))

(set #ask-data
(cat "\n\nBitte legen Sie die Diskette \"DISCO-DATA\" Version 2.1 in "
     "ein beliebiges Diskettenlaufwerk ein."
))

(set #ask-data-help
(cat "\n  Diskette \"DISCO-DATA\" muss eingelegt werden !"
))

(set #ask-reboot
(cat "Nehmen Sie jetzt die Diskette \"DISCO-Install\" aus dem "
     "Diskettenlaufwerk und starten Sie Ihren Amiga neu, um das "
     "Discothek Professional Programm zu aktivieren."
))

))

;==============================================================================
; richtige Kickstart Version 2.04 oder höher

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))

;==============================================================================    
; gebootet von Disco

;(if (<> (getassign "SYS" "a") "DISCO-Install:")
;(
;    (abort #bad-boot)
;))

;==============================================================================
; Begrüßung
(welcome)
(set old-level @user-level)


;==============================================================================

(procedure TERMINATE (makeassign "DISCO-Install")
                     (makeassign "DISCO-DATA")
)

(onerror (TERMINATE))

(user 2)
(set old_disco (getassign "DISCO" "vd"))
(if (= old_disco "")
  (set old_disco (getassign "SYS" "d"))
)

(if (askbool (prompt (#confirm-target old_disco old_disco))
      (help (#confirm-target-help old_disco))
      (default 1)
    )
(
    (set target old_disco)
)
(
  (set target (askdir (prompt #wich-disk)
                    (help #wich-disk-help)
                    (default old_disco)
              )
  )
))

; neue Ordner

(set prog_disk (tackon target ("DISCO")))
(makedir prog_disk (infos))

(set data_disk (tackon target ("DISCO/DISCO-DATA")))
(makedir data_disk (infos))

(set line_disk (tackon target ("DISCO/DISCO-DATA/Online-Hilfe")))
(makedir line_disk (infos))

(set demo_disk1 (tackon target ("DISCO/DISCO-DATA/Demo")))
(makedir demo_disk1 (infos))

(makedir (tackon target "DISCO/DISCO-DATA/Demo/Index_I"))
(makedir (tackon target "DISCO/DISCO-DATA/Demo/Index_P"))
(makedir (tackon target "DISCO/DISCO-DATA/Demo/Index_R"))


(set chart_lade (tackon target ("DISCO/Charts")))
(makedir chart_lade (infos))

(set icons_lade (tackon target ("DISCO/Icons")))
(makedir icons_lade (infos))

(set druck_lade (tackon target ("DISCO/Druckparameter")))
(makedir druck_lade (infos))    

(copyfiles (source "DISCO-Install:c/LHARC")
           (dest ("RAM:"))
)

; ================================
;
; Programm Installationen
;
; ================================


(askdisk (prompt #ask-install)
   (help #ask-install-help)
   (dest "DISCO-Install")
   (newname "..DISCO..")
)
(copyfiles (source "..DISCO..:Charts")
           (dest (tackon target "DISCO/Charts"))
           (all)
)
(copyfiles (source "..DISCO..:Druckparameter")
           (dest (tackon target "DISCO/Druckparameter"))
           (all)
)
(copyfiles (source "..DISCO..:Icons")
           (dest (tackon target "DISCO/Icons"))
           (all)
)
(complete 15)
(copyfiles (source "..DISCO..:DISCO_2.1")
           (dest (tackon target "DISCO"))
)
(copyfiles (source "..DISCO..:DISCO_2.1.info")
           (dest (tackon target "DISCO"))
)
(complete 20)
 
(copyfiles (source "..DISCO..:BACKUP-RESTORE")
           (dest (tackon target "DISCO"))
)
(copyfiles (source "..DISCO..:BACKUP-RESTORE.info")
           (dest (tackon target "DISCO"))
)
(complete 30)
(copyfiles (source "..DISCO..:TOP-TWENTY")
           (dest (tackon target "DISCO"))
)
(copyfiles (source "..DISCO..:TOP-TWENTY.info")
           (dest (tackon target "DISCO"))
)
(complete 40)
(copyfiles (source "..DISCO..:Tit.pic")
           (dest (tackon target "DISCO"))
)
(complete 50)
(copyfiles (source "..DISCO..:Farbe")
           (dest (tackon target "DISCO"))
)
(complete 55)
(copyfiles (source "..DISCO..:Rich")
           (dest (tackon target "DISCO"))
)
(complete 60)


; ================================
;
; Demo-Daten 1000 installieren
;
; ================================

(askdisk (prompt #ask-data)
   (help #ask-data-help)
   (dest "DISCO-DATA")
   (newname "..DISCO-DATA..")
  )
  (copyfiles (source "..DISCO-DATA..:Demo")
             (dest (tackon target "DISCO/DISCO-DATA/Demo"))
             (all)
)


; ===============================
;
; Demodaten entpacken
;
; ===============================

(working "Bitte um Geduld, Demo-Daten werden installiert ...\n"
           "\nBin am entpacken der Daten ..."
)
(textfile
    (dest "ram:install_script")
    (append "cd " target "DISCO/DISCO-DATA/DEMO/Index_R\n")
    (append "ram:lharc -m x Demo-Rhythmen.lzh\n")
    (append "cd " target "DISCO/DISCO-DATA/DEMO/Index_I\n")
    (append "ram:lharc -m x Demo-Interpreten.lzh\n")
    (append "cd " target "DISCO/DISCO-DATA/DEMO/Index_P\n")
    (append "ram:lharc -m x Demo-Platten.lzh\n")
    (append "cd " target "DISCO/DISCO-DATA/DEMO\n")
    (append "ram:lharc -m x Demo-Songs.lzh\n")

)
(execute "ram:install_script")
(delete (tackon target "DISCO/DISCO-DATA/Demo/Index_I/Demo-Interpreten.lzh"))
(delete (tackon target "DISCO/DISCO-DATA/Demo/Index_R/Demo-Rhythmen.lzh"))
(delete (tackon target "DISCO/DISCO-DATA/Demo/Index_P/Demo-Platten.lzh"))
(delete (tackon target "DISCO/DISCO-DATA/Demo/Demo-Songs.lzh"))
(delete "ram:install_script")
(delete "ram:LHARC")

; ===============================
;
; Online Hilfe installieren
;
; ===============================

(copyfiles (source "..DISCO-DATA..:Online-Hilfe")
             (dest (tackon target "DISCO/DISCO-DATA/Online-Hilfe"))
             (all)
)

;=================================
;
; Eintrag in User-Startup
;
; ================================

(if (= 1 (exists "S:User-Startup"))
  (
    (startup
      "DISCO"
      (prompt "Add DISCO: assignment to \"S:User-Startup\" ?")
      (help
      "Klicken Sie JA oder NEIN um die Zuordnung für das DISCCO-Verzeichnis"
      "in Ihrer User-Startup durchzuführen.\n\n"
      @startup-help
      )
      (command ("Assign DISCO: %s" (tackon target "DISCO")))
    )
  )
)
(if (= 1 (exists "S:User-Startup"))
  (
    (startup
      "DISCO-DATA"
      (prompt "Add DISCO-DATA: assignment to \"S:User-Startup\" ?")
      (help
      "Klicken Sie JA oder NEIN um die Zuordnung für das DISCO-DATA Verzeichnis"
      "in Ihrer User-Startup durchzuführen.\n\n"
      @startup-help
      )
      (command ("Assign DISCO-DATA: %s" (tackon target "DISCO/DISCO-DATA")))
    )
  )
)

; ================================
;
; ALLES FERTIG
;
; ================================

(complete 100)

(TERMINATE)

(exit #ask-reboot)