if target of drink then drunk;
##drunk:
include 58416;
multivar $skiller=$init_obj,$skillname='aim',$modname='drunkenness',$modval='-10',$moddur='60',$modtick='',$modend='65676';
runsub addmod;
multivar $skiller=$init_obj,$skillname='dodge',$modname='drunkenness',$modval='-10',$moddur='60',$modtick='65676',$modend='65676';
runsub addmod;
$verb = (reels,wheezes,coughs,grimaces,contorts,buckles,winces,recoils);
$strong = (strong,sturdy,powerful,hardy,hearty,mighty,potent,stout,tenacious,vigorous,sharp);
$liquid = (liquid,elixir,extract,juice,liquor,solution,swill);
$verb2 = (assaults,invades,enters,storms,strikes,violates,abuses,assails,besets,sets upon,trashes,encroaches upon,raids);
$stomach = (stomach,belly,innards,gut,esophagus);
getgender $init_obj;
print "[$init_obj] $verb as the $strong $liquid $verb2 $hisher $stomach.";
##modtickeffect:
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 = (befuddled,buzzed,drunk,flushed,fuddled,gassed,glazed,groggy,hammered,hosed,inebriated,jolly, jugged,juiced,lit,merry,muddled,pie-eyed,pissed,plastered,plowed,sloshed,soaked,sotted,soused,stewed, tanked,tipsy,wasted,zonked);
print "[$skiller] $verb, feeling $small $feeling.";
##modendeffect:
sayto $skiller,"Your $skillname is no longer impaired by drunkenness.";