;****************************************************************************
;**** Eagleplayer Installations-Script zum Initialisieren auf Festplatte ****
;****************************************************************************

Echo "*n  ==================================================================="
Echo "  ================= Eagleplayer Installation Script ================="
Echo "  ==================================================================="
Echo "  Please Enter the Name of The Path where to put the Eagleplayer in"
Echo "  in the window above and press then the keys 'Ctrl' and '\'"
Echo "  together instead of the Return key *n"
Echo
Copy "CON:0/10/500/40/Please enter Path for Installation,end with CTRL-\" to Env:EagleInstall

;**********************************************************************
;**** Copieren der CLI-Befehle nach ENV: um Disk-Wechsel bei einem ****
;**** Diskettenlaufwerk zu vermeiden				   ****
;**********************************************************************
CD "Eagleplayer Disk 2:c/"
Copy Copy Env:
Env:Copy Echo Env:
Env:Copy CD Env:
Env:Copy If Env:
Env:Copy Endif Env:
Env:Copy MakeDir Env:
Env:Copy Else Env:
Env:Copy Delete Env:

Failat 21
 Env:If >nil: not exists <Env:Eagleinstall
  Env:Makedir <Env:Eagleinstall >nil: ?
 Env:Endif

Env:CD <Env:Eagleinstall >nil: ?


;*************************************************************
;**** Copieren des Hauptprogramms in den angegebenen Path ****
;*************************************************************
Env:Echo "++++ Now copying Eagleplayer Mainprogram ++++"

 Env:Copy "Eagleplayer MainDisk:Eagleplayer" to ""
 Env:Copy "Eagleplayer MainDisk:Eagleplayer.info" to ""
 Env:Echo "   EaglePlayer..copied"



;***********************************************************
;**** Copieren der Eagleplayers in den angegebenen Path ****
;***********************************************************
Env:echo "*n++++ Now copying Eagleplayers ++++"

 Env:MakeDir >nil: Eagleplayers
 Env:Echo "Eagleplayers (Dir) created"
 Env:Copy "Eagleplayer MainDisk:Eagleplayers" to Eagleplayers/ All
 Env:Copy "Eagleplayer MainDisk:Eagleplayers.info" to ""


;****************************************************************
;**** Copieren der User-Programme ins angegebene Verzeichnis ****
;****************************************************************
Env:Echo "*n++++ Now copying Eagleplayer-Userprograms ++++"

 Env:Makedir >nil: EP-Userprograms
 Env:Copy "Eagleplayer MainDisk:EP-Userprograms" to EP-Userprograms/ All
 Env:Copy "Eagleplayer MainDisk:EP-Userprograms.info" to ""


;******************************************************************
;**** Copieren der EaglePlayer-Docs ins angegebene Verzeichnis ****
;******************************************************************
Env:Echo "*n++++ Now copying Eagleplayer-Docs ++++"

 Env:Makedir >nil: Docs
 Env:Copy "Eagleplayer Disk 2:Docs/" to Docs/ All
 Env:Copy "Eagleplayer Disk 2:Docs.info" to ""


;**********************************************************************
;**** Copieren der EaglePlayer-Examples ins angegebene Verzeichnis ****
;**********************************************************************
;Env:Echo "*n++++ Now copying Eagleplayer-Examples ++++"
;
; Env:Makedir >nil: Developer
; Env:Copy "Eagleplayer Disk 2:Developer/" to Developer/ All
; Env:Copy "Eagleplayer Disk 2:Developer.info" to ""
;Env:Echo "*n++++ Now decruncing Eagleplayer-Examples ++++"
; Env:CD Developer/Examples
; Examples.run
; Env:Delete Examples.Run
; Env:CD /
; Env:CD /

;***************************************************************************
;**** Copieren der EaglePlayer-BonusPrograms ins angegebene Verzeichnis ****
;***************************************************************************
;Env:Echo "*n++++ Now copying Eagleplayer-Bonus-Programs ++++"
;
; Env:Makedir >nil: Bonus-Programs
; Env:Copy "Eagleplayer Disk 2:Bonus-Programs/" to Bonus-Programs/ All
; Env:Copy "Eagleplayer Disk 2:Bonus-Programs.info" to ""
;

;*************************************************************
;**** Copieren der SoundModule ins angegebene Verzeichnis ****
;*************************************************************
;Env:Echo "*n++++ Now copying SoundModules ++++"
;
; Env:Makedir >nil: Modules
; Env:Copy "Eagleplayer Disk 2:Modules/" to Modules/ All
; Env:Copy "Eagleplayer Disk 2:Modules.info" to ""
;

;*****************************************************
;**** Copieren der EaglePlayer-Prefs nach EnvArc: ****
;*****************************************************
Env:Echo "*n++++ Now copying Eagleplayer-Prefs ++++"

 Env:If >nil: exists EnvArc:
  Env:Makedir >nil: Envarc:Eagleplayer
  Env:Copy "Eagleplayer Disk 2:Prefs/Env-Archive/Eagleplayer/" to EnvArc:Eagleplayer/ All
 Env:Endif



;*******************************************************************
;**** Copieren der EaglePlayer-Include-Files nach Include:Misc/ ****
;*******************************************************************
;Env:Echo "*n++++ Now copying Eagleplayer-Include-File ++++"
;
; Env:If >nil: exists Include:Misc
;  Env:Copy "Eagleplayer Disk 2:Include/Misc/" to Include:Misc/ All
; Env:Endif
;

;******************************************
;**** Benutzten Hilfs-Kommandos löschen ****
;******************************************
Env:CD /
Env:Echo "*n++++ EaglePlayer-Install complett."

Env:Delete Env:Eagleinstall
Env:Delete Env:Echo
Env:Delete Env:Copy
Env:Delete Env:CD
Env:Delete Env:If
Env:Delete Env:Endif
Env:Delete Env:Else
Env:Delete Env:Makedir
Env:Delete Env:Delete

;******************************
;**** EagleInstall beendet ****
;******************************

Endcli