home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / text+faqs / installer_guide / install / install.script < prev   
Encoding:
Text File  |  1994-10-16  |  2.1 KB  |  66 lines
  1. ; $VER: Install_Installer_Guide 1.1 (16.10.94) by Gérard Cornu ;-)
  2. ;  
  3. ;-- Language specific string definitions --------------------------------------
  4.  
  5. ; ENGLISH -----------------------------
  6. (procedure english (
  7.     (set MSG_SPACE "\n\n\nInstalling this nice stuff will use about\n%ld Kilobytes of your hard disk space.")
  8.     (set MSG_DESTINATION "Where would you like %s to be installed?\n(%s will be directly copied there)")
  9.     (set MSG_COPYING "Going to copy %s to %s.")
  10.     (set @abort-button "Get out of here!")
  11.     (set MSG_THANKS "Thank you for installing %s!\n\n\n;-)")
  12. ))
  13.  
  14. ; FRANÇAIS ----------------------------
  15. ; Translation by ;-)
  16. (procedure français (
  17.     (set MSG_SPACE "\n\n\nL'installation de cette merveille va utiliser\nenviron %ld Kilo-Octets\nd'espace sur votre disque dur.")
  18.     (set MSG_DESTINATION "Où désirez-vous installer %s ?\n(%s y sera copié directement)")
  19.     (set MSG_COPYING "Prêt â copier %s vers %s.")
  20.     (set @abort-button "Sort d'ici!")
  21.     (set MSG_THANKS "Merci d'avoir installé %s!\n\n\n;-)")
  22. ))
  23. ;------------------------------------------------------------------------------
  24.  
  25. (if (= @language "english")  (english))
  26. (if (= @language "français") (français))
  27.  
  28. ; Choose default tool for guide, depending on user's OS version
  29. (set osversion  (/ (getversion) 65536))
  30. (if (>= osversion 39)
  31.    (set guide_reader "MultiView") 
  32.    (set guide_reader "AmigaGuide")
  33. )
  34. (set installed "")
  35.  
  36. (message (MSG_SPACE (/ (getsize "/Installer.guide") 1024)))
  37.  
  38. (set dest_dir
  39.    (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  40.            (help @askdir-help)
  41.            (default @default-dest)
  42.            (newpath))
  43. )
  44.  
  45. (set @default-dest dest_dir)
  46.  
  47. (copyfiles  (prompt (MSG_COPYING @app-name @default-dest))
  48.             (help @copyfiles-help)
  49.             (source "/Installer.Guide")
  50.             (dest dest_dir)
  51.             (infos)
  52. )
  53.  
  54. (if (exists (tackon @default-dest "Installer.guide.info") (noreq))
  55.    (
  56.       (tooltype   (dest (tackon @default-dest "Installer.guide"))
  57.                   (noposition) (setdefaulttool guide_reader))
  58.       (set installed "YES")         
  59.    )
  60. )
  61.  
  62. (if (= installed "YES") 
  63.    (exit (MSG_THANKS @app-name))
  64.    (exit)
  65. )   
  66.