weechat-scripts 20131007-1 / usr / share / weechat / perl / weetris.pl

#
# Copyright (C) 2008-2011 Sebastien Helleu <flashcode@flashtux.org>
# Copyright (C) 2009 drubin <drubin [@] smartcube [dot] co[dot]za>
# Copyright (C) 2010-2011 Trashlord <dornenreich666@gmail.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#

# Tetris game for WeeChat.
#
# History:
# 2011-02-28, Trashlord <dornenreich666@gmail.com>:
#     version 0.9: add playing time display
# 2010-10-08, Trashlord <dornenreich666@gmail.com>:
#     version 0.8: add best score and best level statistics
# 2009-12-17, Sebastien Helleu <flashcode@flashtux.org>:
#     version 0.7: add levels, fix bugs with pause
# 2009-12-16, drubin <drubin [@] smartcube [dot] co[dot]za>:
#     version 0.6: add key for pause, basic doc and auto jump to buffer
# 2009-06-21, Sebastien Helleu <flashcode@flashtux.org>:
#     version 0.5: fix bug with weetris buffer after /upgrade
# 2009-05-02, Sebastien Helleu <flashcode@flashtux.org>:
#     version 0.4: sync with last API changes, fix problem with key alt-n
# 2008-11-14, Sebastien Helleu <flashcode@flashtux.org>:
#     version 0.3: minor code cleanup
# 2008-11-12, Sebastien Helleu <flashcode@flashtux.org>:
#     version 0.2: hook timer only when weetris buffer is open
# 2008-11-05, Sebastien Helleu <flashcode@flashtux.org>:
#     version 0.1: first official version
# 2008-04-30, Sebastien Helleu <flashcode@flashtux.org>:
#     script creation

use strict;

my $version = "0.9";

my $weetris_buffer = "";
my $timer = "";
my $level = 1;
my $max_level = 10;

my ($nbx, $nby) = (10, 20);
my $start_y = 0;
my @matrix = ();

# -------------------------          -------------------------
# |     |     |     |     |          |     |     |     |     |
# |32768|16384| 8192| 4096|          |  8  | 128 | 2048|32768|
# |     |     |     |     |          |     |     |     |     |
# -------------------------          -------------------------
# |     |     |     |     |          |     |     |     |     |
# | 2048| 1024| 512 | 256 |          |  4  |  64 | 1024|16384|
# |     |     |     |     |  after   |     |     |     |     |
# -------------------------  rotate  -------------------------
# |     |     |     |     |   ===>   |     |     |     |     |
# | 128 |  64 |  32 |  16 |          |  2  |  32 | 512 | 8192|
# |     |     |     |     |          |     |     |     |     |
# -------------------------          -------------------------
# |     |     |     |     |          |     |     |     |     |
# |  8  |  4  |  2  |  1  |          |  1  |  16 | 256 | 4096|
# |     |     |     |     |          |     |     |     |     |
# -------------------------          -------------------------

my @items = (1024+512+64+32,    # O
             2048+1024+512+256, # I
             2048+1024+512+64,  # T
             2048+1024+512+128, # L
             2048+1024+512+32,  # J
             1024+512+128+64,   # S
             2048+1024+64+32,   # Z
             );
my @item_color = ("red", "blue", "brown", "green", "brown", "cyan", "magenta");
my @item_x_inc = (3, 2, 1, 0, 3, 2, 1, 0, 3, 2, 1, 0, 3, 2, 1, 0);
my @item_y_inc = (3, 3, 3, 3, 2, 2, 2, 2, 1, 1, 1, 1, 0, 0, 0, 0);
my @item_rotation = (4096, 256, 16, 1, 8192, 512, 32, 2, 16384, 1024, 64, 4, 32768, 2048, 128, 8); 

my $playing = 0;
my $paused = 0;
my $lines = 0;
my ($item_x, $item_y) = (0, 0);
my $item_number = 0;
my $item_form = 0;
my $title = "WeeTris.pl $version - enjoy!  |  Keys: arrows: move/rotate, alt-N: new game, alt-P: pause";
my $mlevel = 1;
my $mlines = 0;
my ($play_minutes, $play_seconds, $play_starting_time) = (0, 0, time()); # Indicates playing time.
my $total_seconds = time();
my $time_display_timer = "";

sub buffer_close
{
    $weetris_buffer = "";
    if ($timer ne "")
    {
        weechat::unhook($timer);
        $timer = "";
    }
    if (defined $time_display_timer)
    {
        weechat::unhook($time_display_timer);
        ($play_minutes, $play_seconds, $play_starting_time) = (0, 0, 0);
        $time_display_timer = undef;
    }
    weechat::print("", "Thank you for playing WeeTris!");
    return weechat::WEECHAT_RC_OK;
}

sub display_line
{
    my $y = $_[0];
    my $str = " │";
    if ($paused eq 1)
    {
        if ($y == $nby / 2)
        {
            my $paused = "  " x $nbx;
            my $index = (($nbx * 2) - 6) / 2;
            substr($paused, $index, 6) = "PAUSED";
            $str .= $paused;
        }
        else
        {
            $str .= "  " x $nbx;
        }
    }
    else
    {
        for (my $x = 0; $x < $nbx; $x++)
        {
            my $char = substr($matrix[$y], $x, 1);
            if ($char eq " ")
            {
                $str .= weechat::color(",default");
            }
            else
            {
                $str .= weechat::color(",".$item_color[$char]);
            }
            $str .= "  ";
        }
    }
    $str .= weechat::color(",default")."│";
    weechat::print_y($weetris_buffer, $start_y + $y + 1, $str);
}

sub weetris_display_playing_time
{
    $total_seconds = time() - $play_starting_time;
    $play_minutes = int($total_seconds / 60);
    $play_seconds = int($total_seconds % 60);
    $total_seconds++;
    $play_seconds = "0".$play_seconds if ($play_seconds < 10);
    $play_minutes = "0".$play_minutes if ($play_minutes < 10);
    weechat::print_y($weetris_buffer, $start_y + $nby + 6, " Playing time : $play_minutes:$play_seconds");
}

sub display_level_lines
{
    my $plural = "";
    my $dash = "-" x 22;
    $plural = "s" if ($lines > 1);
    my $str = sprintf(" Level %-3d %6d line%s", $level, $lines, $plural);
    weechat::print_y($weetris_buffer, $start_y + $nby + 2, $str);
    weechat::print_y($weetris_buffer, $start_y + $nby + 3, " $dash");
    weechat::print_y($weetris_buffer, $start_y + $nby + 4, " Highest level: $mlevel");
    weechat::print_y($weetris_buffer, $start_y + $nby + 5, " Max lines    : $mlines");
}

sub apply_item
{
    my $char = " ";
    $char = $item_number if ($_[0] eq 1);
    for (my $i = 0; $i < 16; $i++)
    {
        if (($item_form & (1 << $i)) > 0)
        {
            substr($matrix[$item_y + $item_y_inc[$i]], $item_x + $item_x_inc[$i], 1) = $char;
        }
    }
}

sub display_all
{
    apply_item(1);
    
    # bar on top
    weechat::print_y($weetris_buffer, $start_y, " ┌".("──" x $nbx)."┐");
    
    # middle
    for (my $y = 0; $y < $nby; $y++)
    {
        display_line($y);
    }
    
    # bottom bar
    weechat::print_y($weetris_buffer, $start_y + $nby + 1, " └".("──" x $nbx)."┘");
    
    apply_item(0);
}

sub new_form
{
    $item_number = int(rand($#items + 1));
    $item_form = $items[$item_number];
    $item_x = ($nbx / 2) - 2;
    $item_y = 0;
}

sub init_timer
{
    weechat::unhook($timer) if ($timer ne "");
    my $delay = 700 - (($level - 1) * 60);
    $delay = 100 if ($delay < 100);
    $timer = weechat::hook_timer($delay, 0, 0, "weetris_timer", "");
}

sub new_game
{
    weechat::print_y($weetris_buffer, $start_y + $nby + 2, "");
    for (my $y = 0; $y < $nby; $y++)
    {
        $matrix[$y] = " " x $nbx;
    }
    new_form();
    $playing = 1;
    $paused = 0;
    $lines = 0;
    $level = 1;
    $play_starting_time = time();
    weechat::print_y($weetris_buffer, $start_y + $nby + 6, " Playing time : 00:00");
    init_timer();
    $time_display_timer = weechat::hook_timer(1000, 0, 0, "weetris_display_playing_time", "");
    display_all();
    display_level_lines();
}

sub rotation
{
    my $form = $_[0];
    my $new_form = 0;
    for (my $i = 0; $i < 16; $i++)
    {
        if (($form & (1 << $i)) > 0)
        {
            $new_form = $new_form | $item_rotation[$i];
        }
    }
    return $new_form;
}

sub is_possible
{
    my ($new_x, $new_y, $new_form) = ($_[0], $_[1], $_[2]);
    for (my $i = 0; $i < 16; $i++)
    {
        if (($new_form & (1 << $i)) > 0)
        {
            return 0 if (($new_x + $item_x_inc[$i] < 0)
                         || ($new_x + $item_x_inc[$i] >= $nbx)
                         || ($new_y + $item_y_inc[$i] < 0)
                         || ($new_y + $item_y_inc[$i] >= $nby)
                         || (substr($matrix[$new_y + $item_y_inc[$i]], $new_x + $item_x_inc[$i], 1) ne " "));
        }
    }
    return 1;
}

sub remove_completed_lines
{
    my $y = $nby - 1;
    my $lines_removed = 0;
    while ($y >= 0)
    {
        if (index($matrix[$y], " ") == -1)
        {
            for (my $i = $y; $i >= 0; $i--)
            {
                if ($i == 0)
                {
                    $matrix[$i] = " " x $nbx;
                }
                else
                {
                    $matrix[$i] = $matrix[$i - 1];
                }
            }
            # Removes the line and increases the number of lines made in the game in $lines
            $lines++; 
            $lines_removed = 1;
            if ($lines > $mlines)
            {
                set_best("max_lines", $lines);
                $mlines = $lines;
            }
        }
        else
        {
            $y--;
        }
    }
    if ($lines_removed)
    {
        my $new_level = int(($lines / 10) + 1);
        $new_level = $max_level if ($new_level > $max_level);
        if ($new_level != $level)
        {
            # Next level
            $level = $new_level;
            if ($level > $mlevel)
            {
                set_best("max_level", $level);
                $mlevel = $level;
            }
            init_timer();
        }
        display_level_lines();
    }
}

sub end_of_item
{
    apply_item(1);
    new_form();
    if (is_possible($item_x, $item_y, $item_form))
    {
        remove_completed_lines();
    }
    else
    {
        $item_form = 0;
        $playing = 0;
        $paused = 0;
        if (defined $time_display_timer)
        {
            weechat::unhook($time_display_timer);
            $time_display_timer = undef;
        }
        weechat::print_y($weetris_buffer, $start_y + $nby + 2, ">> End of game, score: $lines lines, level $level (alt-N to restart) <<");
    }
}

sub weetris_init
{
    $weetris_buffer = weechat::buffer_search("perl", "weetris");
    if ($weetris_buffer eq "")
    {
        $weetris_buffer = weechat::buffer_new("weetris", "", "", "buffer_close", "");
    }
    if ($weetris_buffer ne "")
    {
        weechat::buffer_set($weetris_buffer, "type", "free");
        weechat::buffer_set($weetris_buffer, "title", $title);
        weechat::buffer_set($weetris_buffer, "key_bind_meta2-A", "/weetris up");
        weechat::buffer_set($weetris_buffer, "key_bind_meta2-B", "/weetris down");
        weechat::buffer_set($weetris_buffer, "key_bind_meta2-D", "/weetris left");
        weechat::buffer_set($weetris_buffer, "key_bind_meta2-C", "/weetris right");
        weechat::buffer_set($weetris_buffer, "key_bind_meta-n", "/weetris new_game");
        weechat::buffer_set($weetris_buffer, "key_bind_meta-p", "/weetris pause");
        new_game();
        weechat::buffer_set($weetris_buffer, "display", "1");
    }
}

sub weetris
{
    my ($data, $buffer, $args) = ($_[0], $_[1], $_[2]);
    if ($weetris_buffer ne "")
    {
        weechat::buffer_set($weetris_buffer, "display", "1");
    }
    if ($weetris_buffer eq "")
    {
        weetris_init();
    }
    
    if ($args eq "new_game")
    {
        new_game();
    }
    
    if ($args eq "pause")
    {
        if ($playing eq 1)
        {
            $paused ^= 1;
            display_all();
        }
    }
    
    if (($playing eq 1) && ($paused eq 0))
    {
        if ($args eq "up")
        {
            my $new_form = rotation($item_form);
            if (is_possible($item_x, $item_y, $new_form))
            {
                $item_form = $new_form;
                display_all();
            }
        }
        if ($args eq "down")
        {
            if (is_possible($item_x, $item_y + 1, $item_form))
            {
                $item_y++;
                display_all();
            }
            else
            {
                end_of_item();
            }
        }
        if ($args eq "left")
        {
            if (is_possible($item_x - 1, $item_y, $item_form))
            {
                $item_x--;
                display_all();
            }
        }
        if ($args eq "right")
        {
            if (is_possible($item_x + 1, $item_y, $item_form))
            {
                $item_x++;
                display_all();
            }
        }
    }
    
    return weechat::WEECHAT_RC_OK;
}

sub weetris_timer
{
    if (($weetris_buffer ne "") && ($playing eq 1) && ($paused eq 0))
    {
        if (is_possible($item_x, $item_y + 1, $item_form))
        {
            $item_y++;
        }
        else
        {
            end_of_item();
        }
        display_all();
    }
    return weechat::WEECHAT_RC_OK;
}
weechat::register("weetris", "Sebastien Helleu <flashcode\@flashtux.org>",
                  $version, "GPL3", "Tetris game for WeeChat, yeah!", "", "");
weechat::hook_command("weetris", "Run WeeTris", "", 
                      "Keys:\n".
                      "   arrow up: rotate current item\n".
                      " arrow left: move item to the left\n".
                      "arrow right: move item to the right\n".
                      "      alt+n: restart the game\n".
                      "      alt+p: pause current game", 
                      "", "weetris", "");
$weetris_buffer = weechat::buffer_search("perl", "weetris");
if ($weetris_buffer ne "")
{
    weetris_init();
}

# Best level statistics and max lines achieved

sub get_best
{
    my $arg = shift;
    return weechat::config_get_plugin($arg);
}

sub set_best
{
    my ($arg, $value) = @_;
    weechat::config_set_plugin($arg, $value);
}

$mlines = get_best("max_lines") || 0;
$mlevel = get_best("max_level") || 1;