#!/usr/bin/php4

<?
//* 
//    This is a pretty dirty hack to echo .blm movies to /dev/lcd
//    It works for me, could work for you, too.
//    
//    Author:  CaScAdE@mylifesucks.de
//    License: GPL v2
//*

$moviedir = "movies"; // no / in the end!!!
$mode 	  = "invers"; // normal or invers, aktually invers is like blinkenlight ment to be, everything dark exept the pixel you want
$speeddiv = 5; // because of lcdmod's time to voncert stuff we lower the sleeptime

// Define a function for output
function talklcd( $data ) {
    $lcddata = "echo -en \"$data\" > /dev/lcd";
    exec($lcddata);
};

if ($mode == "invers") {
    // Teach Clearchat (works better than clearblock)
    $cleanchar = "\\006";
    // Teach Clearblock (3):
    talklcd("\\033[R3\\000\\000\\000\\000\\000\\000\\000\\000");
    // Teach Fullblock (6):
    talklcd("\\033[R6\\037\\037\\037\\037\\037\\037\\037\\037");
    // Teach Upblock (2):
    talklcd("\\033[R2\\037\\037\\037\\037\\000\\000\\000\\000");
    // Teach Downblock (1):
    talklcd("\\033[R1\\000\\000\\000\\000\\037\\037\\037\\037");
}
else {
    // Teach Clearchat (works better than clearblock)
    $cleanchar = " ";
    // Teach Clearblock (6):
    talklcd("\\033[R6\\000\\000\\000\\000\\000\\000\\000\\000");
    // Teach Fullblock (3):
    talklcd("\\033[R3\\037\\037\\037\\037\\037\\037\\037\\037");
    // Teach Upblock (1):
    talklcd("\\033[R1\\037\\037\\037\\037\\000\\000\\000\\000");
    // Teach Downblock (2):
    talklcd("\\033[R2\\000\\000\\000\\000\\037\\037\\037\\037");
};

// Set Clearscreen:
$clear =  "\\033[J\\033[H ";

// Set Newline:
$newline = "\\r\\n";

// Set Mov Cursor to upper left corner
$start =  "\\033[Y\\037\\037 ";

// Clean LCD before doing any output
talklcd($clear);

// Get list of movies
$handle = opendir($moviedir);
while (($file = readdir($handle)) != '') {
    if ($file != "." && $file != ".." && ereg(".blm",$file)) {
         $alblist[] = $file;
      };
};
//$alblist[] = "be_happy.blm";
is_array($alblist) and sort($alblist);
$movie_all = sizeof($alblist);
echo "found $movie_all movies\n";
for ($i = 2 ; $i >= 1 ;) {
    $nr = rand(0,(sizeof($alblist)-1));
    $movie = file($moviedir."/".$alblist[$nr]);
    echo "playing movie ".($nr+1)." of $movie_all: $moviedir/$alblist[$nr]\n";
    for ($i=0; $i <= sizeof($movie); $i++) {
	if (substr($movie[$i],0,1) == "@") {
	    $wait = substr($movie[$i],1);
	    //talklcd($clear);
	    talklcd($start);
		$out = "";
		for ($y=1; $y <= 7;	$y++)  {
		    $line = ""; // we have 20 not 18 per line but do not need to ad a space??
		    $zeile = $i + $y;
		    //echo "$zeile || ";
			for ($x=0; $x<=17; $x++) {
			$pos = $x;
			$oben = substr($movie[($zeile)],$pos,1);
			$unten = ereg_replace("1","2",substr($movie[($zeile+1)],$pos,1));
			if ($oben == 0 && $unten == 00)  $char = $cleanchar;
			else $char = "\\00".ereg_replace("0","6",($oben + $unten));
			$line .= $char;
		        
	    	    };
		    if ($y <= 5) $out .= $line."\\r\\n ";
		    else $out .= $line;
		    //talklcd($line);
		    $y++;
		};
		talklcd($out); //<-- der geht
	};
	if ($wait >= $speeddiv) {
	    $wait = ($wait-$speeddiv);
	    //echo $wait."\n";
	};
	usleep($wait);
    };
};

?>