eleksir/aleesa-irc-bot
0
Fork 0
Code Activity

Implemented !coin !монетка !roll !dies !кости commands

Browse Source
This commit is contained in:
Sergei Fedosov
2021-08-11 15:32:08 +03:00
parent 952e509e92
commit 8a28f01992
2 changed files with 26 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/Bot/IRC/OnMessage.pm
View File

@@ -140,7 +140,7 @@ sub init {
},
);
$bot->helps(
$bot->helps (
anek => "$c->{csign}anek - рандомный анекдот с anekdot.ru",
анек => "$c->{csign}анек - рандомный анекдот с anekdot.ru",
анекдот => "$c->{csign}анекдот - рандомный анекдот с anekdot.ru",
@@ -149,7 +149,12 @@ sub init {
rabbit => "$c->{csign}rabbit - рандомный кролик",
кролик => "$c->{csign}кролик - рандомный кролик",
cat => "$c->{csign}cat - рандомная кошечка",
coin => "$c->{csign}cat - подбросить монетку - орёл или решка?",
монетка => "$c->{csign}cat - подбросить монетку - орёл или решка?",
кис => "$c->{csign}кис - рандомная кошечка",
dice => "$c->{csign}dice - бросить кости",
roll => "$c->{csign}roll - бросить кости",
кости => "$c->{csign}кости - бросить кости",
dig => "$c->{csign}dig - заняться археологией",
копать => "$c->{csign}копать - заняться археологией",
drink => "$c->{csign}drink - какой сегодня праздник?",

20
lib/BotLib.pm
View File

@@ -60,6 +60,26 @@ sub Command {
$reply = Weather ($city) =~ tr/\n/ /r;
} elsif (substr ($text, 1) eq 'anek' || substr ($text, 1) eq 'анек' || substr ($text, 1) eq 'анекдот' ) {
$reply = Anek ();
} elsif (substr ($text, 1) eq 'coin' || substr ($text, 1) eq 'монетка') {
if (rand (101) < 0.016) {
$reply = "ребро";
} else {
if (irand (2) == 0) {
if (irand (2) == 0) {
$reply = 'орёл';
} else {
$reply = 'аверс';
}
} else {
if (irand (2) == 0) {
$reply = 'решка';
} else {
$reply = 'реверс';
}
}
}
} elsif (substr ($text, 1) eq 'roll' || substr ($text, 1) eq 'dice' || substr ($text, 1) eq 'кости') {
$reply = sprintf "На первой кости выпало %d, а на второй — %d.", irand (6) + 1, irand (6) + 1;
} elsif (substr ($text, 1) eq 'version' || substr ($text, 1) eq 'ver') {
$reply = 'Версия нуль.чего-то_там.чего-то_там';
} elsif (substr ($text, 1) eq 'help' || substr ($text, 1) eq 'помощь') {