Games-Rezrov

 view release on metacpan or  search on metacpan

ZIO_Curses.pm  view on Meta::CPAN

}

sub groks_font_3 {
  return 1;
}

sub can_use_color {
  return has_colors() ? 1 : 0;
}

sub update {
  # force screen refresh
  $w_main->refresh();
}

sub set_version {
  # called by the game
  my ($self, $status_needed, $callback) = @_;
  Games::Rezrov::StoryFile::rows($self->rows);
  Games::Rezrov::StoryFile::columns($self->columns);
  $self->clear_screen();

ZIO_Termcap.pm  view on Meta::CPAN

      print "so you must use -rows and -columns to specify them manually.\n";
      exit;
    }
  }

  $self->set_upper_lines(0);

  return $self;
}

sub update {
  # force screen refresh
  $|=1;
  print "";
  $|=0;
}

sub set_version {
  # called by the game
  my ($self, $status_needed, $callback) = @_;
#  $HAVE_STATUS_LINE = $status_needed;

ZIO_Tk.pm  view on Meta::CPAN

  $w_main->after(0, $init_sub);
  # delay required??

  $initialized = 1;

  MainLoop;

  return 1;
}

sub update {
  # force screen refresh
  $c->update();
}

sub fatal_error {
  if ($initialized) {
    $_[0]->SUPER::fatal_error($_[1]);
  } else {
    die $_[1];
  }

ZIO_Win32.pm  view on Meta::CPAN

    $columns = $options{"columns"} || $size[0] || die "need columns!";
    $rows = $options{"rows"} || $size[1] || die "need rows!";

    $OUT->Size($columns, $rows);
    # resize again (possible user override limiting rows/cols)

    $upper_lines = 0;
    return $self;
}

sub update {
  $OUT->Flush();
}

sub set_version {
  # called by the game
  my ($self, $status_needed, $callback) = @_;
  Games::Rezrov::StoryFile::rows($rows);
  Games::Rezrov::StoryFile::columns($columns);
  return 0;
}

ZIO_dumb.pm  view on Meta::CPAN

#  print STDERR "clear to eol; at $abs_x\n";
  my $diff = $columns - $abs_x;
  if ($diff > 0) {
    print " " x $diff;
    # erase
    print pack("c", 0x08) x $diff;
    # restore cursor
  }
}

sub update {
}

sub find_prog {
  # don't look
  foreach ("/bin/", "/usr/bin/") {
    my $fn = $_ . $_[0];
    return $fn if -x $fn;
  }
  return undef;
}

ZIO_test.pm  view on Meta::CPAN

  my ($self, $string, $x, $y) = @_;
  # $self->absolute_move($x, $y) if defined($x) and defined($y);
  print $string;
  $abs_x += length($string);
}

sub clear_to_eol {
    # do nothing
}

sub update {
}

sub can_split {
  # true or false: can this zio split the screen?
  return 0;
}

sub set_version {
  my ($self, $status_needed, $callback) = @_;
  Games::Rezrov::StoryFile::rows($rows);

ZStatus.pm  view on Meta::CPAN

			    time_game
			    score_game
			    location
			   ));

use Games::Rezrov::Inliner;

1;

my $INLINE_CODE = '
sub update () {
  # refresh information required for status line.
  my $self = shift;
  
  # get the current location:
  my $object_id = get_global(0);
  # 8.2.2.1
  
  my $zobj = new Games::Rezrov::ZObject($object_id);
  # FIX ME: use cache
  $self->location(${$zobj->print(Games::Rezrov::StoryFile::ztext())});

 view all matches for this distribution
 view release on metacpan -  search on metacpan