Xor

//global $session; 
//global $username;
//$n = $session->data['SITE_USERNAME']; 
//debmes (' шаблон Алиса SITE_USERNAME->'.$n.'<-');
$t = context_getuser();
//debmes (' шаблон Алиса context_getuser->'.$t.'<-');
//$t = $session->data['SITE_USER_ID']; 
$n = getUserObjectByTitle($t,1);
$fn=gg($n.'.fullName');
say('Что, '.$fn.'?');
debmes (' шаблон Алиса $username->'.$username.'<-');

(брось|кинь) куб

playSound('dice');
say('Бросаю кубик!',2);
sleep(4);
$r = rand(1,6);
say('Выпало '.$r.' '.GetNumberWord($r,array('очко','очка','очков')),2);

(брось|кинь|подкинь|подбрось) монет

playSound('monet');
say('Бросаю монету!',2);
sleep(5);
$r = rand(0,1);
if($r){
 say('Орёл!',2);
}else{
 say('Решка!',2);
}

(поставь|установи|заведи) будильник на (\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('AlarmOnce.Enable',1);
setGlobal('AlarmOnce.start',$h.':'.$m);

(включи|выключи)

if(preg_match('/включи/isu', $original)){
  say('Включить что именно?',2);
  saveToCache('VAR:original.0','включи');
}elseif(preg_match('/выключи/isu', $original)){
  say('Выключить что именно?',2);
  saveToCache('VAR:original.0','выключи');
}else{
  //say('Непонятно ',2);
  saveToCache('VAR:original.0','');
}

$query = gg('AliceAsk.Query');
setGlobal('AliceAsk.Responce','');
if(gg('AliceAsk.useVoice')){//флаг для телеграма беззвучно
      include_once(DIR_MODULES . 'telegram/telegram.class.php');
      $telegram_module = new telegram();
      $telegram_module->sendMessageToAll($query);
      sg('AliceAsk.useVoice', 0);
}else{
  say($query,2);
}

громкость (\d+)

$volume_now = (int)$matches[1];
if ($volume_now>100) {
 $volume_now = 100;
}
callMethod("ThisComputer.ChangeVolumeLevel",array("VALUE"=>$volume_now));

//VLC playing?
 cm('mainVLC.getStatus');
 if(gg('mainVLC.status')=='playing'&&gg('mainVLC.volume')<350){
 $vol = gg('mainVLC.volume');
 $vol = $vol+15;
 if($vol>350){$vol = 350;}
 cm('mainVLC.setVolume',array('volume'=>$vol));
  say('увеличим Громкость плеера до '.$vol);
}elseif(gg('Samsung.status')=='1'){
//tv on?
  brLinkCommand('pro_vol_up');
  usleep(500000);
  brLinkCommand('pro_vol_up');
  say('увеличим Громкость тв на кухне');
}else{//main volume up
 $vol = gg('VolumeLevel');
 $vol = $vol+15;
 if($vol>100){$vol = 100;}
 callMethod("ThisComputer.ChangeVolumeLevel",array("VALUE"=>$vol));
 say('увеличим системную Громкость до '.$vol);
}
//say('Громче',2);

Громче на (\d+)

//VLC playing?
$delta =(int) matches[1];
 cm('mainVLC.getStatus');
 if(gg('mainVLC.status')=='playing'&&gg('mainVLC.volume')<350){
 $vol = gg('mainVLC.volume');
 $vol = $vol+$delta;
 if($vol>350){$vol=350;}
 cm('mainVLC.setVolume',array('volume'=>$vol));
  say('увеличим Громкость плеера до '.$vol);
}elseif(gg('Samsung.status')=='1'){
//tv on?
  if($delta>20)$delta = 20;//
  for ($x=0; $x<$delta; $x++){
   brLinkCommand('pro_vol_up');
   usleep(500000);
  }
  say('увеличим Громкость тв на кухне');
}else{//main volume up
 $vol=gg('VolumeLevel');
 $vol=$vol+$delta;
if($vol>100){$vol=100;}
 callMethod("ThisComputer.ChangeVolumeLevel",array("VALUE"=>$vol));
  say('увеличим системную Громкость до '.$vol);
}
//say('Громче',2);

(закрой|опусти) штор

callMethod("blind1.close");

запиши (.+)

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

(купить|купи) (.+)

$search = array("добавь в список покупок","Добавь в список покупок","Купить ","купить ","купи ","Купи ");
///debmes("m ".$matches[0]);
//debmes("o ".$original);
$ss = trim(str_ireplace($search,'',$matches[0]));
$ss = trim(mb_substr($ss, 0, 30));
//debmes("ss ".$ss);
if($ss > ''){

//remove doubles
$sql = "DELETE FROM clnd_events WHERE CALENDAR_CATEGORY_ID IN (SELECT b.ID FROM clnd_categories b WHERE b.TITLE='Покупки') AND TITLE LIKE '$ss'";
sqlexec($sql);
say("Добавляю ".$ss, 2);
include_once(DIR_MODULES . 'todoer/todoer.class.php');
$todo = new todoer();
$tsk = array(
    'TITLE'			=>$ss,
	//'NOTES'			=> "This task maked from code...",//your notes
 	'IS_NODATE'		=> 1,
	'CATEGORY'		=> "Покупки",
//  ... and so on
);
//echoes id of new task
$todo->create_new_task($tsk);
}

очисть список покупок

$sql = "DELETE FROM clnd_events WHERE CALENDAR_CATEGORY_ID IN (SELECT b.ID FROM clnd_categories b WHERE b.TITLE='Покупки')";
sqlexec($sql);
rs("sent2keep");
say("Список покупок пуст!",2);
rs("sent2keep");

(удали из списка покупок) (.+)

//debmes("original=".$original);
$search = array("удали из списка покупок","Удали из списка покупок");
$ss = trim(str_ireplace($search,'',$matches[0]));
if($ss>''){

say("Удаляю из списка покупок ".$ss,0);
$sql = "DELETE FROM clnd_events WHERE CALENDAR_CATEGORY_ID IN (SELECT b.ID FROM clnd_categories b WHERE b.TITLE='Покупки') AND TITLE LIKE '$ss'";
//debmes($sql);
sqlexec($sql);
rs("sent2keep");
}

(найди|поищи|запомни) (.+)

if(IsSet($matches[2])){ 
     $quest = $matches[2];
     $answ = SQLSelect("select * from myglossary where TITLE like '%".$quest."%'");
     $total = count($answ);
     if($total > 0) {
       say('По запросу «'.$quest.'» найдено:',2);
            for ($i = 0; $i < $total; $i++){
              say($answ[$i]['TITLE'].' - '.$answ[$i]['DESCRIPTION'], 2);
            }
 }else{
  //спросим насчет добавить
  $params['query'] = $quest;
  runScriptSafe('glos0', $params);
 }
}

напомни (.+)

debmes('txt=>'.$matches[1]);
rs('setMemo',array('txt'=>$matches[1]));

(открой|подними) штор

callMethod("blind1.open");

повтори (.+)

say($matches[1], 2);
//debmes(print_r($matches,true));

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

расскажи

say('Рассказать о чём?',1);

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

$command=$matches[1];

$com=str_replace(',','.',$command);
$com=str_replace('разделить на','/',$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);
$com=str_replace('отнять','-',$com);
$com=str_replace('вычесть','-',$com);
$com='$result=' . $com .';';

eval($com);
$result=str_replace('.',',',$result);
say($command.' равно '.$result,2);

say('Смена режима пульта',2);
$st = gg('NooPult1.status');
switch($st){
 case 'диалог':
  sg('NooPult1.status','управление светом');
  break;
 case 'управление светом':
  sg('NooPult1.status','управление звуком');
  break;
 case 'управление звуком':
  sg('NooPult1.status','диалог');
  break;  
}
say(gg('NooPult1.status'),2);

Температура в спальне (.+)

//$txt = 'температура на кухне двадцать три с половиной';
$replace = array();  
for ($x = 30; $x > 3; $x--){
    $replace[mynum2str($x,'','','',0)] = $x;
  }
 //$txt1 = str_replace(array_keys($replace),array_values($replace),$txt);
 //$txt1 = str_replace(array(' градуса',' градусов',' градус'),'',$txt1);
 $txt = $matches[1];
 $txt = str_replace('  ', ' ', $txt);
 $replace[' с половиной'] = '.5';
 $txt1 = strtr($txt, $replace);
 $txt1 = strtr($txt1,array(' градуса'=>'',' градусов'=>'',' градус'=>''));
 //echo $txt1."
";
 $temp = $txt1;
//$temp=(float)$matches[1];
if(($temp>3) && ($temp<40)){
  sg('PID1.SetPoint',$temp);
  say('Температура установлена на '.$temp."°C",2);
}else{
  say('Сколько? Я не буду это делать!',2);
}

Температура на кухне (.+)

//$txt = 'температура на кухне двадцать три с половиной';
$replace = array();  
for ($x = 30; $x > 3; $x--){
    $replace[mynum2str($x,'','','',0)] = $x;
  }
 //$txt1 = str_replace(array_keys($replace),array_values($replace),$txt);
 //$txt1 = str_replace(array(' градуса',' градусов',' градус'),'',$txt1);
 $txt = $matches[1];
 $txt = str_replace('  ', ' ', $txt);
 $replace[' с половиной'] = '.5';
 $txt1 = strtr($txt, $replace);
 $txt1 = strtr($txt1,array(' градуса'=>'',' градусов'=>'',' градус'=>''));
 //echo $txt1."
";
 $temp = $txt1;
//$temp=(float)$matches[1];
if(($temp>3) && ($temp<40)){
  sg('PID2.SetPoint',$temp);
  say('Температура установлена на '.$temp."°C",2);
}else{
  say('Сколько? Я не буду это делать!',2);
}

Тихо|молчи

callMethod("ThisComputer.ChangeVolumeLevel",array("VALUE"=>0));
cm('mainVLC.setVolume',array('volume'=>0));
brLinkCommand('vol_mute');

debmes('pattern Тише');
cm('mainVLC.getStatus');
if(gg('mainVLC.status')=='playing'&&gg('mainVLC.volume')>0){
//VLC 
 $vol = gg('mainVLC.volume');
 $vol = $vol-15;
 if($vol<0){$vol = 5;}
 cm('mainVLC.setVolume',array('volume'=>$vol));
 say('уменьшим Громкость плеера до '.$vol);
}elseif(gg('Samsung.status')=='1'){
//tv on?
  brLinkCommand('pro_vol_down');
  usleep(500000);
  brLinkCommand('pro_vol_down');
  say('уменьшим Громкость тв на кухне');
}else{//main volume up
 $vol=gg('VolumeLevel');
 $vol = $vol-15;
 if($vol<0){$vol = 5;}
 callMethod("ThisComputer.ChangeVolumeLevel",array("VALUE"=>$vol));
 say('уменьшим системную Громкость до '.$vol);

}
//say('Тише',2);