if target of switch then toggleme;
if target of switchon then turnmeon;
if target of switchoff then turnmeoff;

##toggleme: $clr to $actor's colour; runsub setcolour;

##setcolour:
cycle $clr through (darkred,orange);
set $actor's colour to "$clr";
relook $loc;

##turnmeon: $clr = 'darkred'; runsub setcolour;
##turnmeoff: $clr = 'orange'; runsub setcolour;