;SkyUseBin 1.6
;Copyright  10/1996 Matthias Kaulartz
;Installationsscript fr Commodore Installer

(set @default-dest "Prometheus:SkyTools")
(transcript "Installation von SkyUseBin V1.6")

(set sourc "install/")
(set desti (tackon @default-dest "SkyUseBin"))
(set destkonf (tackon desti "BeispielKonfig"))

(message
  "\n\n\n\nWillkommen bei der SkyUseBin V1.6 Installation.\n\n"
  "Die Installation wird automatisch ausgefhrt.\n"
)

(working)

(if (= (exists @default-dest) 0 (makedir @default-dest (infos) )))
(if (= (exists (tackon @default-dest "SkyUseBin")) 0 (makedir (tackon @default-dest "SkyUseBin") (infos) )))

(complete 10)

(copyfiles
  (prompt "Kopiere Files...\nDer Pfadname mu beibehalten werden!")
  (choices "SkyUseBin" "SkyUseBin.guide" "NetzAntrag.txt" "Register.txt")
  (source sourc)
  (dest desti)
  (help @copyfiles-help)
  (infos)
  (confirm)
)

(complete 20)

(copyfiles
  (prompt "Kopiere Files...\nDer Pfadname kann gendert werden (z.B. SYS:Prefs).")
  (choices "SkyUseBin-Prefs")
  (source sourc)
  (dest "SkyTools:SkyUseBin")
  (help @copyfiles-help)
  (infos)
  (confirm)
)

(complete 40)

(copyfiles
  (prompt "Kopiere Files...\nDer Pfadname mu beibehalten werden!")
  (choices "UUDecode")
  (source sourc)
  (dest "C:")
  (confirm)
  (help
    (cat "Das Programm wird zum Dekodieren von uukodierten Files gebraucht.\n\n"
         @copyfiles-help)
  )
)

(complete 60)

(if
  (askbool
    (prompt "\n\n\nEs werden nun Beispielskonfigurationen in ein seperates Verzeichnis kopiert. Ihre bisherigen Einstellungen bleiben erhalten.")
    (choices "Ja" "Nein")
    (default 1)
    (help "Sie sollten die Beispiel-Dateien installieren, um ihre Funktionen nachvollziehen zu knnen.")
  )
  (
    (if (= (exists destkonf) 0 (makedir destkonf)))
    (copyfiles
      (prompt "Kopiere Files...")
      (pattern "#?.cfg")
      (source sourc)
      (dest destkonf)
    )
  )
)

(complete 80)

(makeassign "SkyTools" "Prometheus:SkyTools")

(startup "SkyTools"
  (prompt "\n\n\n\nDas SkyTools-Assign wird nun Ihrer User-Startup zugefgt.\n\n")
  (help @startup-help)
  (command "Assign SkyTools: \"" @default-dest "\"\n")
)

(complete 100)

(message
  "\n\n\nZur weiteren Installation und Konfiguration von SkyUseBin schauen Sie bitte in die Anleitung."
)

(message
  "\n\n\nDiese unregistrierte Version von SkyUseBin ist auf eine Probelaufzeit beschrnkt (bis 17.11.96). Fr schlappe 10,- erhalten Sie die Vollversion!"
)

(Message
  "\n\n\nFr alle SkyTools existiert ein eigenes Support-Netz, das SkyNetz, in dem Sie Informationen, Hilfestellung, Diskussionen und natrlich die neusten Versionen der Programme erhalten."
)
