##tickloc:runsub spookyforest;
##spookyforest:
runsub spookyforest2/15 or spookyforest3/15;
##spookyforest2:
$where = (afar,the distance,somewhere far away,somewhere hidden,the north,the south,the east,the west,just out of sight);
$what = (a howl,the rustle of leaves,the snap of a twig,a falling branch,the hoot of an owl,a growl,the fluttering wings,the call or a strange bird,the cry of a young animal);
$disturbs = (breaks,disturbs,interrupts,spooks);
$calm = (silence,quiet,peace,stillness);
$here = (of the forest,of the trees,surrounding you,under the canopy);
print "From $where, $what $disturbs the $calm $here.";
##spookyforest3:
$bad = (appalling,awful,bad,beastly,detestable,disgusting,dreadful,execrable,foul,god-awful,horrible,horrid,horrifying,loathsome,repulsive,rotten,sickening,terrible,malodourous);
$stink = (smell,stench,stink,reek,odour,effluvium,fetor,mephitis,malodor);
$decaying = (decaying,decomposing,spoiled,crumbling,feculent,festering,fetid,moldering,perished,purulent,pustular,putrescent,putrid,putrified,rancid,rank,rotting,sour,stale,tainted,wilted,decrepit,desolate,deteriorated);
$enters = (assails,assaults,breaches,descends upon,encroaches upon,meddles with,occupies,overruns,swarms,pentrates,permeates,pervades,pillages,raids,ravages,trespasses into,violates);
$nose = (your nose,your nostrils,your olfactories,your faculties,your senses,the area,the surroundings,the vicinity,the scene,the ambiance,the locale,the place);
print "The $bad $stink of something $decaying $enters $nose.";