<?php

define('THEMES_ROOT', dirname(__FILE__) . '/themes/');

$theme = 'default';
$seed = false;
$size = 120;

if (isset($_GET['seed']))
    $seed = $_GET['seed'];

if (!empty($_GET['size']) && is_numeric($_GET['size']))
    $size = (int)$_GET['size'];

if (!empty($_GET['theme']) && preg_match('!^[a-z0-9_-]+$!i', $_GET['theme'])
    && file_exists(THEMES_ROOT . $_GET['theme'] . '/theme.ini'))
{
    $theme = $_GET['theme'];
}

build_monster($theme, $seed, $size);

function img_error()
{
    echo "Error\n";
    exit;
}

function build_monster($theme='default', $seed=false, $resize=false)
{
    // init random seed
    if($seed)
    {
        $seed = hexdec(substr(md5($seed), 0, 6));
        mt_srand($seed);
    }

    $theme_path = THEMES_ROOT . $theme . '/';
    $config = parse_ini_file($theme_path . 'theme.ini');

    // throw the dice for body parts
    $parts = array();

    if (!empty($config['nb_parts_legs']))
        $parts['legs'] = mt_rand(1, $config['nb_parts_legs']);

    if (!empty($config['nb_parts_hair']))
        $parts['hair'] = mt_rand(1, $config['nb_parts_hair']);

    if (!empty($config['nb_parts_arms']))
        $parts['arms'] = mt_rand(1, $config['nb_parts_arms']);

    if (!empty($config['nb_parts_body']))
        $parts['body'] = mt_rand(1, $config['nb_parts_body']);

    if (!empty($config['nb_parts_eyes']))
        $parts['eyes'] = mt_rand(1, $config['nb_parts_eyes']);

    if (!empty($config['nb_parts_mouth']))
        $parts['mouth'] = mt_rand(1, $config['nb_parts_mouth']);

    if (!empty($config['max_size']))
        $size = (int) $config['max_size'];
    else
        $size = 120;

    // create backgound
    $monster = imagecreatetruecolor($size, $size) or img_error();
    $white   = imagecolorallocatealpha($monster, 0, 0, 0, 127);
    imagefill($monster, 0, 0, $white);

    // add parts
    foreach($parts as $part => $num)
    {
        $file = $theme_path . $part . '_' . $num . '.png';

        $im = imagecreatefrompng($file);

        if(!$im)
            img_error();

        imageSaveAlpha($im, true);
        imagecopy($monster, $im, 0, 0, 0, 0, 120, 120);
        imagedestroy($im);

        // color the body
        if($part == 'body' && !empty($config['random_body_color']))
        {
            $color = imagecolorallocate($monster, mt_rand(20,235), mt_rand(20,235), mt_rand(20,235));
            imagefill($monster, 60, 60, $color);
        }
    }

    // restore random seed
    if($seed)
    {
        mt_srand();
    }

    // resize if needed, then output
    if($resize && $resize < 400 && $resize >= 10)
    {
        $out = @imagecreatetruecolor($resize, $resize)
            or img_error();

        imagealphablending($out, false);
        imagesavealpha($out, true);
        imagecopyresampled($out, $monster, 0, 0, 0, 0, $resize, $resize, $size, $size);

        header("Content-type: image/png");
        imagepng($out);
        imagedestroy($out);
        imagedestroy($monster);
    }
    else
    {
        header("Content-type: image/png");

        imagealphablending($monster, false);
        imagesavealpha($monster, true);
        imagepng($monster);
        imagedestroy($monster);
    }
}

?>