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 "Good job on the Friendship Cards and RP Portal. Hope to see more of your works around COW!";
print "-WizJoe";