; **** START - MultiMediaAssignSkript für die Amiga-Future-CD-ROM ****
; **** Skript und Icons © Cord Hagen ****

IF EXISTS ENV:ASSAFCD
 SKIP WELCOME
ENDIF
 ALIAS BLACK "ECHO *"*E[>1m*E[30;41m*E[0;0H*E[J""
 BLACK
 ECHO "*n Die AMIGA-FUTURE-CD-ROM ist NICHT angemeldet."
 ECHO " Sie müssen erst mit -> QUICKSTART <- im Hauptverzeichnis dieser CD-ROM"
 ECHO " die AMIGA-FUTURE-CD anmelden, bevor Sie Mediashows starten !"
 CURSOR OFF
 WAIT 8
 SKIP ENDE
ENDIF
; *** V2.0 IF EXISTS S:AFCDTP
; *** SETENV AFCDTP=RAM:
; *** COPY S:AFCDTP TO ENV:AFCDTP >NIL:
; *** ENDIF
LAB WELCOME
ALIAS BLACK "ECHO *"*E[>1m*E[30;41m*E[0;0H*E[J""
; IF EXISTS ENV:AFCDTP
; BLACK
; SETENV AFCDCHK=0
; ECHO "*n Habe temporäre Datei einer AMIGA-FUTURE-CD-ROM auf der Festplatte"
; ECHO " im Verzeichnis : " $AFCDTP
; ECHO " gefunden. Eine erneute Installation temporärer Daten ist daher unnötig."
; CURSOR OFF
; WAIT 3
; REQUESTCHOICE >ENV:AFCDCHK "Future © Start""Sollen die gespeicherten temporären Daten*n nach DIESER CD-Sitzung wieder gelöscht werden ?" Ja Nein
;  IF $AFCDCHK EQ 0
;   SKIP SHOW
;  ENDIF
;  IF $AFCDCHK EQ 1
;   RENAME S:AFCDTP TO S:AFCDTPDEL >NIL:
;   BLACK
;   ECHO "*n Nach DIESER CD-Sizung MUSS UNBEDINGT die CD-ROM mit EXIT beendet werden,"
;   ECHO " Dann wird auch die temporäre Datei automatisch von der Festplatte gelöscht !"
;   CURSOR OFF
;   WAIT 8
;   ENDIF

BLACK
SETENV CDTDIR=RAM:
SETENV AFCDCHK=0
CD $CDTDIR
BLACK
ECHO "*n Für die Introshow müssen temporäre Daten auf die Festplatte installiert werden !"
ECHO " Anschließend werden diese Daten wieder entfernt !"
CURSOR OFF
WAIT 5
RUN >NIL: PLAY16 SFX:TMP.WAV
WAIT 2
REQUESTFILE DRAWERSONLY NOICONS TITLE "Future © Start - Wähle Verzeichnis ...." > ENV:CDTDIR
CD $CDTDIR
ASSIGN AFCDT: "" ADD
BLACK
ECHO "*n Installiere temporäre Dateien in das ausgewählte Verzeichnis ...."
ECHO " " $CDTDIR
CURSOR OFF
REQUESTCHOICE >ENV:AFCDCHK "Future © Start""Darf ich jetzt temporäre Daten in das ausgewählte*nVerzeichnis installieren ?*n(maximal 20 MegaByte) Alle temporären Daten werden hinterher*nwieder gelöscht ! - Soll nun installiert werden ?" Ja Nein
IF $AFCDCHK EQ 0
 SKIP ABBRUCH
ENDIF
ECHO "  Einen Moment Geduld bitte ....."
COPY SFX:Title.wav TO AFCDT:AFCDTSFXTITLE.TMP >NIL:
BLACK
ECHO "*n Temporäre Daten wurden erfolgreich installiert in das Verzeichnis ...."
ECHO " " $CDTDIR
CURSOR OFF
WAIT 6
; REQUESTCHOICE >ENV:AFCDCHK "Future © Start""Soll die temporäre Datei nach der CD-Sitzung NICHT wieder gelöscht werden ?*nDer Pfad wird dann gespeichert und beim nächsten Aufruf von START*nbrauchen diesse Daten NICHT erneut installiert werden*n(Empfohlen bei sehr großer freier Speicherkapazität auf der Festplatte.) - Soll die temporäre Datei*nfür spätere CD-Sitzungen auf der Festplatte bestehen bleiben ?" Ja Nein
; IF $AFCDCHK EQ 0
; SETENV AFCDTEMP=DELETE
; SKIP SHOW
; ENDIF
; ECHO $CDTDIR > S:AFCDTP


LAB SHOW
BLACK
ECHO "*n Show wird gestartet ...."
CURSOR OFF
WAIT 1
C:BOOPS!
BLACK
ECHO "*n Herzlich Willkommen in der neuen AMIGA-FUTURE-CD-ROM !"
ECHO "*n Titelmusik wird gestartet ...."
RUN >NIL: PLAY16 AFCDT:AFCDTSFXTITLE.TMP L=3
WAIT 5
ECHO "*n Kopiere Daten ...."
COPY SFX:W1.WAV TO RAM:T/W1.WAV
SETENV AFCDCHK=SFX
STATUS COM=PLAY16 >ENV:AFCDCHK
WAIT 1
ECHO "*n Zeige Grafikshow ...."
RUN >NIL: VT GFX:#? DELAY=9
WAIT 1
PLAY16 RAM:T/W1.WAV >NIL:
COPY SFX:W2.WAV TO RAM:T/W1.WAV
PLAY16 RAM:T/W1.WAV >NIL:
BLACK
DELETE RAM:T/W1.WAV >NIL:
ECHO "*n ShowEnde und Assigns angelegt !"
ECHO " Viel Spaß mit unserer neuen AMIGA-FUTURE-CD-ROM !"
CURSOR OFF
BREAK $AFCDCHK
PLAY16 SFX:AFS.WAV >NIL:
ECHO " Temporäre Daten werden entfernt - Bitte warten ...."
DELETE AFCDT:AFCDTSFXTITLE.TMP >NIL:
BLACK
ECHO "*n Fenster wird geschlossen ...."
WAIT 1
SKIP ENDE

LAB TCHK
IF EXISTS ENV:AFCDTEMP
 CD $CDTDIR
 BLANK
 ECHO "*n Lösche temporäre Daten ....."
 ECHO " Einen Moment Geduld bitte ....."
 CURSOR OFF
 DELETE AFCDTSFXTITLE.TMP >NIL:
 BLACK
 ECHO "*n Temporäre Daten der AMIGA-FUTURE-CD-ROM wurden erfolgreich gelöscht !"
 CURSOR OFF
 RUN >NIL: PLAY16 SFX:AFS.WAV
 WAIT 8
ENDIF
SKIP ENDE

LAB ABBRUCH
 BLACK
 ECHO "*n Die Multimedia-Introshow kann leider nicht gestartet"
 ECHO " werden, da nicht genügend Kapazität für temporäre Daten zur Verfügung steht !"
  CURSOR OFF
 RUN >NIL: PLAY16 SFX:AFS.WAV
 WAIT 10
ENDIF
SKIP ENDE


LAB ENDE















LAB ENDE