##tickloc:
runsub checkhost;
##checkhost:
if $actor's host > 0 then checkhost2;
##checkhost2:
$hoster = $actor's host;
if $hoster's material like living then actcurse;
##actcurse:
$objm = $actor;
include 58416;
multivar $skiller=$hoster,$skillname='aim',$modname='cursed',$modval='-20',$mobj='$actor',$moddur='',$modtick='',$modend='';
runsub addmod;
multivar $skiller=$hoster,$skillname='dodge',$modname='cursed',$modval='-20',$moddur='',$mobj='$actor',$modtick='',$modend='';
runsub addmod;