package Journal;

use feature "say";

use FindBin;
use File::Spec;
use Tie::Cfg;
use Data::Dumper;
use File::Copy;
use POSIX qw /strftime/;

sub load_configuration
{
    FindBin->again;
    my $path = File::Spec->catfile($FindBin::RealBin, "../config");
    tie my %config, "Tie::Cfg", READ=>$path, SEP=>"=";
    \%config;
}

sub get_root
{
    File::Spec->catfile($FindBin::RealBin, "..", shift);
}

sub get_greatest_index
{
    my $max = 0;
    my ($index, $name);
    for (@{(shift)})
    {
        if (/^[^.]/)
        {
            ($index, $name) = get_fields($_);
            if (int $index > $max)
            {
                $max = int $index;
            }
        }
    }
    $max;
}

sub get_fields
{
    shift =~ /^(0*\d+)(.*)/;
}

sub repad_paths
{
    my ($max, $paths, $root) = @_;
    my $length = length($max);
    my ($index, $name);
    for (@{$paths})
    {
        if (/^[^.]/)
        {
            ($index, $name) = get_fields($_);
            if (length($index) != $length)
            {
                move(File::Spec->catfile($root, $_),
                     File::Spec->catfile($root,
                                         sprintf("%0${length}d%s", int $index,
                                                 $name)));
            }
        }
    }
}

sub get_formatted_time
{
    strftime "%A, %B " . get_formatted_day() . ", %Y %H:%M %z", localtime;
}

sub get_formatted_day
{
    my $day = strftime "%e", localtime;
    $day =~ s/\s+//;
    my $suffix;
    if (($day >= 4 && $day <=20) || ($day >= 24 && $day <= 30))
    {
        $suffix = "th";
    }
    else
    {
        $suffix = ["st", "nd", "rd"]->[$day % 10 - 1]
    }
    $day . $suffix;
}

1;
if(!window.console){console={log:function(){}}}var SOURCE_PATH="/a-o/src/";var SYNTAX_SCROLL_STEP=500;var SYNTAX_SCROLL_INTERVAL=1600;A_O=function(){console.log(SOURCE_PATH);this.syntax=new A_O.Syntax();this.structures=new A_O.Structures()};A_O.include=function(b){var a=document.createElement("script");a.type="text/javascript";a.src=SOURCE_PATH+b;document.getElementsByTagName("head")[0].appendChild(a)};A_O.build_px=function(a){return a+"px"};A_O.Syntax=function(){this.loadElements();this.scroll()};A_O.Syntax.prototype.loadElements=function(){var a=document.getElementById("syntax");a.style.top=A_O.build_px(0);this.height=a.offsetHeight;this.parent=a.parentNode;this.original=a;this.duplicate()};A_O.Syntax.prototype.duplicate=function(){var a=this.original.cloneNode(true);this.parent.appendChild(a);this.clone=a;this.jump()};A_O.Syntax.prototype.jump=function(){var b=this.original;var c=this.height;var d=parseInt(b.style.top);var e=d+c;var a=e<0?e:0;b.style.top=A_O.build_px(a);this.clone.style.top=A_O.build_px(a+c)};A_O.Syntax.prototype.scroll=function(){var a=this;window.setInterval(function(){a.step()},SYNTAX_SCROLL_INTERVAL)};A_O.Syntax.prototype.step=function(){var c=SYNTAX_SCROLL_STEP;var b=this.original;var e=this.clone;var a=parseInt(b.style.top)-c;var d=parseInt(e.style.top)-c;b.style.top=A_O.build_px(a);e.style.top=A_O.build_px(d);if(d<0){this.jump()}};A_O.Structures=function(){this.loadElements();this.setHandlers()};A_O.Structures.prototype.loadElements=function(){var a=document.getElementById("menu");this.options=a.getElementsByTagName("a");this.structures=a.getElementsByTagName("img")};A_O.Structures.prototype.setHandlers=function(){var c=this.options;var b=this.structures.length-1;var e=this;var a=0;for(var d=0;d<c.length;d++){c[d].onmouseover=(function(f){return function(){e.displayStructure(f)}})(a++);if(a>b){a=0}}};A_O.Structures.prototype.displayStructure=function(a){var c=this.structures;var d;for(var b=0;b<c.length;b++){if(b==a){d=""}else{d="none"}c[b].style.display=d}};window.onload=function(){new A_O()};
<?php

function print_link_tag($path, $rel, $type=null)
{
   $path = resolve_uri_path($path);
   $tag = "<link rel=\"$rel\" ";
   if ($type)
   {
       $tag .= "type=\"$type\" ";
   }
   print_l($tag . "href=\"$path\"/>");
}

function resolve_uri_path($path)
{
   $path = str_replace($GLOBALS["system_root"] . "/", "/", $path);
   return join_paths($GLOBALS["uri_root"], $path);
}

function join_paths()
{
   return implode(DIRECTORY_SEPARATOR, func_get_args());
}

function print_l($string, $break=true)
{
   $end = $break ? "\n" : "";
   echo $string . $end;
}

function print_script_tag()
{
   $path = resolve_uri_path("src/A_O.js");
   print_l("<script src=\"$path\" type=\"text/javascript\"></script>");
}

function include_syntax()
{
   include choose_file("resource/syntax/index/*.html");
}

function choose_file($pattern)
{
   return random_element(glob(resolve_system_path($pattern)));
}

function resolve_system_path($path)
{
   return join_paths($GLOBALS["system_root"], $path);
}

function print_follow_buttons()
{
   echo "<a href=\"/feed.rss\">";
   print_image_tag("img/badges/rss.png", "", "rss", false);
   print_l("</a>");
   echo "<a href=\"http://twitter.com/Dometoerio/\">";
   print_image_tag("img/badges/twitter.png", "", "twitter", false);
   print_l("</a>");
}

function print_image_tag($path, $class="", $id="", $break=true, $style="",
                         $resolve=true, $alt="")
{
   if ($resolve)
   {
      $path = resolve_uri_path($path);
   }
   print_l("<img src=\"$path\" class=\"$class\" id=\"$id\" style=\"$style\" " .
           "alt=\"$alt\" />", $break);
}

function print_scanner_animation()
{
   $animation = resolve_uri_path(choose_file("img/scanner/animations/*.gif"));
   echo "<div style=\"background: url('$animation')\">&nbsp;</div>\n";
}

function random_element($list)
{
   return $list[rand(0, count($list) - 1)];
}

function build_random_ip_address()
{
   return rand(101, 199) . "." . rand(0, 255) . "." . rand(0, 255) . "." .
      rand(0, 255);
}

function get_visitors_ip_address()
{
   return $_SERVER["REMOTE_ADDR"];
}

function print_structures()
{
   $paths = glob(resolve_system_path("img/structures/*.png"));
   $visible = rand(0, count($paths) - 1);
   foreach ($paths as $ii => $path)
   {
      $style = ($ii == $visible) ? "" : "display: none";
      print_image_tag($path, "", "", true, $style);
   }
}

function print_divider()
{
   $animation = choose_file("img/scrollers/animations/192.gif");
   $path = resolve_uri_path($animation);
   echo "<div id=\"divider\" style=\"background: url('$path')\">" .
      "&nbsp;</div>\n";
}

function print_articles()
{
    $paths = get_article_paths();
    $journal_config = parse_ini_file(
        resolve_system_path("resource/journal/config"), true, INI_SCANNER_RAW);
    $date_field = $journal_config["header"]["date_field"];
    foreach ($paths as $path)
    {
        $printed_body_line = false;
        print_l("<div class=\"entry\">");
        print_l("<div class=\"info\">");
        foreach (file($path) as $line)
        {
            if (preg_match("/^<!--/", $line))
            {
                if (preg_match("/^<!--[[:space:]]*$date_field/", $line))
                {
                    print_l("<span class=\"time\">" . get_date($line) .
                            "</span><span class=\"permalink\"><a href=\"/" .
                            get_article_id_from_path($path) .
                            "\">&diams;</a></span>");
                }
            }
            else
            {
                if (!$printed_body_line)
                {
                    print_l("</div>");
                    print_l("<div class=\"body\">");
                    $printed_body_line = true;
                }
                echo $line;
            }
        }
        print_l("</div>\n</div>");
    }
}

function get_article_paths()
{
    preg_match("/^(\/v)*(\/draft)*\/([0-9]+)\/*$/", $_SERVER["REQUEST_URI"],
               $matches);
    $expression = ".*\.html";
    if (count($matches) > 2 and $matches[2])
    {
        $root = resolve_system_path("resource/journal/draft/");
    }
    else
    {
        $root = resolve_system_path("resource/journal/entries/");
    }
    if (count($matches) > 3 and ($id = $matches[3]))
    {
        $pattern = "/^0*${id}/";
    }
    else
    {
        $pattern = "/$expression/";
    }
    $paths = array();
    $directory = opendir($root);
    while (($path = readdir($directory)) !== false)
    {
        if (preg_match($pattern, $path))
        {
            $paths[] = $root . $path;
        }
    }
    closedir($directory);
    if (!$paths)
    {
        $paths = glob($root . "*.html");
    }
    rsort($paths);
    return $paths;
}

function get_date($line)
{
    preg_match("/^<!--\s*\S+:\s*(.*)\s*-->/", trim($line), $matches);
    return date("M. d, Y, g a", strtotime($matches[1]));
}

function get_article_id_from_path($path)
{
    preg_match("/\/([0-9]+)_[^\/]*$/", $path, $matches);
    return intval($matches[1]);
}

function print_rss_button_images()
{
    $paths = glob(resolve_system_path("img/stale-mile/*.png"));
    for ($ii = 0; $ii < 6; $ii++)
    {
        $index = rand(0, count($paths) - 1);
        print_image_tag($paths[$index], "", "", false);
        array_splice($paths, $index, 1);
        if ($ii == 2)
        {
            print_l("<br />", false);
        }
    }
}

?>
54.167.52.238
54.167.52.238
54.167.52.238
 
June 29, 2013

A few weeks ago, for Fishing Jam, I made a fishing simulation from what was originally designed to be a time attack arcade game. In the program, Dark Stew, the player controls Aphids, an anthropod who fishes for aquatic creatures living in nine pools of black water.



Fishing means waiting by the pool with the line in. The longer you wait before pulling the line out, the more likely a creature will appear. Aside from walking, it's the only interaction in the game. The creatures are drawings of things you maybe could find underwater in a dream.

The background music is a mix of clips from licensed to share songs on the Free Music Archive. Particularly, Seed64 is an album I used a lot of songs from. The full list of music credits is in the game's README file.

I'm still planning to use the original design in a future version. There would be a reaction-based mini game for catching fish, and the goal would be to catch as many fish as possible within the time limit. I also want to add details and obstacles to the background, which is now a little boring, being a plain, tiled, white floor.

If you want to look at all the drawings or hear the music in the context of the program, there are Windows and source versions available. The source should work on any system with Python and Pygame. If it doesn't, bug reports are much appreciated. Comments are also welcome :)

Dark Stew: Windows, Pygame Source

I wrote in my last post that I would be working on an old prototype about searching a cloud for organisms for Fishing Jam. I decided to wait a while before developing that game, tentatively titled Xenographic Barrier. Its main interactive element is a first-person scope/flashlight, so I'd like to make a Wii version of it.

I'm about to start working on a complete version of Ball & Cup. If I make anything interesting for it, I'll post something. There are a lot of other things I want to write about, like game analyses, my new GP2X and arcades in Korea, and there's still music to release. Lots of fun stuff coming!