;=============================================================================
; Installer-Script zum Installieren von SATPOS
;=============================================================================


(complete 0)


(set #SATPOS-wohin
(cat "\nWo soll SATPOS installiert werden ?\n"
     "\n(Ein Directory wird dort angelegt.)\n"
))

(set #SATPOS-wohin-Hilfe
(cat "\n              Hier kannst Du wählen,\n"
     "wo die Dateien von SATPOS installiert werden sollen.\n\n"
     "----------------------------------------------------\n\n"
     @askdir-help
))

(set #welche-Doku
(cat "\nIn welcher Form möchtest Du die Anleitung haben ?\n\n"
     "(AmigaGuide- und/oder Text-File ?)\n"
))

(set #welche-Doku-hilfe
(cat "\n Hier kannst Du wählen ob Dir die Anleitung lieber\n"
     " im AmigaGuide-Format (Hypertext, Multiview), oder\n"
     " als herkömmliche Text-Datei (Muchmore usw.) ist.\n\n"
     "----------------------------------------------------\n\n"
     @askoptions-help
))

(set #fonts
(cat "\nSATPOS-Schriftart in FONTS: installieren ?\n\n"
))

(set #fonts-hilfe
(cat "\n SATPOS hat zwar seinen eigenen Font,"
     "\n aber diesen braucht er nicht unbedingt."
     "\n (es muss dann aber ein 8*8 Font installiert sein)"
     "\n\n Wenn Du also als Standard-System-Font"
     "\n eine 8*8 Schrift (z.B. Topaz 8) eingestellt"
     "\n hast, dann kannst Du auf den SATPOS-Font"
     "\n verzichten. Wenn Du es unbedingt willst..."
     "\n\n Im Zweifelsfall also lieber benutzen !"
))


;=============================================================================
; was soll dieses Script alles anstellen ?

(user 1)
(welcome)
(set old_level @user-level)


;=============================================================================
; wähle das Ziel(verzeichnis) in welches SATPOS installiert werden soll

(user 2)
(set target (askdir (prompt #SATPOS-wohin)
                    (help #SATPOS-wohin-Hilfe)
                    (default "SYS:")
                    (disk)
            )
)

(set @default-dest target)
(user old_level)


;=============================================================================
; Zielverzeichnis erstellen und ein paar Dateien kopieren

(makedir (tackon target "SATPOS") (infos))

(complete 2)

(copyfiles (source "SATPOS")
           (dest (tackon target "SATPOS"))
)

(complete 75)

(copyfiles (source "SATPOS.info")
           (dest (tackon target "SATPOS"))
)

(complete 76)

(copyfiles (source "SATPOS.Orte")
           (dest (tackon target "SATPOS"))
)

(complete 77)

(copyfiles (source "SATPOS.Orte.info")
           (dest (tackon target "SATPOS"))
)

(complete 78)

(copyfiles (source "SATPOS.Satelliten")
           (dest (tackon target "SATPOS"))
)

(complete 80)

(copyfiles (source "SATPOS.Satelliten.info")
           (dest (tackon target "SATPOS"))
)

(complete 81)


;=============================================================================
; wähle die Form der Dokumentation aus

(set doku (askoptions (prompt #welche-Doku)
                      (help #welche-Doku-hilfe)
                      (choices "SATPOS.Guide"
                               "SATPOS.Dok"
                      )
          )
)

(set n 0)
(set dokumentpat "(%")
(while (set dokument (select n "SATPOS.Guide#?"
                               "SATPOS.Dok#?"
                               ""
                     )
       )
(
    (if (IN doku n)
    (
        (set dokumentpat (cat dokumentpat "|" dokument))
    ))
    (set n (+ n 1))
))

(copyfiles (source (cat ""))
           (dest (tackon target "SATPOS"))
           (pattern (cat dokumentpat ")"))
)

(complete 95)


;=============================================================================
; SATPOS.fonts runden alles ab


(set doku (askoptions (prompt #fonts)
                      (help #fonts-hilfe)
                      (choices "SATPOSFONT")
          )
)

(set n 0)
(set dokumentpat "(%")
(while (set dokument (select n "SATPOSFONT#?"
                               ""
                               ""
                     )
       )
(
    (if (IN doku n)
    (
        (set dokumentpat (cat dokumentpat "|" dokument))
    ))
    (set n (+ n 1))
))

(copyfiles (source (cat ""))
           (dest "FONTS:")
           (pattern (cat dokumentpat ")"))
)


(complete 100)