diff --git a/lib/Bot/IRC/OnMessage.pm b/lib/Bot/IRC/OnMessage.pm
index f725f39..bdebe5a 100644
--- a/lib/Bot/IRC/OnMessage.pm
+++ b/lib/Bot/IRC/OnMessage.pm
@@ -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 - какой сегодня праздник?",
diff --git a/lib/BotLib.pm b/lib/BotLib.pm
index cf47bb7..f117555 100644
--- a/lib/BotLib.pm
+++ b/lib/BotLib.pm
@@ -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 'помощь') {