##tickloc:runsub ticked;

##ticked:
if $actor's host > 0 then light else caston;

##caston:
$fromhit = $actor's slot1;
$tohit = $actor's slot2;
say 'light',"[$fromhit] casts [$actor] at [$tohit]!";
set $actor's host to $tohit;
set $actor's pose to 'shining';
set $actor's hosthow to 'around';
relook $loc;

##light:
runsub endlight/10;

##endlight:
say 'msg',"[$actor] fades away";
unhost $actor;
clear $actor,all;
set $actor's host to 0;
set $actor's hosthow to '';
set $actor's loc to 0;
set $actor's code to '';
relook $loc;
switch $actor off;

##difficultdata:
$dcommand = 'cast';
$dlevel = 1;
$dreq = 1;
$dskill = 'sorcery';
$dskillcap = 10;
$dskilltip = 69431;
set $actor's mana to 1;

##failcast:
"[$init_obj]'s attempt fizzles.";