#description: Block stairs

=comment

Standard "block" stairs, like stair_serf would make

=cut

configure(
{
 'Max stair height'=>.75,
},
{
 'base'=>$textures[0],
}
);

#$tx->{'base'} =  if defined($textures[0]);

#include 'stairs'

my $br;

my $z=0+(($h-$stairwidth)/2);
my $y=0-(($w+$stairwidth)/2);

for (; $numstairs>2; $numstairs--) {
 $z-=$stairheight;
 $y+=$stairwidth;
 $br=$bunch->addBrush(solid(), cube(), 0,$y,$z, $stairwidth,$l,$stairheight, $tl->texture($tx->{'base'}));
}

$z-=($stairheight+$laststairheight)/2;
$y+=$stairwidth;

$br=$bunch->addBrush(solid(), cube(), 0,$y,$z, $stairwidth,$l,$stairheight, $tl->texture($tx->{'base'}));


=comment

my $z = ($h-$stairheight)/2;
my $y = 0-(($w+$stairwidth)/2);

for (; $numstairs > 1; $numstairs--) {
 $z -= $stairheight;
 $y += $stairwidth;
 $br = $bunch->addBrush(solid, cube(), 0,$y,$z, $stairwidth,$l,$stairheight, $tl->texture($tx->{'base'}));
}
if ($extrastairheight > 0) { 
 $z -= (($stairheight+$extrastairheight)/2);
 $y += $stairwidth;
 $br = $bunch->addBrush(solid, cube(), 0,$y,$z, $stairwidth,$l,$extrastairheight, $tl->texture($tx->{'base'}));
}

=cut
