home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / comm / videotxt23demo.lha / Install_VideoTXT_ｫSERｻ < prev    next >
Text File  |  1994-11-07  |  6KB  |  204 lines
  1. ; Install-Script für VideoTXT
  2. ;
  3. ; © 1994 Michael Bettler, Andreas Knust, Joachim E. Deußen
  4. ;
  5. ; $VER:VideoTXTInstall 0.97 (07-Nov-94)
  6.  
  7.  
  8. (message "Willkommen zur Installation von VideoTXT V2.3c\n\n"
  9.          "Copyright © 1993,94 by HSL Lenzen\n\nHard- & Software Lenzen\nKlinkhammer 4\n41751 Viersen\nTel.:02153/5831 Fax:02153/13383\n\n"
  10.          "Programmiert von Stefan Wegener\nHardware von Klaus Köster\n"
  11.          )
  12.  
  13. (set Ok 0)
  14. (set savedest "Work:")
  15. (set newdirname "VideoTXT_2.3")
  16.  
  17. (complete 0)
  18.  
  19. (set ToDo (askoptions (prompt "Bitte wählen Sie die gewünschte Operation:")
  20.                       (help @askoptions-help)
  21.                       (choices "VideoTXT und Doks installieren"
  22.                                "VTXT und VTXT_Prefs installieren"
  23.                                "Fonts installieren bzw. updaten"
  24.                                "Libraries installieren bzw. updaten"
  25.                                "MagicWB Symbole installieren"
  26.                                "Beispiel-Seiten entpacken")
  27.                       (default 15)
  28.           )
  29. )
  30.  
  31. (set TempDo ToDo)
  32.  
  33.  
  34. (if (<> (BITAND ToDo $3) 0)
  35.    (
  36.       (set askdest (askdir (prompt "Bitte wählen Sie, wo das VideoTXT-Verzeichnis installiert werden soll.")
  37.                            (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin VideoTXT \
  38. installiert werden soll.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\n" @askdir-help))
  39.                            (default savedest )
  40.                            (newpath))
  41.       )
  42.  
  43.       (set newdest (tackon askdest newdirname))
  44.       (if (= (exists newdest) 0)
  45.          (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  46.                           (help @makedir-help)
  47.                           (infos)
  48.           )
  49.       )
  50.       (set @default-dest newdest)
  51.    )
  52. )
  53.  
  54. (complete 10)
  55. (set ToDo TempDo)
  56.  
  57. (working "Kopiere VideoTXT und Doks...")
  58.  
  59. (if (<> (BITAND TempDo $1) 0)
  60.    (copyfiles (prompt "Kopiere VideoTXT und Doks...")
  61.               (help (cat "Das Hauptprogramm von VideoTXT und die AmigaGuide-Dokumentation werden auf Ihre Festplatte kopiert\n\n" @copyfiles-help))
  62.               (source "VideoTXT:")
  63.               (dest @default-dest)
  64.               (pattern "(VideoTXT#?)")
  65.               (infos))
  66. )
  67.  
  68. (complete 20)
  69. (set ToDo TempDo)
  70.  
  71. (if (<> (BITAND ToDo $2) 0)
  72.    (copyfiles (prompt "Kopiere VTXT...")
  73.               (help (cat "Die Programme von VTXT werden auf Ihre Festplatte kopiert\n\n" @copyfiles-help))
  74.               (source "VideoTXT:")
  75.               (dest @default-dest)
  76.               (pattern "(VTXT#?|VTXT_Prefs#?)")
  77.               (infos))
  78.  
  79. )
  80.  
  81. (complete 30)
  82.  
  83. (if (<> (BITAND ToDo $10) 0)
  84.    (copyfiles (prompt "Kopiere MagicWB Symbole...")
  85.               (help (cat "Die Symbole für MagicWB Benutzer werden installiert\n\n" @copyfiles-help))
  86.               (source "VideoTXT:MWB/")
  87.               (dest @default-dest)
  88.               (pattern "(V#?.info)")
  89.               (infos))
  90. )
  91.  
  92. (complete 35)
  93.  
  94. (if (<> (BITAND ToDo $10) 0)
  95.    (delete (tackon @default-dest "VideoTXT_2.3.info"))
  96. )
  97.  
  98. (if (<> (BITAND ToDo $10) 0)
  99.    (copyfiles (prompt "Kopiere MagicWB Symbole...")
  100.               (help (cat "Die Symbole für MagicWB Benutzer werden installiert\n\n" @copyfiles-help))
  101.               (source "VideoTXT:MWB/")
  102.               (dest askdest)
  103.               (pattern "(VideoTXT_2.3.info)")
  104.               (infos))
  105. )
  106.  
  107. (complete 40)
  108.  
  109. (tooltype  (prompt "Passe Positionen an...")
  110.            (help @tooltype-help)
  111.            (dest (tackon @default-dest "VideoTXT"))
  112.            (noposition))
  113.  
  114. (complete 45)
  115.  
  116. (tooltype  (prompt "Passe Positionen an...")
  117.            (help @tooltype-help)
  118.            (dest (tackon @default-dest "VTXT"))
  119.            (noposition))
  120.  
  121. (complete 50)
  122.  
  123. (tooltype  (prompt "Passe Positionen an...")
  124.            (help @tooltype-help)
  125.            (dest (tackon @default-dest "VTXT_Prefs"))
  126.            (noposition))
  127.  
  128. (complete 55)
  129.  
  130. (tooltype  (prompt "Passe Positionen an...")
  131.            (help @tooltype-help)
  132.            (dest (tackon @default-dest "VideoTXT.guide"))
  133.            (noposition))
  134.  
  135. (complete 60)
  136. (set ToDo TempDo)
  137.  
  138. (if (<> (BITAND ToDo $4) 0)
  139.    (copyfiles (prompt "Kopiere Fonts...")
  140.               (help (cat "Es werden die benötigten Fonts in das FONT Verzeichnis kopiert\n\n" @copyfiles-help))
  141.               (source "VideoTXT:fonts")
  142.               (dest "FONTS:")
  143.               (fonts)
  144.               (all))
  145. )
  146.  
  147. (complete 70)
  148. (set ToDo TempDo)
  149.  
  150. (if (<> (BITAND ToDo $8) 0)
  151.    (
  152.       (copylib (prompt "Installiere ReqTools.library...")
  153.                (help @copylib-help)
  154.                (if (< (/ (getversion) 65536) 37)
  155.                   (
  156.                   (source "VideoTXT:libs_1.3/reqtools.library")
  157.                   )
  158.                   (
  159.                   (source "VideoTXT:libs_2.0/reqtools.library")
  160.                   )
  161.                )
  162.                (dest "LIBS:")
  163.                (confirm)
  164.       )
  165.    )
  166. )
  167.  
  168. (complete 80)
  169.  
  170. (set cachedir (tackon @default-dest "CACHE"))
  171. (set cachedir (askdir (prompt "Bitte wählen Sie ein Verzeichnis für die Videotext-Seiten!")
  172.                       (help (cat "Geben Sie einen Namen für das CACHE-Verzeinis an." @askdir-help))
  173.                       (default cachedir)
  174.                       (newpath))
  175. )
  176. (if (= (exists cachedir) 0)
  177.     (makedir cachedir (prompt ("Erstelle Verzeichnis %s!" cachedir))
  178.                       (help @makedir-help)
  179.                       (infos))
  180. )
  181.  
  182. (complete 85)
  183.  
  184. (set assignline ("ASSIGN VideoTXT: %s" @default-dest))
  185. (startup @app-name assignline
  186.                    (help @startup-help)
  187.                    (prompt ("Soll das Assign\n\n%\n\nin S:user-startup angelegt werden?" assignline))
  188. )
  189.  
  190. (complete 90)
  191.  
  192. (if (<> (BITAND ToDo $20) 0)
  193. )
  194.  
  195. (complete 100)
  196.  
  197. (IF (> (run "Sys:Utilities/MultiView VideoTXT:Lies.Mich") 0)
  198.     (IF (> (run "Sys:Utilities/AmigaGuide VideoTXT:Lies.Mich") 0)
  199.         (run "More VideoTXT:Lies.Mich")
  200.     )
  201. )
  202.  
  203. (exit "Bitte vergessen Sie nicht, in jedem Fall eine PROZESSORANPASSUNG an Ihrem Dekoder durchzuführen.\n (Handbuch 2.3, Kapitel 2, Seite 24)\nAnderenfalls kann es vorkommen, daß der Dekoder nicht oder nur unzureichend arbeitet!\n")
  204.