if second of hit then poison;

##poison:
runsub poison2/3;
$qty = $actor's qty;
take 1 from $qty;
if $qty < 1 then eraseme else lessme;
##eraseme:
multiset $actor to "loc='0',host='',hosthow='',pose=''";
relook $loc;
##lessme:
$worth = $actor's worth;
take 10 from $worth;
multiset $actor to "qty='$qty',worth='$worth'";
##poison2:
include 58416;
multivar $skiller=$target,$skillname='aim',$modname='poison',$modval='-10',$moddur='30',$modtick='',$modend='$actor';
runsub addmod;
multivar $skiller=$target,$skillname='dodge',$modname='poison',$modval='-20',$moddur='40',$modtick='$actor',$modend='$actor';
runsub addmod;
print "[$actor] injects something viscous into [$target]";

##modtickeffect:
runsub modeffectx/10;
##modeffectx:
$health = $skiller's health;
take 3 from $health;
if $health < 0 then zeroit;
set $skiller's health to $health;
$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 = (befuddled,flushed,fuddled,groggy,weak,dizzy,nauseous);
print "[$skiller] $verb, feeling $small $feeling.";
##zeroit:
$health = 0;

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