home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -coverdisks- / 112a / modepro / installmodepro_ita < prev    next >
Text File  |  1998-05-02  |  8KB  |  224 lines
  1. ; Script di installazione per ModePro
  2.  
  3.  
  4. ( set ModePro "ModePro")
  5. ( set ModeProPrefs "ModeProPrefs" )
  6.  
  7. ;-------------------------------------------------------------
  8. ( set Yes "Si")
  9. ( set No  "No")
  10.  
  11. ;-------------------------------------------------------------
  12. ( set Def_DaemonPath_WB      ( expandpath "Sys:WBStartup/" ) )
  13. ( set Def_DaemonPath_COM     ( expandpath "Sys:Tools/Commodities/" ) )
  14. ( set Def_PrefsPath          ( expandpath "Sys:Prefs/" ) )
  15.  
  16. ;-------------------------------------------------------------
  17. ( set AskAutoRunMP     ("Lancia automaticamente ModePro quando il computer viene avviato?"))
  18. ( set AskAutoRunMPHelp  "AAAIIIUUUTOOO!!!!" )
  19.  
  20.  
  21. ;-------------------------------------------------------------
  22. ( set AskStartHow               "Come vuoi che sia lanciato ModePro?\nPremi 'Aiuto' per altre informazioni")
  23. ( set OptStartWBStartup         "Metti ModePro nel cassetto WBStartup")
  24. ( set OptStartUserStartup       "Avvia ModePro dalla Startup-Sequence")
  25. ( set AskStartHowHelp           "ModePro può essere lanciato automaticamente all'avvio in due modi. Il metodo più semplice consiste nel mettere ModePro nel cassetto WBStartup. Il secondo metodo consiste nell'avviare ModePro dal file s:User-Startup, in questo modo ModePro è in grado di promuovere lo schermo del workbench." )
  26.  
  27. ;-------------------------------------------------------------
  28. ( set AskPrefsPath      "ModeProPrefs ti permette di modificare i parametri di promozione di ModePro.\nDove vuoi mettere il programma di impostazioni?" )
  29. ( set AskPrefsPathHelp  ("Normalmente dovrebbe essere il cassetto %s." Def_PrefsPath) )
  30. ( set AskDaemonPath     "Questo è il percorso suggerito per ModePro.\nSe vuoi puoi cambiarlo." ) 
  31.  
  32. ;-------------------------------------------------------------
  33. ( set ToolTypeOptions  "Opzioni varie" )
  34.  
  35. ( set AskCxPopKey    "Immetti la hotkey che richiama il programma di impostazioni." )
  36. ( set AskCxPri       "Immetti il valore della priorità da assegnare alla commodity ModePro." )  
  37. ( set AskCxPopup     "Vuoi che ModePro visualizzi la sua interfaccia ogni volta che viene lanciato?")
  38.  
  39. ( set AskDeleteOld   "Sembra che ci sia un'altra copia di ModePro installata. La cancello?")
  40.  
  41. ;-----------------------------------------------------------------------
  42. ( set IM        "Sto installando ModePro...")
  43.  
  44. ( set AskLang   "ModePro mette a disposizione una interfaccia localizzata.\nChe linguaggi vuoi installare?\nAlcuni cataloghi non sono completi.")
  45. ( set OptLangDeutsch   "Deutsch" )
  46. ( set OptLangEspanol   "Español" )
  47. ( set OptLangFrancais  "Français" )
  48. ( set OptLangIslenska  "Íslenska" )
  49. ( set OptLangItaliano  "Italiano" )
  50. ( set OptLangNorsk     "Norsk"    )
  51. ( set OptLangPolski    "Polski"   )
  52. ( set OptLangRussian   "Russian"  )
  53. ( set OptLangSvenska   "Svenska"  )
  54. ( set OptLangTurkish   "türkçe"  )
  55.  
  56. ( set SrcCatPath "catalogs/%s" )
  57. ( set DestCatPath "locale:catalogs/%s" )
  58.  
  59. ;-----------------------------------------------------------------------
  60.  
  61. ( set AskModifyUS     "Le opzioni che hai scelto richiedono la modifica del file s:user-startup." )
  62. ( set AskModifyUSHelp "Le opzioni che hai scelto richiedono la modifica del file s:user-startup." )
  63.  
  64.  
  65. ;-------- BEGIN ----------
  66.  
  67. ( set AutoRun ( askbool (prompt  AskAutoRunMP ) 
  68.                         (help    AskAutoRunMPHelp ) 
  69.                         (default 0) 
  70.               )  
  71. )
  72.  
  73. ( if AutoRun 
  74.     (
  75.         ( set AutoHow ( askchoice (prompt   AskStartHow)
  76.                                   (help     AskStartHowHelp)
  77.                                   (choices  OptStartWBStartup OptStartUserStartup)
  78.                                   (default  1)
  79.                        )
  80.         )
  81.         ( if AutoHow
  82.             (
  83.                 (set daemonpath Def_DaemonPath_COM)
  84.                 (set deldaemonpath Def_DaemonPath_WB)
  85.             )
  86.             (
  87.                 (set daemonpath Def_DaemonPath_WB)
  88.                 (set deldaemonpath Def_DaemonPath_COM)
  89.             )
  90.         )   
  91.     )
  92.     (
  93.         (set daemonpath Def_DaemonPath_COM)
  94.         (set deldaemonpath Def_DaemonPath_WB)
  95.     )
  96. )
  97.  
  98.  
  99.  
  100. (set daemonpath ( askdir (prompt AskDaemonPath)
  101.                           (help "Nessun aiuto disponibile")
  102.                           (default daemonpath)
  103. ) )
  104.  
  105. (set prefspath ( askdir (prompt  AskPrefsPath)
  106.                                (help    AskPrefsPathHelp)
  107.                                (default Def_PrefsPath)
  108.                       ) 
  109. )
  110.  
  111. ( set ModeProPrefsCommand ( tackon ( prefspath) 
  112.                                    ( "ModeProPrefs") 
  113.                           ) 
  114. )
  115.  
  116. ( set cxpopkey ( askstring  (prompt AskCxPopKey)
  117.                             (help "Nessun aiuto disponibile")
  118.                             (default "lamiga p")
  119.                )
  120. )
  121.  
  122. ( set cxpri ("%ld" (asknumber  (prompt AskCxPri)
  123.                                (help "Nessun aiuto disponibile")
  124.                                (default 5)
  125.                    )
  126.             )
  127. )
  128.  
  129. ( set cxpopup (askchoice (prompt AskCxPopup) 
  130.                          (help "Mi dispiace!") 
  131.                          (default 0) 
  132.                          (choices "No" "Si") 
  133.               )
  134. )
  135.  
  136. ;-Set the tooltypes----------------------------------------------------
  137.  
  138. (tooltype (dest ModePro)
  139.           (settooltype "CX_POPKEY" cxpopkey)
  140.           (settooltype "CX_POPUP" (select cxpopup No Yes) )
  141.           (settooltype "CX_PRIORITY" cxpri )
  142.           (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
  143. )
  144.  
  145. ;--------------------------------------------------------------
  146.  
  147.  
  148. (set oldmp ( tackon (deldaemonpath) 
  149.                     ("ModePro")
  150.            )
  151. )
  152.  
  153. (if (exists oldmp)
  154.   (
  155.     (if (askchoice (prompt AskDeleteOld ) (help "Ha ha") (default 1) (choices "No" "Si") )
  156.       (
  157.         (delete oldmp (prompt "Sto cancellando"))
  158.         (delete (cat (oldmp) (".info") ) (prompt "Sto cancellando") )
  159.       )
  160.     ) 
  161.   )
  162. )
  163.     
  164.  
  165. (copyfiles (prompt IM)
  166.            (help "Perchè l'hai fatto?")
  167.            (source ModePro)
  168.            (infos)
  169.            (dest daemonpath)
  170. )
  171.  
  172. (set @default-dest daemonpath)
  173.  
  174. (copyfiles (prompt IM)
  175.            (help "Hey, cosa stai facendo?")
  176.            (source ModeProPrefs)
  177.            (infos)
  178.            (dest prefspath)
  179. )
  180.  
  181. (if (AND AutoRun AutoHow)
  182.     ( 
  183.         (startup "ModePro"
  184.                  (prompt  AskModifyUS )
  185.                  (help    AskModifyUSHelp )
  186.                  (command (cat "Run <>NIL: ModePro" ) )
  187.         )
  188.     )
  189.     (
  190.        (startup "ModePro"
  191.                  (prompt  AskModifyUS )
  192.                  (help    AskModifyUSHelp )
  193.                  (command ";Non lanciare ModePro dalla User-Startup")
  194.   
  195.         )
  196.     )
  197. )
  198.  
  199. (set WhichLang (askoptions (prompt AskLang)
  200.                            (help AskLang)
  201.                            (choices OptLangDeutsch OptLangEspanol OptLangFrancais OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska OptLangTurkish)
  202.                            (default 0) 
  203. )              )
  204.  
  205. (set optnumber 0)
  206.  
  207. ( while ( < optnumber 10 )
  208.   (set flag (BITAND (shiftright WhichLang optnumber) 1) )
  209.   (debug optnumber flag)
  210.   (if flag
  211.     (
  212.       (set lang     ( select optnumber OptLangDeutsch OptLangEspanol OptLangFrancais OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska OptLangTurkish) )
  213.       (debug lang)
  214.       (set srcpath ( SrcCatPath  lang ) )
  215.       (debug srcpath)
  216.       (set dstpath ( DestCatPath lang ) )
  217.       (debug dstpath) 
  218.       (makedir dstpath)
  219.       (copyfiles  (prompt IM) (help "Perchè l'hai fatto?") (source srcpath) (dest dstpath) (all) )
  220.     )
  221.   )
  222.   (set optnumber (+ optnumber 1) )
  223. )
  224.