Amiga ISO Collection/AmigaUtilCD1.iso/CopyPRGS/SC172.DMS/in.adf/Install-SFC

Text File | 1995-07-09 | 5.3 KB | 211 lines

;------------------------------------------
; Installer Script für Siegfried Copy 1.3 -
;------------------------------------------

(set #Begruessung
(cat "\nMit diesem Installationsprogramm können Sie\n\n\nSiegfried Copy\n\n\n auf Ihre "
     "Festplatte installieren. Die komplette Installation läuft vollständig "
     "automatisch ab.\n"
     "Auf Ihrer Festplatte müssen 1,0 MB Platz frei sein!\n\n\n"
     "Drücken Sie \"Proceed\", um fortzufahren.\n"
     "Drücken Sie \"Abbruch\", um abzubrechen. "))
(set #Platten-Hilfe
(cat "\nWählen Sie die Partition Ihrer Festplatte aus, auf der "
     "Sie gerne Siegfried Copy installieren möchten. Danach klicken Sie "
     "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
     "Namen des Verzeichnisses an (z.B. WORK:SF_Tools). Dann drücken Sie "
     "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
     "\"Help...\" zeigt diesen Text."))

(set #Sounds
(cat "\n\n  Hier können Sie entscheiden ob die Sound-Modules\n"
     "   auf die Festplatte installiert werden sollen."))

(set #Soundname
(cat "\n\n  Hier können Sie entscheiden welcher mod.Sound\n"
     "   auf die Festplatte installiert werden soll."))

(set #Samples
(cat "\n\n    Hier können Sie entscheiden ob die Samples\n"
     "   auf die Festplatte installiert werden sollen."))

(set #Samplesname
(cat "\n\n    Hier können Sie entscheiden welches Sample\n"
     "   auf die Festplatte installiert werden soll."))

(set #Plattenverz
(cat "In welches Verzeichnis soll Siegfried Copy kopiert werden? "
     "ACHTUNG: Ein Unterverzeichnis wird nicht automatisch erzeugt!!!"))

(set #Delprefs
(cat "\n\nVoreinstellungsdatei Siegfried.Prefs im S: Verszeichnis "
     "gefunden! Soll die Datei gelöscht werden? (Für nähere Infos "
     "siehe \"Hilfe\".)\n"))

(set #Delprefshelp
(cat "\nWenn Sie eine Version kleiner 1.3 von Siegfried Antivirus "
     "oder eine Version kleiner 1.6 von Siegfried Copy auf Ihrer Festplatte "
     "installiert haben, muss die vorhandene Voreinstellungsdatei "
     "S:Siegfried.Prefs gelöscht werden! In der aktuellen Version "
     "werden mehr Daten in den Voreinstellungen gesichert. "
     "Aus programmtechnischen Gründen ist es nicht möglich die "
     "Voreinstellungsdatei automatisch zu vergrößern. Daher muss "
     "die alte Datei gelöscht werden, ansonsten werden die alten "
     "Einstellungen fehlerhaft geladen! "))

(message #Begruessung)
(welcome)

(
   (set @default-dest
      (askdir
         (prompt #Plattenverz)
         (help   #Platten-Hilfe)
         (default "WORK:SF_Tools")
      )

)

(if                                          ; Verzeichnis erzeugen
    (= (exists @default-dest) 0)
    (makedir @default-dest)
        )
    (makeassign "SF_Tools" @default-dest)
    (onerror
    (cleanUp)
        )
            (makedir "SF_Tools:Modules"
        (prompt "\n\n\nSchublade Modules wird eingerichtet")
        (help "In Modules werden mod.Sounds abgelegt")
        (infos)
        (confirm)
          )
             (makedir "SF_Tools:Samples"
         (prompt "\n\n\nSchublade Samples wird eingerichtet")
         (help "In Samples werden Soundeffekte abgelegt")
         (infos)
         (confirm)
           )

    (askdisk
        (prompt "\n\n\nBitte legen Sie die Diskette \"Siegfried Copy\" ein!")
        (help #Plattenverz)
        (dest "SiegfriedCopy")
     )
)

(complete 5)


(if                                          ; veraltete Prefs löschen
    (= (exists "s:Siegfried.Prefs" (noreq)) 1)
    (if
        (= (askbool
            (prompt #Delprefs)
            (help #Delprefshelp)
            (default 1)
            (choices "Ja" "Nein")) 1)
        (delete "s:Siegfried.Prefs")
    )
)

(complete 10)

(copyfiles
        (prompt "Kopiere das Hauptprogramm SFC")
        (help "Jetzt wird das Hauptprogramm kopiert")
        (source "SiegfriedCopy:SFC")
        (dest   "SF_Tools:")
)

(complete 20)

(copyfiles
        (prompt "Kopiere SFC.info")
        (help "Jetzt wird das Info zum Hauptprogramm kopiert")
        (source "SiegfriedCopy:SFC.info")
        (dest   "SF_Tools:")
)

(complete 30)

(user 2)
(set hardware (askchoice (prompt "Bitte auswählen")
                (help #Sounds)
                (choices "Keine mod.Sounds kopieren"
                "Alle mod.Sounds kopieren"
                )
                (default 1)
    )
)

(if (= 1 hardware)
    (
    (user 2)
         (copyfiles
     (prompt "Bitte Module auswählen")
     (help #Soundname)
     (source "SiegfriedCopy:modules")
     (dest "SF_Tools:Modules")
     (pattern "mod.#?")
     (files)
     (confirm)
      )
   )
)

(complete 50)

(user 2)
(set hardware (askchoice (prompt "Bitte auswählen")
                (help #Samples)
                (choices "Keine Samples kopieren"
                "Alle Samples kopieren"
                )
                (default 1)
    )
)

(if (= 1 hardware)
    (
    (user 2)
         (copyfiles
     (prompt "Bitte Samples auswählen")
     (help #Samplesname)
     (source "SiegfriedCopy:Samples/")
     (dest "SF_Tools:Samples")
     (pattern "#?.raw")
     (files)
     (confirm)
      )
   )
)

(complete 80)

(copylib
        (prompt "Kopiere die Siegfried.Library")
        (help " ")
        (source "SiegfriedCopy:Libs/siegfried.library")
        (dest   "Libs:")
)

(complete 95)

(copylib
        (prompt "Kopiere Virenerkennungsdatei siegfried.data")
        (help " ")
        (source "SiegfriedCopy:S/siegfried.data")
        (dest   "S:")
)

(complete 100)

(message (cat
   "Installation von Siegfried Copy beendet.\n\n"
   "Entfernen Sie nun die Diskette aus Ihrem Laufwerk\n "
   "und starten Sie Siegfried Copy.\n\nViel Spass beim kopieren!")
)

(exit)