/*                                                                    */
/* LCDmpega-notime v1.0 2001 by Bream                                */
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       */
/*                                                                    */
/* Tm ARexx scripta tulostaa Amplifierin tai Songplayerin tietoja   */
/* LCD-nytlle. Tm versio ei tulosta soitettua aikaa.              */
/*                                                                    */
/* VAATII: Lcdecho                                                    */
/*                                                                    */
/* HUOMIOTAVAA: SongPlayer ei vastaa ARexx kutsuihun levyoperaatioden */
/*              aikana. Amplifier vastaa ARexx kutsuihin aina.        */
/* AmigaAmp:ssa EI ole TAGID-tiedoille rexx-tukea.                    */
/*                                                                    */
/* HUOMAA, ett ohjelmasta on tehty mahdollisimman kevyt, mutta silti */
/*         kaunis. ARexx on muutenkin hidas kieli, joten turha ehto-  */
/*         jen mrittely on jtetty pois. Jos joskus knnn tmn   */
/*         assembleriksi, lisn kaikki herkut ja heitn Aminettiin   */
/*         (nimell LCDmpega.lha).                                    */
/*                                                                    */
/* Ohjelmassa on yksi mainittava bugi: Jos Amplifier tai SongPLayer   */
/* suljetaan kesken loopin ajon, seuraa siit yleens skriptan taha-  */
/* ton keskeytys. Tm johtuu siit, ett aikatiedot otetaan talteen  */
/* juuri ennen tekstin kirjoitusta LCD:lle. Jos skriptan keskeytymi-  */
/* nen on harmillista, kannattaa kytt LCDmpega-notime versiota.    */
/*                                                                    */
/* LCD lisilee ominpin vlilyntej tulostettavaan tekstiin, ja     */
/* siksi ohjelmassa on omituisia ehtoja ja vlilynnin lisyksi.     */

OPTIONS RESULTS

ADDRESS COMMAND
if show('P','AMPLIFIER.1') then do
  'LcdEcho TIME 200 "Welcome to LCDmpega!    Using: Amplifier"'
end
if show('P','SONGPLAYER.1') then do
  'LcdEcho TIME 200 "Welcome to LCDmpega!   Using: SongPlayer"'
end
'LcdEcho TIME 250 " "'   /* Nytt on 0.5s pimen bannerin jlkeen  */


do while 1



  /* Support for Amplifier (I used v1.54)  */

  if show('P','AMPLIFIER.1') then do
    ADDRESS AMPLIFIER.1

    GETTAGINFO STEM tag
    IF tag.ready = "1" then DO
      if tag.artist="" then tag.artist="Unknown Artist"
      if tag.title="" then tag.title="Unknown Title"
      store=length(tag.artist)
      tag.artist=left(tag.artist,19)' '
    end

    if tag.ready = "0" then DO
      tag.artist='Unknown Author      '
      tag.title ='Unknown Title'
    end

    /* Vaikka Amplifier olisi kynistetty, ei nytet kappaleen nime, jos */
    /* AMplifier on stopissa. Vapautetaan LCD silloin muille ohjelmille.   */
    PLAYSTATE
    if RESULT~=1 then do
      ADDRESS COMMAND
      'LcdEcho TIME 120 "'tag.artist||tag.title'"'
    end
  end



  /* Support for SongPlayer (I used 1.52)   */

  if show('P','SONGPLAYER.1') then do
    ADDRESS SONGPLAYER.1
    GET_STATE
    IF RESULT='PLAY' | RESULT='PAUSE' then do
      text=""
      GET_ARTIST
      if RESULT="" then RESULT="Unknown Author"
      store=length(RESULT)
      text=left(RESULT,19)' '
      GET_NAME        /* Songplayer ei koskaan anna tyhj kappaleen nime, vaan jos */
                      /* kappaleen nimi on tuntematon, tiedostonnimi palautetaan.    */
      text=text||RESULT
      ADDRESS COMMAND
      'LcdEcho TIME 200 "'text'"'	/* echo tll! */
    end
  end
ADDRESS COMMAND
'Wait 1'          /* Odotellaan sekunti ennen seuraavaa kierrosta  */
end
exit
