home *** CD-ROM | disk | FTP | other *** search
/ Dream 41 / Amiga_Dream_41.iso / Amiga / Workbench / archiveurs / BurnGUI.lha / burngui / BurnGUI_Install < prev    next >
Text File  |  1996-12-26  |  3KB  |  159 lines
  1. ; BurnGui install-script
  2. ;
  3. ; $VER: BurnGuiInstall 1.0 (96.12.26)
  4. ;
  5.  
  6. (set #BurnGui-Version "1.0")
  7.  
  8. (if (< (/ (getversion) 65536) 37)
  9.   (abort "Sorry, BurnGui needs OS v37 (2.04) or higher.")
  10. )
  11.  
  12. (complete 0)
  13.  
  14. (welcome)
  15.  
  16. (message
  17.   "BurnGui v" #BurnGui-Version "⌐ \n\n"
  18.   "This program is FREE registration Program.\n"
  19.   "This Program requieres MUI 3.x. \n"
  20.  
  21. )
  22.  
  23. (set #Prg-Dir "")
  24.  
  25. (while
  26.   (or (= #Prg-Dir "") (not (exists #Prg-Dir (noreq))))
  27.   (set #Prg-Dir
  28.     (askdir
  29.       (prompt "Choose a suitable directory for the BurnGui program.")
  30.       (help @askdir-help)
  31.       (default @default-dest)
  32.     )
  33.   )
  34. )
  35.  
  36. (set @default-dest #Prg-Dir)
  37.  
  38. (complete 40)
  39.  
  40. (copyfiles
  41.   (prompt "Copying BurnGUI...\n")
  42.   (help @copyfiles-help)
  43.   (source ("burngui"))
  44.   (dest #Prg-Dir)
  45.   (infos)
  46.   (confirm)
  47. )
  48.  
  49. (complete 70)
  50.  
  51. (set #langbit 1)
  52. (if (= @language "franτais") (set #langbit 2))
  53. (if (= @language "dansk") (set #langbit 4))
  54. (if (= @language "espa±ol") (set #langbit 8))
  55. (if (= @language "catalα") (set #langbit 16))
  56. (if (= @language "greek") (set #langbit 32))
  57. (if (= @language "deutsch") (set #langbit 64))
  58. (if (= @language "portuguΩs") (set #langbit 128))
  59.  
  60. (set #catalog 
  61.   (askoptions
  62.     (prompt "Choose language to install")
  63.     (help @askchoices-help)
  64.     (choices "English" "Franτais" "Dansk" "Espa±ol" "Catalα" "Greek" "Deutsch" "PortuguΩs" )
  65.     (default #langbit)
  66.   )
  67. )
  68.  
  69. (if (= @user-level 2)
  70.    (set #catalogdest
  71.      (askdir
  72.         (prompt "Choose directory for catalogfiles")
  73.         (help @askdir-help)
  74.         (default "Locale:Catalogs")
  75.      )
  76.    )
  77.    (set #catalogdest "Locale:Catalogs")
  78. )
  79.  
  80. (if 
  81.   (in #catalog 1)
  82.   (copyfiles
  83.     (source "catalogs/franτais")
  84.     (dest (tackon #catalogdest "franτais"))
  85.     (all)
  86.   )
  87. )
  88.  
  89. (if 
  90.   (in #catalog 2)
  91.   (copyfiles
  92.     (source "catalogs/dansk")
  93.     (dest (tackon #catalogdest "dansk"))
  94.     (all)
  95.   )
  96. )
  97.  
  98. (if 
  99.   (in #catalog 3)
  100.   (copyfiles
  101.     (source "catalogs/espa±ol")
  102.     (dest (tackon #catalogdest "espa±ol"))
  103.     (all)
  104.   )
  105. )
  106.  
  107. (if 
  108.   (in #catalog 4)
  109.   (copyfiles
  110.     (source "catalogs/catalα")
  111.     (dest (tackon #catalogdest "catalα"))
  112.     (all)
  113.   )
  114. )
  115.  
  116. (if 
  117.   (in #catalog 5)
  118.   (copyfiles
  119.     (source "catalogs/greek")
  120.     (dest (tackon #catalogdest "greek"))
  121.     (all)
  122.   )
  123. )
  124.  
  125. (if 
  126.   (in #catalog 6)
  127.   (copyfiles
  128.     (source "catalogs/deutsch")
  129.     (dest (tackon #catalogdest "deutsch"))
  130.     (all)
  131.   )
  132. )
  133. (if 
  134.   (in #catalog 7)
  135.   (copyfiles
  136.     (source "catalogs/portuguΩs")
  137.     (destτ (tackon #catalogdest "portuguΩs"))
  138.     (all)
  139.   )
  140. )
  141.  
  142. (complete 100)
  143.  
  144. (message "BurnGui " #BurnGui-Version " is now installed correctly. \n"
  145.  "This is a FREE registration program!.\n"
  146.  "\n"
  147.  "For register Burngui please send me an email\n"
  148.  "or a Postcard to:\n "
  149.  "\n"
  150.  "Pedro Luis Mieza Suarez \n"
  151.  "Paseo Pedro III 45, 8, 3 \n"
  152.  "08240 MANRESA (Barcelona) \n"
  153.  "SPAIN \n"
  154.  "\n"
  155.  "Email: MULTITASKERS@redestb.es \n"
  156.  "HTTP://www.redestb.es/personal/multitaskers \n")
  157.  
  158. (exit)
  159.