Is somebody interrested in this code to show the current Lyrics in track info (those wich are created with lyricmake) ?
i think it's nice: (and hope you understand the german settings ;-)
//______________\\
//LyRiC cOdE v.0.2\\
//---------------------\\
//_____________________________________
//Einstellungen:
//--------------------------------------------------------
$puts(Modus,1)
$puts(TextFarbe,$rgb(100,255,0))
$puts(RestFarbe,$rgb(180,220,0))
$puts(RestZeichen,~)
$puts(Text2Farbe,$rgb(255,200,0))
$puts(Lyrictag,$if2($meta(Lyric),$meta(Lyrics)))
//_____________________________________
//Programm:
//-------------------------------------------------------
//Lade Zeiten in Sekunden
$puts(vor0sec,%_time_elapsed_seconds%)
$puts(vor1sec,$sub(%_time_elapsed_seconds%,1))
$puts(vor2sec,$sub(%_time_elapsed_seconds%,2))
$puts(vor3sec,$sub(%_time_elapsed_seconds%,3))
$puts(vor4sec,$sub(%_time_elapsed_seconds%,4))
$puts(vor5sec,$sub(%_time_elapsed_seconds%,5))
$puts(vor6sec,$sub(%_time_elapsed_seconds%,6))
$puts(in1sec,$add(%_time_elapsed_seconds%,1))
$puts(in2sec,$add(%_time_elapsed_seconds%,2))
$puts(in3sec,$add(%_time_elapsed_seconds%,3))
$puts(in4sec,$add(%_time_elapsed_seconds%,4))
$puts(in5sec,$add(%_time_elapsed_seconds%,5))
$puts(in6sec,$add(%_time_elapsed_seconds%,6))
//Lade Zeiten
$puts(vor0,'['$num($div($get(vor0sec),60),2):$num($mod($get(vor0sec),60),2))
$puts(vor1,'['$num($div($get(vor1sec),60),2):$num($mod($get(vor1sec),60),2))
$puts(vor2,'['$num($div($get(vor2sec),60),2):$num($mod($get(vor2sec),60),2))
$puts(vor3,'['$num($div($get(vor3sec),60),2):$num($mod($get(vor3sec),60),2))
$puts(vor4,'['$num($div($get(vor4sec),60),2):$num($mod($get(vor4sec),60),2))
$puts(vor5,'['$num($div($get(vor5sec),60),2):$num($mod($get(vor5sec),60),2))
$puts(vor6,'['$num($div($get(vor6sec),60),2):$num($mod($get(vor6sec),60),2))
$puts(in1,'['$num($div($get(in1sec),60),2):$num($mod($get(in1sec),60),2))
$puts(in2,'['$num($div($get(in2sec),60),2):$num($mod($get(in2sec),60),2))
$puts(in3,'['$num($div($get(in3sec),60),2):$num($mod($get(in3sec),60),2))
$puts(in4,'['$num($div($get(in4sec),60),2):$num($mod($get(in4sec),60),2))
$puts(in5,'['$num($div($get(in5sec),60),2):$num($mod($get(in5sec),60),2))
$puts(in6,'['$num($div($get(in6sec),60),2):$num($mod($get(in6sec),60),2))
//Suche und wähle Anfang des Textes
$puts(TextAnfang,$if3(
$strstr($get(Lyrictag),$get(vor0)),
$strstr($get(Lyrictag),$get(vor1)),
$strstr($get(Lyrictag),$get(vor2)),
$strstr($get(Lyrictag),$get(vor3)),
$strstr($get(Lyrictag),$get(vor4)),
$strstr($get(Lyrictag),$get(vor5)),
$strstr($get(Lyrictag),$get(vor6)),
kein Text))
$puts(Text2Anfang,$if3(
$strstr($get(Lyrictag),$get(in1)),
$strstr($get(Lyrictag),$get(in2)),
$strstr($get(Lyrictag),$get(in3)),
$strstr($get(Lyrictag),$get(in4)),
$strstr($get(Lyrictag),$get(in5)),
$strstr($get(Lyrictag),$get(in6)),
kein Text))
//Berechne verbleibende Sekunden
$puts(nochsec,
$if($strcmp($get(Text2Anfang),$strstr($get(Lyrictag),$get(in1))),1)
$if($strcmp($get(Text2Anfang),$strstr($get(Lyrictag),$get(in2))),2)
$if($strcmp($get(Text2Anfang),$strstr($get(Lyrictag),$get(in3))),3)
$if($strcmp($get(Text2Anfang),$strstr($get(Lyrictag),$get(in4))),4)
$if($strcmp($get(Text2Anfang),$strstr($get(Lyrictag),$get(in5))),5)
$if($strcmp($get(Text2Anfang),$strstr($get(Lyrictag),$get(in6))),6))
//Erstelle Rest
$puts(Rest,
$repeat($get(RestZeichen),$get(nochsec)))
//Berechne verstrichene Spielzeit
$puts(schonsec,
$if($strcmp($get(TextAnfang),$strstr($get(Lyrictag),$get(vor1))),1)
$if($strcmp($get(TextAnfang),$strstr($get(Lyrictag),$get(vor2))),2)
$if($strcmp($get(TextAnfang),$strstr($get(Lyrictag),$get(vor3))),3)
$if($strcmp($get(TextAnfang),$strstr($get(Lyrictag),$get(vor4))),4)
$if($strcmp($get(TextAnfang),$strstr($get(Lyrictag),$get(vor5))),5)
$if($strcmp($get(TextAnfang),$strstr($get(Lyrictag),$get(vor6))),6))
//Berechne gesamtsec
$puts(gesamtsec,$add($get(schonsec),$get(nochsec)))
//Erstelle Text
$puts(Textbeta,
$insert($get(Lyrictag),,$add($get(TextAnfang),8)))
$puts(Text2beta,
$insert($get(Lyrictag),,$add($get(Text2Anfang),8)))
//Suche Ende
$puts(Text,$left($get(Textbeta),$sub($strstr($get(Textbeta),$char(10)),1)))
$puts(Text2,$left($get(Text2beta),$sub($strstr($get(Text2beta),$char(10)),1)))
//Inhalt Prüfen
$if($strcmp($get(TextAnfang),kein Text),
$puts(Text,))
$if($strcmp($get(Text2Anfang),kein Text),
$puts(Text2,))
//Berechne Schnitt
$puts(Schnitt,$mul($div($len($get(text)),$get(gesamtsec)),$get(schonsec)))
//Erstelle SchnittText
$puts(SchnittText,$insert($get(Text),,$get(Schnitt)))
//Inhalt prüfen
$puts(SchnittText,
$ifgreater($get(schonsec),0,
$insert($get(SchnittText),,$strstr($get(SchnittText), )),
$get(SchnittText)))
//Ausgabe
$select($get(Modus),
$get(TextFarbe)$get(Text)$char(10)
$get(RestFarbe)$get(Rest)$char(10)
$get(Text2Farbe)$get(Text2)
,
$if($strcmp($get(SchnittText),),$get(RestFarbe)$get(Rest),
$get(TextFarbe)$get(SchnittText))
' '$get(Text2Farbe)$get(Text2)
)
Want more Features?