How to replicate counter in PICED in SHAC

Have an old C-Bus install that is being upgraded and adding a SHAC. There is only piece of logic in PICED and it is a counter to turn on a two different GA's from a single button that has custom function.

GA66 is addressed to the switch. The switch has the following block functions:

Short Press - On Key
Short Release - Off Key
Long Press - On Key
Long Release - Off Key

There are 4 counter functions that trigger other GA's. For exmaple,

Counter 1 - set GA81 to On
Counter 2 - set GA82 to On

Counter 3 - Set GA81 to Off
Counter 4 - Set GA82 to Off

Have tried to find script that resembles this in the helpers but no luck. Is this possible with scripting?

TIA for any assistance.

 

Sorry Nick, my mistake when typing the info. Counter 2 sets GA82 to On (have updated the post). See code below:

once (GetLightingState("*Ensuite Heat*") = ON) then
begin Counter := Counter + 1;
end;

once Counter = 1 then
begin
SetLightingState("Ensuite IXL Heat 1", ON);
end;

once Counter = 2 then
begin
SetLightingState("Ensuite IXL Heat 2", ON);
end;

once Counter = 3 then
begin
SetLightingState(".Ensuite IXL Heat 2", OFF);
end;

once Counter = 4 then
begin
SetLightingState("Ensuite IXL Heat 1", OFF);
Counter := 0;
end;

Thanks.