; **** Diashow der Screenshots in der AMIGA-FUTURE - Skript © Cord Hagen ****

; Diashow "AMIGA-FUTURE-Screenshots"

ALIAS BLACK "ECHO *"*E[>1m*E[30;41m*E[0;0H*E[J""
IF EXISTS ENV:ASSAFCD
 SKIP SHOW
ENDIF
BLACK
ECHO "*n Die AMIGA-FUTURE-CD-ROM ist NICHT angemeldet."
ECHO " Starten Sie bitte zunächst -> QUICKSTART <- im Hauptverzeichnis dieser CD-ROM."
ECHO " Erst danach können Sie Medienshows starten ...."
WAIT 8
SKIP ENDE
LAB SHOW
SETENV AFCDCHK=0
SETENV SCRDIR=99

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

; SETENV SCRDIR=DRAWER ;in SCR:

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

IF $SCRDIR EQ 99
ASSIGN FPTARGET: ""
ENDIF

REQUESTCHOICE >ENV:AFCDCHK TITLE "Future © Show""Mit welchem Bildanzeiger sollen*ndie Bilder angezeigt werden ?" FastView ViewTek CyberView MysticView MultiView Abbrechen

IF $AFCDCHK EQ 0
 SKIP ENDE
ENDIF

IF $AFCDCHK EQ 1
 IF $SCRDIR EQ 99
  RUN >NIL: FV #?
  SKIP ENDE
 ENDIF
 RUN >NIL: FV SCR:$SCRDIR/#?
 SKIP ENDE
ENDIF

IF $AFCDCHK EQ 2
 IF $SCRDIR EQ 99
  RUN >NIL: VT #?
  SKIP ENDE
 ENDIF
 RUN >NIL: VT SCR:$SCRDIR/#?
 SKIP ENDE
ENDIF

IF $AFCDCHK EQ 3
 IF $SCRDIR EQ 99
  RUN >NIL: CV #?
  SKIP ENDE
 ENDIF
 RUN >NIL: CV SCR:$SCRDIR/#?
 SKIP ENDE
ENDIF

IF $AFCDCHK EQ 4
 IF $SCRDIR EQ 99
  BLACK
  ECHO "*n INFO: In MysticView werden Bilder am bequehmsten mit der Leertaste"
  ECHO " weitergeschaltet ....."
  CURSOR OFF
  WAIT 3
  RUN >NIL: MY #?
  SKIP ENDE
 ENDIF
  BLACK
  ECHO "*n INFO: In MysticView werden Bilder am bequehmsten mit der Leertaste"
  ECHO " weitergeschaltet ....."
  CURSOR OFF
  WAIT 3
 RUN >NIL: MY SCR:$SCRDIR/#?
 SKIP ENDE
ENDIF

IF $AFCDCHK EQ 5
 IF $SCRDIR EQ 99
  RUN >NIL: MV #?
  SKIP ENDE
 ENDIF
 RUN >NIL: MV SCR:$SCRDIR/#?
 SKIP ENDE
ENDIF

LAB ENDE
SETENV AFCDCHK=0
SETENV SCRDIR=0
IF EXISTS ENV:ASSAFCD
RUN >NIL: PLAY16 SFX:Click.WAV
ENDIF
ENDCLI