if second of hit then drowsiness;

##drowsiness:
$class = $init_obj's class;
if $class ne 'aitvaras' then decayme;
runsub drowsiness2/3;
##decayme:
$mat = $actor's material;
swap $mat add _decaymeat_;
set $actor's material to $mat;
##drowsiness2:
include 58416;
multivar $skiller=$target,$skillname='dodge',$modname='drowsiness',$modval='-30',$moddur='60',$modtick='$actor',$modend='$actor';
runsub addmod;
print "[$actor] injects sticky venom into [$target]";

##modtickeffect:
if $skiller's health > 0 then modtickeffect2;
##modtickeffect2:
runsub modeffectx/10;
##modeffectx:
$verb = (staggers,stumbles,wobbles,lurches forward,sways,pitches,teeters,totters);
$small = (somewhat,a little,a bit,fairly,completely,significantly,kind of,moderately,pretty,quite,rather,ratherish,slightly,sort of,tolerably,well);
$feeling = (sleepy,dazed,dopy,dozy,dreamy,drugged,half asleep,heavy,indolent,lackadaisical,languid,lazy,lethargic,lulled,speely,sluggish,slumberous,snoozy,somnolent,tired,torpid);
print "[$skiller] $verb, feeling $small $feeling.";

##modendeffect:
sayto $skiller,"Your $skillname is no longer impaired by the drowsiness.";