view release on metacpan or  search on metacpan

lib/Games/Minesweeper.pm  view on Meta::CPAN

use AnyEvent ();
use File::HomeDir ();

use Data::Dumper;

our $VERSION = "0.5";
our $custom_fix = 0;

=head1 NAME

Games::Minesweeper - another Minesweeper clone...

=cut

###################################################################################
# do things only needed for single-binary version (par)
BEGIN {
   if (%PAR::LibCache) {
      @INC = grep ref, @INC; # weed out all paths except pars loader refs

      my $root = $ENV{PAR_TEMP};

      while (my ($filename, $zip) = each %PAR::LibCache) {
         for ($zip->memberNames) {
            next unless /^root\/(.*)/;
            $zip->extractMember ($_, "$root/$1")
               unless -e "$root/$1";
         }
      }

      unshift @INC, $root;
   }
}

BEGIN {
   $ENV{GTK_RC_FILES} = "$ENV{PAR_TEMP}/share/themes/MS-Windows/gtk-2.0/gtkrc"
      if %PAR::LibCache && $^O eq "MSWin32";
}

unshift @INC, $ENV{PAR_TEMP};
###################################################################################


$SIG{CHLD} = 'IGNORE';

my $frame;
my $watcher;
my ($l, $d, $w);
my ($mine, $mine_red, $mine_wrong, $mine_hidden, $mine_flag, @m);
my ($smiley_img, $smiley_happy_img, $smiley_ohno_img, $smiley_stress_img);
my ($smiley);
my ($field_width, $field_height, $field_mines) = (9, 9, 10);
my ($tile_width, $tile_height) = (16, 16);
my @mine_field;
my ($mine_count, $open);
my $audio = 0;
my $mc;
my $game_over = 0;
my $menu;

sub save_prefs () {
   my $hd = my_home File::HomeDir;
   my $rcfile = "$hd/.minesweeperrc\0";
   my $fh;
   open $fh, ">", $rcfile
      or do { warn "can't create $rcfile: $!\n"; return; };
   print $fh "$field_width $field_height $field_mines $audio\n";
}

sub load_prefs () {
   my $hd = my_home File::HomeDir;
   my $rcfile = "$hd/.minesweeperrc\0";
   my $fh;
   open $fh, "<", $rcfile
      or do { warn "can't open $rcfile: $!"; return; };
   my $line = <$fh>;
   if(my ($w,$h, $m, $a) = $line =~ m/^(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/) {
      $audio = !!$a;
      $menu->get_widget ('/Game/Audio')->set_active ($audio);
      $w = 9 if $w < 9;
      $h = 9 if $h < 9;
      $m = 3 if $m < 3;
      ($field_width, $field_height, $field_mines) = ($w, $h, $m);
      {
       local $custom_fix = 1;
        $menu->get_widget ('/Game/Custom...')->set_active (1); #d#
      }

      $menu->get_widget ('/Game/Beginner')->set_active (1)     if $w ==  9 && $h ==  9 && $m == 10;
      $menu->get_widget ('/Game/Intermediate')->set_active (1) if $w == 16 && $h == 16 && $m == 40;
      $menu->get_widget ('/Game/Expert')->set_active (1)       if $w == 30 && $h == 16 && $m == 99;
   }
}

sub IS_MINE    () { 1 }
sub IS_OPEN    () { 2 }
sub IS_FLAGGED () { 4 }

sub init_field() {
   @mine_field = ();
   for my $x (0..$field_width-1) {
      for my $y (0..$field_height-1) {
         $mine_field[$x][$y] = 0;
      }
   }
   my $cnt = 0;
   while($cnt < $field_mines) {
      my $x = int rand ($field_width);
      my $y = int rand ($field_height);
      if (!$mine_field[$x][$y]) {
         $mine_field[$x][$y] = IS_MINE;
         $cnt++;
      }
   }
}

##
##   123   x->
##   4*5   y
##   678   |
##
sub count_mines ($$) {
   my ($x, $y) = @_;
   my $cnt = 0;
   $cnt += $mine_field[$x-1][$y-1] & IS_MINE if $x > 0 && $y > 0;                               # 1
   $cnt += $mine_field[$x][$y-1]   & IS_MINE if $y > 0;                                         # 2
   $cnt += $mine_field[$x+1][$y-1] & IS_MINE if $x < $field_width -1 && $y >0;                  # 3
   $cnt += $mine_field[$x-1][$y]   & IS_MINE if $x >0;                                          # 4
   $cnt += $mine_field[$x+1][$y]   & IS_MINE if $x < $field_width - 1;                          # 5
   $cnt += $mine_field[$x-1][$y+1] & IS_MINE if $x > 0 && $y < $field_height -1;                # 6

lib/Games/Minesweeper.pm  view on Meta::CPAN

      } 
   }
   full_expose;
   $mine_count = $field_mines;
   update_mine_count;
   $open = 0;
   $smiley->set_image ($smiley_img);
   $game_over = 0;
   1;
}

sub new_minesweeper () {
   $mine or load_images;
   $w = Gtk2::Window->new ('toplevel');
   $w->set_resizable (0);
   my $v =  new Gtk2::VBox;
   my $f1 = new Gtk2::Frame;
   my $f2 = new Gtk2::Frame;
   $d = new Gtk2::DrawingArea;
   $smiley = new Gtk2::Button;
   #$smiley->set_relief ('none');
   #$smiley->set_alignment (0.5, 0.5);
   $smiley->set_image ($smiley_img);

   my $menu_tree = [ 
           _Game => {
                 item_type => '<Branch>',
                 children => [
                    _New  => { callback => sub { restart; },
                               accelerator => 'F2',
                         },
                         Separator => { item_type => '<Separator>',
                         },
                         _Beginner  => {  callback => sub { return unless $menu->get_widget ("/Game/Beginner")->get_active;
                                                            ($field_width, $field_height, $field_mines) = (9, 9, 10); restart; },
                                          item_type => '<RadioItem>',
                                          groupid => 1,
                         },
                         _Intermediate  => { callback => sub { return unless $menu->get_widget ("/Game/Intermediate")->get_active;
                                                               ($field_width, $field_height, $field_mines) = (16, 16, 40); restart; },
                                             item_type => '<RadioItem>',
                                             groupid => 1,
                         },
                         _Expert  => { callback => sub { return unless $menu->get_widget ("/Game/Expert")->get_active;
                                                         ($field_width, $field_height, $field_mines) = (30, 16, 99); restart; },
                                       item_type => '<RadioItem>',
                                       groupid => 1,
                         },
                         '_Custom...' => { callback => sub { return unless $menu->get_widget ("/Game/Custom...")->get_active;
                                                             custom_dialog; },
                                           item_type => '<RadioItem>',
                                           groupid => 1,
                         },
                         Separator => { item_type => '<Separator>',
                         },
                         _Audio => { callback =>  sub { $audio = 0 + $menu->get_widget ('/Game/Audio')->get_active; },
                                     item_type => '<CheckItem>', 
                         },
                         Separator => { item_type => '<Separator>',
                         },
                         E_xit => { callback => sub { save_prefs; main_quit Gtk2; },
                                    accelerator => '<Alt>X',
                         },
                 ],
           },
           "_?" => { 
                 item_type => '<Branch>',
                 children => [
                     _About => { callback => sub { about_dialog; },
                                 accelerator => 'F1',
                               }
                 ],
           },
         ]; 

      $menu = new Gtk2::SimpleMenu (menu_tree => $menu_tree,
                                );
      $l = new Gtk2::Label ('0000 ');
      $mc = new Gtk2::Label (' 000');
      $smiley->signal_connect (clicked => sub { restart; });
      $d->set_events ([ 'button_release_mask', 'button_press_mask', ]); #'pointer_motion_mask' ]);
      $d->signal_connect (expose_event => \&expose_cb);
      $d->signal_connect (button_press_event => \&button_press_cb);
      $d->signal_connect (button_release_event => \&button_release_cb);
      $f2->set_border_width(5);
      my $fixbox = new Gtk2::HBox;
      my $fix1 = new Gtk2::Frame;
      my $fix2 = new Gtk2::Frame;
      $fix1->set_shadow_type ('none');
      $fix1->set_border_width (0);
      $fix2->set_shadow_type ('none');
      $fix2->set_border_width (0);
      $fixbox->pack_start ($fix1, 1, 1, 1);
      $f2->add ($d);
      $fixbox->pack_start ($f2, 0, 0, 0);
      $fixbox->pack_start ($fix2, 1, 1, 1);
      my $vb = new Gtk2::VBox;
      my $hb = new Gtk2::HBox;
      $hb->pack_start ($mc, 0, 0, 0);
      $hb->pack_start ($smiley, 1, 0, 0);
      $hb->pack_end ($l, 0, 0, 0);
      $vb->add ($hb);
      $vb->pack_start ($fixbox, 1, 0, 0);
      $f1->add ($vb);
      $v->add ($menu->{widget});
      $w->add_accel_group ($menu->{accel_group});
      $v->pack_start ($f1, 1, 0, 0);
      $w->add ($v);
      $w->signal_connect( destroy => sub { save_prefs; main_quit Gtk2; });
      $w->signal_connect( destroy => \&cleanup_cb);
      $d->realize;
      load_prefs;
      restart;
      $w;
}
1;