##tickloc2:
runsub whattodo;

##whattodo:
runsub organize/7 or gossip/7;

##organize:
print "The workers move some of the equipment around, trying to get everything perfect positioned.";

##gossip:
$tidbit = (I count at least two lies on that notice board, What are the Execs thinking to bring us down here?, I think the President is planning something, Unauthorized experiments? Pfft. The President ordered them himself!, Was it right to clear this city?, I hear that a few of the draegloths survived and that they are very displeased with us);
print "[$actor] whisper at each other '$tidbit'";

##examines:
runsub whatisit;

##pushes:
runsub whatisit;

##hits:
runsub whatisit;

##whatisit:
if $target = 74178 then panicky else end;

##panicky:
call "push $init_obj";
print "[$actor] gets a panicked look 'You can't touch those! They're very delicate!'";