home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / olga / install-olga < prev    next >
Encoding:
Text File  |  1999-05-30  |  4.0 KB  |  231 lines
  1. ; Olga Installtion Script
  2. ;$VER Olga-Install 1.2 (05.04.99)
  3.  
  4.  
  5. (set TESTING 0)
  6.  
  7. (set InstallEnglish 1) ; 1 = install, 0 = don't install
  8. (set InstallFrench  0) ; 1 = install, 0 = don't install
  9.  
  10.  
  11. ;**************************************************************
  12. ; French strings
  13.  
  14.  
  15. (if (= @language "français")
  16.  (
  17.   (set #msg_welcome
  18.    (cat
  19.     "\n\n\nBienvenue dans l'installation d'Olga\n\n"
  20.     "Ce script installe la version 1.2 sur votre Amiga.\n\n"
  21.     "Olga © 1998-1999 L.D.B SoftWare\n\n"
  22.     "Tous Droits Réservés\n\n"
  23.    )
  24.   )
  25.  
  26.  
  27.   (set #msg_warn_mui
  28.    (cat
  29.     "\nAttention\n\nMUI (Magic User Interface)\n"
  30.     "ne semble pas être installé sur votre système.\n\n"
  31.     "MUI is absolument nécessaire à Olga.\n"
  32.     "MUI © 1993-1998 Stefan Stuntz"
  33.    )
  34.   )
  35.  
  36.   (set #msg_assign
  37.    (cat
  38.     "\n\n\nL'installation d'Olga est presque terminée.\n\n"
  39.     "Vous devrez maintenant ajouter un assign dans votre user-startup\n\n\n"
  40.     "Exemple :   ASSIGN OLGA: WORK:OLGA \n\n"
  41.    )
  42.   )
  43.  
  44.  
  45.   (set #msg_askdestdir
  46.    (cat
  47.     "SVP, choisissez une destination pour \"Olga\".\n"
  48.     "Un répertoire sera créé pour vous."
  49.    )
  50.   )
  51.  
  52.  
  53.   (set #msg_wichlang
  54.    "SVP, choisissez la langue que vous désirez installer."
  55.   )
  56.  )
  57. )
  58.  
  59.  
  60. (if (= @language "english")  
  61.  (
  62.  (set #msg_welcome
  63.    (cat
  64.      "\nWelcome to Olga installation\n\n"
  65.      "This script installs version 1.2 on your Amiga.\n\n"
  66.      "Olga © 1998-1999 L.D.B SoftWare.\n\n"
  67.      "All Rights Reserved\n\n"
  68.    )
  69.  )
  70.  
  71.  (set #msg_warn_mui
  72.   (cat
  73.     "\nWarning\n\nMUI (Magic User Interface)\n"
  74.     "seem not to be installed on your system.\n\n"
  75.     "MUI is absolutely needed for Olga to run.\n"
  76.     "MUI © 1993-1998 Stefan Stuntz"
  77.   )
  78.  )
  79.  
  80.  
  81.  (set #msg_assign
  82.   (cat
  83.     "\n\n\nThe installation of Olga is ending.\n\n"
  84.     "You must add an assign in your user-startup\n\n\n"
  85.     "Example :   ASSIGN OLGA: WORK:OLGA \n\n"
  86.   )
  87.  )
  88.  
  89.  
  90.  (set #msg_askdestdir
  91.    (cat
  92.      "Please, choose a destination for \"Olga\".\n"
  93.      "A directory will be created for you."
  94.    )
  95.  )
  96.  
  97.  
  98.  (set #msg_wichlang
  99.    "Please, choose witch language you want to install."
  100.  )
  101.  )
  102. )
  103.  
  104.  
  105. ;=======================================================
  106. ;================== Procedures! ========================
  107. ;=======================================================
  108.  
  109. (procedure P_copydir dirname
  110.   (copyfiles (infos) (all)
  111.     (source dirname)
  112.     (dest (tackon destination dirname))
  113.   )
  114. )
  115.  
  116. ;=======================================================
  117. ;=================== Settings! =========================
  118. ;=======================================================
  119.  
  120.  
  121. (message #msg_welcome (all))
  122. (welcome)
  123. (complete 0)
  124.  
  125. ;**** teste si mui est installé
  126. (if (= (exists "mui:" (noreq)) 0)
  127.   (message #msg_warnmui)
  128. )
  129.  
  130.  
  131. ;**** get destination directory
  132. (set destdir
  133.   (askdir
  134.     (prompt #msg_askdestdir)
  135.     (help @askdir-help)
  136.     (default "SYS:")
  137.   )
  138. )
  139.  
  140. (set @default-dest (expandpath destdir))
  141. (set destination (tackon destdir "Olga"))
  142.  
  143. ;=======================================================
  144. ;==================== Action! ==========================
  145. ;=======================================================
  146.  
  147.  
  148.  
  149. (complete 20)
  150.  
  151. (copyfiles
  152.     (source "Olga")
  153.     (dest destination)
  154. )
  155.  
  156. (complete 30)
  157.  
  158. (copyfiles
  159.     (source "Olga.info")
  160.     (dest destination)
  161. )
  162.  
  163. (copyfiles
  164.     (source "ReadMe_MUI")
  165.     (dest destination)
  166. )
  167.  
  168. (copyfiles
  169.     (source "ReadMe_MUI.info")
  170.     (dest destination)
  171. )
  172.  
  173.  
  174. (P_copydir "Msg")
  175.  
  176. (complete 50)
  177.  
  178. (P_copydir "Acc")
  179.  
  180. (complete 60)
  181.  
  182. (P_copydir "RNG")
  183.  
  184. (complete 70)
  185.  
  186. (P_copydir "Doc")
  187.  
  188.  
  189.  
  190. ;(if (exists "Catalogs")
  191.  
  192. (set lang
  193.   (askoptions
  194.     (prompt #msg_wichlang)
  195.     (help @askoptions-help)
  196.     (default 0)
  197.     (choices
  198.       "Français"
  199.       "Anglais"
  200.     )
  201.   )
  202. )
  203.  
  204. ;(if (BITAND lang 1)
  205. ;  (
  206. ;    (copyfiles
  207. ;      (source (tackon "catalogs/français" "olga.catalog"))
  208. ;      (dest "locale:Catalogs/français/")
  209. ;    )
  210. ;  )
  211. ;)
  212.  
  213. (if (BITAND lang 2)
  214.   (
  215.     (copyfiles
  216.       (source (tackon "catalogs/english" "olga.catalog"))
  217.       (dest "locale:Catalogs/English/")
  218.     )
  219.   )
  220. )
  221.  
  222. ;
  223. (complete 80)
  224.  
  225.  
  226. (message #msg_assign (all))
  227.  
  228.  
  229.  
  230. (complete 100)
  231.