; $VER: Install_Installer_Guide 1.1 (16.10.94) by Gérard Cornu ;-)
;  
;-- Language specific string definitions --------------------------------------

; ENGLISH -----------------------------
(procedure english (
    (set MSG_SPACE "\n\n\nInstalling this nice stuff will use about\n%ld Kilobytes of your hard disk space.")
    (set MSG_DESTINATION "Where would you like %s to be installed?\n(%s will be directly copied there)")
    (set MSG_COPYING "Going to copy %s to %s.")
    (set @abort-button "Get out of here!")
    (set MSG_THANKS "Thank you for installing %s!\n\n\n;-)")
))

; FRANÇAIS ----------------------------
; Translation by ;-)
(procedure français (
    (set MSG_SPACE "\n\n\nL'installation de cette merveille va utiliser\nenviron %ld Kilo-Octets\nd'espace sur votre disque dur.")
    (set MSG_DESTINATION "Où désirez-vous installer %s ?\n(%s y sera copié directement)")
    (set MSG_COPYING "Prêt â copier %s vers %s.")
    (set @abort-button "Sort d'ici!")
    (set MSG_THANKS "Merci d'avoir installé %s!\n\n\n;-)")
))
;------------------------------------------------------------------------------

(if (= @language "english")  (english))
(if (= @language "français") (français))

; Choose default tool for guide, depending on user's OS version
(set osversion  (/ (getversion) 65536))
(if (>= osversion 39)
   (set guide_reader "MultiView") 
   (set guide_reader "AmigaGuide")
)
(set installed "")

(message (MSG_SPACE (/ (getsize "/Installer.guide") 1024)))

(set dest_dir
   (askdir (prompt (MSG_DESTINATION @app-name @app-name))
           (help @askdir-help)
           (default @default-dest)
           (newpath))
)

(set @default-dest dest_dir)

(copyfiles  (prompt (MSG_COPYING @app-name @default-dest))
            (help @copyfiles-help)
            (source "/Installer.Guide")
            (dest dest_dir)
            (infos)
)

(if (exists (tackon @default-dest "Installer.guide.info") (noreq))
   (
      (tooltype   (dest (tackon @default-dest "Installer.guide"))
                  (noposition) (setdefaulttool guide_reader))
      (set installed "YES")         
   )
)

(if (= installed "YES") 
   (exit (MSG_THANKS @app-name))
   (exit)
)