Added optional uno:english option. See documentation for UNO.

This commit is contained in:
Elijah Perrault committed 2011-03-20 17:07:52 -06:00
1 parent 0cb486191f
commit 05e49c0ba1
3 files changed
+20 -6

No files matched your search

+1
View File
@@ -20,6 +20,7 @@ In this alpha8 release, we have added:
* EightBall rewritten to be much nicer. * EightBall rewritten to be much nicer.
* A module to translate English into LOLCAT (LOLCAT). * A module to translate English into LOLCAT (LOLCAT).
* Command aliasing via aliases blocks in the config. * Command aliasing via aliases blocks in the config.
* Added optional uno:english and required uno:msg options. See documentation for UNO.
Bug fixes: Bug fixes:
+1
View File
@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
3.0 Indev 3.0 Indev
=============================================================================== ===============================================================================
* Added optional uno:english option. See documentation for UNO.
* UNO has a new config option, uno:msg, for setting what method the bot * UNO has a new config option, uno:msg, for setting what method the bot
uses for private messages. uses for private messages.
* Added command aliasing. * Added command aliasing.
+18 -6
View File
@@ -769,12 +769,16 @@ sub _fmtcard {
my $fmt; my $fmt;
my ($color, $val) = split m/[:]/, $card; my ($color, $val) = split m/[:]/, $card;
if ($color eq 'W' or $color eq 'WD4' or $color eq 'WAH' or $color eq 'WHF') { $val = $color } if ($color eq 'W' or $color eq 'WD4' or $color eq 'WAH' or $color eq 'WHF') { $val = $color }
# Determine if we should state the color in the output.
my $code = '[';
if (conf_get('uno:english')) { if ((conf_get('uno:english'))[0][0] == 1) { $code = '[%s ' } }
given ($color) { given ($color) {
when ('R') { $fmt = "\00301,04[$val]\003" } when ('R') { $fmt = sprintf "\00301,04$code$val]\003", $_ }
when ('B') { $fmt = "\00300,12[$val]\003" } when ('B') { $fmt = sprintf "\00300,12$code$val]\003", $_ }
when ('G') { $fmt = "\00300,03[$val]\003" } when ('G') { $fmt = sprintf "\00300,03$code$val]\003", $_ }
when ('Y') { $fmt = "\00301,08[$val]\003" } when ('Y') { $fmt = sprintf "\00301,08$code$val]\003", $_ }
default { $fmt = "\002\00300,01[$val]\003\002" } default { $fmt = "\002\00300,01[$val]\003\002" }
} }
@@ -1346,7 +1350,7 @@ sub sendmsg {
} }
# Start initialization. # Start initialization.
API::Std::mod_init('UNO', 'Xelhua', '1.06', '3.0.0a8', __PACKAGE__); API::Std::mod_init('UNO', 'Xelhua', '1.07', '3.0.0a8', __PACKAGE__);
# build: perl=5.010000 # build: perl=5.010000
__END__ __END__
@@ -1357,7 +1361,7 @@ UNO - Three editions of the UNO card game
=head1 VERSION =head1 VERSION
1.06 1.07
=head1 SYNOPSIS =head1 SYNOPSIS
@@ -1431,6 +1435,14 @@ You may also add the reschan option to the block, like so:
This will restrict use of UNO to the specified channel. Often useful since only This will restrict use of UNO to the specified channel. Often useful since only
one channel at a time may use UNO. one channel at a time may use UNO.
You may also add the english option to the block, like so:
english 1;
This will make cards display as [<R|G|B|Y> <card>], rather than [<card>] with
IRC color. Useful if players are color blind or their clients do not support
colors.
=head1 DIFFERENCES BETWEEN EDITIONS =head1 DIFFERENCES BETWEEN EDITIONS
This is a list of differences between the three editions. This is a list of differences between the three editions.