How to record 5 seconds of video every 30 minutes using Alarm Task Script?

//Define weekly timer from Monday to Sunday from 7am to 9pm
Timer weekly := {TimeBegin(07:00) TimeEnd(21:00) DayBegin(Mo) DayEnd(Su) };

//define what is to be recorded
Recording recording:= { Camera(All) };

// Define Operation Mode to periodic, 1 sec low 30 min high
OperationMode periodic := { Low(10) High(18000) };

TempState(1):=periodic;

//define recording timer
OperationMode monostable := {High(50)};
TempState(2):=monostable;


//Turn on recording timer
if (IsActivated(weekly)) then TempState(1) := true;

if (TempState(1)) then TempState(2) := true;

if (TempState(2)) then recording else Stop(recording);