##tickloc:
runsub ticked;
##ticked:
runsub doit/10;
if target of touch then doit;
if target of use then turnoff;
##turnoff:
switch $actor toggle;
##doit:
$tobj = 87;
if $actor's loc = $tobj's loc then continue else gotoit;
##continue:
$tnam = $tobj's name;
set $actor's pose to 'shining down on $tnam';
##gotoit:
set $actor's loc to $tobj's loc;