#
# Copyright (c) 2008-2009 by FlashCode <flashcode@flashtux.org>
#
# 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/>.
#
# Mastermind game for WeeChat.
#
# History:
# 2009-06-21, FlashCode <flashcode@flashtux.org>:
# version 0.3: fix bug with mastermind buffer after /upgrade
# 2009-05-02, FlashCode <flashcode@flashtux.org>:
# version 0.2: sync with last API changes, fix problem with keys
# 2008-11-14, FlashCode <flashcode@flashtux.org>:
# version 0.1: first official version
# 2008-11-13, FlashCode <flashcode@flashtux.org>:
# script creation
use strict;
my $version = "0.3";
my $mm_buffer = "";
# number of pegs by line
my $nbx = 4;
# number of lines
my $nby = 12;
# peg colors
my @peg_color = ("red", "white", "yellow", "green",
"blue", "lightcyan", "magenta", "lightmagenta");
my $start_y = 0;
my @matrix = ();
my @matrix_result = ();
my $pattern = "";
my $playing = 0;
my $current_line = 0;
my $column_selected = 0;
my $color_selected = 0;
my $display_solution = 0;
my $message_end = "";
sub buffer_close
{
$mm_buffer = "";
weechat::print("", "Thank you for playing Mastermind!");
return weechat::WEECHAT_RC_OK;
}
sub mastermind_init
{
$mm_buffer = weechat::buffer_search("perl", "mastermind");
if ($mm_buffer eq "")
{
$mm_buffer = weechat::buffer_new("mastermind", "", "", "buffer_close", "");
}
if ($mm_buffer ne "")
{
weechat::buffer_set($mm_buffer, "type", "free");
weechat::buffer_set($mm_buffer, "title", "mastermind.pl script - enjoy!");
weechat::buffer_set($mm_buffer, "key_bind_meta2-A", "/mastermind up");
weechat::buffer_set($mm_buffer, "key_bind_meta2-B", "/mastermind down");
weechat::buffer_set($mm_buffer, "key_bind_meta2-D", "/mastermind left");
weechat::buffer_set($mm_buffer, "key_bind_meta2-C", "/mastermind right");
weechat::buffer_set($mm_buffer, "key_bind_meta-n", "/mastermind new_game");
weechat::buffer_set($mm_buffer, "key_bind_meta-q", "/mastermind set");
weechat::buffer_set($mm_buffer, "key_bind_meta-ctrl-M", "/mastermind check_pattern");
# if you want to cheat and see solution, uncomment that or just issue
# command: /mastermind toggle_solution
# (shame on you if you do that!)
#weechat::buffer_set($mm_buffer, "key_bind_meta-Z", "/mastermind toggle_solution");
new_game();
display_all();
weechat::buffer_set($mm_buffer, "display", "1");
}
}
sub get_line_for_display
{
my $line = $_[0];
my $selected = $_[1];
my $str = "";
for (my $x = 0; $x < $nbx; $x++)
{
my $char = substr($line, $x, 1);
$str .= ($selected && ($x == $column_selected)) ?
weechat::color("white")."»" : weechat::color("default")." ";
$str .= ($char eq " ") ?
weechat::color("cyan").".." : weechat::color($peg_color[$char])."██";
$str .= ($selected && ($x == $column_selected)) ?
weechat::color("white")."«" : weechat::color("default")." ";
}
return $str;
}
sub display_line
{
my $y = $_[0];
my $str = " │";
$str .= ($y == $current_line) ? weechat::color("lightgreen")."> ".weechat::color("default") : " ";
$str .= get_line_for_display($matrix[$y], ($y == $current_line));
$str .= " │ ";
$str .= get_line_for_display($matrix_result[$y], 0);
$str .= ($y == $current_line) ? weechat::color("lightgreen")."<".weechat::color("default") : " ";
$str .= "│";
if ($y <= $#peg_color)
{
$str .= " ".weechat::color("white")
.(($y == $color_selected) ? "»" : " ")
.weechat::color($peg_color[$y])."██"
.weechat::color("white").(($y == $color_selected) ? "«" : " ");
}
weechat::print_y($mm_buffer, $start_y + 2 + ($y * 2), $str);
}
sub display_all
{
# info line
weechat::print_y($mm_buffer, $start_y,
weechat::color("cyan")."Keys: "
.weechat::color("lightcyan")."alt-N"
.weechat::color("cyan").": new game -- "
.weechat::color("lightcyan")."arrows"
.weechat::color("cyan").": select row/color -- "
.weechat::color("lightcyan")."alt-Q"
.weechat::color("cyan").": set color -- "
.weechat::color("lightcyan")."alt-Ret"
.weechat::color("cyan").": check pattern");
# bar on top
weechat::print_y($mm_buffer, $start_y + 1,
" ┌───".("────" x $nbx)."───".("────" x $nbx)."─┐");
# middle
for (my $y = 0; $y < $nby; $y++)
{
display_line($y);
if ($y < $nby - 1)
{
weechat::print_y($mm_buffer, $start_y + 2 + ($y * 2) + 1,
" │ ".(" " x $nbx)." │ ".(" " x $nbx)." │");
}
}
# bottom bar
weechat::print_y($mm_buffer, $start_y + 2 + (($nby - 1) * 2) + 1,
" └───".("────" x $nbx)."───".("────" x $nbx)."─┘");
# display solution and message
weechat::print_y($mm_buffer, $start_y + 2 + (($nby - 1) * 2) + 3,
($display_solution) ?
" ".get_line_for_display($pattern, 0)
.weechat::color("default")." ".$message_end
: "");
}
sub random_pattern
{
$pattern = " " x $nbx;
for (my $i = 0; $i < $nbx; $i++)
{
substr($pattern, $i, 1) = rand($#peg_color);
}
}
sub new_game
{
for (my $y = 0; $y < $nby; $y++)
{
$matrix[$y] = " " x $nbx;
$matrix_result[$y] = " " x $nbx;
}
random_pattern();
$playing = 1;
$current_line = 0;
$column_selected = 0;
$color_selected = 0;
$display_solution = 0;
$message_end = "";
}
sub set_color_in_matrix
{
my ($x, $y, $color) = ($_[0], $_[1], $_[2]);
my $char = " ";
$char = $color if ($color >= 0);
substr($matrix[$y], $x, 1) = $char;
}
sub check_pattern
{
my $temp_guess = $matrix[$current_line];
my $temp_pattern = $pattern;
my $good_position = 0;
my $bad_position = 0;
# check for pegs at good position
for (my $i = 0; $i < $nbx; $i++)
{
if (substr($temp_guess, $i, 1) eq substr($temp_pattern, $i, 1))
{
$good_position++;
substr($temp_guess, $i, 1) = " ";
substr($temp_pattern, $i, 1) = " ";
}
}
# check for pegs at wrong position
for (my $i = 0; $i < $nbx; $i++)
{
my $char_user = substr($temp_guess, $i, 1);
if ($char_user ne " ")
{
my $found = 0;
for (my $j = 0; $j < $nbx; $j++)
{
if (!$found && ($j != $i) && (substr($temp_pattern, $j, 1) eq $char_user))
{
substr($temp_pattern, $j, 1) = " ";
$found = 1;
}
}
$bad_position++ if ($found);
}
}
# build result string
my $result = " " x $nbx;
for (my $i = 0; $i < $good_position; $i++)
{
substr($result, $i, 1) = 0;
}
for (my $i = 0; $i < $bad_position; $i++)
{
substr($result, $good_position + $i, 1) = 1;
}
$matrix_result[$current_line] = $result;
if ($good_position == $nbx)
{
# player wins!
$message_end = weechat::color("lightgreen")." << Congratulations! >>";
$display_solution = 1;
$playing = 0;
}
else
{
if ($current_line == ($nby - 1))
{
# player looses!
$message_end = weechat::color("lightred")." >> You loose... <<";
$display_solution = 1;
$playing = 0;
}
else
{
$current_line++;
$matrix[$current_line] = $matrix[$current_line - 1];
}
}
display_all();
}
sub mastermind
{
my ($data, $buffer, $args) = ($_[0], $_[1], $_[2]);
if ($mm_buffer eq "")
{
mastermind_init();
}
if ($args eq "new_game")
{
new_game();
display_all();
}
if ($playing eq 1)
{
if ($args eq "up")
{
if ($color_selected > 0)
{
$color_selected--;
display_all();
}
}
if ($args eq "down")
{
if ($color_selected < $#peg_color)
{
$color_selected++;
display_all();
}
}
if ($args eq "left")
{
if ($column_selected > 0)
{
$column_selected--;
display_all();
}
}
if ($args eq "right")
{
if ($column_selected < $nbx - 1)
{
$column_selected++;
display_all();
}
}
if ($args eq "set")
{
set_color_in_matrix($column_selected, $current_line,
$color_selected);
$column_selected++;
$column_selected = 0 if ($column_selected >= $nbx);
display_all();
}
if ($args eq "check_pattern")
{
if (!($matrix[$current_line] =~ " "))
{
check_pattern();
}
}
if ($args eq "toggle_solution")
{
$display_solution ^= 1;
display_all();
}
}
return weechat::WEECHAT_RC_OK;
}
weechat::register("mastermind", "FlashCode <flashcode\@flashtux.org>",
$version, "GPL3", "Mastermind game for WeeChat, yeah!", "", "");
weechat::hook_command("mastermind", "Run Mastermind", "", "", "", "mastermind", "");
$mm_buffer = weechat::buffer_search("perl", "mastermind");
if ($mm_buffer ne "")
{
mastermind_init();
}
Back to scripts |
Download