;
; Installer-Script für Schlachtfeld 1.1
; 
;    Autor     : Peter Weigoldt
;    Version   : 1.1
;    Datum     : 19.04.1998
;
;    $VER: Install 1.1 (19.04.1998)
;
;**************************************************

(set @user-level 1)


(set #askdir1 (cat "Wohin soll das Spiel kopiert werden?\n"
"Ein Verzeichnis 'Schlachtfeld' wird angelegt."))

(set #diskeinlegen (cat "Bitte eine Diskette in Laufwerk DF0: einlegen\n"
"(Diskette muß nicht formatiert sein).\n\n"
"Achtung, alle Daten auf dieser Diskette werden gelöscht!!!"))

(set #sorry (cat "Kann 'SYS:System/Format' bzw. 'C:Install'\n"
"nicht auf Deiner Festplatte finden.\n"
"Diese zwei Dateien brauche ich aber zum Anlegen der Startdisk.\n"
"Ich mache trotzdem weiter mit Kopieren..."))

;**************************************************


(complete 0)

(set SelectedAktion
     (askchoice
        (help @askchoice-help)
        (prompt "Art der Installation wählen")
        (choices "Installation auf Festplatte"
         "Spieldiskette erstellen")
     )
)

(complete 5)
     
   (if (= SelectedAktion 0)
   (      (set #name
               (askdir
                    (prompt #askdir1)
                    (help @askdir-help)
                    (default "SYS:")
               )
          )

          (set #Dname (tackon #name "Schlachtfeld"))

          (makedir #Dname
          (infos)
          )
     
     (complete 10)   

     (copyfiles 
          (source "")
          (dest #Dname)
          (pattern "~(install#?|s|c|libs|fonts)")
          (prompt "kopiere Dateien")
          (help @confirm-help)
          (confirm)
     )
     

     (complete 90)
     
     (copyfiles
          (source "fonts")
          (dest "FONTS:")
          (pattern "#?")
          (prompt "kopiere Zeichensatz")
          (help @confirm-help)
          (confirm)
        
     )
     
     (complete 100)
     (message "Installation erfolgreich beendet.\n"
     "Das Spiel befindet sich im Verzeichnis '"#Dname"'.\n\n"
     "Viel Vergnügen auf dem Schlachtfeld!")
     (exit (quiet))
    
     
          
     
    )     
     

 (if (= SelectedAktion 1)
 
 (
     (message #diskeinlegen)
    
     (working "Formatiere Disk in DF0:")     
     (if (exists 'SYS:System/Format' (noreq))   
          (run 'sys:system/format DRIVE=df0: NAME=Schlachtfeld')
          (message #sorry)
     )
 
     (complete 45)
     
     (working "Installiere Bootblock")
     (if (exists 'C:Install' (noreq))   
          (run 'c:install df0:')
          (message #sorry)
          
     )
        
    (complete 50)
    
    (working "Kopiere Dateien...")
    
    (copyfiles 
          (source "")
          (dest "df0:")
          (pattern "~(install#?)")
          (prompt "kopiere Dateien...")
          (help @confirm-help)
          (confirm)
     )
     
     (complete 90)
     (copyfiles
          (source "LIBS:diskfont.library")
          (dest "df0:libs")
          (prompt "kopiere Dateien...")
          (help @confirm-help)
          (confirm)
     )
     
     (complete 95)
     (copyfiles
          (source "LIBS:mathtrans.library")
          (dest "df0:libs")
          (prompt "kopiere Dateien...")
          (help @confirm-help)
          (confirm)
     )     
     
     (complete 99)     
     (copyfiles
          (source "C:assign")
          (dest "df0:c")
          (prompt "kopiere Dateien...")
          (help @confirm-help)
          (confirm)
     )     
                    
     (complete 100)
     (message "Installation erfolgreich beendet.\n"
     "Du bist jetzt stolzer Besitzer einer neuen Spieldiskette.\n\n"
     "Viel Vergnügen auf dem Schlachtfeld!")
     (exit (quiet))
    
 )


))