home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 112 / af112sub.adf / Modepro.lzx / ModePro / Hrvatski_InstallModePro < prev    next >
Encoding:
Text File  |  1998-04-21  |  7.2 KB  |  225 lines
  1. ; Install script for ModePro
  2.  
  3.  
  4. ( set ModePro "ModePro")
  5. ( set ModeProPrefs "ModeProPrefs" )
  6.  
  7. ;-------------------------------------------------------------
  8. ( set Yes "Yes")
  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     (cat "Automatski pokrenuti ModePro pri dizanju sistema?"))
  18. ( set AskAutoRunMPHelp  "POMMMMOOOOOÆÆÆÆ!!!!" )
  19.  
  20.  
  21. ;-------------------------------------------------------------
  22. ( set AskStartHow               "Kako ¾elite pokretati ModePro?\nPritisni 'Pomoæ' za vi¹e informacija.")
  23. ( set OptStartWBStartup         "Stavi ModePro u WBStartup imenik")
  24. ( set OptStartUserStartup       "Pokreni ModePro iz User-Startup")
  25. ( 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." )
  26.  
  27. ;-------------------------------------------------------------
  28. ( set AskPrefsPath      "ModeProPrefs dopu¹ta prepravljanje ModePro-ove opcije unaprijeðenja.  Gdje ¾elite staviti editor postavki?" )
  29. ( set AskPrefsPathHelp  ("Opæenito bi trebao biti u %s imeniku." Def_PrefsPath) )
  30. ( set AskDaemonPath     "Preporuæen imenik za ModePro.  Promjeni ga po volji." ) 
  31.  
  32. ;-------------------------------------------------------------
  33. ( set ToolTypeOptions  "Znaèajne opcije" )
  34.  
  35. ( set AskCxPopKey    "Upi¹i vruæu tipku koja æe aktivirati editor postavki." )
  36. ( set AskCxPri       "Upi¹ite vrijednost ModePro-ove va¾nosti rada." )  
  37. ( set AskCxPopup     "Da li ¾elite da se ModePro pojavi svaki put kada se pokrene.")
  38.  
  39. ( set AskDeleteOld   "Izgleda da postoji druga kopija ModePro instalirana, da ju obri¹em?")
  40.  
  41. ;-----------------------------------------------------------------------
  42. ( set IM        "Instaliram ModePro...")
  43.  
  44. ( set AskLang   "ModePro podr¾ava a lokalizaciju.  Koje jezike ¾elite instalirati, neki katalozi nisu gotovi.")
  45. ( set OptLangDeutsch   "Deutsch" )
  46. ( set OptLangEspanol   "Español" )
  47. ( set OptLangFrancais  "Français" )
  48. ( set OptLangHrvatski  "Hrvatski" )
  49. ( set OptLangIslenska  "Íslenska" )
  50. ( set OptLangItaliano  "Italiano" )
  51. ( set OptLangNorsk     "Norsk"    )
  52. ( set OptLangPolski    "Polski"   )
  53. ( set OptLangRussian   "Russian"  )
  54. ( set OptLangSvenska   "Svenska"  )
  55. ( set OptLangTurkish   "türkçe"  )
  56.  
  57. ( set SrcCatPath "catalogs/%s" )
  58. ( set DestCatPath "locale:catalogs/%s" )
  59.  
  60. ;-----------------------------------------------------------------------
  61.  
  62. ( set AskModifyUS     "Opcija koju ste izabrali zahtjeva promjene u datoteci s:user-startup." )
  63. ( set AskModifyUSHelp "Opcija koju ste izabrali zahtjeva promjene u datoteci s:user-startup." )
  64.  
  65.  
  66. ;-------- BEGIN ----------
  67.  
  68. ( set AutoRun ( askbool (prompt  AskAutoRunMP ) 
  69.                         (help    AskAutoRunMPHelp ) 
  70.                         (default 0) 
  71.               )  
  72. )
  73.  
  74. ( if AutoRun 
  75.     (
  76.         ( set AutoHow ( askchoice (prompt   AskStartHow)
  77.                                   (help     AskStartHowHelp)
  78.                                   (choices  OptStartWBStartup OptStartUserStartup)
  79.                                   (default  1)
  80.                        )
  81.         )
  82.         ( if AutoHow
  83.             (
  84.                 (set daemonpath Def_DaemonPath_COM)
  85.                 (set deldaemonpath Def_DaemonPath_WB)
  86.             )
  87.             (
  88.                 (set daemonpath Def_DaemonPath_WB)
  89.                 (set deldaemonpath Def_DaemonPath_COM)
  90.             )
  91.         )   
  92.     )
  93.     (
  94.         (set daemonpath Def_DaemonPath_COM)
  95.         (set deldaemonpath Def_DaemonPath_WB)
  96.     )
  97. )
  98.  
  99.  
  100.  
  101. (set daemonpath ( askdir (prompt AskDaemonPath)
  102.                           (help "Cow")
  103.                           (default daemonpath)
  104. ) )
  105.  
  106. (set prefspath ( askdir (prompt  AskPrefsPath)
  107.                                (help    AskPrefsPathHelp)
  108.                                (default Def_PrefsPath)
  109.                       ) 
  110. )
  111.  
  112. ( set ModeProPrefsCommand ( tackon ( prefspath) 
  113.                                    ( "ModeProPrefs") 
  114.                           ) 
  115. )
  116.  
  117. ( set cxpopkey ( askstring  (prompt AskCxPopKey)
  118.                             (help "None")
  119.                             (default "lamiga p")
  120.                )
  121. )
  122.  
  123. ( set cxpri ("%ld" (asknumber  (prompt AskCxPri)
  124.                                (help "None")
  125.                                (default 5)
  126.                    )
  127.             )
  128. )
  129.  
  130. ( set cxpopup (askchoice (prompt AskCxPopup) 
  131.                          (help "Sorry!") 
  132.                          (default 0) 
  133.                          (choices "No" "Yes") 
  134.               )
  135. )
  136.  
  137. ;-Set the tooltypes----------------------------------------------------
  138.  
  139. (tooltype (dest ModePro)
  140.           (settooltype "CX_POPKEY" cxpopkey)
  141.           (settooltype "CX_POPUP" (select cxpopup No Yes) )
  142.           (settooltype "CX_PRIORITY" cxpri )
  143.           (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
  144. )
  145.  
  146. ;--------------------------------------------------------------
  147.  
  148.  
  149. (set oldmp ( tackon (deldaemonpath) 
  150.                     ("ModePro")
  151.            )
  152. )
  153.  
  154. (if (exists oldmp)
  155.   (
  156.     (if (askchoice (prompt AskDeleteOld ) (help "Ha ha") (default 1) (choices "No" "Yes") )
  157.       (
  158.         (delete oldmp (prompt "Deleting"))
  159.         (delete (cat (oldmp) (".info") ) (prompt "Deleting") )
  160.       )
  161.     ) 
  162.   )
  163. )
  164.     
  165.  
  166. (copyfiles (prompt IM)
  167.            (help "Why did you do that?")
  168.            (source ModePro)
  169.            (infos)
  170.            (dest daemonpath)
  171. )
  172.  
  173. (set @default-dest daemonpath)
  174.  
  175. (copyfiles (prompt IM)
  176.            (help "Hey, what are you doing?")
  177.            (source ModeProPrefs)
  178.            (infos)
  179.            (dest prefspath)
  180. )
  181.  
  182. (if (AND AutoRun AutoHow)
  183.     ( 
  184.         (startup "ModePro"
  185.                  (prompt  AskModifyUS )
  186.                  (help    AskModifyUSHelp )
  187.                  (command (cat "Run <>NIL: ModePro" ) )
  188.         )
  189.     )
  190.     (
  191.        (startup "ModePro"
  192.                  (prompt  AskModifyUS )
  193.                  (help    AskModifyUSHelp )
  194.                  (command ";Don't run ModePro from User-Startup")
  195.   
  196.         )
  197.     )
  198. )
  199.  
  200. (set WhichLang (askoptions (prompt AskLang)
  201.                            (help AskLang)
  202.                            (choices OptLangDeutsch OptLangEspanol OptLangFrancais OptLangHrvatski OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska OptLangTurkish)
  203.                            (default 0) 
  204. )              )
  205.  
  206. (set optnumber 0)
  207.  
  208. ( while ( < optnumber 10 )
  209.   (set flag (BITAND (shiftright WhichLang optnumber) 1) )
  210.   (debug optnumber flag)
  211.   (if flag
  212.     (
  213.       (set lang     ( select optnumber OptLangDeutsch OptLangEspanol OptLangFrancais OptLangHrvatski OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska OptLangTurkish) )
  214.       (debug lang)
  215.       (set srcpath ( SrcCatPath  lang ) )
  216.       (debug srcpath)
  217.       (set dstpath ( DestCatPath lang ) )
  218.       (debug dstpath) 
  219.       (makedir dstpath)
  220.       (copyfiles  (prompt IM) (help "Za¹to ste to uèinili?") (source srcpath) (dest dstpath) (all) )
  221.     )
  222.   )
  223.   (set optnumber (+ optnumber 1) )
  224. )
  225.