Amiga Format CD 28/amigaformatcd28.iso/-coverdisks-/112a/modepro/hrvatski_installmodepro

Text File | 1998-05-02 | 7KB | 225 lines

; Install script for ModePro


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

;-------------------------------------------------------------
( set Yes "Yes")
( 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     (cat "Automatski pokrenuti ModePro pri dizanju sistema?"))
( set AskAutoRunMPHelp  "POMMMMOOOOOÆÆÆÆ!!!!" )


;-------------------------------------------------------------
( set AskStartHow               "Kako ¾elite pokretati ModePro?\nPritisni 'Pomoæ' za vi¹e informacija.")
( set OptStartWBStartup         "Stavi ModePro u WBStartup imenik")
( set OptStartUserStartup       "Pokreni ModePro iz User-Startup")
( set AskStartHowHelp           "ModePro mo¾e biti pokrenut na dva naèina pri dizanju sistema. Najjednostavnija tehnika je stavljajuæi ModePro u WBStartup imenik.  Druga tehnika je pokretanje ModePro iz s:User-Startup datoteke, ¹to omoguæuje da se sam Workbench ekran unaprijedi uz pomoæ ModePro-a." )

;-------------------------------------------------------------
( set AskPrefsPath      "ModeProPrefs dopu¹ta prepravljanje ModePro-ove opcije unaprijeðenja.  Gdje ¾elite staviti editor postavki?" )
( set AskPrefsPathHelp  ("Opæenito bi trebao biti u %s imeniku." Def_PrefsPath) )
( set AskDaemonPath     "Preporuæen imenik za ModePro.  Promjeni ga po volji." )

;-------------------------------------------------------------
( set ToolTypeOptions  "Znaèajne opcije" )

( set AskCxPopKey    "Upi¹i vruæu tipku koja æe aktivirati editor postavki." )
( set AskCxPri       "Upi¹ite vrijednost ModePro-ove va¾nosti rada." )
( set AskCxPopup     "Da li ¾elite da se ModePro pojavi svaki put kada se pokrene.")

( set AskDeleteOld   "Izgleda da postoji druga kopija ModePro instalirana, da ju obri¹em?")

;-----------------------------------------------------------------------
( set IM        "Instaliram ModePro...")

( set AskLang   "ModePro podr¾ava a lokalizaciju.  Koje jezike ¾elite instalirati, neki katalozi nisu gotovi.")
( set OptLangDeutsch   "Deutsch" )
( set OptLangEspanol   "Español" )
( set OptLangFrancais  "Français" )
( set OptLangHrvatski  "Hrvatski" )
( 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     "Opcija koju ste izabrali zahtjeva promjene u datoteci s:user-startup." )
( set AskModifyUSHelp "Opcija koju ste izabrali zahtjeva promjene u datoteci 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 "Cow")
                          (default daemonpath)
) )

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

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

( set cxpopkey ( askstring  (prompt AskCxPopKey)
                            (help "None")
                            (default "lamiga p")
               )
)

( set cxpri ("%ld" (asknumber  (prompt AskCxPri)
                               (help "None")
                               (default 5)
                   )
            )
)

( set cxpopup (askchoice (prompt AskCxPopup)
                         (help "Sorry!")
                         (default 0)
                         (choices "No" "Yes")
              )
)

;-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" "Yes") )
      (
        (delete oldmp (prompt "Deleting"))
        (delete (cat (oldmp) (".info") ) (prompt "Deleting") )
      )
    )
  )
)


(copyfiles (prompt IM)
           (help "Why did you do that?")
           (source ModePro)
           (infos)
           (dest daemonpath)
)

(set @default-dest daemonpath)

(copyfiles (prompt IM)
           (help "Hey, what are you doing?")
           (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 ";Don't run ModePro from User-Startup")

        )
    )
)

(set WhichLang (askoptions (prompt AskLang)
                           (help AskLang)
                           (choices OptLangDeutsch OptLangEspanol OptLangFrancais OptLangHrvatski 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 OptLangHrvatski 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 "Za¹to ste to uèinili?") (source srcpath) (dest dstpath) (all) )
    )
  )
  (set optnumber (+ optnumber 1) )
)