if target of examines then changeclr;
if target of use then doit;

##changeclr:
$clr = $actor's colour;
cycle $clr through (red,blue,green,yellow,orange,purple,violet,black,white,silver,grey,lightblue,forestgreen);
store $actor's colour = "$clr";
relook $loc;
##doit:
var $efct to random 4;
runsub chkfx;
##chkfx:
case $efct do fx1,fx2,fx3,fx4;