; Installationsskript für das Programm MM-Reader von .
(if (= @language "deutsch")(

(set #QUESTDIR
(cat "In welche Schublade soll \"MM-Reader\" installiert werden ?\n(Eine Schublade wird angelegt !)"))
(set #QUESTDISK1 "Bitte legen Sie die Diskette \"")
(set #QUESTDISK2 "\" ein.")
(set #QUESTFILE1 "Wollen Sie die Datei \"")
(set #QUESTFILE2 "\" kopieren ?")
(set #QUESTFILES "Möchten Sie diese Datei(en) kopieren ?")
(set #QUESTASSIGN
(cat "Damit das Programm perfekt funktioniert, müssen\nAssigns in die \"User-Startup\" hinzugefügt werden !"))
(set #CHOOSEOPT  "Wählen Sie eine Option:")
(set #ASKTEMPDIR "Wo soll ein temporäres Verzeichnis zum Entpacken der Dateien angelegt werden?")
(set #USER_ABORT "Skript wurde vom Benutzer abgebrochen...")
(set #MEMORY     "Nicht genug Speicherplatz auf dem Datenträger vorhanden...")
(set #ERROR_1    "Konnte die Datei \"")
(set #ERROR_2    "\" nicht finden!\nDas Skript wird fortgefahren...")

;END IF
))
(if (= @language "english")(

(set #QUESTDIR
(cat "In which drawer should \"MM-Reader\" be installed ?\n(A Drawer will be created !)"))
(set #QUESTDISK1 "Please insert disk \"")
(set #QUESTDISK2 "\" in any drive.")
(set #QUESTFILE1 "Would you like to copy the file \"")
(set #QUESTFILE2 "\" ?")
(set #QUESTFILES "Would you like to copy this file(s) ?")
(set #QUESTASSIGN
(cat "Would you like to set Assigns for the program ?"))
(set #CHOOSEOPT  "Select Option:")
(set #ASKTEMPDIR "Where should a temp. directory be created?")
(set #USER_ABORT "User abort...")
(set #MEMORY     "Not enough memory on your destination...")
(set #ERROR_1    "Couldn't find the file \"")
(set #ERROR_2    "\"!\n\nPlease press \"proceed\" to continue")

;END IF
))


(set my_dest
 (tackon
   (askdir
     (prompt #QUESTDIR)
     (help @askdir-help)
     (default @default-dest)
   )
   "MM-Reader"
 )
)

(set @default-dest my_dest)
(makedir @default-dest (infos))
(if (> 1074075 (getdiskspace my_dest))
  (exit #MEMORY (quiet)))

(copyfiles
  (source "data/")
  (pattern "MM-Reader")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "mm-reader0.9a.readme")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "MM-Reader.prefs.info")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "MM-Reader.prefs")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/")
  (pattern "MM-Reader.info")
  (dest (tackon my_dest ""))
)
(copyfiles
  (source "data/fonts/")
  (pattern "GTBGadget.font")
  (dest "fonts:")
)
(makedir "fonts:gtbgadget/")
(copyfiles
  (source "data/fonts/gtbgadget/")
  (pattern "8f")
  (dest "fonts:gtbgadget/")
)
(copyfiles
  (source "data/libs/")
  (pattern "reqtools.library")
  (dest "libs:")
)
(copyfiles
  (source "data/envarc/")
  (pattern "mm-reader.config")
  (dest "envarc:")
)
(copyfiles
  (source "data/env/")
  (pattern "mm-reader.config")
  (dest "env:")
)