home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / sonstiges / tools / ed-menü / ED-Startup.Install < prev    next >
Encoding:
Text File  |  1998-10-06  |  3.4 KB  |  162 lines
  1. ; ED-Startup installations Script
  2. ; © 1997 Ralf Stecher All rights reserved.
  3. ; 
  4. ; Written by Ralf Stecher Cheruskerstr. 19 38112 Braunschweig
  5. ; Date: 05/Dezember/97
  6.  
  7. (set flasekickmsg "Du benötigst mindestens OS 2.04 !")
  8.  
  9. (set OS_VER (/ (getversion) 65536) )
  10.  
  11. (if
  12.  (< OS_VER 37)
  13.  (abort falsekickmsg)
  14. )
  15.  
  16. (set #msg
  17.  (cat "\n\n >  ED-Startup  <  Installer script.\n\n"
  18.       "Dieses Script installiert ED-Startup auf Deinem\n\n Amiga.\n\n"
  19.       "Hinweise: ED-Startup.guide\n\n"
  20.       "ED-Startup © 1995 Ralf Stecher\n\n"
  21.       "All rights reserved."
  22.  )
  23. )
  24. (message #msg)
  25. (welcome)
  26.  
  27. (set #address
  28.  (cat "\n"
  29.       "Ralf Stecher\n"
  30.       "Cheruskerstr. 19\n"
  31.       "38112 Braunschweig (Deutschland)\n"
  32.       "e-Mail: Ralf.Stecher@t-online.de\n\n"
  33.       "Verbesserungsvorschläge werden\n"
  34.       "dankend entgegengenommen\n\n"
  35.       "Auch weitere ARexx Scripts sind immer Wilkommen.\n\n"
  36.       "Und nun geht´s weiter !!!"
  37.  )
  38. )
  39. (message #address)
  40.  
  41.  
  42.  
  43. (Set #WhatInstall
  44.  (cat "Welche Teile von ED-Startup sollen kopiert werden ?\n"
  45.  )
  46. )
  47.  
  48. (set #InstallParts
  49.  (askoptions
  50.   (prompt #WhatInstall)
  51.   (help @askoptions-help)
  52.   (choices
  53.    ("Alte ED-Startup Umbenennen [ED-Startup-alt]  ") ;Bit 0
  54.    ("Neue ED-Startup Kopieren                     ") ;Bit 1
  55.    ("Rexx Prog. Week Day  [Wochentag     ] {WD.ed}") ;Bit 2
  56.    ("REXX Prog. Date      [Datum         ] {DA.ed}") ;Bit 3
  57.    ("REXX Prog. Time      [Zeit          ] {TI.ed}") ;Bit 4
  58.    ("REXX Prog. Uper Line [Großbuchstaben] {UL.ed}") ;Bit 5
  59.   )
  60.   (default 63)
  61.  )
  62. )
  63.  
  64. (if
  65.  (IN #InstallParts 0)
  66.   (copyfiles
  67.    (prompt "Nun benenne ich die alte ED-Startup nach ED-Startup-alt um")
  68.    (help @copylib-help)
  69.    (source "SYS:S/ED-Startup")
  70.    (dest "S:")
  71.    (newname "ED-Startup-alt")
  72.    (confirm)
  73.    (optional "nofail")
  74.   )
  75. )
  76.  
  77. (if
  78.  (IN #InstallParts 1)
  79.   (copyfiles
  80.    (prompt "Kopiere die neue ED-Startup.")
  81.    (help @copylib-help)
  82.    (source "ED-Startup")
  83.    (dest "S:")
  84.    (confirm)
  85.    (optional "nofail")
  86.   )
  87. )
  88.  
  89. (if
  90.  (IN #InstallParts 2)
  91.   (
  92.    (copyfiles
  93.     (prompt "Kopiere ARexx Befehl Week Day [Wochentag].")
  94.     (help @copylib-help)
  95.     (source "AREXX/WD.ed")
  96.     (dest "REXX:")
  97.     (confirm)
  98.     (optional "nofail")
  99.    )
  100.   )
  101. )
  102.  
  103. (if
  104.  (IN #InstallParts 3)
  105.   (
  106.    (copyfiles
  107.     (prompt "Kopiere ARexx Befehl Date [Datum].")
  108.     (help @copylib-help)
  109.     (source "AREXX/DA.ed")
  110.     (dest "REXX:")
  111.     (confirm)
  112.     (optional "nofail")
  113.    )
  114.   )
  115. )
  116.  
  117. (if
  118.  (IN #InstallParts 4)
  119.   (
  120.    (copyfiles
  121.     (prompt "Kopiere ARexx Befehl Time [Zeit].")
  122.     (help @copylib-help)
  123.     (source "AREXX/TI.ed")
  124.     (dest "REXX:")
  125.     (confirm)
  126.     (optional "nofail")
  127.    )
  128.   )
  129. )
  130.  
  131. (if
  132.  (IN #InstallParts 5)
  133.   (
  134.    (copyfiles
  135.     (prompt "Kopiere ARexx Befehl Uper Line [Großbuchstaben].")
  136.     (help @copylib-help)
  137.     (source "AREXX/UL.ed")
  138.     (dest "REXX:")
  139.     (confirm)
  140.     (optional "nofail")
  141.    )
  142.   )
  143. )
  144.  
  145. (set #end
  146.  (cat "\n\nDie Installation ist nun beendet.\n\n\n\n"
  147.       "Ich wünsche Dir viel Spaß mit dem Neuen\n\n"
  148.       "ED-Startup\n\n"
  149.       "Ralf Stecher"
  150.  )
  151. )
  152.  
  153. (message #end)
  154. (abort
  155.  "Dieses ist natürlich kein Fehler, sondern nur eingebaut damit Euch kein dummes"
  156.  " kram Erzählt wird, denn auch Ich binn nicht Perfekt, und weiß nicht wie Ich"
  157.  " die Falschmeldung die anstelle dieser kommen würde Verhindern kann."
  158.  " Kann mir jemand helfen und mir auf DEUTSCH erklären ( Schriftlich währe sehr"
  159.  " nett ) wie ich den Installer zu Programieren habe ???\n\nRalf Stecher\ne-Mail: Ralf.Stecher@t-online.de"
  160.  
  161. )
  162.