# lib-rf-roleplay.pl
# by Gav Ford
# revford@blueyonder.co.uk
# http://revford.pwp.blueyonder.co.uk
# 2008-09-03
# Collected Subroutines and Arrays for Roleplay random generators


# Tavern Name Parts
@descs = (
  "Prancing", "Dancing", "Olde", "New", "Old", "Black", "White", "Blue", "Red", "Green", "Pink", 
  "Silver", "Gold", "Tin", "Copper", "First", "Last", "Hot", "Cold", "Proud", "Lame", "Deadly", 
  "Good Time", "Great", "Uber", "Dire", "Cursed", "Blessed", "Celestial", "Infernal", "Charcoal", 
  "Ash", "Fat", "Thin", "Massive", "Tiny", "Wide", "Narrow", "Blunt", "Sharp", "Adept", "Useless", 
  "Mud", "Diamond", "Ruby", "Sapphire", "Steel", "Iron", "Scarlet", "Worst", "Best", "Golden", 
  "Great", "Rugged", "Classic", "Grown", "Laughing", "Crying", "Weeping", "Giggling");

@names = (
  "Pony", "Dragon", "Pig", "Sailor", "Horse", "Smith", "Pint", "Shot", "Sword", "Axe", "Staff", "Bow",
  "Crossbow", "Ship", "Cart", "Wagon", "Trap", "Boat", "Dagger", "Skull", "Rose", "Daisy", "Eagle", 
  "Condor", "Arrow", "Spear", "Oar", "Rope", "Man", "Girl", "Wench", "Harlot", "Lady", "Lord", "Duke",
  "Cock", "Barrel", "Bear", "Goblin", "Orc", "Dog", "Cat", "Rat", "Skaven", "Wyvern", "Ork", "Uruk", 
  "Wolf", "Jackal", "Berry", "Leaf", "Seed", "Branch", "Hoop", "Grill", "Thief", "Rogue", "Monk", 
  "Paladin", "Barbarian", "Wizard", "Sorcerer", "Druid", "Bard", "Cleric", "Fighter", "Warrior", 
  "Noble", "Unicorn", "Woman", "Boy", "Hound", "Pussy");



# Tavern Menu Parts
@meatmethods = (
  "Roast", "Soup of", "Pie of", "Stew of", "Grilled", "Fried", "Boiled", "Salted", "Kebab of", "Mock",
  "Choice cuts of", "Raw", "Spiced", "Jerked", "Ground", "Leftover", "Marinated", "Crispy", "Glazed",
  "Sausage of", "Broiled", "Curried", "Chilli of", "Minced", "Burger of", "Spit Roasted", "Smoked", 
  "Battered", "Cold cuts of");

@vegmethods = (
  "steamed", "sun dried", "mashed", "pickled", "rolled", "boiled", "grilled", "smoked", "raw", 
  "spiced", "crispy");

@meats = (
  "Beef", "Pork", "Chicken", "Ox", "Rabbit", "Lamb", "Weasel", "Cod", "Trout", "Tongue",
  "Badger",  "Turkey", "Goat", "Aardvark Noses", "Camel", "Dog", "Snake", "Mutton",  "Bacon", "Ham", 
  "Cat", "Rat", "Bat", "Swan", "Pidgeon", "Duck", "Gammon", "Oxtail", "Spare Ribs", "Pheasant", 
  "Peacock", "Quail", "Goose", "Haggis", "Faggots", "Weevil", "Snails", "Trotters", "Gizzards", 
  "Veal", "Venison", "Hare", "Caribou", "Elk", "Moose", "Boar");

@veggies  = (
  "tomato", "onion", "basil", "pepper", "sprouts", "mushroom", "rosemary", "carrot", "cabbage", "peas",
  "sweetcorn", "raddish", "goat\'s cheese", "blackberry", "tripe", "salt", "thyme", "pear", "turnip", 
  "beans", "artichoke", "gravy", "leek", "egg", "apple", "orange", "wild berry", "seaweed");

@staples = (
  "fried potato", "oats", "corn", "bread", "barley", "rice", "pasta", "rolls", "roast potato", 
  "chipped potato", "fried bread", "mashed potato", "toast", "noodles", "spiced breads", "flat bread",
  "garlic bread", "baked potato", "boiled potato", "fried rice", "steamed rice", "boiled rice", 
  "spiced rice", "brown rice", "crackers", "biscuits", "cheese");



# Name Parts
@dowhats  = (
  "Amble", "Buck", "Dun", "Even", "Grey", "Black", "White", "Red", "Blue", "Tall", "Short", "Wide", 
  "Long", "Far", "Up", "Down", "Under", "Over", "Odd", "Strong", "Deep", "High", "Top", "Gid", "Lang",
  "Good");
@withwhos = (
  "crown", "man", "dragon", "wood", "castle", "stag", "way", "hill", "lake", "forest", "grove", "stud",
  "mare", "griffin", "wyvern", "eagle", "snake", "kin", "adder", "goat", "sheep", "ton", "age", "wich",
  "kestrel", "falcon", "tree", "end", "middle", "ring", "river", "cave", "ox", "leigh", "eon", "ner", 
  "ley", "cia", "try", "ar", "tag", "mers", "ray");

@boystartnames = (
  "Dar", "Dor", "Even", "For", "Gri", "Hel", "Mal", "Mor", "Ran", "Ste", "Ga", "Ni", "Mo", "Fal", 
  "Mir", "Da", "Har", "Bal", "Ed");
@boyendnames = (
  "vin", "n", "dur", "stag", "m", "ark", "dal", "dd", "az", "taz", "vid", "ar", "ak", "vey", "ic", 
  "ik", "rik", "drik", "mund");

@girlstartnames = (
  "Arve", "Esv", "Jhes", "Ker", "Lure", "Mi", "Row", "Shan", "Tess", "Sar", "Max", "Dai", "Ali", "Cal",
  "Saw", "Aud");
@girlendnames = (
  "ene", "ele", "sail", "ri", "an", "dri", "ah", "ine", "sy", "si", "ee", "li", "i", "ey", "ail", "il");



# Functions

sub tavern
  {
  $nameform = int rand(4);

     if ($nameform eq 0){$tavernname = 'The '. $descs[rand(@descs)]. ' '. $names[rand(@names)]}
  elsif ($nameform eq 1){$tavernname = 'The '. $names[rand(@names)]. ' and '. $names[rand(@names)]}
  elsif ($nameform eq 2){$tavernname = 'The '. $descs[rand(@descs)]. ' '. $names[rand(@names)]. 
         ' and '. $names[rand(@names)]}
  elsif ($nameform eq 3){$tavernname = 'The '. $names[rand(@names)]. ' and '. $descs[rand(@descs)]. 
        ' '.  $names[rand(@names)]} 

  return($tavernname);
  }



sub dishoftheday
  {
  $dishpath = int rand(2);

  if ($dishpath eq 0) {
    $mydish = $meatmethods[rand(@meatmethods)]. " ". $meats[rand(@meats)]. " with ". 
    $vegmethods[rand(@vegmethods)]. " ". $veggies[rand(@veggies)]. " and ". $staples[rand(@staples)]. 
    "."}
  else {
    $mydish = $meatmethods[rand(@meatmethods)]. " ". $meats[rand(@meats)]. " with ". 
    $veggies[rand(@veggies)]. ", ". $veggies[rand(@veggies)]. " and ". $staples[rand(@staples)]. "."}

  return($mydish);
  }



sub malename {return "$boystartnames[(rand @boystartnames)]$boyendnames[(rand @boyendnames)]";}
sub femalename {return "$girlstartnames[(rand @girlstartnames)]$girlendnames[(rand @girlendnames)]";}
sub surname {return "$dowhats[(rand @dowhats)]$withwhos[(rand @withwhos)]";}



1;