##tickloc:runsub ticked;

##ticked:
$fromhit = $actor's slot1;
$tohit = $actor's slot2;
if $actor's host > 0 then bless else caston;

##caston:
say 'bless',"[$fromhit] calls upon the spirits to aid [$tohit]";
set $actor's host to $tohit;
set $actor's pose to 'called';
set $actor's hosthow to 'upon';
relook $loc;

##bless:
runsub complete/5;

##complete:
include 58416;
multivar $skiller=$fromhit,$skillname='aim',$modname='bless',$modval='5',$moddur='40',$modtick='',$modend='70773';
runsub addmod;
getgender $tohit;
say 'msg',"[$tohit] feels as if $hisher aim is blessed";
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;

##modendeffect:
sayto $skiller,"Your $skillname is no longer enhanced by [70773].";

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

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