Amiga Plus Special 6/Sonderheft_6-96.iso/demo-versionen/siegfriedalpha/install-alphademo

Text File | 1996-11-03 | 5KB | 191 lines

;--------------------------------------------
; Installer Script für Siegfried ALPHA Demo -
;--------------------------------------------

(set #Begruessung
(cat "\nMit diesem Installationsprogramm können Sie die\n\n\nSiegfried ALPHA Demoversion\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 #Plattenverz
(cat "Auf welche Partion bzw. in welches Verzeichnis soll Siegfried ALPHA Demo kopiert werden? "
     "ACHTUNG: Es wird ein Unterverzeichnis 'SF_Tools' im angegebenen Pfad eingerichtet!!!"))

(set #Platten-Hilfe
(cat "\nWählen Sie die Partition (bzw. das Verzeichnis) Ihrer Festplatte aus, auf der "
     "Sie Siegfried ALPHA Demo installieren möchten. Es wird dann in dem "
     "augewählten Verzeichnis ein Unterverzeichnis 'SF_Tools' angelegt. "
     "In dieses wird Siegfried ALPHA Demo kopiert. Beispiel:\n"
     "Ausgewählt: 'Work:'\n"
     "-> Siegfried ALPHA Demo wird in 'Work:SF_Tools' installiert."))

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

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

(set #Rexxhelp
(cat "\n\n    Hier können Sie entscheiden welche ARexx-Skripte\n"
     "   auf die Festplatte installiert werden sollen."))

(set #Makroshelp
(cat "\n\n    Hier können Sie entscheiden welche Makro-Skripte\n"
     "   auf die Festplatte installiert werden soll."))

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

(message #Begruessung)
(welcome)

(
   (set @default-destdir
      (askdir
         (prompt #Plattenverz)
         (help   #Platten-Hilfe)
         (default "Work:")
      )
   )
)

(set @default-dest (tackon @default-destdir "SF_Tools"))


(if                                          ; Verzeichnis erzeugen
    (= (exists @default-dest) 0)
        (makedir @default-dest
             (infos)
             (prompt "Schubladen werden eingerichtet")
        )
)


(makeassign "SF_Tools" @default-dest)

(onerror (cleanUp))

(if (= (exists "SF_Tools:Samples") 0)

    (makedir "SF_Tools:Samples"
        (prompt "Schubladen werden eingerichtet")
        (infos)
    )
)

(if (= (exists "SF_Tools:Einstellungen") 0)
    (makedir "SF_Tools:Einstellungen"
        (prompt "Schubladen werden eingerichtet")
        (infos)
    )
)

(if (= (exists "SF_Tools:Rexx") 0)
    (makedir "SF_Tools:Rexx"
        (prompt "Schubladen werden eingerichtet")
        (infos)
    )
)

(if (= (exists "SF_Tools:Makros") 0)
    (makedir "SF_Tools:Makros"
        (prompt "Schubladen werden eingerichtet")
        (infos)
    )
)

(if (= (exists "SF_Tools:Dokumente") 0)
    (makedir "SF_Tools:Dokumente"
        (prompt "Schubladen werden eingerichtet")
        (infos)
    )
)


(askdisk
    (prompt "\n\n\nBitte legen Sie die Diskette \"Siegfried ALPHA Demo\" ein!")
    (help #Plattenverz)
    (dest "SiegfriedALPHADemo")
)


(complete 10)

(copyfiles
        (prompt "Kopiere Programmdatei ALPHADEMO")
        (help "Jetzt wird das Hauptprogramm kopiert")
        (source "SiegfriedALPHADemo:ALPHADEMO")
        (dest   "SF_Tools:")
    (infos)
)

(complete 50)


(copyfiles
     (prompt "Bitte Samples auswählen")
     (help #Sampleshelp)
     (source "SiegfriedALPHADemo:Samples")
     (dest "SF_Tools:Samples")
     (pattern "#?.8svx")
     (files)
     (confirm)
)
(complete 60)

(copyfiles
     (prompt "Bitte Beipieldokumente auswählen")
     (help #Dokumentehelp)
     (source "SiegfriedALPHADemo:Dokumente")
     (dest "SF_Tools:Dokumente")
     (pattern "#?.txt")
     (files)
     (confirm)
)
(complete 70)

(copyfiles
     (prompt "Bitte Rexx-Skripte auswählen")
     (help #Rexxhelp)
     (source "SiegfriedALPHADemo:Rexx")
     (dest "SF_Tools:Rexx")
     (pattern "#?.rexx")
     (files)
     (confirm)
)
(complete 80)

(copyfiles
     (prompt "Bitte Makro-Beispieldateien auswählen")
     (help #Makroshelp)
     (source "SiegfriedALPHADemo:Makros")
     (dest "SF_Tools:Makros")
     (pattern "#?.makro")
     (files)
     (confirm)
)
(complete 90)

(copyfiles
     (prompt "Kopiere Voreinstellungsdateien")
     (source "SiegfriedALPHADemo:Einstellungen")
     (dest "SF_Tools:Einstellungen")
     (pattern "#?")
)

(complete 100)

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

(exit)