; Installationsscript für den FKM 1.32

(set quel (pathonly @icon))
(complete 0)

(set ziel
  (tackon
    (askdir
      (prompt 'Where do you want to copy the directory for the FKM?')
      (help @askdir-help)
      (default 'Work:')
    )
    'FKM'
  )
)
(set @default-dest ziel)
(copyfiles
  (prompt (cat 'The file \"FKM\" will be copied to \"' ziel '\".'))
  (help @copyfiles-help)
  (source quel)
  (dest ziel)
  (pattern 'FKM engl')
  (files)
  (infos)
)
(complete 20)
(rename
   (tackon ziel 'FKM engl')
   (tackon ziel 'FKM')
   (prompt 'The file \"FKM engl\" will be renamed to \"FKM\".')
   (help @rename-help)
)
(rename
   (tackon ziel 'FKM engl.info')
   (tackon ziel 'FKM.info')
   (prompt 'The file \"FKM engl.info\" will be renamed to \"FKM.info\".')
   (help @rename-help)
)
(complete 25)

(copyfiles
  (prompt (cat 'The file \"FKM.guide\" (the online-help and manual of the FKM) will be copied to \"' ziel '\".'))
  (help @copyfiles-help)
  (source (tackon quel 'Docs English'))
  (dest ziel)
  (pattern 'FKM engl.guide')
  (files)
  (infos)
)
(complete 45)
(rename
   (tackon ziel 'FKM engl.guide')
   (tackon ziel 'FKM.guide')
   (prompt 'The file \"FKM engl.guide\" will be renamed to \"FKM.guide\".')
   (help @rename-help)
)
(rename
   (tackon ziel 'FKM engl.guide.info')
   (tackon ziel 'FKM.guide.info')
   (prompt 'The file \"FKM engl.guide.info\" will be renamed to \"FKM.guide.info\".')
   (help @rename-help)
)
(complete 50)

(copyfiles
  (prompt 'Do you want to copy the file \"FKM-Bild\"\n(the title-picture of the FKM)?\nOn 68000 based Amigas the loading of the title-picture will take a while.\nSo the FKM will also run without this picture.')
  (help @copyfiles-help)
  (source quel)
  (dest ziel)
  (pattern 'FKM-Bild')
  (files)
  (confirm)
)
(complete 75)

(copylib
  (prompt 'The AmigaGuide-library will be copied to LIBS: if it is necessary.')
  (help @copylib-help)
  (source (tackon quel 'libs/amigaguide.library'))
  (dest 'LIBS:');
)
(complete 100)

(exit 'The Demoversion of the FKM v1.32 was installed successfully!\n\nHave fun with the FKM!\nStefan Thomé');