;Installationsskript für "Rätselhelfer V2.11" (12.03.1999)
;Namen festlegen
(SET #progname "Rätselhelfer V2.11 (Programm)")
(SET #progfile "Rätselhelfer")
(SET #dokname "Dokumentation im ASCII-Format")
(SET #dokfile "LiesMichZuerst.dok")
(SET #guidename "Dokumentation im AmigaGuide-Format")
(SET #guidefile "LiesMichZuerst.guide")
(SET #abkname "Abkürzungsliste im ASCII-Format")
(SET #abkfile "Abkürzungen.txt")
(SET #demoname "Demo.brn (enthält 5000 Begriffe)")
(SET #demofile "Demo.brn")
(SET #regname "Registrierungsformular")
(SET #regfile "Registrierung.txt")
(SET #keyname "Keyfile (wird für Vollversion benötigt)")
(SET #keyfile "Rätsel.key")
(SET #brainname "Rätsel.brn (Vollversion)")
(SET #brainfile "Rätsel.brn")
(SET #muster "")

;Zielverzeichnis festlegen
(SET @default-dest
  (ASKDIR
    (PROMPT  "Bitte Zielverzeichnis auswählen.\nEs wird kein neues Unterverzeichnis erzeugt.")
    (HELP    @askdir-help)
    (DEFAULT @default-dest)
  )
)

;Dateien auswählen
(SET #parts
  (ASKOPTIONS
    (PROMPT "Welche Dateien sollen installiert werden?")
    (HELP @askoptions-help)
    (IF (= (EXISTS #keyfile) 1)
      (CHOICES #progname #dokname #guidename #abkname #demoname #regname #keyname #brainname)
      (CHOICES #progname #dokname #guidename #abkname #demoname #regname)
    )
  )
)

;Dateigrößen aufsummieren und Dateimuster zusammensetzen
(IF (IN #parts 0)
  (
    (SET #alles (+ #alles (+ (GETSIZE #progfile) (GETSIZE (CAT #progfile ".info")))))
    (SET #muster (CAT #progfile "|" #progfile ".info"))
  )
)
(IF (IN #parts 1)
  (
    (SET #alles (+ #alles (+ (GETSIZE #dokfile) (GETSIZE (CAT #dokfile ".info")))))
    (IF (#muster)
      (SET #muster (CAT #muster "|"))
    )
    (SET #muster (CAT #muster #dokfile "|" #dokfile ".info"))
  )
)
(IF (IN #parts 2)
  (
    (SET #alles (+ #alles (+ (GETSIZE #guidefile) (GETSIZE (CAT #guidefile ".info")))))
    (IF (#muster)
      (SET #muster (CAT #muster "|"))
    )
    (SET #muster (CAT #muster #guidefile "|" #guidefile ".info"))
  )
)
(IF (IN #parts 3)
  (
    (SET #alles (+ #alles (+ (GETSIZE #abkfile) (GETSIZE (CAT #abkfile ".info")))))
    (IF (#muster)
      (SET #muster (CAT #muster "|"))
    )
    (SET #muster (CAT #muster #abkfile "|" #abkfile ".info"))
  )
)
(IF (IN #parts 4)
  (
    (SET #alles (+ #alles (+ (GETSIZE #demofile) (GETSIZE (CAT #demofile ".info")))))
    (IF (#muster)
      (SET #muster (CAT #muster "|"))
    )
    (SET #muster (CAT #muster #demofile "|" #demofile ".info"))
  )
)
(IF (IN #parts 5)
  (
    (SET #alles (+ #alles (+ (GETSIZE #regfile) (GETSIZE (CAT #regfile ".info")))))
    (IF (#muster)
      (SET #muster (CAT #muster "|"))
    )
    (SET #muster (CAT #muster #regfile "|" #regfile ".info"))
  )
)
(IF (IN #parts 6)
  (
    (SET #alles (+ #alles (GETSIZE #keyfile)))
  )
)
(IF (IN #parts 7)
  (
    (SET #alles (+ #alles (+ (GETSIZE #brainfile) (GETSIZE (CAT #brainfile ".info")))))
    (IF (#muster)
      (SET #muster (CAT #muster "|"))
    )
    (SET #muster (CAT #muster #brainfile "|" #brainfile ".info"))
  )
)

;Fortschrittsanzeige auf 0% setzen
(COMPLETE 0)

;Datengröße und freien Plattenplatz anzeigen
(MESSAGE
  "Ausgewähltes Zielverzeichnis:\n"
  @default-dest
  "\n\nVerfügbarer Platz auf dem Datenträger:\n"
  (getdiskspace @default-dest)
  "\n\nBenötigter Platz:\n"
  #alles
)

;Keyfile kopieren, falls angewählt
(IF (IN #parts 6)
  (
    (COPYFILES
      (SOURCE #keyfile)
      (DEST "S:")
    )
    (SET #summe (+ #summe (GETSIZE #keyfile)))
    (COMPLETE (/ (* #summe 100) #alles))
  )
)

;restliche ausgewählte Dateien kopieren
(IF (#muster)
  (FOREACH "" (CAT "(" #muster ")")
    (COPYFILES
      (SOURCE @each-name)
      (DEST @default-dest)
    )
    (SET #summe (+ #summe (GETSIZE @each-name)))
    (COMPLETE (/ (* #summe 100) #alles))
  )
)

;fertig
(EXIT "Viel Spaß beim Rätsellösen wünscht\n\n           Peter Krüger")