if target of use then doit;

##doit:
foreach in loc do checkmat;
if $loc's material like '_dark_' then skipit else blackit;
print "[$init_obj] throws [$actor], engulfing the area in darkness!";

##checkmat:
if $for_id's material like '_light_' then putout else end;

##putout:
$mat = $for_id's material;
swap $mat take '_light_';
set $for_id's material = $mat;
print "[$for_id] is smothered by the dense darkness";
clear $actor, all;
set $actor's extra to 'broken into little pieces';

##blackit:
$lmat = $loc's material;
swap $lmat add '_dark_';
set $loc's material = $lmat;
relook $loc;
##tickloc:
runsub countit;
##countit:
add 1 to $counter;
if $counter = 60 then nomore else end;

##nomore:
swap $lmat take '_dark_';
set $loc's material = $lmat;
clear $actor, all;
set $actor's 'extra to 'broken into little pieces';
relook $loc;