; This is the XStream quick install script
; $VER: 1.0d (25.01.95) © by Andreas Günther

(transcript "XStream quick installation:")

(set install_btn
  (askbool
    (prompt "\n\n\n\nMöchten Sie das logische Gerät \"TAPE:\" ebenfalls installieren ?")
    (help "Hier können Sie wählen, ob das logische Gerät \"TAPE:\" installiert werden soll. Dadurch ist es möglich, den Streamer über das Amiga-DOS anzusprechen.\nTAPE: ist z. B. für das Backup-Programm \"tar\" notwendig.\nWeitere Informationen finden Sie im XStream-Handbuch.")
    (choices "TAPE: installieren" "TAPE: nicht installieren")
    (default 1)
  )
)

; copy all files to RAM:, so that user does not need to change disks

(copyfiles
  (prompt "\n\n\n\"xstream.device\" wird nach \"RAM:\" kopiert.")
  (help @copyfiles-help)
  (source "XStream:devs/xstream.device")
  (dest "RAM:")
  (confirm)
)

(if install_btn
 (
  (copyfiles
    (prompt "\n\n\n\"btn-handler\" wird nach \"RAM:\" kopiert.")
    (help @copyfiles-help)
    (source "XStream:BTNtape/btn-handler")
    (dest "RAM:")
    (confirm)
  )

  (copyfiles
    (prompt "\n\n\n\"Mountlist\" wird nach \"RAM:\" kopiert.")
    (help @copyfiles-help)
    (source "XStream:Devs/Mountlist")
    (dest "RAM:")
    (confirm)
  )
 )
)


; install procedure

(run "Assign DEVS: RAM: ADD"
  (prompt "\n\n\n\"xstream.device\" wird eingebunden.")
  (help "Der Gerätetreiber für XStream wird dem System bekannt gemacht, so daß Ihre Backup-Software XStream finden kann.")
  (confirm)
)

(if install_btn
  (
    (run "Assign L: RAM: ADD"
      (prompt "\n\n\n\"btn-handler\" wird eingebunden.")
      (help "Das Verzeichnis mit dem Treiber für das logische Gerät \"TAPE:\" wird dem System bekannt gemacht, sodaß das Gerät \"TAPE:\" angemeldet werden kann")
      (confirm)
    )

    (run "Mount TAPE: from RAM:Mountlist"
      (prompt "\n\n\n"TAPE:\" wird angemeldet.")
      (help "Das logische Gerät \"TAPE:\" wird angemeldet.")
      (confirm)
    )
  )
)