; Installations-Routine für Menus&More
; Aufruf vom Programm "Zuerst!.M&M" aus!
;
; $VER: InstallD.bat 2.01 (24.10.94) by Axel Sodtalbers
; $LANGUAGE: deutsch
;
; jetzt ohne AmigaGuide Installierung - brauchte zuviel Disk-Platz
;
;
; nichts ist fehlerlos...   ;-)


.key Target/A

Failat 20

IF NOT Exists "$MMPath"
  MMReq YESNO "Angegebenes Verzeichnis neu erstellen?"
  IF NOT ERROR
    MakeDir "$MMPath"
  ENDIF
ENDIF;

echo "*nZielverzeichnis <Target>M&M erstellen..."
Makedir "<Target>M&M"
Copy MM:Examples.info to "<Target>M&M.info" QUIET

echo "*nMenus & More Programme nach <Target>M&M kopieren..."
Copy MM:MMEditor        to "<Target>M&M" QUIET
Copy MM:MMEditor.info   to "<Target>M&M" QUIET
Copy MM:MMPlayer        to "<Target>M&M" QUIET
Copy MM:MMPlayer.info   to "<Target>M&M" QUIET
Copy MM:MMReq           to "<Target>M&M" QUIET
Copy MM:MMReq.info      to "<Target>M&M" QUIET
Copy MM:MMAnalyse       to "<Target>M&M" QUIET
Copy MM:MMAnalyse.info  to "<Target>M&M" QUIET
Copy MM:M&M.config.info to "<Target>M&M" QUIET
Copy MM:M&M.icon.info   to "<Target>M&M" QUIET
Copy MM:Zuerst!.M&M	to "<Target>M&M" QUIET
Copy MM:Zuerst!.M&M.info to "<Target>M&M" QUIET

Copy MM:deutsch/InstallD.bat	to "<Target>M&M" QUIET
Copy MM:deutsch/Bestellung.bat	to "<Target>M&M" QUIET
Copy MM:deutsch/Bestellung.txt	to "<Target>M&M" QUIET

echo "*nDokumentation nach <Target>M&M kopieren..."
Copy MM:M&M.guide#?     to "<Target>M&M" QUIET
Copy MM:M&M.guide	to "<Target>M&M/M&M.dok" QUIET ; falls kein AmigaGuide vorhanden ist
Copy MM:ReadMe.guide#?  to "<Target>M&M" QUIET

echo "*nBeispiele nach <Target>M&M kopieren..."
Copy MM:Examples       to "<Target>M&M/Examples" ALL QUIET
Copy MM:Examples.info  to "<Target>M&M" QUIET

echo "*nKataloge nach <Target>M&M kopieren..."
IF NOT Exists LOCALE:Catalogs/deutsch THEN
  echo "*e[32m*nInstallation der deutschen Kataloge zur Zeit NICHT möglich!*e[31m"
  echo "*e[32mBitte nachholen - sonst keine deutsche Oberfläche!*e[31m"
ELSE
  Copy MM:deutsch/MMEditor.catalog to LOCALE:Catalogs/deutsch QUIET
  Copy MM:deutsch/MMPlayer.catalog to LOCALE:Catalogs/deutsch QUIET
ENDIF

IF NOT Exists LIBS:asl.library
  MMReq YESNO "ASL.library nach LIBS: kopieren ?"
  IF NOT ERROR
    LAB WB1
    MMReq OKCANC "Bitte Original WB-Disk in DF0: einlegen !"
    IF NOT ERROR
      IF NOT exists df0:libs/asl.library
        Skip WB1 BACK
      ENDIF
    ELSE
      Copy df0:libs/asl.library TO LIBS: QUIET
    ENDIF
  ELSE
    echo "*e[32m*nInstallation von LIBS:asl.library bitte nachholen !*e[31m"
  ENDIF
ENDIF

IF NOT Exists LIBS:diskfont.library
  MMReq YESNO "diskfont.library nach LIBS: kopieren ?"
  IF NOT ERROR
    LAB WB2
    MMReq OKCANC "Bitte Original WB-Disk in DF0: einlegen !"
    IF NOT ERROR
      IF NOT exists df0:libs/diskfont.library
        Skip WB2 BACK
      ENDIF
    ELSE
      Copy df0:libs/diskfont.library TO LIBS: QUIET
    ENDIF
  ELSE
    echo "*e[32m*nInstallation von LIBS:diskfont.library bitte nachholen !*e[31m"
  ENDIF
ENDIF

IF NOT Exists LIBS:rexxsyslib.library
  MMReq YESNO "rexxsyslib.library nach LIBS: kopieren ?"
  IF NOT ERROR
    LAB WB3
    MMReq OKCANC "Bitte Original WB-Disk in DF0: einlegen !"
    IF NOT ERROR
      IF NOT exists df0:libs/rexxsyslib.library
        Skip WB1 BACK
      ENDIF
    ELSE
      Copy df0:libs/rexxsyslib.library TO LIBS: QUIET
    ENDIF
  ELSE
    echo "*e[32m*nInstallation von LIBS:rexxsyslib.library bitte nachholen !*e[31m"
  ENDIF
ENDIF

IF NOT Exists LIBS:AmigaGuide.library
  Echo "*e[32m*nACHTUNG! Kann LIBS:AmigaGuide.library nicht finden!*e[31m"
  Echo "*nBitte diese Datei noch in das LIBS: Verzeichnis kopieren!"
ENDIF


MMReq YESNO "Befindet sich Commodore ED im Verzeichnis C: ?"
IF ERROR
  LAB WB
  MMReq OKCANC "Bitte Original WB-Disk in DF0: einlegen !"
  IF NOT ERROR
    IF NOT exists df0:c/ed
      Skip WB BACK
    ELSE
      Copy df0:c/ed TO C: QUIET
    ENDIF
  ELSE
    echo "*e[32m*nInstallation von C:Ed bitte nachholen !*e[31m"
  ENDIF
ENDIF

MMReq YESNO "Soll »Assign MM: Ziel« Befehl in User-Startup eingefügt werden?"
IF NOT ERROR
  copy S:User-Startup to S:User-Startup.old	; sicherheitshalber...

  echo > T:Axel "Assign MM: *"<Target>M&M*"         ; für Menus & More"
  join T:Axel S:User-Startup TO T:Sodtalbers
  copy T:Sodtalbers to S:User-Startup QUIET
  delete T:Axel QUIET
  delete T:Sodtalbers QUIET
ELSE
  echo "*e[32m*n*nBitte vorher jeweils *"Assign MM: <Target>M&M*" eingeben"
  echo "oder in die User-Startup einfügen"
ENDIF

echo "*e[31m*n*n*nInstallation beendet - Fenster mit CTRL+\ schließen!"