home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / bb3a_archive_aminet / install_ita < prev    next >
Text File  |  1997-10-01  |  9KB  |  336 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 "Un momento prego..." newline))
  46.  
  47. (set #installtext (cat "Benvenuti nello script di installazione di BancaBase.\n\nBancaBase3 V 1.3a (C) 1997 by Stefano Dardari\n\nAll rights reserved"))
  48. (set #BB3dest-prompt "Prego selezionare la directory dove si desidera installare il cassetto BancaBase.\n(Vedere l'HELP per ulteriori dettagli)")
  49. (set #BB3dest-help (cat "Selezionare la directory (o il disco) dove si desidera installare il programma. Verrà creata una directory con il nome di BancaBase."))
  50. (set #BB3lang-prompt "Selezionare la lingua (tra quelle disponibili) che il programma dovrà utilizzare per i menù ed i gadgets.")
  51. (set #BB3lang-help "Selezionando una delle lingue elencate, vengono copiati i relativi file catalogs che il programma caricherà in modo autonomo. Se si desidera lasciare il programma in INLGESE non è necessario alcun catalogo esterno in quanto costruito all'interno del programma stesso")
  52. (set #BB3docs-prompt "Selezionare la lingua (tra quelle disponibili) dei file di documentazione che si desidera installare.")
  53. (set #BB3docs-help "E' possibile selezionare la lingua (tra quelle elencate) di file documentazione del programma.")
  54. (set #BB3patt-prompt "\n\n\nSi desidera installare alcuni sfondi da utilizzare con l'interfaccia grafica ?\n\nNOTA: Sono utilizzabili solo con WorkBench 3.0 o superiore.")
  55. (set #BB3patt-help (cat "Gli sfondi (o backdrop patterns) vanno considerati come extra. Infatti non sono necessari per il corretto funzionamento di BancaBase, ma sono molto carini se utilizzati con l'interfaccia grafica.\n\nNota che il programma utilizza i Datatypes per gestire i pattern. Quindi se non si utilizza una versione V39 (o suberiore) del kickstart ... selezionare il gadget NO."))
  56. (set #BB3end (cat "Installazione completata. Leggere il file readme prima di iniziare."))
  57. (set #BB3icon-prompt "\nQuale tipo di ICONE si desidera installare tra quelle disponibili ?")
  58. (set #BB3icon-help "Selezionare il tipo di Icona desiderata per il programma e tutti gli accessori forniti. Se ad esempio nel vostro WorkBench utilizzate normalmente le icone stile Magic WorkBench, selezionate MagicWB. Lo stesso vale per gli altri tipi di icona.")
  59. (set #coping-icon-prompt "Attendere prego ... installo le icone selezionate.")
  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 "Icone Standard" "Icone NewIcon" "Icone MagicWB")
  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 #ITA)
  81.       )
  82.    )
  83. )
  84.  
  85. (procedure set_lang_docs
  86.    (if (> #def-lang #ITA)
  87.         (set #def-lang #ITA)
  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 "Spiacente ma la directory " #dest-path " esiste gia'.\nSelezionare una directory destinazione differente.\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 "Scompatto e copio il programma.")
  128.  
  129. (run "lha -x x "#bbprogname" "#dest-path )
  130.  
  131. (complete 20)
  132. (if (exists #examplename (noreq))
  133.        (
  134.           (working #omp "Scompatto e copio i files di esempio.")
  135.           (run "lha -x x "#examplename" "#dest-path )
  136.        )
  137. )
  138.  
  139.  
  140. (complete 30)
  141. (set_lang_catalogs)
  142. (if (= #def-lang #ENG)
  143.     (set #lang #bb3-lang-eng)
  144.     )
  145. (if (= #def-lang #DEU)
  146.     (set #lang #bb3-lang-deu)
  147.     )
  148. (if (= #def-lang #ITA)
  149.     (set #lang #bb3-lang-ita)
  150.     )
  151. (if (= #def-lang #FRA)
  152.     (set #lang #bb3-lang-fra)
  153.     )
  154. (if (= #def-lang #RUS)
  155.     (set #lang #bb3-lang-rus)
  156.     )
  157.  
  158. (set #src-path (tackon "Catalogs" #lang))
  159. (set #src-path (cat #src-path ".lha"))
  160. (set #dst-path (tackon #dest-path #catalogsname))
  161.  
  162. (if (exists #src-path (noreq))
  163.        (
  164.           (makedir (cat #dest-path #catalogsname) (infos))
  165.           (working #omp "Scompatto e copio i cataloghi.")
  166.           (run "lha -x x "#src-path" "#dst-path )
  167.           (if (exists (cat #catalogsname "BancaBase.cd"))
  168.              (copyfiles
  169.                   (source (cat #catalogsname "BancaBase.cd"))
  170.                 (dest #dst-path)
  171.                 (files)
  172.               )
  173.           )        
  174.           (if (exists (cat #catalogsname "SDBase.cd"))
  175.              (copyfiles
  176.                 (source (cat #catalogsname "SDBase.cd"))
  177.                 (dest #dst-path)
  178.                 (files)
  179.              )
  180.           )
  181.  
  182.        )
  183. )
  184.  
  185. (complete 40)
  186.  
  187. (set_lang_docs)
  188. (if (= #def-lang #ENG)
  189.     (set #lang #bb3-lang-eng)
  190.     )
  191. (if (= #def-lang #DEU)
  192.     (set #lang #bb3-lang-deu)
  193.     )
  194. (if (= #def-lang #ITA)
  195.     (set #lang #bb3-lang-ita)
  196.     )
  197.  
  198. (set #src-path (tackon "Docs" #lang))
  199. (set #src-path (cat #src-path ".lha"))
  200. (set #dst-path (tackon #dest-path #docsname))
  201.  
  202. (if (exists #src-path (noreq))
  203.        (
  204.           (makedir (cat #dest-path #docsname) (infos))
  205.           (working #omp "Scompatto e copio la documentazione.")
  206.           (run "lha -x x "#src-path" "#dst-path )
  207.        )
  208. )
  209.  
  210.  
  211. (complete 50)
  212. (if (exists #registername (noreq))
  213.        (
  214.           (working #omp "Scompatto e copio i files documentazione per la registrazione.")
  215.           (run "lha -x x "#registername" "#dest-path )
  216.        )
  217. )
  218.  
  219. (if (exists #bb3-readme (noreq))
  220.     (copyfiles
  221.         (prompt #omp "Copio i file di informazioni.")
  222.         (source #bb3-readme)
  223.         (dest #dest-path)
  224.         (files)
  225.     )
  226. )
  227.  
  228. (if (exists #bb3-readme-ita (noreq))
  229.     (copyfiles
  230.         (prompt #omp "Copio i file di informazioni in italiano.")
  231.         (source #bb3-readme-ita)
  232.         (dest #dest-path)
  233.         (files)
  234.     )
  235. )
  236.  
  237. (complete 60)
  238. (if (exists #patternsname (noreq))
  239.    (
  240.       (if (askbool (prompt #BB3patt-prompt) (help #BB3patt-help) (default 1))
  241.           (
  242.              (working #omp "Scompatto e copio gli sfondi (patterns).")
  243.              (run "lha -x x "#patternsname" "#dest-path )
  244.           )
  245.       )
  246.    )
  247. )
  248.  
  249.  
  250. (complete 70)
  251.  
  252. (set_icon)
  253. (if (= #def-icon #STDTYPE)
  254.     (set #src-icon #bb3-icon-STD)
  255.     )
  256. (if (= #def-icon #NITYPE)
  257.     (set #src-icon #bb3-icon-NI)
  258.     )
  259. (if (= #def-icon #MWBTYPE)
  260.     (set #src-icon #bb3-icon-MWB)
  261.     )
  262.  
  263. (copyfiles
  264.    (prompt #coping-icon-prompt)
  265.    (source #src-icon)
  266.    (dest  #dest-path)
  267.    (pattern #iconpattern)
  268.    (noposition)
  269. )
  270.  
  271. (set #src-path (tackon #src-icon "Docs"))
  272. (set #dst-path (tackon #dest-path "Docs"))
  273.  
  274.  
  275. (copyfiles
  276.    (prompt #coping-icon-prompt)
  277.    (source #src-path)
  278.    (dest  #dst-path)
  279.    (all)
  280.    (noposition)
  281. )
  282.  
  283. (set #src-path (tackon #src-icon "Register"))
  284. (set #dst-path (tackon #dest-path "Register"))
  285.  
  286. (copyfiles
  287.    (prompt #coping-icon-prompt)
  288.    (source #src-path)
  289.    (dest  #dst-path)
  290.    (all)
  291.    (noposition)
  292. )
  293.  
  294. (complete 80)
  295.  
  296. (if (exists #soundsname (noreq))
  297.        (
  298.           (working #omp "Scompatto e copio i files sonori.")
  299.           (run "lha -x x "#soundsname" "#dest-path )
  300.        )
  301. )
  302.  
  303.  
  304. (complete 90)
  305.  
  306. (if (exists #bb3-prefs (noreq))
  307.     (copyfiles
  308.         (prompt #omp "Copio il file preferenze.")
  309.         (source #bb3-prefs)
  310.         (dest #dest-path)
  311.         (files)
  312.     )
  313. )
  314.  
  315. (if (exists #bb3-key (noreq))
  316.     (copyfiles
  317.         (prompt #omp "Copio il KeyFile.")
  318.         (source #bb3-key)
  319.         (dest #dest-path)
  320.         (files)
  321.     )
  322. )
  323.  
  324. (complete 100)
  325.  
  326. ; The last message
  327.     (set end_text (cat "\nSpero che BancaBase ti piaccia!\n"
  328.                        "Non esitare a mandarmi commenti, suggerimenti e bugreports.\n\n"
  329.                        "Le registrazioni sono BENVENUTE !!! :))"))
  330.  
  331. ; the end
  332. (set @default-dest #dest-path)
  333.     (exit end_text)
  334. ;EOF
  335.  
  336.