##tickloc:
runsub chgcolour;

##chgcolour:
runsub changeit/20;
$clr = $actor's colour;
cycle $clr through (white,ghostwhite,ivory,silver,lightgrey,darkgrey);
store $actor's colour = "$clr";