home *** CD-ROM | disk | FTP | other *** search
/ Dream 45 / Amiga_Dream_45.iso / Amiga / Workbench / demarrage / astart.lha / astart / Install.script < prev    next >
Text File  |  1989-08-02  |  5KB  |  165 lines
  1. ; $VER: AStart 1.21 (8.09.97)
  2.  
  3. ; LANGUAGES
  4.  
  5. (procedure polish (
  6.     (set language0 "Polski")
  7.     (set MSG_WELCOME "\nWelcome to AStart V1.1\n\nthe ultimate alternate bootup maker\n\nAStart ⌐ 1997 Wojciech Kocjan\n\nAStart is mailware\n\n")
  8.     (set MSG_ASKCMDDIR "Podaj ⌠cie√kδ docelowΓ dla komend")
  9.     (set MSG_COPYCMD "Kopiowanie komendy uruchamiajΓcej AStart")
  10.     (set MSG_COPYASTARTUP "Kopiowanie skryptu alternate-startup")
  11.     (set MSG_ASKENV "Czy chcesz u√ywaΩ katalogu ENVArc: jako ENV:? (pomoc wyja⌠ni wszelkie problemy)")
  12.     (set HLP_ASKENV "Opcja ta jest u√yteczna, gdy posiadasz wiδcej pamiδci (np. 10MB), a planujesz u√ywaΩ AStart'u, aby nie uruchamiaΩ √adnych nakεadek itp. Opcja ta jest bardziej kompatybilna z systemem Amigi, lecz zu√ywa wiδcej pamiδci (w zale√no⌠ci od objδto⌠ci katalogu ENVArc)\n\nJe√eli chcesz u√ywaΩ AStart'u, aby oszczδdziΩ ka√dy bajt, wtedy powiniene⌠(a⌠) wεΓczyΩ opcjδ ENV->ENVArc. Opcja ta nie jest w peεni kompatybilna z systemem Amigi! Jednak√e wiδkszo⌠Ωáprogram≤w dziaεa poprawnie.")
  13.     (set MSG_ASK_YES "Tak")
  14.     (set MSG_ASK_NO "Nie")
  15.     (set MSG_ASKMODIFY "Czy mam modyfikowaΩ plik s:startup-sequence?")
  16.     (set MSG_ASKMODIFY_YES "Modyfikuj")
  17.     (set MSG_ASKMODIFY_NO "Nie modyfikuj")
  18.     (set MSG_ASKBACKUP "Czy mam zrobiΩ kopiδ oryginalnego pliku s:startup-sequence?")
  19.     (set MSG_ASKBACKUP_YES "Zr≤b kopiδ")
  20.     (set MSG_ASKBACKUP_NO "Nie r≤b kopii")
  21.     (set MSG_MODIFYSTARTUP0 "Modyfikowanie pliku startup-sequence")
  22.     (set MSG_COPYSTARTUP "Kopiowanie zmodyfikowanego pliku startup-sequence")
  23.     (set MSG_EXISTS "Plik ju√ istnieje! Czy chcesz wybraΩ inny katalog?")
  24.     (set MSG_EXISTS_YES "Inny katalog")
  25.     (set MSG_EXISTS_NO "Kontynuuj")
  26. ))
  27.  
  28. (procedure english (
  29.     (set language0 "English")
  30.     (set MSG_WELCOME "\nWelcome to AStart V1.1\n\nthe ultimate alternate bootup maker\n\nAStart ⌐ 1997 Wojciech Kocjan\n\nAStart is mailware\n\n")
  31.     (set MSG_ASKCMDDIR "Enter path for commands")
  32.     (set MSG_COPYCMD "Copying AStart running command")
  33.     (set MSG_COPYASTARTUP "Copying alternate-startup script")
  34.     (set MSG_ASKENV "Do you wish to use ENVArc: as ENV:? (help will tell you more info)")
  35.     (set HLP_ASKENV "This option is very useful, when you have more RAM (ie. 10MB) and plan to use AStart not to start any patches/commodities. This option is more AmigaOS compatible, but uses more RAM (depends on ENVArc:'s size)\n\nIf you plan to use AStart to spare every byte of memory, then you should turn this option on. It's not fully AmigaOS compatible, but most of the programs work fine.")
  36.     (set MSG_ASK_YES "Yes")
  37.     (set MSG_ASK_NO "No")
  38.     (set MSG_ASKMODIFY "Should I modify s:startup-sequence?")
  39.     (set MSG_ASKMODIFY_YES "Modify")
  40.     (set MSG_ASKMODIFY_NO "Don't modify")
  41.     (set MSG_ASKBACKUP "Should I backup the original s:startup-sequence?")
  42.     (set MSG_ASKBACKUP_YES "Backup")
  43.     (set MSG_ASKBACKUP_NO "Don't backup")
  44.     (set MSG_MODIFYSTARTUP0 "Modyfying s:startup-sequence")
  45.     (set MSG_COPYSTARTUP "Copying modified startup-sequence")
  46.     (set MSG_EXISTS "File already exists! Do you want to select another directory?")
  47.     (set MSG_EXISTS_YES "Another directory")
  48.     (set MSG_EXISTS_NO "Continue")
  49. ))
  50.  
  51. (set language0 "")
  52. (if (= @language "english")  (english))
  53. (if (= @language "polski")  (polish))
  54. (if (= language0 "") (english))
  55.  
  56. (procedure modifystartup (
  57.     (textfile (dest "T:startup-sequence")
  58.     (append ("%s S:alternate-startup\nIF WARN\n  EndCLI >NIL:\nEndIF\n\n" pqpath)) (include "s:startup-sequence"))
  59.     (copyfiles
  60.         (prompt MSG_COPYSTARTUP)
  61.         (help @copyfiles-help)
  62.         (source "T:startup-sequence")
  63.         (dest "S:")
  64.         (files)
  65.         (confirm)
  66.     )    
  67. ))
  68.  
  69. (procedure askdestdir (
  70.     (set dest_dir2 dest_dir)
  71.     (set dest_dir
  72.        (askdir (prompt MSG_ASKCMDDIR)
  73.                (help @askdir-help)
  74.                (default dest_dir2))
  75.     )
  76.     (set pqpath (tackon dest_dir "AStart"))
  77.     )
  78. )
  79.  
  80. (welcome)
  81.  
  82. (message MSG_WELCOME)
  83. (complete 0)
  84.  
  85. (set dest_dir "C:")
  86. (askdestdir)
  87. (set @default-dest dest_dir)
  88.  
  89. (set backup
  90.     (askbool 
  91.         (prompt MSG_ASKBACKUP)
  92.         (help @askbool-help)
  93.         (default 1)
  94.         (choices MSG_ASKBACKUP_YES MSG_ASKBACKUP_NO))
  95. )
  96.  
  97. (complete 15)
  98.  
  99. (set modify
  100.     (askbool 
  101.         (prompt MSG_ASKMODIFY)
  102.         (help @askbool-help)
  103.         (default 1)
  104.         (choices MSG_ASKMODIFY_YES MSG_ASKMODIFY_NO))
  105. )
  106.  
  107. (set envit
  108.     (askbool 
  109.         (prompt MSG_ASKENV)
  110.         (help HLP_ASKENV)
  111.         (default 0)
  112.         (choices MSG_ASK_YES MSG_ASK_NO))
  113. )
  114.  
  115. (if envit
  116.     (set oldname "s/alternate-startupENV")
  117.     (set oldname "s/alternate-startup")
  118. )
  119.  
  120. (complete 10)
  121.  
  122. (copyfiles
  123.     (prompt MSG_COPYCMD)
  124.     (help @copyfiles-help)
  125.     (source "C")
  126.     (dest dest_dir)
  127.     (choices "AStart" "Beep" "ConvertX")
  128.     (confirm)
  129.     (files)
  130. )
  131.  
  132. (complete 25)
  133.  
  134. (copyfiles
  135.     (prompt MSG_COPYASTARTUP)
  136.     (help @copyfiles-help)
  137.     (source (oldname))
  138.     (dest "S:")
  139.     (newname "alternate-startup")
  140.     (confirm)
  141.     (files)
  142. )
  143.  
  144. (complete 50)
  145.  
  146. (if backup
  147.     (copyfiles
  148.         (prompt MSG_COPYCMD)
  149.         (help @copyfiles-help)
  150.         (source "S:startup-sequence")
  151.         (dest "Sys:Storage")
  152.         (newname "startup-sequence.bak")
  153.     )
  154. )
  155.  
  156. (complete 75)
  157.  
  158. (if modify 
  159.     (modifystartup)
  160. )
  161.  
  162. (complete 100)
  163.  
  164. (exit)
  165.