johndk

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

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

((В|в)ключи|(В|в)ключить|(З|з)апусти|(З|з)апустить) мотор

say ("Включаю мотор",2);
setGlobal('Switch1.status',1);
exec ("/home/pi/PROJECTS/led/motorun");

((В|в)ыключи|(В|в)ыключить|(О|о)станови|(О|о)становить) мотор

say ("Выключаю мотор",2);
setGlobal('Switch1.status',0);
exec ("/home/pi/PROJECTS/led/motostop");

((В|в)ключи|(В|в)ключить|(З|з)апусти|(З|з)апустить|(И|и)играй) музыку

runScript('playFavoriteMusic');