if target of examines then cycleme;

##cycleme:
$mystate = $actor's colour;
cycle $mystate through (pink,red,yellow,orange,lawngreen,turquoise);
print "[$actor] flashes a bright $mystate";
set $actor's colour to $mystate;
relook $loc;
print "No Swimming";