home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / screenplay / shareware / side_1.2 / install_side < prev   
Text File  |  1996-09-06  |  12KB  |  422 lines
  1. (complete 0)
  2.  
  3. ;**************************************************************************
  4. ;    FRANCAIS
  5. ;**************************************************************************
  6. (if (= @language "français")
  7. (
  8. ;******************************************************************** KICK
  9.  
  10. (set #warn-kickstart-text
  11. (cat    "\nMAUVAISE VERSION DU KICKSTART\n\n"
  12.         "Side nécessite le KickStart 3.0 (V39) ou plus. "
  13.         "Il ne fonctionnera pas sur des versions antérieures.\n"
  14.         "Vous utilisez actuellement le KickStart V%ld.\n\n"
  15.         "Dois-je continuer l'installation?"
  16. ))
  17.  
  18. ;******************************************************************** GLOBAL
  19.  
  20. (set #path-text
  21. (cat "\nChoisissez le répertoire où Side sera installé (un nouveau répertoire 'Side' sera créé)"
  22. ))
  23.  
  24. (set #path-help
  25. (cat "\nCette partie vous permet de choisir où installer Side "
  26.      "sur votre disque dur. Si vous en avez un, vous pouvez choisir votre tiroir \"Jeux\"."
  27.      "\n\nNotez que l'installation va créer un tiroir \"Side\".\n\n"
  28.      @askdir-help
  29. ))
  30.  
  31. ;******************************************************************** SCREEN
  32.  
  33. (set #screen-text
  34. (cat "Choisissez votre mode d'affichage:"
  35. ))
  36.  
  37. (set #screen-help
  38. (cat "Choisissez le mode d'affichage le mieux adapté à votre écran. "
  39.      "Vous devez choisir PAL si vous utilisez votre téléviseur ou "
  40.      "un vieux moniteur 15 kHz (1083/1084).\n"
  41.      "Choisissez Multiscan si vous utilisez un moniteur 31 kHz type VGA.\n"
  42.      "Vous pouvez choisir DBLPAL si vous avez un moniteur 1942/1960, mais celà "
  43.      "risque de ne pas fonctionner sur un moniteur VGA."
  44. ))
  45.  
  46. ;******************************************************************** LIBS
  47.  
  48. (set #lib-path-text
  49. (cat "\nChoisissez le répertoire où les bibliothèques de Side seront installées"
  50. ))
  51.  
  52. (set #lib-path-help
  53. (cat "\nCette partie vous permet de coisir où les deux bibliothèques "
  54.      "d'utilitaires employées par Side seront installées.\n"
  55.      "La destination normale est LIBS:\n\n"
  56.      @askdir-help
  57. ))
  58.  
  59. (set #libs-iff-help
  60. (cat "La bibliothèque Easy iff a été écrite par Christian A Weber.\n"
  61.      "Elle contient des routines de lecture IFF qui simplifient beaucoup la vie."
  62.      "Elle est dans le domaine public.\nMerci, Christian!"
  63.      "\n\n" @copylib-help
  64. ))
  65.  
  66. (set #libs-med-help
  67. (cat "La bibliothèque Medplayer a été écrite par xxx.\n"
  68.      "Elle contient tout un ensemble de routines soundtracker 4 pistes."
  69.      "Veulliez consulter la documentation SVP.\nMerci, xxx!"
  70.      "\n\n" @copylib-help
  71. ))
  72.  
  73.  
  74. ;******************************************************************** DOC
  75.  
  76. (set #path-doc-text
  77. (cat "\nChoisissez le répertoire où la documentation de Side sera installée"
  78. ))
  79.  
  80. (set #path-doc-help
  81. (cat "\nCette partie vous permet de choisir où installer la documentation de Side "
  82.      "sur votre disque dur. La destination par défaut est le tiroir \"Side\""
  83.      "drawer.\n\n"
  84.      @askdir-help
  85. ))
  86.  
  87. (set #install-docs-help
  88. (cat "\nVous pouvez avoir besoin d'aide pour utiliser Side.\n\n"
  89.      @askbool-help
  90. ))
  91.  
  92. (set #doc-dir-choose "Choisissez les fichiers d'aide à installer")
  93. (set #doc-dir-choose-help
  94. (cat "La documentation de Side est au format Amigaguide, et existe en "
  95.      "plusieurs langues.\nChoisissez celle qui vous convient."))
  96.  
  97. ;******************************************************************** LOCALE
  98.  
  99. (set #path-locale-text
  100. (cat "\nChoisissez le répertoire où la traduction de Side sera installée"
  101. ))
  102.  
  103. (set #path-locale-help
  104. (cat "\nCette partie vous permet de choisir où installer les traductions de Side "
  105.      "sur votre disque dur. La destination par défaut est le répertore \"LOCALE:catalogs\""
  106.      ".\n\n"
  107.      @askdir-help
  108. ))
  109.  
  110. (set #install-locale-help
  111. (cat "\nSide est par défaut en anglais. Si vous désirez utiliser une autre langue, "
  112.      "des traductions sont prévues.\n\n"
  113.      @askbool-help
  114. ))
  115.  
  116. (set #locale-dir-choose "Choisissez les fichiers de traduction à installer")
  117. (set #locale-dir-choose-help
  118. (cat "La traduction de Side existe en "
  119.      "plusieurs langues.\nChoisissez celle qui vous convient."))
  120.  
  121.  
  122. ;******************************************************************** BYE
  123.  
  124. (set #goodbye
  125. (cat "\nN'oubliez pas que Side est SHAREWARE.\n\n"
  126.      "Si vous utilisez ce programme vous devez être enregistré en envoyant $10 US (50 FF) à:\n\n"
  127. ))
  128.  
  129. (set #my-address
  130. (cat    "François Dispot,\n"
  131.         "Les poissons 1122,\n"
  132.         "20 ter rue de Bezons,\n"
  133.         "92400 Courbevoie,\n"
  134.         "France.\n"
  135. ))
  136. ))
  137.  
  138. ;**************************************************************************
  139. ;    ENGLISH
  140. ;**************************************************************************
  141. (if (= @language "english")
  142. (
  143. ;******************************************************************** KICK
  144.  
  145. (set #warn-kickstart-text
  146. (cat    "\nBAD KICKSTART VERSION\n\n"
  147.         "Side needs KickStart 3.0 (V39) or higher. "
  148.         "It will not run under previous versions.\n"
  149.         "You are currently using KickStart V%ld.\n\n"
  150.         "Shall I continue installation?"
  151. ))
  152.  
  153. ;******************************************************************** GLOBAL
  154.  
  155. (set #path-text
  156. (cat "\nSelect directory to install Side to (a new 'Side' directory will be created)."
  157. ))
  158.  
  159. (set #path-help
  160. (cat "\nThis section lets you choose where to install Side "
  161.      "on your hard disk. This should normally go in your \"Games\""
  162.      "drawer.\n\nNote that Side will create a \"Side\" drawer.\n\n"
  163.      @askdir-help
  164. ))
  165.  
  166. ;******************************************************************** SCREEN
  167.  
  168. (set #screen-text
  169. (cat "Select screen mode:"
  170. ))
  171.  
  172. (set #screen-help
  173. (cat "Select the best screen mode, depending on the kind of "
  174.      "monitor you use. You should select PAL if you play on TV or on an "
  175.      "old 15 kHz monitor (1083/1084).\n"
  176.      "Select Multiscan if you use a 31 kHz VGA-style monitor.\n"
  177.      "You may prefer DBLPAL if you have a 1942/1960 monitor, but this "
  178.      "may not work on a VGA display."
  179. ))
  180.  
  181. ;******************************************************************** LIBS
  182.  
  183. (set #lib-path-text
  184. (cat "\nChoose where the libraries used by Side will be installed"
  185. ))
  186.  
  187. (set #lib-path-help
  188. (cat "\nThis part allows you to choose where the utility libraries "
  189.      "used by side will be installed.\n"
  190.      "This should normally be LIBS:\n\n"
  191.      @askdir-help
  192. ))
  193.  
  194. (set #libs-iff-help
  195. (cat "Easy iff library was written by Christian A Weber.\n"
  196.      "It contains useful iff-reading routines that make life far easier."
  197.      "It is public domain.\nThank you, Christian!"
  198.      "\n\n" @copylib-help
  199. ))
  200.  
  201. (set #libs-med-help
  202. (cat "Medplayer library was written by xxx.\n"
  203.      "It contains a full 4-tracks soundtracker package."
  204.      "Please have a look at the license.\nThank you, xxx!"
  205.      "\n\n" @copylib-help
  206. ))
  207.  
  208. ;******************************************************************** LOCALE
  209.  
  210. (set #path-locale-text
  211. (cat "\nSelect directory to install Side translation files to"
  212. ))
  213.  
  214. (set #path-locale-help
  215. (cat "\nThis section lets you choose where to install Side translation files "
  216.      "on your hard disk. This should normally go in your \"LOCALE:catalogs\""
  217.      "drawer .\n\n"
  218.      @askdir-help
  219. ))
  220.  
  221. (set #install-locale-help
  222. (cat "\nDefault language for Side is English. If you want to use it in another language, "
  223.      "catalog files are provided.\n\n"
  224.      @askbool-help
  225. ))
  226.  
  227. (set #locale-dir-choose "Choose what translations to install")
  228. (set #locale-dir-choose-help
  229. (cat "Side translations exist "
  230.      "in several languages.\nChoose the ones you want."))
  231.  
  232.  
  233. ;******************************************************************** DOC
  234.  
  235. (set #path-doc-text
  236. (cat "\nSelect directory to install Side helpfiles to"
  237. ))
  238.  
  239. (set #path-doc-help
  240. (cat "\nThis section lets you choose where to install Side helpfiles "
  241.      "on your hard disk. This should normally go in your \"Side\""
  242.      "drawer.\n\n"
  243.      @askdir-help
  244. ))
  245.  
  246. (set #install-docs-help
  247. (cat "\nYou may need help to use Side.\n\n"
  248.      @askbool-help
  249. ))
  250.  
  251. (set #doc-dir-choose "Choose helpfiles to install")
  252. (set #doc-dir-choose-help
  253. (cat "Side Amigaguide documentation exists in "
  254.      "several languages.\nChoose the one(s) you prefer."))
  255.  
  256. ;******************************************************************** BYE
  257.  
  258. (set #goodbye
  259. (cat "\nPlease remember that Side is SHAREWARE.\n\n"
  260.      "If you use this program you should register by sending $10 US (50 FF) to:\n\n"
  261. ))
  262.  
  263. (set #my-address
  264. (cat    "François Dispot,\n"
  265.         "Les poissons 1122,\n"
  266.         "20 ter rue de Bezons,\n"
  267.         "92400 Courbevoie,\n"
  268.         "France.\n"
  269. ))
  270. ))
  271. ;********************************************************************
  272.  
  273.  
  274. ;********************************************************************
  275. ;**** END OF TEXT
  276. ;********************************************************************
  277.  
  278. ;********************************
  279. ;**** CHECK THE KICKSTART VERSION
  280. ;****
  281. (complete 0)
  282. (set ver (/ (getversion) 65536) )
  283. (if (< ver 39) (
  284.         (set warning (#warn-kickstart-text ver) ) (message warning)
  285. ))
  286.  
  287.  
  288. ;******************************
  289. ;**** CHECK THE DESTINATION DIR
  290. ;****
  291. (complete 15)
  292. (if (>= @user-level 1)
  293.     (set @default-dest "Ram:")
  294.     )
  295.  
  296. (complete 16)
  297. (set target
  298. (askdir (prompt #path-text) (help #path-help) (default @default-dest) (newpath)
  299. ))
  300. (makedir (tackon target "side") (infos))
  301. (set target (tackon target "side"))
  302. (set @default-dest target)
  303.  
  304.  
  305. ;******************************
  306. ;**** LIBS
  307. ;****
  308. (complete 30) (working #libs-working-text)
  309. ;
  310. (set libs-target "LIBS:")
  311. (if (= @user-level 2)
  312.     (set libs-target
  313.     (askdir (prompt #lib-path-text) (help #lib-path-help) (default "LIBS:") (newpath)
  314.     )))
  315. (complete 31)
  316. (copylib (prompt #libs-iff-text)
  317.          (help #libs-iff-help)
  318.          (source "Libraries/iff.library")
  319.          (dest libs-target))
  320. (complete 32)
  321. (copylib (prompt #libs-med-text)
  322.          (help #libs-med-help)
  323.          (source "Libraries/medplayer.library")
  324.          (dest libs-target))
  325. ;******************************
  326. ;**** MAIN
  327. ;****
  328. (complete 40) (working #main-copy-text)
  329.  
  330. (copyfiles
  331.         (prompt "Copying to " #target )
  332.         (help @copyfiles-help)
  333.         (source "Files")
  334.         (dest target)
  335.         (choices "Side_12")
  336.         (infos))
  337.  
  338. (complete 41) (working #main-copy-text)
  339. (if (exists "Files/.sidekey" (noreq))
  340.     (
  341.     (copyfiles
  342.             (prompt "Copying to " #target )
  343.             (help @copyfiles-help)
  344.             (source "Files")
  345.             (dest target)
  346.             (choices ".sidekey"))
  347.     ))
  348. (complete 45)
  349. (tooltype
  350.         (dest (tackon target "Side_12"))
  351.         (settooltype
  352.             "SCREEN_MODE"
  353.             (select
  354.                 (askchoice
  355.                     (prompt #screen-text)
  356.                     (help #screen-help)
  357.                     (choices "Multiscan \(VGA\)" "DBLPAL \(29 kHz\)" "PAL")
  358.                     (default 2)
  359.                     )
  360.                 "39020" "A9000" "8000")
  361.                 )
  362.         (noposition)
  363. )
  364.  
  365. (complete 50)
  366. (makedir (tackon target "gfx"))
  367. (copyfiles
  368.         (prompt "Copying to " #target )
  369.         (help @copyfiles-help)
  370.         (source "Files/gfx")
  371.         (dest (tackon target "gfx"))
  372.         (all)
  373.         (infos)
  374. )
  375.  
  376. (complete 55)
  377. (set locale-target "LOCALE:catalogs")
  378. (if (= @user-level 2)
  379.     (set locale-target
  380.     (askdir (prompt #locale-path-text) (help #locale-path-help) (default "LOCALE:catalogs") (newpath)
  381.     )))
  382. (complete 56)
  383. (copyfiles
  384.         (prompt "Copying catalog files")
  385.         (help @copyfiles-help)
  386.         (source "Files/catalogs")
  387.         (dest locale-target)
  388.         (choices "français")
  389.         (infos)
  390.         (confirm)
  391. )
  392.  
  393. (complete 60)
  394. (makedir (tackon target "sfx"))
  395. (copyfiles
  396.         (prompt "Copying to " #target )
  397.         (help @copyfiles-help)
  398.         (source "Files/sfx")
  399.         (dest (tackon target "sfx"))
  400.         (choices "by_my_Side" "by_My_Side_III")
  401.         (infos)
  402. )
  403.  
  404. ;********************************
  405. ;**** DOCUMENTATION
  406. ;****
  407.  
  408. (complete 80)
  409.  
  410. (copyfiles
  411.    (prompt #doc-dir-choose)
  412.    (help #doc-dir-choose-help)
  413.    (source "Files/Docs" )
  414.    (choices "Side_English.guide" "Side_Français.guide")
  415.    (dest  target)
  416.    (infos)
  417.    (confirm)
  418. )
  419.  
  420. (complete 100) (message #goodbye #my-address)
  421. (exit (quiet))
  422.