# lib-rf-babble
# by Gav Ford
# revford@blueyonder.co.uk
# http://revford.pwp.blueyonder.co.uk
# 2008-09-03
# technobabble generator, perl version


@actions = (
  "Bypass", "Vent", "Realign", "Deflect", "Transform", "Configure", "Upgrade", 
  "Remove", "Install", "Bounce", "Boost", "Reconfigure", "Align", "Kick", 
  "Reboot", "Plug in", "Attach", "Calibrate", "Repair", 
  "Reverse the polarity of");

@techs = (
  "secondary EPS", "plasma", "energon", "creation matrix", "laser", 
  "geo-thermal", "holo", "transformation", "stealth", "communications", "flux", 
  "graviton", "particle", "gyro", "sonic", "radio", "sonar", "radar", "pulsar", 
  "quasar", "booster", "kettle", "neutron");

@paths = (
  "relay", "conduit", "circuit", "board", "processor", "switch", "grid", 
  "condenser", "drive", "field", "sensor", "capacitor", "dish", "breaker", 
  "channel", "flow", "plug", "deflector", "container", "slot", "adaptor", "cell",
  "resistor", "shaft");


sub babble
  {
  return ($actions[rand(@actions)] . " the " . $techs[rand(@techs)] . " " . $paths[rand(@paths)]);
  }


1;