Amiga Format 112/af112sub.adf/Modepro.lzx/ModePro/InstallModePro_ITA

Text File | 1998-04-21 | 7.4 KB | 223 lines

; Script di installazione per ModePro


( set ModePro "ModePro")
( set ModeProPrefs "ModeProPrefs" )

;-------------------------------------------------------------
( set Yes "Si")
( set No  "No")

;-------------------------------------------------------------
( set Def_DaemonPath_WB      ( expandpath "Sys:WBStartup/" ) )
( set Def_DaemonPath_COM     ( expandpath "Sys:Tools/Commodities/" ) )
( set Def_PrefsPath          ( expandpath "Sys:Prefs/" ) )

;-------------------------------------------------------------
( set AskAutoRunMP     ("Lancia automaticamente ModePro quando il computer viene avviato?"))
( set AskAutoRunMPHelp  "AAAIIIUUUTOOO!!!!" )


;-------------------------------------------------------------
( set AskStartHow               "Come vuoi che sia lanciato ModePro?\nPremi 'Aiuto' per altre informazioni")
( set OptStartWBStartup         "Metti ModePro nel cassetto WBStartup")
( set OptStartUserStartup       "Avvia ModePro dalla Startup-Sequence")
( 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." )

;-------------------------------------------------------------
( set AskPrefsPath      "ModeProPrefs ti permette di modificare i parametri di promozione di ModePro.\nDove vuoi mettere il programma di impostazioni?" )
( set AskPrefsPathHelp  ("Normalmente dovrebbe essere il cassetto %s." Def_PrefsPath) )
( set AskDaemonPath     "Questo è il percorso suggerito per ModePro.\nSe vuoi puoi cambiarlo." )

;-------------------------------------------------------------
( set ToolTypeOptions  "Opzioni varie" )

( set AskCxPopKey    "Immetti la hotkey che richiama il programma di impostazioni." )
( set AskCxPri       "Immetti il valore della priorità da assegnare alla commodity ModePro." )
( set AskCxPopup     "Vuoi che ModePro visualizzi la sua interfaccia ogni volta che viene lanciato?")

( set AskDeleteOld   "Sembra che ci sia un'altra copia di ModePro installata. La cancello?")

;-----------------------------------------------------------------------
( set IM        "Sto installando ModePro...")

( set AskLang   "ModePro mette a disposizione una interfaccia localizzata.\nChe linguaggi vuoi installare?\nAlcuni cataloghi non sono completi.")
( set OptLangDeutsch   "Deutsch" )
( set OptLangEspanol   "Español" )
( set OptLangFrancais  "Français" )
( set OptLangIslenska  "Íslenska" )
( set OptLangItaliano  "Italiano" )
( set OptLangNorsk     "Norsk"    )
( set OptLangPolski    "Polski"   )
( set OptLangRussian   "Russian"  )
( set OptLangSvenska   "Svenska"  )
( set OptLangTurkish   "türkçe"  )

( set SrcCatPath "catalogs/%s" )
( set DestCatPath "locale:catalogs/%s" )

;-----------------------------------------------------------------------

( set AskModifyUS     "Le opzioni che hai scelto richiedono la modifica del file s:user-startup." )
( set AskModifyUSHelp "Le opzioni che hai scelto richiedono la modifica del file s:user-startup." )


;-------- BEGIN ----------

( set AutoRun ( askbool (prompt  AskAutoRunMP )
                        (help    AskAutoRunMPHelp )
                        (default 0)
              )
)

( if AutoRun
    (
        ( set AutoHow ( askchoice (prompt   AskStartHow)
                                  (help     AskStartHowHelp)
                                  (choices  OptStartWBStartup OptStartUserStartup)
                                  (default  1)
                       )
        )
        ( if AutoHow
            (
                (set daemonpath Def_DaemonPath_COM)
                (set deldaemonpath Def_DaemonPath_WB)
            )
            (
                (set daemonpath Def_DaemonPath_WB)
                (set deldaemonpath Def_DaemonPath_COM)
            )
        )
    )
    (
        (set daemonpath Def_DaemonPath_COM)
        (set deldaemonpath Def_DaemonPath_WB)
    )
)



(set daemonpath ( askdir (prompt AskDaemonPath)
                          (help "Nessun aiuto disponibile")
                          (default daemonpath)
) )

(set prefspath ( askdir (prompt  AskPrefsPath)
                               (help    AskPrefsPathHelp)
                               (default Def_PrefsPath)
                      )
)

( set ModeProPrefsCommand ( tackon ( prefspath)
                                   ( "ModeProPrefs")
                          )
)

( set cxpopkey ( askstring  (prompt AskCxPopKey)
                            (help "Nessun aiuto disponibile")
                            (default "lamiga p")
               )
)

( set cxpri ("%ld" (asknumber  (prompt AskCxPri)
                               (help "Nessun aiuto disponibile")
                               (default 5)
                   )
            )
)

( set cxpopup (askchoice (prompt AskCxPopup)
                         (help "Mi dispiace!")
                         (default 0)
                         (choices "No" "Si")
              )
)

;-Set the tooltypes----------------------------------------------------

(tooltype (dest ModePro)
          (settooltype "CX_POPKEY" cxpopkey)
          (settooltype "CX_POPUP" (select cxpopup No Yes) )
          (settooltype "CX_PRIORITY" cxpri )
          (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
)

;--------------------------------------------------------------


(set oldmp ( tackon (deldaemonpath)
                    ("ModePro")
           )
)

(if (exists oldmp)
  (
    (if (askchoice (prompt AskDeleteOld ) (help "Ha ha") (default 1) (choices "No" "Si") )
      (
        (delete oldmp (prompt "Sto cancellando"))
        (delete (cat (oldmp) (".info") ) (prompt "Sto cancellando") )
      )
    )
  )
)


(copyfiles (prompt IM)
           (help "Perchè l'hai fatto?")
           (source ModePro)
           (infos)
           (dest daemonpath)
)

(set @default-dest daemonpath)

(copyfiles (prompt IM)
           (help "Hey, cosa stai facendo?")
           (source ModeProPrefs)
           (infos)
           (dest prefspath)
)

(if (AND AutoRun AutoHow)
    (
        (startup "ModePro"
                 (prompt  AskModifyUS )
                 (help    AskModifyUSHelp )
                 (command (cat "Run <>NIL: ModePro" ) )
        )
    )
    (
       (startup "ModePro"
                 (prompt  AskModifyUS )
                 (help    AskModifyUSHelp )
                 (command ";Non lanciare ModePro dalla User-Startup")

        )
    )
)

(set WhichLang (askoptions (prompt AskLang)
                           (help AskLang)
                           (choices OptLangDeutsch OptLangEspanol OptLangFrancais OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska OptLangTurkish)
                           (default 0)
)              )

(set optnumber 0)

( while ( < optnumber 10 )
  (set flag (BITAND (shiftright WhichLang optnumber) 1) )
  (debug optnumber flag)
  (if flag
    (
      (set lang     ( select optnumber OptLangDeutsch OptLangEspanol OptLangFrancais OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska OptLangTurkish) )
      (debug lang)
      (set srcpath ( SrcCatPath  lang ) )
      (debug srcpath)
      (set dstpath ( DestCatPath lang ) )
      (debug dstpath)
      (makedir dstpath)
      (copyfiles  (prompt IM) (help "Perchè l'hai fatto?") (source srcpath) (dest dstpath) (all) )
    )
  )
  (set optnumber (+ optnumber 1) )
)