MAJORDOMO CONNECT -- каталог проектов и компонентов Умного Дома

report system state

Активация контекста Код

say("Что-нибудь хотите?");

(.+) Код

say("Вы сказали ' ".$matches[1]." ' , я не понимаю...");

да Код

say("Отлично!");

нет Код

say("Ну нет так нет!");

будильник

Шаблон:

(поставь|установи|заведи) будильник на (\d+)(\s*)(часов|:)*(\s*)(\d*)

Код

$h=$matches[2];
$m=$matches[6];

if ($h>24) {
say("Непонятно на который час завести будильник, определитесь и сообщите снова.",5);
return;
}
if (($m>59)|(!$m)) {
say("Непонятно на сколько минут завести будильник, поэтому пусть будет ровно 00.",5);
$m="00";
}
say("Ставлю будильник на ".$h." часов ".$m." минут. Постарайтесь не проспать.",5);
setGlobal('AlarmClock03.AlarmOn',1);
setGlobal('AlarmClock03.AlarmTime',$h.':'.$m);

в список дел

Шаблон:

в список дел (.+)

Код

callMethod('TodoList.view');
callMethod('TodoList.new', array('task'=>$matches[1]));
callMethod('TodoList.view');
say(getRandomLine(done), 1);

включить все будильники

Шаблон:

(включить|включи) все будильники

время

Шаблон:

(время|сколько времени|который час)

выключить всё

Шаблон:

выключить всё|выключи всё|выруби всё|выключить везде свет|выключи везде свет|выруби свет везде|выключи  полностью свет|выруби свет|выключи весь свет|выключить весь свет|выруби весь свет|отключить всё|вырубить всё|выруби всё|выруби все|выключить свет везде|выключи свет везде

выключить все будильники

Шаблон:

(выключить|выключи) все будильники

громкость

Шаблон:

громкость на (.+)

Код

say(getRandomLine(DONE),1);
sg('ThisComputer.volumeLevel', $matches[1]);
callMethod('ThisComputer.VolumeLevelChanged',array('VALUE'=>$matches[1]));

громкость терминала

Шаблон:

((установи(.*) громкость терминала)(.*)(\s+)(\d+))|^((громкость терминала)(.*)(\s+)(\d+))|^((громкость планшета)(.*)(\s+)(\d+))

Код

$vol=$matches[6].$matches[11].$matches[16];
say(getRandomLine('ok'),1);

callMethod("laptopVaio.volumeLevelChanged", array("VALUE"=>$vol));

запиши

Шаблон:

запиши (.+)

Код

$text = $matches[1];
$filename = "C:/_majordomo/htdocs/cms/texts/memory.txt";
runScript("InFile",array("subject"=>"Текст:", "body"=>$text, "filename"=>$filename ));
say("Выполнено. Всё запомнила в файл.",2);

как дела

Шаблон:

как дела

Код

sayReply(' Не дождётесь! Всё отлично. Все системы, в настоящий момент, функционируют без ошибок!', 2);

калькулятор

Шаблон:

сколько будет (.*)

Код

$command=$matches[1];
$com=str_replace(',','.',$command);
$com=str_replace('один','1',$com);
$com=str_replace('два','2',$com);
$com=str_replace('три','3',$com);
$com=str_replace('x','*',$com);
$com=str_replace('х','*',$com);
$com=str_replace('разделить на','/',$com);
$com=str_replace('делить на','/',$com);
$com=str_replace('на','*',$com);
$com=str_replace('плюс','+',$com);
$com=str_replace('минус','-',$com);
$command=str_replace('x',' умножить на ',$command);
$command=str_replace('х',' умножить на ',$command);
//$command=str_replace('+',' плюс ',$command);
$command=str_replace('/',' делить на ',$command);
$command=str_replace('-',' минус ',$command);
$com='$result=' . $com .';';
eval($com);
$result=str_replace('.',',',$result); //чтобы Алиса читала 1.5 как 'Один с половиной', а не 'Один точка пять', хотя это зависит от TTS-движка
say($command.' равно '.$result,2);

микроклимат

напомни через

Шаблон:

Напомни ((через (\d+|один|одну|дв[ае]|три|четыре|пять|шесть|семь|восемь|девять) (часа|час|часов|минут|минуту|минуты|секунд|секунды|секунду))|в \d+:\d+|(завтра|послезавтра|сегодня|на завтра|на послезавтра) в \d+:\d+) (.+)

Код

$u=2;
$naptime=mb_strtolower($matches[1]);
$request=mb_strtolower($matches[6]);
$chislo=array('один'=>'1','одну'=>'1','два'=>'2','две'=>'2','три'=>'3','четыре'=>'4','пять'=>'5','шесть'=>'6','семь'=>'7','восемь'=>'8','девять'=>'9');
foreach($chislo as $key=>$value) {$naptime=str_replace($key,$value,$naptime);}
if($request!=''){
$su=0;
$naptime=str_replace(' на ',' ',$naptime);
if(stristr($naptime,'сегодня')!=FALSE) {$naptime=str_replace('сегодня ','',$naptime);$su=0;}
if(stristr($naptime,'послезавтра')!=FALSE) {$naptime=str_replace('послезавтра ','',$naptime);$su=2;}
if(stristr($naptime,'завтра')!=FALSE) {$naptime=str_replace('завтра','', $naptime);$su=1;}
$a=$su*86400+recognizeTime($naptime,$b);
if(time()<($a-30)){
$nday=date('j',$a);
$MonthNames=array('января','февраля','марта','апреля','мая','июня','июля','августа','сентября','октября','ноября','декабря');
$nmes=date('n',$a)-1;
$nmonth=$MonthNames[$nmes];
$ntime=date('H:i',$a);
$chisl=array(1=>'первое',2=>'второе',3=>'третье',4=>'четвертое',5=>'пятое',6=>'шестое',7=>'седьмое',8=>'восьмое',9=>'девятое',10=>'десятое',11=>'одиннадцатое',12=>'двенадцатое',13=>'тринадцатое',14=>'четырнадцатое',15=>'пятнадцатое',16=>'шестнадцатое',17=>'семнадцатое',18=>'восемнадцатое',19=>'девятнадцатое',20=>'двадцатое',30=>'тридцатое',21=>'двадцать',31=>'тридцать');
if($nday<21||$nday==30){$chtext=$chisl[$nday];} else {$chtext=$chisl[(int)($nday/10)*10+1].' '.$chisl[$nday%10];}
AddScheduledJob($request,"say('Вы просили напомнить ".$request."',".$u.");",$a,60);
say('Задание напомнить '.$request.' установлено на '.$chtext.' '.$nmonth.' в '.$ntime,$u);}
else
{say('Назначить напоминание на заданное время невозможно!',$u);}}
else
{say('Непонятно, что напомнить?!',$u);}

ночной режим

Шаблон:

(В|в)включи режим ночной|(В|в)включи ночной режим|(Н|н)очной режим|(Н|н)очной

Код

if (gg("NightMode.active")==1) {
	sayReply ("Режим ночной уже включен",2);
	}
 	else {
  		sayReply ("Включаю ночной режим",2);
  		callMethod("NightMode.activate");
 };

Общий контекст

день недели

Шаблон:

(день недели|какой сегодня день недели)

Код

$days=array('воскресенье','понедельник','вторник','среда','четверг','пятница','суббота');
$day_num=(int)date('w');
$day_of_week=$days[$day_num];
say("Сегодня - ".$day_of_week,1);

забудь

Шаблон:

(забудь|забей|сброс)

Код

context_clear();
clearTimeOut('user_'.context_getuser().'_contexttimeout');
say('Контекст забыт.');

и еще

Шаблон:

(и еще|а так же|кроме того|помимо этого)

Код

//context_activate(17);
//пока закомментил потому что не знаю как это можно использовать и как точно это работает

спасибо

Шаблон:

(спасиб|благода|благада|ты молодец|thank|отличн|молодец)

Код

//sayReply(getRandomLine(thanks),2);
// ниже второй вариант
$thanks = getRandomLine(thanks);
sayReply($thanks, 1);

список команд

Шаблон:

((п|П)омощь|(п|П)омоги|(с|С)писок команд|я хз|а что можно)

Код

//runScript('help', array('actions'=>$this->getAvailableActions()));
say('Здесь доступны команды ',2);
$actions=$this->getAvailableActions();
$total=count($actions);
for($i=0;$i<$total;$i++) {
 say($actions[$i],1);
}

сценарий

Шаблон:

сценарий (.+)

Код

sayreply("Запускаю сценарий ".$matches[1]);
runScript($matches[1]);

отменить напоминание

Шаблон:

Отмени напоминание (.+)

Код

$u=5;
$naptime=mb_strtolower($matches[2]);
ClearScheduledJob($naptime);
say('Напоминание '.$naptime.' отменено!',$u);

повтори последнее сообщение

Шаблон:

(повтори последнее сообщение|повтори|последнее сообщение)

Код

sayReply(gg('ThisComputer.lastSayMessage'),2);

поговорим

Шаблон:

поговорим|поболтаем

Код

sayReply('Некогда болтать, я температуру в подвале меряю.',2);

погода

Шаблон:

(погода|температура за бортом|погода сегодня)

показания счетчика

Шаблон:

показания счетчика

Код

$x_x=gg("Counter01.valueWork");
$m_x=($x_x/100); //переводим в m3
sayreply('Показания счетчика горячей воды '.$m_x.' метров кубических',2);

//sayreply("Показания счетчика горячей воды",2);
//sayreply($m_x,2);
//sayreply("метров кубических",2);

привет Код

sayReply('Привет Григорий',2);

прогноз погоды

Шаблон:

(прогноз|погода на завтра|какая погода завтра|прогноз погоды|погода завтра|завтра погода|погода завтра какая|завтра погода какая|скажи погоду на завтра)

проснись

Шаблон:

(ты меня слышишь|очнись|говори голосом|проснись|голос)

Код

global $voicemode;
$voicemode='on';
setGlobal('minMsgLevel',0);
sayReply('Я всегда рядом, если я молчу, это не значит что я не слышу вас', 2);
callMethod("ThisComputer.VolumeLevelChanged",array("VALUE"=>25));
cm('mainVLC.setVolume',array('volume'=>25));
brLinkCommand('vol_mute');

Спокойной ночи

Шаблон:

((С|с)покойной ночи|бай бай)

Код

sayReply('Спокойной ночи!',5);
sayReply('Весь свет будет выключен через минуту',5);
setTimeOut("lightOFF","RunScript('TurnOff');", 1*60);
callMethod('NightMode.activate');

таймер

Шаблон:

через (\d+) минут(.?) (.+)

Код

setTimeOut('timer', "getURL('http://localhost/command.php?qry=".urlencode($matches[3])."');", $matches[1]*60);

тихо

Шаблон:

(тихо|тишина|молчи|замолчи|заткнись|помолчи|усни)

Код

global $voicemode;
$voicemode='off';
say('Хорошо, я пошла спать');
setGlobal('minMsgLevel','12');
callMethod("ThisComputer.VolumeLevelChanged",array("VALUE"=>0));
cm('mainVLC.setVolume',array('volume'=>0));
brLinkCommand('vol_mute');

ты кто? Код

sayReply("Девочка-фиксик оранжевого цвета, всегда готовая прийти на помощь",2);
sayReply('А если серьезно, меня зовут Алиса, - я система управления умным домом',2);

читает новости

Шаблон:

новости

что запомнила

Шаблон:

(что запомнила|из файла|что помнишь)

Код

$arr = file("C:/_majordomo/htdocs/cms/texts/memory.txt");
  for($i = 0; $i < count($arr); $i++)
  {
   say($arr[$i],5);
  }

что такое

Шаблон:

(что такое|кто такой) (.+)

Код

$keywords = preg_split("/[\s,]+/",$original);  // помещаем запрос в массив
$totalz=count($keywords);
for($i=2;$i<$totalz;$i++) {  // i=2 отсекаем голосовую команду (шаблон). в моем случае "что такое" или "кто такой". Значение i= равна кол-ву слов в голосовой комманде.
$message_textz=$message_textz." ".$keywords[$i];
}

say("$message_textz,ожидайте,ищу по википедии ",2); 

// Установка свойства объекта на основании полученной переменной
sg("Объект.Свойство",$message_textz);
context_getuser();
context_clear();
context_activate(ID);

$zap="$message_textz";
$zapurl=urlencode($zap);
$url='https://ru.wikipedia.org/w/api.php?action=opensearch&search='.$zapurl.'&prop=info&format=xml&inprop=url';
$answ=file_get_contents($url);

$data_xml = simplexml_load_string($answ); //загружаем ответ от вики в массив
$otvet=$data_xml->Section[0]->Item[0]->Description[0]; //получаем первый найденный вариант
$description = $data_xml->Section[0]->Item[0]->Description[0]; //получаем определение слова 
if (empty($description)) { //если ничего не нашлось
    say ("по прямому запросу ничего нет. уточните запрос",2);
	 
 	for ($i=1; $i<50;) { // максимальное количество выводимых найденых вариантов запросов. можно сократить.
		$description = $data_xml->Section[0]->Item[$i]->Description[0]; //получаем определение слова 
		if (!empty($description)) { //если  определение есть, продолжаем
			$otvet2=$data_xml->Section[0]->Item[$i]->Text[0]; // записываем следующий вариант запроса
//удаление спецсимволов
			$otvet2=iconv("UTF-8","CP1251//IGNORE",$otvet2);
			$otvet2=iconv("CP1251","UTF-8",$otvet2);
			$otvet2="Вариант ".$i.":".$otvet2." "; // подготавливаем для озвучивания/ вывода на экран
			say($otvet2,2);
			$i++;
		} else { 
         	say("Больше вариантов нет.",2);
         	$i=100;
        }
	}
} else {
//удаление спецсимволов
	$otvet=iconv("UTF-8","CP1251//IGNORE",$otvet);
	$otvet=iconv("CP1251","UTF-8",$otvet);
	say($otvet,2);
//Сохраняем запросы в файл. это лог. на работу скрипта не влияет. можно удалить
	$data = fopen('wiki.xml', 'w'); //открываем файл для до записи 'a' для перезаписи 'w'
	$message_textz = "\n#######\n".$message_textz." = ".$otvet."\n\n";
	fwrite($data, $message_textz); //записываем результат выполнения
	fclose($data); //закрываем
 }

, Россия

На форуме: GriMax

Grigoriy