/*
**  $VER: showExtraData.abx 01.50 (13.09.95) © Aris Basic 1995
**
**
**  PROGRAMNAME:
**      showExtraData.abx
**
**  FUNCTION:
**      Show Extra Datas Specifed in Comment
**
**      This Macro Needs Some Sort of Viewer for Text,Guide,Picture,Sound and Player
**      for MOD Files like are MultiView (© Commodore Amiga Inc.)
**      and DeliTracker2 (© Delirium Softdesign)
**
**  $HISTORY:
**
**   14.02.95 : 01.00 : initial release
**   13.09.95 : 01.50 : addapted to ABook 01.00
**
*/

CALL main()

/*
** Funktion Play MOD For DeliTracker2
*/
PROCEDURE play :
PARSE ARG filename
IF ~Show('P','DELITRACKER') THEN DO
                                 'REQUESTRESPONSE PROMPT="Kann DeliTracker nicht finden" TITLE="FEHLER" BUTTON="_OK"'
                                 EXIT 10
END
oldadres=ADDRESS()
ADDRESS 'DELITRACKER'
'PLAYMOD 'filename
ADDRESS VALUE oldadres
RETURN 0
/*
*/

main:

/*
** Commands for Viewing
*/
textshow='RUN >NIL: MultiView '
picshow='RUN >NIL: MultiView '
guideshow='RUN >NIL: Multiview '
/*
*/

OPTIONS RESULTS
IF ~Show('P','ADDRESS_BOOK.1') THEN DO
    Say "Address Book ist nicht gestartet!"
                                    
END
ADDRESS 'ADDRESS_BOOK.1'
'LOCKGUI'
'FIRST SELECTED'
lock=RESULT
ret=RC
'UNLOCKGUI'
IF ret=5 THEN DO
             IF ~Show('P','ABOOK_SERVER') THEN DO
                                               'REQUESTRESPONSE PROMPT="Kein Eintrag selektiert!" TITLE="FEHLER" BUTTON="_OK"'
                                               EXIT 10
             END
             CALL server()
END
main2:
'LOCK 'lock
'QUERY STEM='DATA.
koment=DATA.USER
platz=POS(';@',koment)
IF platz=0 THEN DO
                'REQUESTRESPONSE PROMPT="Keine externen Daten im Eintrag!" TITLE="FEHLER" BUTTON="_OK"'
                EXIT 10
END
cmd=SUBSTR(koment,platz+2)
ccmd=WORD(cmd,1)
data=WORD(cmd,2)
SELECT
      WHEN ccmd='PICTURE' THEN ADDRESS COMMAND picshow||data
      WHEN ccmd='TEXT' THEN ADDRESS COMMAND textshow||data
      WHEN ccmd='GUIDE' THEN ADDRESS COMMAND guideshow||data
      WHEN ccmd='MOD' THEN play(data)
END

ende:
'UNLOCK 'lock
exit 0
server:
ADDRESS 'ABOOK_SERVER'
'SELECT STEM='VAR.
lock=VAR.1
IF lock="VAR.1" THEN Call ende()
CALL main2()