1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
use strict;
use warnings;
use Irssi 20140603;
our $VERSION = '1.1';
our %IRSSI = (
authors => 'Irssi staff',
contact => 'staff@irssi.org',
url => 'https://irssi.org',
name => 'cubes',
description => '256 colour test script for Irssi.',
license => 'Public Domain',
);
sub cubes {
my $t = $_[0];
my $w = Irssi::active_win;
my $C = MSGLEVEL_CLIENTCRAP;
my $N = MSGLEVEL_NEVER | $C;
my $T = $t ? "X" : "x";
my $M = $t ? "" : "99,";
my $P = sub {
$w->print(@_)
};
$P->("%_bases", $C);
$P->( do {
join '', map { "%${T}0${_}0$_" } '0' .. '9', 'A' .. 'F'
}, $N);
$P->("%_cubes", $C);
$P->( do {
my $y = $_*6;
join '', map {
my $x = $_;
map { "%${T}$x$_$x$_" } @{['0' .. '9', 'A' .. 'Z']}[$y .. $y+5]
} 1 .. 6
}, $N)
for 0 .. 5;
$P->("%_grays", $C);
$P->( do {
join '', map { "%${T}7${_}7$_" } 'A' .. 'X'
}, $N);
$P->("%_mIRC extended colours", $C);
my $x;
$x .= sprintf "\cC$M%02d%02d", $_, $_
for 0 .. 15;
$P->($x, $N);
for my $z (0 .. 6) {
my $x;
$x .= sprintf "\cC$M%02d%02d", $_, $_
for 16 + ($z * 12) .. 16 + ($z * 12) + 11;
$P->($x, $N);
}
}
Irssi::command_bind 'cubes' => sub { cubes(0); };
Irssi::command_bind 'cubes_text' => sub { cubes(1); };
|
