Extend weather command list, add !weather, !погода, !погадка, !погодка, also allow oboobs and obutts plugins in private conversation

lib/BotLib.pm

@@ -102,6 +102,12 @@ sub Command {
 	} elsif (length ($text) >= 2 && (substr ($text, 1, 2) eq 'w ' || substr ($text, 1, 2) eq 'п ')) {
 		my $city = substr $text, 3;
 		$reply = Weather $city;
+	} elsif (substr ($text, 1, 7) eq 'погода ') {
+		my $city = substr $text, 7;
+		$reply = Weather $city;
+	} elsif ((substr ($text, 1, 8) eq 'погодка ') || (substr ($text, 1, 8) eq 'погадка ') || (substr ($text, 1, 8) eq 'weather ')){
+		my $city = substr $text, 8;
+		$reply = Weather $city;
 	} elsif (substr ($text, 1) eq 'buni') {
 		$msg->typing ();
 		$reply = Buni ();
@@ -271,6 +277,10 @@ ${csign}roll | ${csign}dice | ${csign}кости      - бросить кост
 ${csign}snail | ${csign}улитка            - улитка
 ${csign}ver | ${csign}version | ${csign}версия   - что-то про версию ПО
 ${csign}w город | ${csign}п город         - погода в указанном городе
+${csign}weather город                     - погода в указанном городе
+${csign}погода город                      - погода в указанном городе
+${csign}погодка город                     - погода в указанном городе
+${csign}погадка город                     - погода в указанном городе
 ${csign}xkcd                       - рандомный стрип с сайта xkcd.ru
 ${csign}karma фраза | ${csign}карма фраза - посмотреть карму фразы
 фраза-- | фраза++           - убавить или добавить карму фразе

lib/BotLib/Admin.pm

@@ -206,6 +206,11 @@ sub PluginEnabled (@) {
 	my $chatid = shift;
 	my $plugin = shift;
 
+	# seems that we have point to return always true if chat is private
+	if ($chatid > 0) {
+		return 1;
+	}
+
 	my $cache = CHI->new (
 		driver => 'BerkeleyDB',
 		root_dir => $cachedir,

lib/TelegramBot.pm

@@ -198,6 +198,17 @@ sub __on_msg {
 			}
 
 			if ($just_message_in_chat) {
+				if ($text =~ /^кто +все +эти +люди *\?$/i) {
+					$reply = 'Какие люди? Мы здесь вдвоём, только ты и я.';
+				} elsif ($text =~ /покажи +(сиськи|сиси|титьки) *$/i) {
+					$reply = Oboobs ();
+				} elsif ($text =~ /show +(titts|tities|boobs) *$/i) {
+					$reply = Oboobs ();
+				} elsif ($text =~ /покажи +(попку|попу) *$/i) {
+					$reply = Obutts ();
+				} elsif ($text =~ /show +(ass|butt|butty) *$/i) {
+					$reply = Obutts ();
+				} else {
 					my $str = $hailo->{$msg->chat->id}->learn_reply ($text);
 
 					if (defined ($str) && $str ne '') {
@@ -216,6 +227,7 @@ sub __on_msg {
 					}
 				}
 			}
+		}
 
 		if (defined $reply) {
 			$msg->typing ();