PERLTETRIS(1)

🎮 PERLTETRIS(1) — the tetris manual, but make it a group chat ✨

okay so bestie, welcome to the PERLTETRIS(1) page from the User Contributed Perl Documentation. it is literally a tetris game manual, and we’re gonna read it together like a group chat. no cap. 💖

🎀 NAME 🎀

tetris — A tetris game. that’s the whole name section, and honestly? iconic. 👑

🕹️ SYNOPSIS 🕹️

run this bad boy:

perl tetris.pl

🍓 CONFIGURATION 🍓

here’s the tea, bestie: the configuration file should be the file named .tetris under the HOME directory. another option is using Tetris/Config.pm in any directory of @INC. ✨

here is an example of configuration — copy it exactly, okay?:

# -*- perl -*-
%Config = (
    %Config,
    'start_level' => 3,
    'down_step' => 2,
    'keybindings' => {
        %{$Config{keybindings}},
        ord('j') => \&move_left,
        ord('l') => \&move_right,
        ord('k') => \&rotate,
        ord('n') => \&new_game,
    }
);
push @$shapes, shape_from_string(<<SHAPE);
0 0 8 0   0 8 0 0   0 8 8 8   0 0 0 8
0 0 8 0   0 8 8 8   0 0 8 0   0 8 8 8
0 8 8 8   0 8 0 0   0 0 8 0   0 0 0 8
0 0 0 0   0 0 0 0   0 0 0 0   0 0 0 0
SHAPE

push @$shapes, shape_from_string(<<SHAPE);
0 0 9 0   0 0 0 0   0 0 0 0   0 0 9 0
0 0 9 9   0 0 9 9   0 9 9 0   0 9 9 0
0 0 0 0   0 0 9 0   0 0 9 0   0 0 0 0
0 0 0 0   0 0 0 0   0 0 0 0   0 0 0 0
SHAPE

wanna get the key specification? this script is lowkey the way, iykyk:

use Gtk2::Gdk::Keysyms;
use Glib qw/TRUE FALSE/;
use Gtk2 -init;

my $window = Gtk2::Window->new ('toplevel');
$window->signal_connect (delete_event => sub { Gtk2->main_quit });
$window->signal_connect('key-press-event' => \&show_key);

    my $label = Gtk2::Label->new();
    $label->set_markup("<span foreground=\"blue\" size=\"x-large\">Type something on the keyboard!</span>");

$window->add ($label);
$window->show_all;
$window->set_position ('center-always');

Gtk2->main;

sub show_key {
    my ($widget,$event,$parameter)= @_;
    my $key_nr = $event->keyval();
    foreach my $key (keys %Gtk2::Gdk::Keysyms) {
            my $key_compare = $Gtk2::Gdk::Keysyms{$key};
            if ($key_compare == $key_nr) {
            print "'$key' => $key_nr,\n";
        }
    }
    return FALSE;
}

and if you’ve got code to run after the GUI setup, add it to the code ref $after_load_function. that’s the hook, iykyk. 🫶

okay bye bestie — this page comes from perl v5.42.3, dated 2009-05-07, and that’s the footer info, periodt. 💅✨