home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / bb3a_archive_aminet / install_eng < prev    next >
Text File  |  1997-10-01  |  9KB  |  325 lines
  1. ;   -----------------------------
  2. ;       Install BancaBase
  3. ;   -----------------------------
  4. ;   Description:
  5. ;
  6. ;   Commodore Installer Script for BancaBase 1.3a
  7. ;   $VER: 1.02 (c) 1997 by Stefano Dardari
  8.  
  9. ; some useful variables
  10.     (set 
  11.         newline         "\n"
  12.         #bbprogname     "BancaBase13a.lha"
  13.         #bb3-path       "BancaBase/"
  14.         #catalogsname   "catalogs/"
  15.         #docsname       "docs/"
  16.         #examplename    "examples.lha"
  17.         #patternsname     "Patterns.lha"
  18.         #soundsname     "Sounds.lha"
  19.         #registername   "Register.lha"
  20.         #bb3-dest       "SYS:"
  21.         #bb3-key        "BBase.key"
  22.         #bb3-prefs      "BancaBase.prefs"
  23.         #bb3-readme     "ReadMe.doc"
  24.         #bb3-readme-ita "Leggimi.doc"
  25.         #bb3-icon-MWB   "Icons/MagicWB/"
  26.         #bb3-icon-NI    "Icons/NewIcon/"
  27.         #bb3-icon-STD   "Icons/Standard/"
  28.         #STDTYPE        0
  29.         #NITYPE         1
  30.         #MWBTYPE        2
  31.         #iconpattern    "#?.info"
  32.         #bb3-lang-eng   "english"
  33.         #bb3-lang-deu   "deutsch"
  34.         #bb3-lang-ita   "italiano"
  35.         #bb3-lang-fra   "français"
  36.         #bb3-lang-rus   "russian"
  37.         #ENG            0
  38.         #DEU            1
  39.         #ITA            2
  40.         #FRA            3
  41.         #RUS            4
  42.     )
  43.  
  44. ; some strings
  45. (set #omp (cat "One moment please..." newline))
  46.  
  47. (set #installtext (cat "Welcome to the BancaBase installation script.\n\nBancaBase3 V 1.3a (C) 1997 by Stefano Dardari\n\nAll rights reserved"))
  48. (set #BB3dest-prompt "Please select the directory where you want the BancaBase drawer installed.\n(See help for details)")
  49. (set #BB3dest-help (cat "Select the desidered disk/directory were install the program.\nA drawer named BancaBase will be created."))
  50. (set #BB3lang-prompt "Select desired language (from availables) that program must use for menus and gadgets.")
  51. (set #BB3lang-help "Selecting one of the listed languages, corresponding catalogs files will be copied. If the selected languages is ENGLISH, no files are copied, because it's the default built-in language.")
  52. (set #BB3docs-prompt "Select desired language (from avaialbes) for the documentation amiga guide format files.")
  53. (set #BB3docs-help "It's possible to select the language (from listed) for the documentation files. If you don't found your language translation install the English version now, but write to the author.")
  54. (set #BB3patt-prompt "\n\n\nDo you want to install some pretty patterns to use with the GUI ?\nNOTE: you can use it, only with an WorkBench 3.0 or better.")
  55. (set #BB3patt-help (cat "The backdrop patterns are to be considere as add-on.\nBancaBase work well also without them, but are very nice if used with the program's GUI.\n\nNote that program uses the Datatypes to load picture files\nso if you don't have an V39 (or better) kickstart ... choose the NO gadget."))
  56. (set #BB3end (cat "Installation complete. Read the readme file before start."))
  57. (set #BB3icon-prompt "\nSelect from available the ICON set to install :")
  58. (set #BB3icon-help "Select desired type of icon-set to install for BancaBase and all the tools.\nIf for example your WorkBench use the MagicWB icons, you must select MagicWB.\nSame thing for the other types.")
  59. (set #copyng-icon-prompt "Please wait ... icon installation running.")
  60.  
  61. (welcome #installtext)
  62.  
  63. (procedure set_icon
  64.    (set #def-icon
  65.       (askchoice
  66.          (prompt #BB3icon-prompt)
  67.          (help   #bb3icon-help)
  68.          (choices "Standard Icon" "NewIcon Icon" "MagicWB Icon")
  69.          (default 0)
  70.       )
  71.    )
  72. )
  73.  
  74. (procedure set_lang_catalogs
  75.    (set #def-lang
  76.       (askchoice
  77.          (prompt #BB3lang-prompt)
  78.          (help   #bb3lang-help)
  79.          (choices "English (built in)" "Deutsch" "Italiano" "Français" "Russian")
  80.          (default #ENG)
  81.       )
  82.    )
  83. )
  84.  
  85. (procedure set_lang_docs
  86.     (if (> #def-lang #ITA)
  87.         (set #def-lang #ENG)
  88.     )
  89.    (set #def-lang
  90.       (askchoice
  91.          (prompt #BB3docs-prompt)
  92.          (help   #bb3docs-help)
  93.          (choices "English" "Deutsch" "Italiano")
  94.          (default #def-lang)
  95.       )
  96.    )
  97. )
  98.  
  99. (procedure set_dir
  100.    (set #bb3-dest
  101.       (askdir
  102.          (prompt #BB3dest-prompt)
  103.          (help #BB3dest-help)
  104.          (default #bb3-dest)
  105.          (newpath)
  106.       )
  107.    )
  108. )
  109.  
  110. (set_dir)
  111. (set #dest-path (tackon #bb3-dest #bb3-path))
  112. (set @default-dest #dest-path)
  113.  
  114.  
  115. (if (exists #dest-path (noreq))
  116.    (
  117.       (set #file-exist (cat "Sorry but directory " #dest-path " already exist.\nPlease select a different destination .\n"))
  118.       (message #file-exist)
  119.       (set_dir)
  120.       (set #dest-path (tackon #bb3-dest #bb3-path))
  121.       (set @default-dest #dest-path)
  122.    )
  123. )
  124.  
  125. (makedir #dest-path (infos))
  126.  
  127. (working #omp "UnPacking and coping program files.")
  128.  
  129. (run "lha -x x "#bbprogname" "#dest-path)
  130.  
  131. (complete 20)
  132.  
  133. (if (exists #examplename (noreq))
  134.        (
  135.           (working #omp "Unpacking and coping example files.")
  136.           (run "lha -x x "#examplename" "#dest-path )
  137.        )
  138. )
  139.  
  140.  
  141. (complete 30)
  142. (set_lang_catalogs)
  143. (if (= #def-lang #ENG)
  144.     (set #lang #bb3-lang-eng)
  145.     )
  146. (if (= #def-lang #DEU)
  147.     (set #lang #bb3-lang-deu)
  148.     )
  149. (if (= #def-lang #ITA)
  150.     (set #lang #bb3-lang-ita)
  151.     )
  152. (if (= #def-lang #FRA)
  153.     (set #lang #bb3-lang-fra)
  154.     )
  155. (if (= #def-lang #RUS)
  156.     (set #lang #bb3-lang-rus)
  157.     )
  158.  
  159. (set #src-path (tackon "Catalogs" #lang))
  160. (set #src-path (cat #src-path ".lha"))
  161. (set #dst-path (tackon #dest-path #catalogsname))
  162.  
  163. (if (exists #src-path (noreq))
  164.        (
  165.           (makedir (cat #dest-path #catalogsname) (infos))
  166.           (working #omp "Unpacking and coping localized catalog files.")
  167.           (run "lha -x x "#src-path" "#dst-path )
  168.           (if (exists (cat #catalogsname "BancaBase.cd"))
  169.              (copyfiles
  170.                   (source (cat #catalogsname "BancaBase.cd"))
  171.                 (dest #dst-path)
  172.                 (files)
  173.               )
  174.           )        
  175.           (if (exists (cat #catalogsname "SDBase.cd"))
  176.              (copyfiles
  177.                 (source (cat #catalogsname "SDBase.cd"))
  178.                 (dest #dst-path)
  179.                 (files)
  180.              )
  181.           )
  182.  
  183.        )
  184. )
  185.  
  186. (complete 40)
  187.  
  188. (set_lang_docs)
  189. (if (= #def-lang #ENG)
  190.     (set #lang #bb3-lang-eng)
  191.     )
  192. (if (= #def-lang #DEU)
  193.     (set #lang #bb3-lang-deu)
  194.     )
  195. (if (= #def-lang #ITA)
  196.     (set #lang #bb3-lang-ita)
  197.     )
  198.  
  199. (set #src-path (tackon "Docs" #lang))
  200. (set #src-path (cat #src-path ".lha"))
  201. (set #dst-path (tackon #dest-path #docsname))
  202.  
  203. (if (exists #src-path (noreq))
  204.        (
  205.           (makedir (cat #dest-path #docsname) (infos))
  206.           (working #omp "Unpacking and coping documentation files.")
  207.           (run "lha -x x "#src-path" "#dst-path )
  208.        )
  209. )
  210.  
  211.  
  212. (complete 50)
  213. (if (exists #registername (noreq))
  214.        (
  215.           (working #omp "Unpacking and coping registration docs files.")
  216.           (run "lha -x x "#registername" "#dest-path )
  217.        )
  218. )
  219.  
  220. (if (exists #bb3-readme (noreq))
  221.     (copyfiles
  222.         (prompt #omp "Coping information files.")
  223.         (source #bb3-readme)
  224.         (dest #dest-path)
  225.         (files)
  226.     )
  227. )
  228.  
  229. (complete 60)
  230. (if (exists #patternsname (noreq))
  231.    (
  232.       (if (askbool (prompt #BB3patt-prompt) (help #BB3patt-help) (default 1))
  233.           (
  234.              (working #omp "UnPacking and coping patterns files.")
  235.              (run "lha -x x "#patternsname" "#dest-path )
  236.           )
  237.       )
  238.    )
  239. )
  240.  
  241. (complete 70)
  242. (set_icon)
  243. (if (= #def-icon #STDTYPE)
  244.     (set #src-icon #bb3-icon-STD)
  245.     )
  246. (if (= #def-icon #NITYPE)
  247.     (set #src-icon #bb3-icon-NI)
  248.     )
  249. (if (= #def-icon #MWBTYPE)
  250.     (set #src-icon #bb3-icon-MWB)
  251.     )
  252.  
  253. (copyfiles
  254.    (prompt #copyng-icon-prompt)
  255.    (source #src-icon)
  256.    (dest  #dest-path)
  257.    (pattern #iconpattern)
  258.    (noposition)
  259. )
  260.  
  261. (set #src-path (tackon #src-icon "Docs"))
  262. (set #dst-path (tackon #dest-path "Docs"))
  263.  
  264. (copyfiles
  265.    (prompt #copyng-icon-prompt)
  266.    (source #src-path)
  267.    (dest  #dst-path)
  268.    (all)
  269.    (noposition)
  270. )
  271.  
  272. (set #src-path (tackon #src-icon "Register"))
  273. (set #dst-path (tackon #dest-path "Register"))
  274.  
  275. (copyfiles
  276.    (prompt #copyng-icon-prompt)
  277.    (source #src-path)
  278.    (dest  #dst-path)
  279.    (all)
  280.    (noposition)
  281. )
  282.  
  283. (complete 80)
  284.  
  285. (if (exists #soundsname (noreq))
  286.        (
  287.           (working #omp "UnPacking and coping sound files.")
  288.           (run "lha -x x "#soundsname" "#dest-path )
  289.        )
  290. )
  291.  
  292.  
  293. (complete 90)
  294.  
  295. (if (exists #bb3-prefs (noreq))
  296.     (copyfiles
  297.         (prompt #omp "Coping prefs file.")
  298.         (source #bb3-prefs)
  299.         (dest #dest-path)
  300.         (files)
  301.     )
  302. )
  303.  
  304. (if (exists #bb3-key (noreq))
  305.     (copyfiles
  306.         (prompt #omp "Coping the KeyFile.")
  307.         (source #bb3-key)
  308.         (dest #dest-path)
  309.         (files)
  310.     )
  311. )
  312.  
  313. (complete 100)
  314.  
  315.  
  316. ; The last message
  317.     (set end_text (cat "Hope you like BancaBase!\n"
  318.                    "Don't hesitate to send me comments, bugreports and suggestions.\n\n"
  319.                    "Registrations are also WELCOME !!!! :))"))
  320.  
  321. ; the end
  322. (set @default-dest #dest-path)
  323.     (exit end_text)
  324. ;EOF
  325.