AAAAAAAAAAAAAAAAAAAAAAAAA
//
//    Draws a door.  Don't overlap for .pov to look right.
//    $direction = <u>"R"</u>, <u>"D"</u> right or down.
//    $length = <u>"1-12"</u> pixel spaces.
//
function door($image, $length, $direction, $scale, $x, $y)
{
    $edge=ImageColorAllocate($image,160,160,150);
    $x=$x*$scale;
    $y=$y*$scale;
    if ($direction == "R") {
        ImageFilledRectangle($image, $x, $y,
        $x+($scale*$length), $y+$scale, $edge);
    } else {
        ImageFilledrectangle($image, $x, $y,
        $x+$scale, $y+($scale*$length), $edge);
    }
}
BBBBBBBBBBBBBBBBBBBBBBBBBBBB
if ($PObj=="door") {
    $a=fopen("./files/$pfilez", "a");
    if ($PDir == "D") $PDir = "D";
    if ($PDir == "R") $PDir = "R";
    $xp= "<?php " . $PObj . "($" . "image,";
    $xp .=  $PLen . ',"' . $PDir . '",';
    $xp .= '$scale,';
    $xp .=  $xx . "," . $yy . "); ?>\n";
    fwrite($a, $xp);
    fclose($a);
}
CCCCCCCCCCCCCCCCCCCCCCCC
function door($image,$length,$direction,$scale,$x,$y)
{
global $floor;
global $twall;
global $tfoundation;
global $zz;
if ($direction == "R") {
    $a = "box{<";
    $a .= $x . "," . (0+$floor) . ",";
    $a .= $y  . "><";
    $a .= $x+$length;
    $a .= "," . (1+$floor) . ",";
    $a .= $y+1;
    $a .= "> $tfoundation}\n";
    fwrite($zz,$a);
    fwrite($zz,"difference {\n");
    $a = "box{<";
    $a .= $x . "," . (1+$floor) . ",";
    $a .= $y+.45  . "><";
    $a .= $x+$length;
    $a .= "," . (8+$floor) . ",";
    $a .= $y+.55;
    $a .= "> texture{T_Wood10}}\n";
    fwrite($zz,$a);
    $a = "box{<";
    $a .= $x+.2 . "," . (5+$floor) . ",";
    $a .= $y+.45  . "><";
    $a .= $x+$length-.2;
    $a .= "," . (7.5+$floor) . ",";
    $a .= $y+.55;
    $a .= "> texture {T_Glass3}} }\n";
    fwrite($zz,$a);
    $a = "box{<";
    $a .= $x . "," . (8+$floor) . ",";
    $a .= $y  . "><";
    $a .= $x+$length;
    $a .= "," . (9+$floor) . ",";
    $a .= $y+1;
    $a .= "> $twall}\n\n";
    fwrite($zz,$a);
} else {
    $a = "box{<";
    $a .= $x . "," . (0+$floor) . ",";
    $a .= $y  . "><";
    $a .= $x+1;
    $a .= "," . (1+$floor) . ",";
    $a .= $y+$length;
    $a .= "> $tfoundation}\n";
    fwrite($zz,$a);
    fwrite($zz,"difference {\n");
    $a = "box{<";
    $a .= $x . "," . (1+$floor) . ",";
    $a .= $y  . "><";
    $a .= $x+1;
    $a .= "," . (8+$floor) . ",";
    $a .= $y+$length;
    $a .= "> texture{T_Wood10}}\n";
    fwrite($zz,$a);
    $a = "box{<";
    $a .= $x+.45 . "," . (5+$floor) . ",";
    $a .= $y+0.2 . "><";
    $a .= $x+.55;
    $a .= "," . (7.5+$floor) . ",";
    $a .= $y+$length-0.2;
    $a .= "> texture {T_Glass3}}\n } \n";
    fwrite($zz,$a);
    $a = "box{<";
    $a .= $x . "," . (8+$floor) . ",";
    $a .= $y  . "><";
    $a .= $x+1;
    $a .= "," . (9+$floor) . ",";
    $a .= $y+$length;
    $a .= "> $twall}\n\n";
    fwrite($zz,$a);
}
}
DDDDDDDDDDDDDDDDDDDDDDDD
$inthemenu = "yes";
$dirlist= array("D","R");
$lenlist= array("1","2","3","4","5","6","8","10","12","14");
$txtitem="";
EEEEEEEEEEEEEEEEEEEEEEEEEEEEE