##tickloc:runsub webmaint;
##webmaint:runsub webmaint2/20;
##webmaint2:
$web = 65926;
$crawls = (crawls,creeps,clambers,inches,scrabbles,wriggles,darts,dashes);
$deftly = (deftly,cautiously,daintily,elegantly,exquisitely,fastidiously,gracefully,lightly,precisely,seinsitively,skillfully);
$inspecting = (inspecting,checking,going over,eyeing,investigating,looking over,noticing,observing,reviewing,scanning,scoping,scrutinizing,searching,studying,viewing);
$spins = (spins,weaves,stretches,develops);
$broken = (broken,collapsed,damaged,defective,mutilated,riven,split,disconnected,disturbed);
$strand = (strand,fiber,filament,length,lock,string,tress,silk);
$bit = (bit,fragment,piece,parcel,portion,scrap,section,segment,smidgen,snippet,trace);
$patch = (patch,repair,correct,darn,doctor,mend,mend,rebuild,rectify,refurbish,renew,renovate,restore,rethread,revamp,right,sew);
$flutters = (flutters,dances,flits,flitters,flops,pulastes,quavers,ripples,ruffles,shakes,shivers,throbs,trembles,vibrates,wobbles);
$insect = (fly,caterpillar,mosquito,gnat,moth,cricket,roach,bee,wasp,hornet);
$caught = (caught,snagged,trapped,captured,entangled,entrapped,nabbed,seized,snared);
$snatches = (snatches,abducts,catches,clutches,grapples,grasps,grips,takes,wrests);
$cocoon = (cocoon,case,cask,shroud,cloak,screen,veil,blanket,coat);
runsub format1 or format2 or format3 or format4;
##format1:
print "[$actor] $crawls $deftly across [$web], $inspecting a $broken $strand.";
##format2:
print "[$actor] $spins a $bit of silk to $deftly $patch a $broken $strand in [$web].";
##format3:
print "[$web] $flutters as a $insect is $caught in a $strand.";
##format4:
print "[$actor] $deftly $crawls across [$web], $snatches a $insect and $spins it into a $cocoon of silk.";