Сергей

(Н|н)аступний трек

((В|в)ключи|(П|п)остав|(У|у)станови) будильник на (\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);

((В|в)иключи|(З|з)акрий) плеєр

(П|п)ауза|(P|p)lay

(В|в)включити (Р|р)адіо