; 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) )
)