file36.js

/* __ _  _   _   ___ _         _
 / __| || | /_\ / __| |__  ___| |_
| (__| __ |/ _ \\__ \ '_ \/ _ \  _|
 \___|_||_/_/ \_\___/_.__/\___/\__| CHAS (C) 2017
 Build 2020.2 Refactored for DialogFlow v2*/


// Make sure everything is properly defined
'use strict';
// Pick up variables from the server implementation || Remove API keys
// Source: https://github.com/CHASbotGIT/CHASbotNodeHooks
const KEY_IV = process.env.KEY_IV;
const KEY_ROOT = process.env.KEY_ROOT;
const KEY_ADMIN = process.env.KEY_ADMIN;
const KEY_VERIFY = process.env.KEY_VERIFY;
const KEY_CRYPTO = process.env.KEY_CRYPTO;
const URL_CHASBOT = process.env.APP_URL;
const URL_POSTGRES = process.env.DATABASE_URL;
const KEY_API_HERO = process.env.KEY_API_HERO;
const KEY_API_LOTR = process.env.KEY_API_LOTR;
const KEY_API_GIPHY = process.env.KEY_API_GIPHY;
const KEY_DIALOGFLOW = process.env.KEY_DIALOGFLOW;
const KEY_PAGE_ACCESS = process.env.KEY_PAGE_ACCESS;
const KEY_API_WEATHER = process.env.KEY_API_WEATHER;
const KEY_API_MOVIEDB = process.env.KEY_API_MOVIEDB;
const GOOGLE_PROJECT_ID = process.env.GOOGLE_PROJECT_ID;
const KEY_MARVEL_PUBLIC = process.env.KEY_MARVEL_PUBLIC;
const KEY_ADMIN_TRIGGER = process.env.KEY_ADMIN_TRIGGER;
const KEY_MARVEL_PRIVATE = process.env.KEY_MARVEL_PRIVATE;
const GOOGLE_CLIENT_EMAIL = process.env.GOOGLE_CLIENT_EMAIL;
const GOOGLE_PRIVATE_KEY_ORIG = process.env.GOOGLE_PRIVATE_KEY;
const GOOGLE_PRIVATE_KEY = GOOGLE_PRIVATE_KEY_ORIG.replace(/\\n/g, '\n');

// Set-up dependencies for app x-ref tp package.json
const pg = require('pg'); // https://www.npmjs.com/package/pg
const request = require('request'); // https://github.com/request/request
const express = require('express'); // https://expressjs.com
const bodyParser = require('body-parser'); // https://github.com/expressjs/body-parser
const levenshtein = require('js-levenshtein'); // https://www.npmjs.com/package/js-levenshtein
// Configure dialogFlow session credentials
const dialogflow = require('@google-cloud/dialogflow');
const credentials = {
  client_email: GOOGLE_CLIENT_EMAIL,
  private_key: GOOGLE_PRIVATE_KEY,
};
const sessionClient = new dialogflow.SessionsClient(
  {
    projectId: GOOGLE_PROJECT_ID,
    credentials
  }
);

// Node.js libraries used
const fs = require("fs"); // https://nodejs.org/api/fs.html
const http = require('https'); // https://nodejs.org/api/https.html
const crypto = require('crypto'); // https://nodejs.org/api/crypto.html
// Difining algorithm
const ALGO = 'aes-256-cbc';

// Initialise CHASbot
const CHASbot = express();
CHASbot.use(bodyParser.json());
CHASbot.use(bodyParser.urlencoded({ extended: true }));
var server_port = process.env.PORT || 9000; //
var server_ip_address = '127.0.0.1'; // Only for testing via local NGROK.IO
// Timings
const KEEP_ALIVE = 25; // mins
const TIME_TO_WAIT = 120; // mins
const UTC_BST_GMT = 1; // Currently BST = UTC + 1
const UTC_DAWN = 7;
const UTC_DUSK = 21;

// ********************************************************************************************
// ********************************************************************************************
// ESTABLISH LISTENER
/* Only for TESTING via local NGROK.IO
const server = CHASbot.listen(server_port, server_ip_address, () => {
  console.log("INFO [NGROK.IO]> Listening on " + server_ip_address + ", port " + server_port );
  console.log("INFO [NGROK.IO]>>>>>>>>>>>>>>>>>>> STARTED <<<<<<<<<<<<<<<<<");
});*/
// Only for PRODUCTION hosting on HEROKU
const server = CHASbot.listen(server_port, () => {
 console.log("INFO [HEROKU]> Listening on ", + server_port);
 console.log("INFO [HEROKU]>>>>>>>>>>>>>>>>>> STARTED <<<<<<<<<<<<<<<<<<");
});

// Keep Heroku alive
setInterval(function() {
    http.get(URL_CHASBOT);
}, mnsConvert(KEEP_ALIVE));
// ********************************************************************************************
// ********************************************************************************************

// Messenger templates can be found at:
// https://developers.facebook.com/docs/messenger-platform/send-messages/templates
// File dependencies
const FILE_HIGH = "./high_score.txt"; // Same directory as source code
const FILE_SURVEY = "./survey.txt";
const FILE_CALENDAR = "./calendar.txt";
const FILE_ENCRYPTED_IDS = "./ids_public.txt";
const FILE_ENCRYPTED_BIOS = "./bios_public.txt";
const FILE_TO_BE_ENCRYPTED = "./ids_private.txt"; // "./bios_private.txt"  "./fundraising_private.txt"
const FILE_ENCRYPTED_FR_CARD = "./fundraising_public.txt";
const FILE_ENCRYPTED = FILE_ENCRYPTED_IDS; // FILE_ENCRYPTED_FR_CARD FILE_ENCRYPTED_BIOS FILE_ENCRYPTED_IDS
// Messages
const MSG_RPSLS_INTRO = "💡 First to five is the champion.\n✌️Scissors cuts Paper✋,\n✋Paper covers Rock👊,\n👊Rock crushes Lizard🤏,\n🤏Lizard poisons Spock🖖,\n🖖Spock smashes Scissors✌️,\n✌️Scissors decapitates Lizard🤏,\n🤏Lizard eats Paper✋,\n✋Paper disproves Spock🖖,\n🖖Spock vaporizes Rock👊, and\n👊Rock crushes Scissors✌️!";
const MSG_RPSLS_PROMPT = "Choose (type in)... Rock, Paper, Scissors, Lizard or Spock?";
const MSG_HANGMAN_INTRO = "🤔 Figure out the mystery staff member name.\nType a letter to guess, or 'stop'.\nYou are allowed no more than 3 strikes.";
const MSG_SURVEY_THANKS = "❤️ Thank you for finishing our little survey.";
const MSG_HANGMAN_PROMPT = "🤔 Where were we... who is that!\nType a letter, or 'stop'.\nNo more than 3 strikes.";
var MSG_STAR_RATING = [
  "Meh, in my book it's complete pants, all rotten tomatoes 🍅🍅🍅🍅🍅.",
  "I'd be generous giving it ⭐🍅🍅🍅🍅, I watched it so you don't have to!",
  "Wouldn't watch it again at ⭐⭐🍅🍅🍅, give it 20 mins and judge for yourself.",
  "I'd give it a better than average ⭐⭐⭐🍅🍅. Pop it on.",
  "Well worth the watching ⭐⭐⭐⭐🍅, give it a go.",
  "Wow, a fantastic ⭐⭐⭐⭐⭐. In my humble opinion. you must watch."];
var MSG_THUMBS = ["👍👍👍","👍👍👎","👍👎👎","👎👎👎"];
var MSG_RANDOM_COMPLIMENT = [
  "Looking good.","You're more fun than bubblewrap.","I bet you do crossword puzzles in ink.",
  "You're like a breath of fresh air.","You're like sunshine on a rainy day.","On a scale from 1 to 10, you're an 11.",
  "Your smile is contagious.","You know how to find that silver lining.","You're inspiring.","I like your style.",
  "You're a great listener.","I bet you sweat glitter.","You were cool way before hipsters.",
  "Hanging out with you is always a blast.","You're one of a kind.","You always know just what to say.",
  "There's ordinary, and then there's you."];
var MSG_INTERCEPTS = [
  ["🎁 While it's always nice to receive a gift, I'm not sure what you want me to do with that ",
   "🎁 I do appreaciate a nice present, so thank you for the lovely ",
   "🎁 I'm far better at understanding regular text, but it is good of you to send me the "],
  ["👍 I'm so glad you like it.",
   "👍 I'm pleased too."],
  ["👍👍 You are very pleased, press for even longer next time!",
   "👍👍 Nice that you are so very chuffed!"],
  ["👍👍👍 Wow, that good is it! I'm ecstatic too!!",
   "👍👍👍 Gosh, you are completely over the moon!!"],
  ["🐰 I do like a nice sticker though I'm not sure that gets us anywhere.",
   "🐰 Stickers are just great, they really brighten up a conversation."],
  ["😃 I’m not too good at reading emotions but that is a power of positivity you are sending out.",
   "😃 You are totally beaming out the sunshine with those happy emojis."],
  ["😭 Bots may not be big on reading people but I’m picking up a negative vibe.",
   "😭 I'm picking up on a lot of unhappy emojis but maybe you just like them."],
  ["🤔 I’m either not picking you up very well or you’ve got quite mixed feelings.",
   "🤔 I’m not sure from that mix of emojis, whether you are up or down."],
  ["💥 That’s an awful lot of emoticons you crammed in there, hard to find what you are saying.",
   "💥 Wow, that's a lot more emojis than I can make sense of."]];
var MSG_TOPTRUMPS_INTRO1 = "🤖 Let's play Top Trumps to see how many wins you can get in a row. I'll get you started with ";
var MSG_TOPTRUMPS_INTRO2 = ", my choice of hero (or villain).\n1️⃣ First pick a category you think you can beat, then\n2️⃣ name your hero or villain.\nKeep picking categories and naming characters until you are defeated! If the value on my card, or on any card you play, is a mystery (i.e.❓) then it will be 50/50 whether you win!";
var MSG_TOPTRUMPS_PROMPT = "Pick a category to try and beat. If the value on this card is ❓ or on the card you play, then it will be 50/50 whether you win.";
var MSG_EVENTS_OOPS = [
  "📆 Oops, that's not something I could find...",
  "📆 Mmmm, not an event that I recognise...",
  "📆 Not sure I'm able to help you with when that is..."];
var MSG_HERO_OOPS = [
  "⚠️ Alert: Hydra stole this result from the S.H.I.E.L.D. database...",
  "☠️ Warning: Hydra Infiltration. Result unavailable while under attack from enemy forces...",
  "👁️ Not even the eye of Uatu sees your request...",
  "💾 Program missing, exiting protocol...",
  "💣 Danger: Energy Overload..."];
var MSG_LOTR_OOPS = [
  "👁️‍🗨️ Eyes are watching, shhhh...",
  "🧙‍♂️ He that breaks a thing to find out what it is has left the path of wisdom...",
  "😍 Curse us and crush us, my precious is lost...",
  "💀 I don’t know, and I would rather not guess...",
  "👁 Mordor..."];

// Triggers phrases in lowercase - following phrases are handled in code
const TRIGGER_SURVEY = 'survey';
const TRIGGER_QUIZ = 'quiz';
const TRIGGER_HELP = 'help';
const TRIGGER_FEELING_LUCKY = 'feeling lucky';
const TRIGGER_CHAS_LOGO = 'chas logo';
const TRIGGER_CHASABET_1 = 'chas alphabet';
const TRIGGER_CHASABET_2 = 'chas letter';
const TRIGGER_MARVEL = 'marvel';
const TRIGGER_LOTR = 'lotr';
const TRIGGER_CHAS_EVENTS = 'when is';
const TRIGGER_CHAS_BIOGS = 'who is';
const TRIGGER_TOPTRUMPS = 'top trumps';
const TRIGGER_RPSLS = 'bazinga';
const TRIGGER_HANGMAN = 'hangman';
const TRIGGER_STOP = 'stop';
var TRIGGER_SEARCH = ['search','google','wiki','beeb'];
var TRIGGER_LOTTERY = ['lotto','lottery','euromillions','euro-millions'];
var TRIGGER_MOVIEDB = ['synopsis','watched','watch','catch','seen','see'];


//  _  _  ___   ___  _   _____
// | || |/ _ \ / _ \| |/ / __|
// | __ | (_) | (_) | ' <\__ \
// |_||_|\___/ \___/|_|\_\___/
// DialogFlow fulfilment hard-coded hooks
// These HOOKS use dialogflow NLP but have hard-coded procedures rather than the user-configured
// The user-configurted hooks are set up in FILE_HOOKS and accept the following 'card' layouts:
// [1] Picture (only)
// [2] Picture with Text
// [3] Text with Button (inc. URL)
const MSG_NO_HOOK = "🐞 Any other day, that might have worked but not today, sorry!";
const MSG_NO_WEATHER = "😔 Oops, I wasn't able to look up the weather for that place just now.";
const FILE_HOOKS = "./hooks.txt";
const HOOK_FUNDRAISING = 'fundraising';
const HOOK_PICKCARD = 'cards';
const HOOK_WEATHER = 'weather';
/*const HOOK_WORKPLACE = 'workplace';
const HOOK_URL_GROUP_DOCS = 'group_docs';
const HOOK_PLAN = 'plan';
const HOOK_XMAS = 'xmas';
const HOOK_CONTACT_INFO = 'contact_info';*/
// Add any new hard-coded hook names to the HOOKS array
var HOOKS = ['fundraising','cards','weather']; // List of UNIQUE hook names, gets extended with custom hook names
var HOOKS_CUSTOM = [];

// End-points
const URL_CHAT_ENDPOINT = "https://graph.facebook.com/v2.6/me/messages";
const URL_API_MOVIEDB = "https://api.themoviedb.org/3/";
const URL_API_WEATHER = "https://api.openweathermap.org/data/2.5/weather?APPID=";
const URL_API_MARVEL = "https://gateway.marvel.com:443/v1/public/characters?nameStartsWith=";
const URL_API_GIPHY = "https://api.giphy.com/v1/gifs/random";
const URL_API_LOTR = "the-one-api.dev";
const URL_API_HERO = "https://superheroapi.com/api.php/";
// URLs
const URL_SEARCH_GOOGLE = "https://www.google.com/search?q=";
const URL_SEARCH_WIKI = "https://en.wikipedia.org/w/index.php?search=";
const URL_SEARCH_BEEB = "https://www.bbc.co.uk/search?q=";
const URL_GOOGLE_THUMB = "https://images.imgbox.com/7f/57/CkDZNBfZ_o.png";
const URL_WIKI_THUMB = "https://images.imgbox.com/30/62/Vv6KJ9k9_o.png";
const URL_BEEB_THUMB = "https://images.imgbox.com/59/f5/PFN3tfX5_o.png";
const URL_CHAS_THUMB = 'https://images.imgbox.com/99/1d/bFWYzY68_o.jpg';
const URL_LOTTO_UK = "https://www.national-lottery.co.uk/games/lotto?";
const URL_LOTTO_SCOT = "https://www.scottishchildrenslottery.com";
const URL_LOTTO_EURO = "https://www.national-lottery.co.uk/games/euromillions?";
const URL_LOTTO_THUMB_UK = "https://images2.imgbox.com/a7/d9/bPkhSTGL_o.png";
const URL_LOTTO_THUMB_SCOT = "https://images2.imgbox.com/38/2f/Do75wmKv_o.png";
const URL_LOTTO_THUMB_EURO = "https://images2.imgbox.com/c0/e9/IMp4gYs4_o.png";
const URL_IMG_PREFIX = "https://images.imgbox.com/";
const URL_IMG_PREFIX2 = "https://images2.imgbox.com/";
const URL_IMG_SUFFIX = "_o.png";
const URL_GIF_SUFFIX = "_o.gif";
// Regular expressions
const REGEX_START = '(?=.*\\b'; // Regular expression bits
const REGEX_MIDDLE = '\\b)';
const REGEX_END = '.+';
// For keeping track of senders
var SENDERS = new Array ();
// Functional
var PROPER_NOUNS_MONTHS = [
  "January","February","March","April","May","June","July","August","September","October","November","December"];
var PROPER_NOUNS_DAYS = [
  "Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"];
var PROPER_NOUNS_NAMES = [
  "Rachel House", "Robin House", "CHAS"];
// Add any new proper arrays to strProper()
var TIME_OF_DAY = [
  [22,"Getting late"],[19,"Good evening"],[18,"Time for tea"],[13,"Afternoon"],[12,"Lunch time"],
  [11,"Time for Elevenses"],[8,"Morning"],[7,"Breakfast time"],[6,"Another day another dollar"],
  [5,"Whoa, you're an early bird"],[4,"You're up early (or very late)"],[3,"Yawn, worst time to be awake"],
  [2,"You're up late"],[1,"Zzzzz, sorry"],[0,"It's the witching hour"]];
var EMOTICON_UP = ["🙂","😊","😀","😁","😃","😆","😍","😎","😉","😜","😘","😂","😉","😜","😘","😛","😝","🤑",
                  ":)",":]","8)","=)",":D","=D",";)",":P",":p","=p",":-*",":*"];
var EMOTICON_DOWN = ["☹️","🙁","😠","😡","😞","😣","😖","😢","😭","😨","😧","😦","😱","😫","😩","😐","😑","🤔","😕","😟",
                  ":'(",":O",":o",">:O",":|",":/","=/"];
var FB_UNKNOWN = ['Friend','Buddy','Pal','Companion','Chum','Partner','Higness','Trouble'];
// CHASbot help
var HELP_PROMPTS = [
  ["ad/e9/ivBhjDXd","When is the Devil Dash","Who is Morven MacLean","Where can I get collecting cans","How do I claim expenses","How do I get Christmas cards","CHAS alphabet C"],
  ["7a/45/0uhs3nQx","Weather at Rachel House","Weather in Aberdeen","Search CHAS","Google FB Workplace","Wiki Santa Claus","Beeb Blue Planet"],
  ["9a/f7/yRfMnV7i","Bazinga","Hangman","Pick a card","Toss a coin","Roll a dice","Mystic 8"],
  ["0a/fe/WxsCGnFs","What’s a scrub","Is winter coming","My milkshake","Have you seen Moana","Is this the real life","I want the truth"],
  ["de/ff/4ZtuUqYX","Marvel codename Hulk","Execute Order 66","Beam me up","Open pod bay doors","Roll for initiative","Talk like Yoda"]]; // images2 source
var HELP_INDEX = 0;
// CHAS events
const CHAS_EVENTS_BLOCK_SIZE = 4;
var CHAS_EVENTS_CALENDAR = new Array();
var CHAS_EVENTS_TOTAL = 0;
var CHAS_EVENTS_OOPS_INDEX = 0;
// CHAS biographies
const CHAS_BIOGS_BLOCK_SIZE = 2;
var CHAS_BIOGS_VIABLE = false;
var CHAS_BIOGS = new Array();
var CHAS_BIOGS_TOTAL = 0;
var CHAS_FR_LIST = "Contact your local Fundraising Team:" + "\n";
// Slim shady
const IDS_BLOCK_SIZE = 2;
var IDS_VIABLE = false;
var IDS_TOTAL = 0;
var IDS_LIST = new Array();
var IDS_TIMESTAMP = new Array();
// CHAS alphabet
var CHASABET = new Array();
CHASABET [0] = ["b1/96/zO6mBcwI","a5/59/dH8YmE0D","28/ca/zIHlflOC"]; // A
CHASABET [1] = ["a7/6b/ykRlRXQ4","35/79/3Fm87p1Z","69/18/7Jwe1SDT"]; // B
CHASABET [2] = ["70/0e/A6ZJwetJ","33/25/aueWYGEx","d9/7e/LaVqtDUQ","85/b1/qh0uavuP"]; // C
CHASABET [3] = ["4a/a3/NqUpBNz4","ef/4c/z5RNxmlD"]; // D
CHASABET [4] = ["63/f7/XaiHgD71","ce/ac/9nCwH3g9","35/3d/TcTbkDhK"]; // E
CHASABET [5] = ["87/c5/ap69ZMxm","ce/20/wUUatq8C"]; // F
CHASABET [6] = ["49/5d/eC9uvi9B","ff/3b/pmvdcWts"]; // G
CHASABET [7] = ["b5/90/PvvkWezf","f5/bf/UXiVHjNV","b6/e0/Tcqrhxhp","ac/2b/eZ5jnY3u","6f/19/EZadWwIQ"]; // H
CHASABET [8] = ["8b/6a/7NVhU4DB","e4/de/dhkBg1G6","ff/35/GWYGOn6L"]; // I
CHASABET [9] = ["50/96/RJQnEZTR","39/a9/rQJGozJp"]; // J
CHASABET [10] = ["a2/d8/Js4Pp0yx","8a/48/3BMq2BbT"]; // K
CHASABET [11] = ["47/a9/rEoruoPl","ce/8e/XQgh4mnL"]; // L
CHASABET [12] = ["e4/d9/3aBWWbLv","9b/f7/YaUMcKiy","8a/24/EUOb4ml4"]; // M
CHASABET [13] = ["a7/b6/I4LznlDF","c5/56/WnE5akMy"]; // N
CHASABET [14] = ["15/78/HIa3Mfir","0f/72/VgMNNoMu"]; // O
CHASABET [15] = ["ef/30/jcLeoia1","00/5c/EKuPupn8","83/0a/dxQuIG6C"]; // P
CHASABET [16] = ["99/c2/eHly9qnq"]; // Q
CHASABET [17] = ["ef/1c/CUsKXwFq","f8/96/qJJm4MIB"]; // R
CHASABET [18] = ["0b/02/O7uHlTst","fd/fe/Tae390bV","95/97/GCCT6cS1","00/ed/yR9lW1az","3c/36/HzHUAz82"]; // S
CHASABET [19] = ["a3/8d/r0xzFJPR","aa/a0/koSvqmVT"]; // T
CHASABET [20] = ["2d/47/F50Ty0wO","d9/04/C1nlNJpU","08/e4/y1bij5xT","fb/a8/pTmffp5t"]; // U
CHASABET [21] = ["d9/da/kzg0lQ8V","e1/79/F9f57NK1"]; // V
CHASABET [22] = ["6e/ec/Hd1zypGj","95/0b/xyZtCqje","b0/f5/wBb2EsqF"]; // W
CHASABET [23] = ["e9/0c/nB1EzCck","2e/60/2ETG0nZa"]; // X
CHASABET [24] = ["2a/4a/9R5ZzF7V","d0/23/QDFnWi52"]; // Y
CHASABET [25] = ["f6/89/4pwI187X","3c/4f/AguL64HL"]; // Z
// All images2 prefix and gif suffix - source: https://www.mikeafford.com/store/weather-icons/weather-icon-set-re-03/
// Maps to https://openweathermap.org/weather-conditions
const EMPTY_WEATHER_GIF_URL = "https://images2.imgbox.com/c0/d5/dTFWiA7h_o.gif";
var WEATHER_GIFS = [
  "a7/8c/0ZQ6B9PR day 800",
  "89/6c/S892YW2m day 801, 802",
  "9d/27/o2e05zGc day 804",
  "1d/eb/z98LmXpq day 721",
  "0f/61/FCn1GAAr day 701",
  "6d/da/XcKVM4EB day 741",
  "f9/70/k0JGk0WH night 800",
  "ed/ab/Fzq4hS68 day 321, 520, 521, 531",
  "9d/c3/wiKQBmSp day 522",
  "b7/5d/KqF87CiA day 620, 621",
  "ac/25/Y6sde2q8 day 500, 501",
  "0c/3b/PxjLH80T day 502, 503",
  "10/5b/YO9xBG7c day 600, 601",
  "c1/ed/LAEBQvmO day 602",
  "92/99/Otcf46PS day 611, 612, 615, 616",
  "6f/07/ypBgFMBm day 906",
  "76/f9/XqB4iCtM day 202, 211, 212, 221",
  "26/36/vW04Z2uV night 321, 520, 521, 531",
  "b1/f1/pDcVw9wP night 522",
  "8f/e2/FnnYeCUV night 620, 621",
  "d0/4c/vWYADC2T night 500, 501",
  "01/92/UNomL02l night 502, 503",
  "e3/92/wU0uHnZ4 night 600, 601",
  "9b/ff/BoURacwM night 602",
  "d8/f9/EuC4GMyQ night 611, 612, 615, 616",
  "82/e9/7tVFKV08 night 906",
  "b1/31/TSZSdk54 night 202, 211, 212, 221",
  "c3/03/20ahf4a7 night 721, 801, 802",
  "47/fd/OhBirQQd night 804",
  "7d/cd/m6gR8cQQ day 803",
  "24/60/yj2D9tIN night 803",
  "52/04/yiToCBuQ day 904",
  "d6/63/ek6aZEfu day 903",
  "36/e5/1NHJnEh5 day 300, 301, 310, 311, 313",
  "16/52/11EwhgRm day 511",
  "ed/71/zJc3BIs7 day 504",
  "bd/f8/7V6HMeQO day 711",
  "51/eb/SPnVGvEt day 731, 751, 761",
  "16/d4/v0JNGIFp day 905",
  "a9/2b/m4OOIKOC night 904",
  "33/05/RDR9i2iA night 903",
  "61/1b/8pU2yng3 night 701",
  "03/9e/8ebh09jn night 741",
  "da/74/UpiDPXsS night 300, 301, 310, 311, 313",
  "e3/6a/FeuXDOcW night 511",
  "7c/68/f0pw4zcW night 504",
  "33/b5/PqNzCp8K night 711",
  "f4/53/gAEADyta night 731, 751, 761",
  "af/75/AuCJyiHK night 905",
  "2e/69/zDShc6Or night day 781",
  "0a/7f/kbmDUHRi night day 771",
  "c1/2e/8jAAjnXo day 302, 312, 314",
  "79/38/CpeF1okY night 302, 312, 314",
  "5b/56/0BE76xjK night day 762",
  "48/81/u9HEXhfg day 622",
  "c2/50/WYTdKHGp night 622",
  "1a/20/q7g8CZnC day 613",
  "d7/eb/1BWWNO4Z night 613",
  "62/aa/uqyQmDMy day 200, 201, 210, 230, 231, 232",
  "30/1e/yM8bbEDc night 200, 201, 210, 230, 231, 232"];
var CHASABET_INDEX = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
// Rock Paper Scissors Lizard Spock
var RPSLS_VALID = ["rock","paper","scissors","lizard","spock"];
var RPSLS_OUTCOMES = ["cuts","covers","crushes","poisons","smashes","decapitates","eats","disproves","vaporizes","crushes"];
var RPSLS_WIN = ["scissorspaper","paperrock","rocklizard","lizardspock","spockscissors","scissorslizard","lizardpaper","paperspock","spockrock","rockscissors"];
var RPSLS_LOSE = ["paperscissors","rockpaper","lizardrock","spocklizard","scissorsspock","lizardscissors","paperlizard","spockpaper","rockspock","scissorsrock"];
var RPSLS_DRAW = ["rockrock","paperpaper","scissorsscissors","lizardlizard","spockspock"];
var RPSLS_IMGS = [
"8a/24/7grzIThv",
"60/ab/GGWv7VGf","5b/aa/gX9yjh8W","de/9a/ZW4Y0A3c","9b/b0/jozAYCPJ","fc/69/9RIO0UnP","ae/96/fImaS52o","e6/d8/NZf7rjvm","ce/75/2lShOY7A","1c/c0/v4T6eRgk","39/85/kCcL35Wx",
"7c/cc/6aXrZ3OR","57/e7/gXFlvW70","49/29/I58HCq4Z","ea/83/4oIJFaQX","35/46/6jfnQOWP","51/27/Mgd2xmkH","5b/43/75oya7i9","65/e5/J9Pi4L30","6d/76/wmyBvmzC","1c/dd/A1qkLRfu",
"bc/5e/WXSBV3m7","7f/65/UufJXgwL","4b/4f/JO6B4jVX","5c/00/lLBYnA89","41/8b/iDCFzS5i"]; // Bottom row images2 source
// Playing cards
var CARD_PICK = '';
var CARD_DECK  = [
"♥A","♥2","♥3","♥4","♥5","♥6","♥7","♥8","♥9","♥10","♥J","♥Q","♥K",
"♠A","♠2","♠3","♠4","♠5","♠6","♠7","♠8","♠9","♠10","♠J","♠Q","♠K",
"♦A","♦2","♦3","♦4","♦5","♦6","♦7","♦8","♦9","♦10","♦J","♦Q","♦K",
"♣A","♣2","♣3","♣4","♣5","♣6","♣7","♣8","♣9","♣10","♣J","♣Q","♣K"];
var CARD_PROMPTS = [
  "I've picked... ","This time I've drawn... ","I've selected... ","You're card is... "];
// LOTR
var LOTR_MOVIES = [
  "5cd95395de30eff6ebccde56🎞️ The Lord of the Rings Series",
  "5cd95395de30eff6ebccde57🎞️ The Hobbit Series",
  "5cd95395de30eff6ebccde58🎥 The Unexpected Journey (2012)",
  "5cd95395de30eff6ebccde59📽️ The Desolation of Smaug (2013)",
  "5cd95395de30eff6ebccde5a🎬 The Battle of the Five Armies (2014)",
  "5cd95395de30eff6ebccde5b🎥 The Two Towers (2001)",
  "5cd95395de30eff6ebccde5c📽️ The Fellowship of the Ring (2002)",
  "5cd95395de30eff6ebccde5d🎬 The Return of the King (2003)"];
var LOTR_ARRAY = [];
// TOP TRUMPS
const HERO_STATS = ["🧠 Intelligence","💪 Strength","💨 Speed","🔋 Durability","🌡️ Power","⚔️ Combat"];
const HERO_MAX = 731; // https://superheroapi.com/ids.html
var HERO_ARRAY = [];
// Survey/Quiz
const PRIZES = ["🎉","🎈","💰","🎁","👏","🌹","💐","🍹","🍸","🍺","🍷","🍾","🍰","💋","🎖️","🍀"];
var SURVEY_VIABLE = true;
var SURVEY_NAME = ''; // Loaded from survey.txt 1st line
var SURVEY_QUESTIONS = [];
var QUIZ_NAME = '';
var QUIZ = []; // Loaded from survey.txt 1st line, 1st item
var HIGH_SCORE = ["CHASbot",0];
// Film and TV
var MOVIEDB_RECORDS_INDEX = -1;
var MOVIEDB_RECORDS = new Array();

// Valdate URLs
function urlExists(url, cb) {
  request({ url: url, method: 'HEAD' }, function(err, res) {
    if (err) return cb(null, false);
    cb(null, /4\d\d/.test(res.statusCode) === false);
  });
}

// Encryption and decryption of files
var enCrypt = function(text_plain) {
  //console.log("DEBUG [enCrypt]> plain: " + text_plain);
  let cipher = crypto.createCipheriv(ALGO,Buffer.from(KEY_CRYPTO),Buffer.from(KEY_IV,'hex'));
  let crypted = cipher.update(text_plain);
  crypted = Buffer.concat([crypted, cipher.final()]);
  //console.log("DEBUG [enCrypt]> obscured (raw): " + crypted);
  //console.log("DEBUG [enCrypt]> obscured (hex): " + crypted.toString('hex'));
  return crypted.toString('hex');
}
var deCrypt = function(text_obscure) {
  //console.log("DEBUG [deCrypt]> obscured: " + text_obscure);
  let decipher = crypto.createDecipheriv(ALGO,Buffer.from(KEY_CRYPTO),Buffer.from(KEY_IV,'hex'));
  let text_obscure_buffer = Buffer.from(text_obscure,'hex');
  //console.log("DEBUG [deCrypt]> buffered: " + text_obscure_buffer);
  let dec = decipher.update(text_obscure_buffer);
  dec = Buffer.concat([dec, decipher.final()]);
  //console.log("DEBUG [deCrypt]> deciphered: " + dec);
  return dec.toString();
}
function enCryptContents () {
  let text_block = fs.readFileSync(FILE_TO_BE_ENCRYPTED, "utf-8");
  let text_block_split = text_block.split("\n");
  let stream = fs.createWriteStream(FILE_ENCRYPTED, "utf-8");
  stream.once('open', function(fd) {
    let stream_loop = 0;
    for (stream_loop = 0; stream_loop < text_block_split.length; stream_loop++) {
      //console.log("DEBUG [enCryptContents]> " + text_block_split[stream_loop]);
      if (stream_loop == text_block_split.length - 1 ) {
        stream.write(enCrypt(text_block_split[stream_loop])); // Last line
      } else {
        stream.write(enCrypt(text_block_split[stream_loop]) + '\n');
      }
    };
    stream.end();
  });
}
function deCryptContents () {
  let text_block = fs.readFileSync(FILE_ENCRYPTED_BIOS, "utf-8");
  let text_block_split_garbled = text_block.split("\n");
  CHAS_BIOGS = new Array();
  let decrypt_loop = 0;
  for (decrypt_loop = 0; decrypt_loop < text_block_split_garbled.length; decrypt_loop++) {
    CHAS_BIOGS[decrypt_loop] = deCrypt(text_block_split_garbled[decrypt_loop]);
  };
  let number_bios_entries = CHAS_BIOGS.length;
  //console.log("DEBUG [deCryptContents]> Bios entries: " + number_bios_entries);
  let remainder = number_bios_entries % CHAS_BIOGS_BLOCK_SIZE;
  //console.log("DEBUG [deCryptContents]> Bios remainder (looking for 0): " + remainder);
  CHAS_BIOGS_TOTAL = number_bios_entries / CHAS_BIOGS_BLOCK_SIZE;
  //console.log("DEBUG [deCryptContents]> Events: " + CHAS_BIOGS_TOTAL);
  if ((remainder != 0)||(CHAS_BIOGS_TOTAL == 0)) {
    console.log("ERROR [deCryptContents]> Something funky going on with bios");
    CHAS_BIOGS_VIABLE = false;
  } else {
    CHAS_BIOGS_VIABLE = true;0
  };
  text_block = fs.readFileSync(FILE_ENCRYPTED_IDS, "utf-8");
  text_block_split_garbled = text_block.split("\n");
  //IDS_LIST = new Array();
  decrypt_loop = 0;
  for (decrypt_loop = 0; decrypt_loop < text_block_split_garbled.length; decrypt_loop++) {
    IDS_LIST[decrypt_loop] = deCrypt(text_block_split_garbled[decrypt_loop]);
    IDS_TIMESTAMP[decrypt_loop] = null;
  };
  let number_ids_entries = IDS_LIST.length;
  //console.log("DEBUG [deCryptContents]> ID entries: " + number_ids_entries);
  remainder = number_ids_entries % IDS_BLOCK_SIZE;
  //console.log("DEBUG [deCryptContents]> ID remainder (looking for 0): " + remainder);
  IDS_TOTAL = number_ids_entries / IDS_BLOCK_SIZE;
  //console.log("DEBUG [deCryptContents]> IDs: " + IDS_TOTAL);
  if ((remainder != 0)||(IDS_TOTAL == 0)) {
    console.log("ERROR [deCryptContents]> Something funky going on with IDs");
    IDS_VIABLE = false;
  } else {
    IDS_VIABLE = true;
  };
  //console.log("DEBUG [deCryptContents]> IDs Viable? " + IDS_VIABLE);
  text_block = fs.readFileSync(FILE_ENCRYPTED_FR_CARD, "utf-8");
  text_block_split_garbled = text_block.split("\n");
  decrypt_loop = 0;
  for (decrypt_loop = 0; decrypt_loop < text_block_split_garbled.length; decrypt_loop++) {
    CHAS_FR_LIST = CHAS_FR_LIST + deCrypt(text_block_split_garbled[decrypt_loop]);
    if (decrypt_loop != text_block_split_garbled.length) {CHAS_FR_LIST = CHAS_FR_LIST + "\n"};
  };
  //console.log("DEBUG [deCryptContents]> Contact Card: " + CHAS_FR_LIST);
}

//  _    ___   _   ___ ___ _  _  ___
// | |  / _ \ /_\ |   \_ _| \| |/ __|
// | |_| (_) / _ \| |) | || .` | (_ |_ _ _
// |____\___/_/ \_\___/___|_|\_|\___(_|_|_)
// Load reference data from files and Db
function loadHooks() {
  // Load in hooks
  let text_block = fs.readFileSync(FILE_HOOKS, "utf-8");
  let hook_lines = text_block.split("\n");
  let hook_line = 0;
  if (hook_lines.length > 0) {
    for (var i = 0; i < hook_lines.length; i++) {
      if (hook_lines[i].slice(0,2)=='//') { continue }; // Skip comments
      //console.log("DEBUG [loadHooks]> Possible hook: " + hook_lines[i]);
      let poss_hook = hook_lines[i].split("$");
      if (poss_hook.length < 2 || poss_hook.length > 4) { continue }; // Skip where not 2,3 or 4 items
      let poss_hook_name = poss_hook[0];
      //console.log("DEBUG [loadHooks]> Valid items in hook: " + poss_hook.length);
      if (!poss_hook_name.match(/^[a-z_]+$/)) { continue }; // Skip hook name not lowercase + underscore
      let skip_hook = false;
      for (var j = 0; j < HOOKS.length; j++) {
        if (HOOKS[j] == poss_hook_name) { // New hook can't be same as another hook
          skip_hook = true; // Disqualifies this hook
          break;
        }; // if
      }; // for
      if (skip_hook) { continue };
      //console.log("DEBUG [loadHooks]> Poss hook name: " + skip_hook);
      let poss_hook_url = poss_hook[1];
      if (poss_hook_url.slice(0,8) != "https://") { continue }; // Simple check for SSL URL
      if (poss_hook_url.slice(8,14) == "groups") {
        poss_hook_url = "https://work-" + KEY_ROOT + ".facebook.com/" + poss_hook_url.slice(8,poss_hook_url.length);
      };
      //console.log("DEBUG [loadHooks]> Poss URL: " + poss_hook_url);
      let poss_hook_blurb = '';
      let poss_hook_btn = '';
      let hook_type = 'image';
      if (poss_hook.length > 2) {
        poss_hook_blurb = strTrimTo(640,poss_hook[2]); // Limit
        if (poss_hook_blurb == '') { continue }; // There should be message text
        hook_type = 'image_text';
      };
      if (poss_hook.length > 3) {
        poss_hook_btn = strTrimTo(20,poss_hook[3]); // Limit
        if (poss_hook_btn == '') { continue }; // There should be button text
        hook_type = 'button';
      };
      HOOKS_CUSTOM[HOOKS_CUSTOM.length] = [true,hook_type,poss_hook_name,poss_hook_url,poss_hook_blurb,poss_hook_btn];
      //console.log("DEBUG [loadHooks]> Valid Hook[" + (HOOKS_CUSTOM.length - 1) + "]: " + HOOKS_CUSTOM[HOOKS_CUSTOM.length - 1]);
      // More comprehensive URL check
      urlExists(poss_hook_url, function(err, exists) {
        //console.log("DEBUG [loadHooks]> URL check: " + poss_hook_url + ' = ' + exists);
        if (!exists) {
          for (var j = 0; j < HOOKS_CUSTOM.length; j++) {
            if (HOOKS_CUSTOM[j][3] == poss_hook_url) { // Callback delay requires fresh search
              HOOKS_CUSTOM[j][0] = false; // Disables the hook
              //console.log("DEBUG [loadHooks]> Disabled Hook[" + j + "]: " + HOOKS_CUSTOM[j]);
              break;
            }; // if
          }; // for
        }; // if (!exists)
      }); // urlExists
    }; // for
  }; // if
}

function loadCalendar() {
  // Load in calendar events
  let text_block = fs.readFileSync(FILE_CALENDAR, "utf-8");
  CHAS_EVENTS_CALENDAR = text_block.split("\n");
  // Catch if the calendar list is funky i.e. isn't in blocks of four or missing at least one set
  let number_calendar_entries = CHAS_EVENTS_CALENDAR.length;
  //console.log("DEBUG [loadCalendar]> Calendar entries: " + number_calendar_entries);
  let remainder = number_calendar_entries % CHAS_EVENTS_BLOCK_SIZE;
  //console.log("DEBUG [loadCalendar]> Calendar remainder (looking for 0): " + remainder);
  CHAS_EVENTS_TOTAL = number_calendar_entries / CHAS_EVENTS_BLOCK_SIZE;
  //console.log("DEBUG [loadCalendar]> Events: " + CHAS_EVENTS_TOTAL);
  if ((remainder != 0)||(CHAS_EVENTS_TOTAL == 0)) {
    console.log("ERROR [loadCalendar]> Something funky going on with calendar");
    return false;
  } else {
    return true;
  }
}

function loadSurvey() {
 //console.log("DEBUG [loadSurvey]> Reading: " + FILE_SURVEY);
  let gone_funky = false;
  // Load in survey as a block
  let text_block = fs.readFileSync(FILE_SURVEY, "utf-8");
  // Populate a temp array
  let load_array = text_block.split("\n");
  // Configure the survey
  if (load_array.length > 2) {
    for (var i = 0; i < load_array.length; i++) {
      SURVEY_QUESTIONS[i] = load_array[i].split(","); // Split each row into arrays split by comma
      if (i>0 && SURVEY_QUESTIONS[i].length > 6) {
        gone_funky = true; // Can't have more than 6 elements i.e. Question + 5 Answers
       //console.log("DEBUG [loadSurvey]> " + (SURVEY_QUESTIONS[i].length - 1) + " is too many response elements for Q." + i);
        break;
      }; // if
    }; // for (break)
    if (SURVEY_QUESTIONS[0].length != 1) { // Has to be a quiz
      QUIZ = SURVEY_QUESTIONS[0]; // Load name and responses into array
     //console.log("DEBUG [loadSurvey]> Answers: " + QUIZ);
     //console.log("DEBUG [loadSurvey]> Number of questions is " + (SURVEY_QUESTIONS.length-1));
     //console.log("DEBUG [loadSurvey]> Number of answers is " + (QUIZ.length-1));
      if (QUIZ.length != SURVEY_QUESTIONS.length) { // Both dimensions are not the same
        gone_funky = true;
       //console.log("DEBUG [loadSurvey]> Number of questions doesn't match answers" + i);
      } else { // Both dimensions are the same
        for (var i = 0; i < QUIZ.length; i++) {
          if (i == 0) { // First element
            QUIZ_NAME = QUIZ[0];
           //console.log("DEBUG [loadSurvey]> Quiz Name: " + QUIZ_NAME);
            if (QUIZ_NAME=='') {
              gone_funky = true;
             //console.log("DEBUG [loadSurvey]> Quiz name can't be empty");
              break;
            };
          } else {
           //console.log("DEBUG [loadSurvey]> Question: " + SURVEY_QUESTIONS[i].join(","));
            let potential_number = 0;
            let known_string = '';
            if (!isNaN(QUIZ[i])) {
              // Check that there is a pick question, and that the response is within the range of answers
              // OR number reponse could be a string
              potential_number = parseInt(QUIZ[i],10);
              //console.log("DEBUG [loadSurvey]> Value = " + potential_number + " Parse (should be number) = " + typeof(potential_number));
              if (SURVEY_QUESTIONS[i].length == 1) { // Matching question has free-text response
                known_string = QUIZ[i];
               //console.log("DEBUG [loadSurvey]> Over-rule number value = " + known_string + " Parse (should be number string) = " + typeof(known_string));
                if (known_string.length == 0) { // Can't be empty
                  gone_funky = true;
                 //console.log("DEBUG [loadSurvey]> Funky answer value of <" + known_string + "> where index is " + SURVEY_QUESTIONS[i].length);
                  break;
                }
              } else if (potential_number == 0||potential_number > (SURVEY_QUESTIONS[i].length-1)) { // Check against range
                gone_funky = true;
               //console.log("DEBUG [loadSurvey]> Funky answer value of " + potential_number + " where index is " + SURVEY_QUESTIONS[i].length);
                break;
              };
            } else {
              // Check that there is a free text question and that the correct answer is not empty
              known_string = QUIZ[i];
              //console.log("DEBUG [loadSurvey]> Value = " + known_string + " Parse (should be string) = " + typeof(known_string));
              if (SURVEY_QUESTIONS[i].length > 1||known_string.length == 0) {
                gone_funky = true;
               //console.log("DEBUG [loadSurvey]> Funky answer value of <" + known_string + "> where index is " + SURVEY_QUESTIONS[i].length);
                break;
              }; // if: funky text response
            }; // if/else: index answer OR free text answer
          }; // if/else: quiz name OR answer
        }; // for (break): loop through quiz answers
      }; // if/else: array dimensions not equal OR ok
    } else { // Must be a survey, has only one element in top row i.e. name without any answers
      SURVEY_NAME = SURVEY_QUESTIONS[0];
      if (SURVEY_NAME=='') {
        gone_funky = true;
       //console.log("DEBUG [loadSurvey]> Survey name can't be empty");
      };
    };
    if (!gone_funky) {
      SURVEY_QUESTIONS.shift(); // Removes <survey_name> (plus correct answers in a quiz)
      if (QUIZ.length > 0) { QUIZ.shift() }; // Same for quiz
    }
  } else {
    // Has to be at least 2 rows i.e. header row plus 1 question minimum
    gone_funky = true;
   //console.log("DEBUG [loadSurvey]> There are not enough rows (must header + question at least): " + load_array.length);
  };
  if (gone_funky) {
    console.log("ERROR [loadSurvey]> Something funky going on with survey");
    return false;
  } else {
    return true;
  };
}

function loadLOTRcb(lotrArray,chars_or_quotes,quote_id,callback) {
  // Block loads quotes in character array
  //console.log("DEBUG [loadLOTR]> Method: " + chars_or_quotes);
  if (chars_or_quotes == 'quotes') {
    //console.log("DEBUG [loadLOTR]> ID: " + quote_id);
    let id_position = -1;
    for (var loopArray = 0; loopArray < LOTR_ARRAY.length; loopArray++) {
      if (LOTR_ARRAY[loopArray][0]==quote_id) {
        id_position = loopArray;
        //console.log("DEBUG [loadLOTR]> ID found at: " + id_position);
        break;
      }; // if
    }; // for
    if (typeof LOTR_ARRAY[id_position][10] == 'undefined') { // Can be defined
      let pushArray = [];
      for (var loopArray = 0; loopArray < lotrArray.length; loopArray++) {
        pushArray.push([lotrArray[loopArray].movie,lotrArray[loopArray].dialog]);
      }; // for
      LOTR_ARRAY[id_position][10] = pushArray;
      //console.log("DEBUG [loadLOTR]> Quotes populated for: " + id_position);
      //console.log("DEBUG [loadLOTR]> First film/quote: " + id_position);
    }; // if (LOTR_ARRAY[id_position]
    //console.log("DEBUG [loadLOTR]> Quotes: " + LOTR_ARRAY[id_position][10].length);
    callback();
  } else { // if (chars_or_quotes
    // Block loads in characters
    if (chars_or_quotes == 'chars' && LOTR_ARRAY.length == 0) { // Catch multiple calls
      var arrayQuote = [];
      for (var loopArray = 0; loopArray < lotrArray.length; loopArray++) {
        LOTR_ARRAY.push([lotrArray[loopArray]._id, // [0]
          lotrArray[loopArray].Name,
          lotrArray[loopArray].gender,
          lotrArray[loopArray].Url,
          lotrArray[loopArray].race,
          lotrArray[loopArray].realm,
          lotrArray[loopArray].height,
          lotrArray[loopArray].hair,
          lotrArray[loopArray].birth,
          lotrArray[loopArray].death]); // [9]
      }; // for
    }; // if
    //console.log("DEBUG [loadLOTR]> Characters: " + LOTR_ARRAY.length);
    callback();
  }; // else
}

function highScore(read_write) {
  let client = new pg.Client(URL_POSTGRES);
  if (read_write == 'read') { // Load from file
    client.connect(function(err) {
      if (err) { return console.error("ERROR [highScore]> Could not connect to read postgres: ", err) };
      client.query('SELECT high_scorer,high_score FROM quiz WHERE id = 0', function(err, result) {
        if (err) { return console.error("ERROR [highScore]> Error running read query: ", err) };
        HIGH_SCORE[0]=result.rows[0].high_scorer;
        HIGH_SCORE[1]=result.rows[0].high_score;
        //console.log("DEBUG [highScore]> Who: " + HIGH_SCORE[0] + " Score: " + HIGH_SCORE[1]);
        client.end();
      });
    });
  } else if (read_write == 'write') { // Save to file
    client.connect(function(err) {
      if (err) { return console.log("ERROR [highScore]> Could not connect to update postgres: ", err) };
      let sql_update = "UPDATE quiz SET high_scorer = '" + HIGH_SCORE[0] + "', high_score = " + HIGH_SCORE[1] + " WHERE id = 0";
      client.query(sql_update, function(err, result) {
        if (err) { return console.error("ERROR [highScore]> Error running update query: ", err) };
        client.end();
      });
    });
  };
};

// LOAD
loadHooks();
// Load in encrypted information
// Update Constants FILE_TO_BE_ENCRYPTED (input) and FILE_ENCRYPTED (output)
//enCryptContents(); // Run once to encrypt files
deCryptContents(); // Normal runtime configuration
var CHAS_EVENTS_VIABLE = loadCalendar();
//console.log("DEBUG [postloadCalendar]> Viable? " + CHAS_EVENTS_VIABLE);
var SURVEY_VIABLE = loadSurvey();
//console.log("DEBUG [postloadSurvey]> Viable? " + SURVEY_VIABLE);
highScore('read');

// Facebook/workplace validation
// Configure webhook in work chat integration - KEY_VERIFY matches code and app
// Copy page access token and hard code for testing or set as server variable
CHASbot.get('/webhook', (req, res) => {
  if (req.query['hub.mode'] === 'subscribe' && req.query['hub.verify_token'] === KEY_VERIFY) {
    res.status(200).send(req.query['hub.challenge']);
  } else {
    res.status(403).end();
  }
});

/* Sender handling and sequencing functions
// ========================================
// http://plaintexttools.github.io/plain-text-table/
// ════════╤═══╤═════════════════╤══════════╤═══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════
//  Sender │ 0 │ id_of_sender    │ long_int │
// ════════╪═══╪═════════════════╪══════════╪═════════╤═══╤═════════════════╤═══════╤═══════╤════╤════════════════════╤══════╤════════════╤════╤════════════════╤═══════
//  Survey │ 1 │ survey_in_play  │ bool     │ Hangman │ 2 │ hangman_in_play │ bool  │ RPSLS │ 3  │ rpsls_in_play      │ bool │ Top Trumps │ 4  │ trumps_in_play │ bool
// ────────┼───┼─────────────────┼──────────┼─────────┼───┼─────────────────┼───────┼───────┼────┼────────────────────┼──────┼────────────┼────┼────────────────┼───────
//         │ 5 │ survey_question │ int      │         │ 7 │ hangman_strikes │ int   │       │ 10 │ rpsls_action       │ int  │            │ 14 │ trumps_score   │ int
//         ├───┼─────────────────┼──────────┤         ├───┼─────────────────┼───────┤       ├────┼────────────────────┼──────┤            ├────┼────────────────┼───────
//         │ 6 │ quiz_score      │ int      │         │ 8 │ hangman_word    │ str   │       │ 11 │ issue_instructions │ bool │            │ 15 │ trumps_played  │ array
//         ├───┴─────────────────┴──────────┤         ├───┼─────────────────┼───────┤       ├────┼────────────────────┼──────┤            ├────┼────────────────┼───────
//         │                                │         │ 9 │ hangman_word    │ array │       │ 12 │ rpsls_player       │ int  │            │ 16 │ trump_tobeat   │ int
//         │                                │         ├───┴─────────────────┴───────┤       ├────┼────────────────────┼──────┤            ├────┼────────────────┼───────
//         │                                │         │                             │       │ 13 │ rpsls_bot          │ int  │            │ 17 │ trump_picked   │ int
//         │                                │         │                             │       ├────┴────────────────────┴──────┤            ├────┼────────────────┼───────
//         │                                │         │                             │       │                                │            │ 18 │ trump_category │ str
//         │                                │         │                             │       │                                │            ├────┼────────────────┼───────
//         │                                │         │                             │       │                                │            │ 19 │ trumps_start   │ bool
//         │                                │         │                             │       │                                │            ├────┼────────────────┼───────
//         │                                │         │                             │       │                                │            │ 20 │ cat_or_char    │ str
//         │                                │         │                             │       │                                │            ├────┼────────────────┼───────
//         │                                │         │                             │       │                                │            │ 21 │ trumps_xs      │ array
// ════════╧════════════════════════════════╧═════════╧═════════════════════════════╧═══════╧════════════════════════════════╧════════════╧════╧════════════════╧═══════*/
function inPlayNew(index_id,new_sender) {
  SENDERS[index_id] = [new_sender,                        // 0:id_of_sender
                       false,false,false,false,           // 1:survey_in_play,2:hangman_in_play,3:rpsls_in_play,4:trumps_in_play
                       0,0,                               // 5:survey_question,6:quiz_score
                       0,'',[],                           // 7:hangman_strikes,8:hangman_word,9:hangman_word
                       0,true,0,0,                        // 10:rpsls_action,11:issue_instructions,12:rpsls_player,13:rpsls_bot
                       0,[],0,0,'',true,'character',[]];  // 14:trumps_score,15:trumps_played,16:trump_tobeat,17:trump_picked,
}                                                         //    18:trump_category,19:trumps_start,20:cat_or_char,21:trumps_xs
function inPlay(in_play,index_id) {
  let in_play_index = 0;
  if (in_play == 'survey') { in_play_index = 1 }
  else if (in_play == 'hangman') { in_play_index = 2 }
  else if (in_play == 'rpsls') { in_play_index = 3 }
  else if (in_play == 'trumps') { in_play_index = 4 };
  return SENDERS[index_id][in_play_index];
}
function inPlayClean(in_play,index_id) {
  let in_play_index = 0;
  if (in_play == 'survey') {
    in_play_index = 1
    SENDERS[index_id][5] = 0;             // survey_question
    SENDERS[index_id][6] = 0;             // quiz_score
  } else if (in_play == 'hangman') {
    in_play_index = 2
    SENDERS[index_id][7] = 0;             // hangman_strikes
    SENDERS[index_id][8] = '';            // hangman_word
    SENDERS[index_id][9] = [];            // hangman_array
  } else if (in_play == 'rpsls') {
    in_play_index = 3;
    SENDERS[index_id][10] = 0;            // rpsls_action
    SENDERS[index_id][11] = true;         // issue_instructions
    SENDERS[index_id][12] = 0;            // rpsls_player
    SENDERS[index_id][13] = 0;            // rpsls_bot
  } else if (in_play == 'trumps') {
    in_play_index = 4;
    SENDERS[index_id][14] = 0;            // trumps_score
    SENDERS[index_id][15] = [];           // trumps_played
    SENDERS[index_id][16] = 0;            // trump_tobeat
    SENDERS[index_id][17] = 0;            // trump_picked
    SENDERS[index_id][18] = '';           // trump_category
    SENDERS[index_id][19] = true;         // trumps_start
    SENDERS[index_id][20] = 'character';  // cat_or_char
    SENDERS[index_id][21] = [];           // trumps_xs
  };
  SENDERS[index_id][in_play_index] = false;
}
function inPlaySet(in_play,index_id) {
  let in_play_index = 0;
  if (in_play == 'survey') { in_play_index = 1 }
  else if (in_play == 'hangman') { in_play_index = 2; }
  else if (in_play == 'rpsls') { in_play_index = 3 }
  else if (in_play == 'trumps') { in_play_index = 4 };
  SENDERS[index_id][in_play_index] = true;
}
function inPlayUnset(in_play,index_id) {
  let in_play_index = 0;
  if (in_play == 'survey') { in_play_index = 1 }
  else if (in_play == 'hangman') { in_play_index = 2 }
  else if (in_play == 'rpsls') { in_play_index = 3 }
  else if (in_play == 'trumps') { in_play_index = 4 };
  SENDERS[index_id][in_play_index] = false;
}
function inPlayPause(index_id) {
  let refresh_sender = SENDERS[index_id][0];
  SENDERS[index_id][1] = false;
  SENDERS[index_id][2] = false;
  SENDERS[index_id][3] = false;
  SENDERS[index_id][4] = false;
  SENDERS[index_id][10] = 0;
  SENDERS[index_id][19] = true;
  SENDERS[index_id][20] = 'character';
}
function inPlayID (id_to_find) {
  let sender_index = -1;
  for (var i=0; i < SENDERS.length; i++) {
    if (SENDERS[i][0] == id_to_find) {
    	sender_index = i;
    	break;
    };
  };
  return sender_index;
}

// String and number helper functions
// ==================================
function intPad(n, length) {
  var len = length - (''+n).length;
  return (len > 0 ? new Array(++len).join('0') : '') + n
}
function intWords (num) {
  var a = ['','one ','two ','three ','four ', 'five ','six ','seven ','eight ','nine ','ten ','eleven ','twelve ','thirteen ','fourteen ','fifteen ','sixteen ','seventeen ','eighteen ','nineteen '];
  var b = ['', '', 'twenty','thirty','forty','fifty', 'sixty','seventy','eighty','ninety'];
  if ((num = num.toString()).length > 9) return 'overflow';
  let n = ('000000000' + num).substr(-9).match(/^(\d{2})(\d{2})(\d{2})(\d{1})(\d{2})$/);
  if (!n) return; var str = '';
  str += (n[1] != 0) ? (a[Number(n[1])] || b[n[1][0]] + ' ' + a[n[1][1]]) + 'crore ' : '';
  str += (n[2] != 0) ? (a[Number(n[2])] || b[n[2][0]] + ' ' + a[n[2][1]]) + 'lakh ' : '';
  str += (n[3] != 0) ? (a[Number(n[3])] || b[n[3][0]] + ' ' + a[n[3][1]]) + 'thousand ' : '';
  str += (n[4] != 0) ? (a[Number(n[4])] || b[n[4][0]] + ' ' + a[n[4][1]]) + 'hundred ' : '';
  str += (n[5] != 0) ? ((str != '') ? 'and ' : '') + (a[Number(n[5])] || b[n[5][0]] + ' ' + a[n[5][1]]) : '';
  return str;
}
function strStandardise(str) {
  let emoticon_up_count = 0;
  for (var i = 0; i < EMOTICON_UP.length; i++) {
    var pos = str.indexOf(EMOTICON_UP[i]);
    while(pos > -1){
        ++emoticon_up_count;
        pos = str.indexOf(EMOTICON_UP[i], ++pos);
    }; // Count +ve emoticons
    str = strReplaceAll(str, EMOTICON_UP[i], ''); // Then remove them
  };
  let emoticon_down_count = 0;
  for (var i = 0; i < EMOTICON_DOWN.length; i++) {
    var pos = str.indexOf(EMOTICON_DOWN[i]);
    while(pos > -1){
        ++emoticon_down_count;
        pos = str.indexOf(EMOTICON_DOWN[i], ++pos);
    }; // Count -ve emoticons
    str = strReplaceAll(str, EMOTICON_DOWN[i], ''); // Then remove them
  };
  // Lowercase
  str = str.toLowerCase();
  // Strip out non-alphanumeric
  str = str.replace(/[^A-Za-z0-9-\s]/g,'');
  // Contract white space
  str = str.trim();
  // Leading and trailing white space
  let outboundText = str.replace(/\s\s+/g, ' ');
  return [outboundText,emoticon_up_count,emoticon_down_count];
}
function strFixStutter(str) {
    return str.replace(/\s(\w+\s)\1/, " $1")
}
function strEscRegExp(str) {
    return str.replace(/([.*+?^=!:${}()|\[\]\/\\])/g, "\\$1");
}
function strReplaceAll(str, find, replace) {
    return str.replace(new RegExp(strEscRegExp(find), 'ig'), replace); // ig case insensitve for search
}
function strProper(str) {
  for (var i = 0; i < PROPER_NOUNS_DAYS.length; i += 1) {
    var regex_dynamic = new RegExp(PROPER_NOUNS_DAYS[i], 'ig');
    str = str.replace(regex_dynamic, PROPER_NOUNS_DAYS[i]);
  };
  for (var i = 0; i < PROPER_NOUNS_MONTHS.length; i += 1) {
    var regex_dynamic = new RegExp(PROPER_NOUNS_MONTHS[i], 'ig');
    str = str.replace(regex_dynamic, PROPER_NOUNS_MONTHS[i]);
  };
  for (var i = 0; i < PROPER_NOUNS_NAMES.length; i += 1) {
    var regex_dynamic = new RegExp(PROPER_NOUNS_NAMES[i], 'ig');
    str = str.replace(regex_dynamic, PROPER_NOUNS_NAMES[i]);
  };
  return str;
}
function strTitleCase(str) {
  return str.toLowerCase().replace(/(?:^|[\s-/])\w/g, function (match) {
    return match.toUpperCase();
  });
}
//function strTitleCase(str) {
//  return str.replace(/\w\S*/g, function(txt) {return txt.charAt(0).toUpperCase() + txt.substr(1).toLowerCase();});
//}
function strFirstAlpha(str) {
  for (var i = 0; i < str.length; i += 1) {
    if ((str.charAt(i) >= 'A' && str.charAt(i) <= 'Z') ||
        (str.charAt(i) >= 'a' && str.charAt(i) <= 'z')) {
        return str.charAt(i);
    };
  };
  return '';
}
function strTrimTo(trim_length,str) {
  if (str.length > trim_length) {str = str.slice(0,trim_length-1) + "🤐"};
  return str;
}
function strEmojiLength(str) {
  //http://blog.jonnew.com/posts/poo-dot-length-equals-two
  const joiner = "\u{200D}";
  const split = str.split(joiner);
  let count = 0;
  for (const s of split) {
    //removing the variation selectors
    const num = Array.from(s.split(/[\ufe00-\ufe0f]/).join("")).length;
    count += num;
  };
  //assuming the joiners are used appropriately
  return count / split.length;
}
function strLottery(size, lowest, highest, ball_or_star) {
  //console.log("DEBUG [strLottery]> Lottery Generator");
  // Euro-millions - 5 unique numbers 1-50 + 2 unique numbers 1-12
  // UK Lottery - 6 unique numbers 1-59
  // Scottish Lottery - 5 unique numbers 1-49
  var strLotteryString = '';
  var numbers = [];
	for (var i = 0; i < size; i++) {
		var add = true;
		var randomNumber = Math.floor(Math.random() * highest) + 1;
		for(var y = 0; y < highest; y++) {
			if(numbers[y] == randomNumber) {
				add = false;
			};
		};
		if (add) {
			numbers.push(randomNumber);
      //console.log("DEBUG [strLottery]> Number picked: " + randomNumber);
		} else {
			i--;
		};
	};
  // Number sort
	var highestNumber = 0;
	for (var m = 0; m < numbers.length; m++) {
		for (var n = m + 1; n < numbers.length; n++) {
			if (numbers[n] < numbers[m]) {
			  highestNumber = numbers[m];
				numbers[m] = numbers[n];
				numbers[n] = highestNumber;
			}; // if
		}; // for
	}; // for
  strLotteryString = '';
  if (ball_or_star == 'ball') {
    //console.log("DEBUG [strLottery]> Ball");
    strLotteryString = strLotteryString + '🔮 ';
    for (var q = 0; q < numbers.length; q++) {
      strLotteryString = strLotteryString + numbers[q].toString();
      if (q != (numbers.length-1)) { strLotteryString = strLotteryString + ', ' };
    }; // for
  } else {
    //console.log("DEBUG [strLottery]> Star");
    strLotteryString = strLotteryString + '⭐ ';
    for (var q = 0; q < numbers.length; q++) {
      strLotteryString = strLotteryString + numbers[q].toString();
      if (q != (numbers.length-1)) { strLotteryString = strLotteryString + ', ' };
    }; // for
  }; // if
  //console.log("DEBUG [strLottery]> Numbers string: " + strLotteryString);
  return strLotteryString;
}
function strGreeting(senderID,greet) {
  //console.log("DEBUG [strGreeting]> " + senderID);
  let build_greeting = '';
  let fb_who = FB_UNKNOWN[numRandomBetween(0,FB_UNKNOWN.length-1)];
  let fb_who_known = false;
  let match_id = 0;
  let id_index = 0;
  if (IDS_VIABLE) {
    for (var find_index = 0; find_index < IDS_TOTAL; find_index++) {
      // 1,3,5 etc.
      match_id = IDS_LIST[find_index * IDS_BLOCK_SIZE + 1];
      //console.log("DEBUG [strGreeting]> Find match for ID (" + senderID + "): " + match_id);
      if (match_id == senderID) {
        id_index = find_index; // Got our match
        fb_who = IDS_LIST[find_index * IDS_BLOCK_SIZE];
        //console.log("DEBUG [strGreeting]> Matched to: " + fb_who);
        break;
      }; // if
    }; // for
  }; // if viable
  if (!greet) { return fb_who }; // Return only a name
  // Prime personalised response
  // if ( we know who the person is AND ( either they've not had a name check OR been a while since name check))
  if (IDS_VIABLE && (IDS_TIMESTAMP[id_index] == null||new Date().getTime() - IDS_TIMESTAMP[id_index] > mnsConvert(TIME_TO_WAIT))) {
    //console.log("DEBUG [strGreeting]> Interval in mins since last message has been: " + mnsConvert(TIME_TO_WAIT));
    let hr = hrsGetUK();
    for (var loop_hour = 0; loop_hour < TIME_OF_DAY.length; loop_hour++) {
      if (hr >= TIME_OF_DAY[loop_hour][0]) {
        build_greeting = TIME_OF_DAY[loop_hour][1];
        break;
      }; // if
    }; // for
    build_greeting = build_greeting + ' ' + fb_who + '. ' + MSG_RANDOM_COMPLIMENT[numRandomBetween(0,MSG_RANDOM_COMPLIMENT.length-1)] + ' ';
    // Set the time the ID received a name check
    IDS_TIMESTAMP[id_index] = new Date().getTime();
    console.log("NAME CHECK: [strGreeting]> " + fb_who + ", ID: " + senderID + " @ " + IDS_TIMESTAMP[id_index]);
  };
  //console.log("DEBUG [strGreeting]> Greeting: " + build_greeting);
  return build_greeting;
}
function numRandomBetween(min,max) {
  return Math.floor(Math.random()*(max-min+1)+min);
}
function mnsConvert(minsIn) {
  return minsIn*60*1000;
}
function hrsGetUK() {
  let utc_hr = new Date().getHours();
  utc_hr = utc_hr + UTC_BST_GMT; // Either GMT adds 0, or BST adds 1
  if (utc_hr == 24) { utc_hr = 0 };
  return utc_hr;
}

// Core Communication Channels:
//  __      __       _      ___ _         _
//  \ \    / /__ _ _| |__  / __| |_  __ _| |_
//   \ \/\/ / _ \ '_| / / | (__| ' \/ _` |  _|
//    \_/\_/\___/_| |_\_\  \___|_||_\__,_|\__|
// Receiving and sorting all originating messages
CHASbot.post('/webhook', (req, res) => {
  if (req.body.object === 'page') {
    req.body.entry.forEach((entry) => {
      //console.log("DEBUG [postWebhook]> Raw entry: " + JSON.stringify(entry));
      entry.messaging.forEach((event) => {
        //if (event.read && event.read.watermark) { //console.log("DEBUG [postWebhook]> Receipt: " + event.read.watermark) };
        //console.log("DEBUG [postWebhook]> Raw event: " + JSON.stringify(event));
        let sticker_path = '';
        let sender = event.sender.id;
        let alt_message_type = '';
        // Pick up on non-text messages
        if (event.message && event.message.attachments) {
           sticker_path = MSG_INTERCEPTS[0][numRandomBetween(0,MSG_INTERCEPTS[0].length-1)];
           alt_message_type = event.message.attachments[0].type;
           sticker_path = sticker_path + alt_message_type + ". Try just words instead.";
        };
        // Pick up on stickers - identify degrees of like (thumbs up)
        if (event.message && event.message.sticker_id) {
          let sticker_code = event.message.sticker_id;
          alt_message_type = 'sticker';
          if ( sticker_code == 369239263222822 ) { // Like
            sticker_path = MSG_INTERCEPTS[1][numRandomBetween(0,MSG_INTERCEPTS[1].length-1)];
          } else if ( sticker_code == 369239343222814 ) { // Like like
            sticker_path = MSG_INTERCEPTS[2][numRandomBetween(0,MSG_INTERCEPTS[2].length-1)];
          } else if (sticker_code == 369239383222810 ) { // Like like like
            sticker_path = MSG_INTERCEPTS[3][numRandomBetween(0,MSG_INTERCEPTS[3].length-1)];
          } else {
            sticker_path = MSG_INTERCEPTS[4][numRandomBetween(0,MSG_INTERCEPTS[4].length-1)];
          };
        };
        if (sticker_path != '') {
          console.log("INFO [postWebhook]> Sender: " + sender);
          console.log("INFO [postWebhook]> Request: Non-text");
          console.log("INFO [postWebhook]> Action: postWebhook.deliverText");
          console.log("INFO [postWebhook]> Response: " + sticker_path);
          if (alt_message_type == 'image') {
            apiGIPHY(event,'robot','G',sticker_path);
          } else {
            deliverText(event,sticker_path,false,'');
          };
        };
        if (event.message && event.message.text) {
          // Manage sender specific 'in-play' progress
          let sender_index = inPlayID(sender);
          if (sender_index == -1) {
            sender_index = SENDERS.length;
            inPlayNew(sender_index,sender);
          };
          let hold_that_thought = event.message.text;
          // CLEAN INPUT
          let cleanResults = strStandardise(event.message.text);
          let analyse_text = cleanResults[0];
          let good_vibe = cleanResults[1];
          let bad_vibe = cleanResults[2];
          let empty_input = false;
          if (analyse_text == '') { // Clean response would otherwise be empty
            empty_input = true;
            if (good_vibe > bad_vibe) {
              analyse_text = "i am ecstatic"; // More happy emojis than not
            } else if (bad_vibe > good_vibe) {
              analyse_text = "cheer me up"; // More sad emojis than not
            } else {
              analyse_text = "help"; // Nothing to go on
            };
          };
          if (!inPlay('survey',sender_index)) { event.message.text = analyse_text };
          //console.log("DEBUG [postWebhook]> Cleaned input: " + cleanResults[0] + ' (Emoji +ve ' + cleanResults[1] + ',-ve ' + cleanResults[2] + ')');
          // Feel the vibe
          deliverThinking(event,'on');
          let vibeText = '';
          if (good_vibe > ((bad_vibe+2)*3)-2) { // Minimum 5 = +ve
            vibeText = MSG_INTERCEPTS[5][numRandomBetween(0,MSG_INTERCEPTS[5].length-1)];
          } else if (bad_vibe > ((good_vibe+2)*3)-2) { // Minimum 5 = -ve
            vibeText = MSG_INTERCEPTS[6][numRandomBetween(0,MSG_INTERCEPTS[6].length-1)];
          } else if (good_vibe + bad_vibe > 4 && good_vibe + bad_vibe < 10) { // Minimum 5 = mixed
            vibeText = MSG_INTERCEPTS[7][numRandomBetween(0,MSG_INTERCEPTS[7].length-1)];
          } else if (good_vibe + bad_vibe > 9) { // Minimum 10 = lots
            vibeText = MSG_INTERCEPTS[8][numRandomBetween(0,MSG_INTERCEPTS[8].length-1)];
          };
          if (vibeText != '' && !empty_input) { deliverText(event,vibeText,false,'') };
          // *************************
          // Check for custom triggers
          let position_in_analyse_text = -1;
          let trigger_path = '';
          position_in_analyse_text = hold_that_thought.search(KEY_ADMIN_TRIGGER) + 1;
          let route_to = '';
          let adminMessage = '';
          let routeEvent = event;
          if (position_in_analyse_text > 0 && sender == KEY_ADMIN) {
            deliverThinking(event,'off');
            route_to = hold_that_thought.slice(KEY_ADMIN_TRIGGER.length,KEY_ADMIN_TRIGGER.length+15);
            adminMessage = hold_that_thought;
            adminMessage = adminMessage.slice(KEY_ADMIN_TRIGGER.length+15,adminMessage.length);
            console.log("ADMIN [postWebhook]> [" + route_to + "]: " + adminMessage);
            routeEvent.sender.id = route_to;
            trigger_path = KEY_ADMIN_TRIGGER;
            analyse_text = trigger_path;
          };
          // ***** HELP & SEARCH *****
          // Feeling lucky - First in list - allows subsequent triggers
          position_in_analyse_text = analyse_text.search(TRIGGER_FEELING_LUCKY) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_FEELING_LUCKY + " search result: " + position_in_analyse_text);
          let chasbotText = '';
          if (position_in_analyse_text > 0 && !inPlay('survey',sender_index)) {
            let cat = numRandomBetween(0,4); // 0 to 4
            let ind = numRandomBetween(1,6); // 1 to 6
            event.message.text = HELP_PROMPTS[cat][ind];
            analyse_text = event.message.text;
            analyse_text = analyse_text.toLowerCase();
            chasbotText = '*' + event.message.text + '*';
            deliverText(event,chasbotText,false,''); // Send a pseudo-request
            inPlayPause(sender_index); // Pause all in-play
            // FLOW: Sudo request replace 'feeling lucky'
          };
          // Help
          position_in_analyse_text = analyse_text.search(TRIGGER_HELP) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_HELP + " search result: " + position_in_analyse_text);
          let help_url = '';
          if (position_in_analyse_text > 0 && !inPlay('survey',sender_index)) {
            trigger_path = TRIGGER_HELP;
            help_url = URL_IMG_PREFIX2 + HELP_PROMPTS[HELP_INDEX][0] + URL_IMG_SUFFIX;
            //console.log("DEBUG [postWebhook]> Help URL: " + help_url);
            chasbotText = "Try typing any of these:";
            for (var i = 1; i < 7; i++) {
              chasbotText = chasbotText + '\n' + HELP_PROMPTS[HELP_INDEX][i];
            };
            chasbotText = chasbotText + '\n' + "Type *help* for more or try *feeling lucky*";
            //console.log("DEBUG [postWebhook]> Help text: " + chasbotText);
            HELP_INDEX++;
            if (HELP_INDEX > 4) { HELP_INDEX = 0 };
            // FLOW: 'help' trumps all
            analyse_text = TRIGGER_HELP; // clean extra i.e. to prevent other triggers
            inPlayPause(sender_index); // Pause all in-play
          };
          // Search
          let rightmost_starting_point = -1;
          let trigger_loop = 0;
          let starting_point = 0;
          let ending_point = 0;
          let string_length = 0;
          let search_method = '';
          let search_term = '';
          for (trigger_loop = 0; trigger_loop < TRIGGER_SEARCH.length; trigger_loop++) {
            position_in_analyse_text = analyse_text.lastIndexOf(TRIGGER_SEARCH[trigger_loop]) + 1;
            if (position_in_analyse_text > 0 && !inPlay('survey',sender_index)) {
              starting_point = position_in_analyse_text + TRIGGER_SEARCH[trigger_loop].length;
              if (starting_point > rightmost_starting_point) { // Find right-most search term
                rightmost_starting_point = starting_point;
                ending_point = analyse_text.length;
                string_length = ending_point - starting_point;
                search_method = TRIGGER_SEARCH[trigger_loop];
                //console.log("DEBUG [postWebhook]> Length is " + string_length + ", starting @ " + starting_point + " and go to " + ending_point);
                //console.log("DEBUG [postWebhook]> Search method found: " + search_method);
                if (string_length > 0) {
                  trigger_path = TRIGGER_SEARCH[0];
                  search_term = analyse_text.slice(starting_point,ending_point);
                  //console.log("DEBUG [postWebhook]> Search term: " + search_term);
                  // FLOW: Seperate out search terms - pause all in-play
                  analyse_text = search_method; // clean extra i.e. to prevent other triggers
                  inPlayPause(sender_index); // Pause all in-play
                };
              };
            };
          };
          // ******** IN PLAY/INTERACTIVE ********
          // Survey/Quiz
          // 0:id_of_sender,1:survey_in_play,4:survey_question,
          //console.log("DEBUG [postWebhook]> In play, survey: " + inPlay('survey',sender_index));
          //console.log("DEBUG [postWebhook]> In play, rpsls: " + inPlay('rpsls',sender_index));
          //console.log("DEBUG [postWebhook]> In play, hangman: " + inPlay('hangman',sender_index));
          //console.log("DEBUG [postWebhook]> In play, trumps: " + inPlay('trumps',sender_index));
          let valid_choice = false;
          let survey_question_number = SENDERS[sender_index][5];
          if (inPlay('survey',sender_index)) { // Review un-parsed text
            if (SURVEY_QUESTIONS[survey_question_number - 1].length == 1) { // Free text response
              valid_choice = true;
              if (cleanResults[0]=='' && cleanResults[1]==0 && cleanResults[2]==0) {
                valid_choice = false; // Empty after cleaning
              } else if (cleanResults[0]=='' && cleanResults[1]+cleanResults[2] > 0) {
                event.message.text = "(Emoji +ve " + cleanResults[1] + ",-ve " + cleanResults[2] + ")"; // Identifiable emoji response
              };
            } else { // Selection based
              for (var i = 1; i < SURVEY_QUESTIONS[survey_question_number - 1].length; i++) {
                position_in_analyse_text = event.message.text.search(SURVEY_QUESTIONS[survey_question_number - 1][i]) + 1;
                if (position_in_analyse_text > 0) {
                  let xstr = event.message.text;
                  event.message.text = i.toString();
                  valid_choice = true;
                  break;
                };
              };
            };
            position_in_analyse_text = event.message.text.search(TRIGGER_SURVEY) + 1;
            if (position_in_analyse_text > 0 && SURVEY_NAME!='') { analyse_text = TRIGGER_SURVEY };
            position_in_analyse_text = event.message.text.search(TRIGGER_QUIZ) + 1;
            if (position_in_analyse_text > 0 && QUIZ_NAME!='') { analyse_text = TRIGGER_QUIZ };
            position_in_analyse_text = event.message.text.search(TRIGGER_STOP) + 1;
            if (position_in_analyse_text > 0) { analyse_text = TRIGGER_STOP };
            if (analyse_text==TRIGGER_SURVEY||analyse_text==TRIGGER_STOP) {
              valid_choice = false;
            };
            if (valid_choice) {
              if (SURVEY_NAME!='') {
                console.log('SURVEY [' + SURVEY_NAME + '],' + sender + ',' + survey_question_number + ',' + event.message.text);
              } else if (QUIZ_NAME!='') {
                console.log('QUIZ [' + QUIZ_NAME + '],' + sender + ',' + survey_question_number + ',' + event.message.text);
              };
              let check_winner = event.message.text;
              check_winner = strStandardise(check_winner)[0];
              let winner = strStandardise(QUIZ[survey_question_number-1])[0];
              //console.log("DEBUG [postWebhook]> Check input: " + check_winner + " Against answer: " + winner);
              if (check_winner == winner) {
		            //console.log("DEBUG [postWebhook]> Won a point");
                SENDERS[sender_index][6] = SENDERS[sender_index][6] + 1; // Add a point
              };
            } else {
              SENDERS[sender_index][5] = survey_question_number - 1; // Repeat previous question
              // FLOW: Clear out invalid survey responses, 'stop', 'survey' or 'quiz' are still valid
              if (analyse_text != TRIGGER_SURVEY && analyse_text != TRIGGER_QUIZ && analyse_text != TRIGGER_STOP) { analyse_text = '' };
            }
          };
          // Trigger the survey or quiz
          position_in_analyse_text = analyse_text.search(TRIGGER_SURVEY) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_SURVEY + " search result: " + position_in_analyse_text);
          if (position_in_analyse_text > 0 && SURVEY_VIABLE && SURVEY_NAME!='') {
            // FLOW: Typing trigger mid-survey, starts it again
            if (inPlay('survey',sender_index)) { inPlayClean('survey',sender_index) };
            inPlayPause(sender_index); // Pause all in-play...
            inPlaySet('survey',sender_index); // ...then un-pause 'survey'
            analyse_text = TRIGGER_SURVEY; // clean extra i.e. to prevent other triggers
          };
          position_in_analyse_text = analyse_text.search(TRIGGER_QUIZ) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_QUIZ + " search result: " + position_in_analyse_text);
          if (position_in_analyse_text > 0 && SURVEY_VIABLE && QUIZ_NAME!='') {
            // FLOW: Typing trigger mid-survey, starts it again
            if (inPlay('survey',sender_index)) { inPlayClean('survey',sender_index) };
            inPlayPause(sender_index); // Pause all in-play...
            inPlaySet('survey',sender_index); // ...then un-pause 'survey'
            analyse_text = TRIGGER_SURVEY; // clean extra i.e. to prevent other triggers
          };
          // Rock, Paper, Scissors, Lizard, Spock
          // 0:id_of_sender,3:rpsls_in_play,10:rpsls_action,11:issue_instructions,12:rpsls_player,13:rpsls_bot
          let pick_player = TRIGGER_RPSLS;
          if (inPlay('rpsls',sender_index)) { // Only check if we are playing
            // Presume no match unless found
            SENDERS[sender_index][10] = 0;
            inPlayUnset('rpsls',sender_index);
            trigger_loop = 0;
            for (trigger_loop = 0; trigger_loop < RPSLS_VALID.length; trigger_loop++) {
              position_in_analyse_text = analyse_text.search(RPSLS_VALID[trigger_loop]) + 1;
              if (position_in_analyse_text > 0) {
                pick_player = RPSLS_VALID[trigger_loop];
                analyse_text = pick_player; // clean extra i.e. to prevent other triggers
                //console.log("DEBUG [postWebhook]> " + pick_player + " search result: " + position_in_analyse_text);
                inPlayPause(sender_index); // Pause all in-play...
                inPlaySet('rpsls',sender_index); // ...then un-pause 'rpsls'
                SENDERS[sender_index][10] = 3; // Evaluate the choice
                break;
              };
            };
          };
          // Trigger RPSLS
          position_in_analyse_text = analyse_text.search(TRIGGER_RPSLS) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_RPSLS + " search result: " + position_in_analyse_text);
          if (position_in_analyse_text > 0) {
            // FLOW: Typing trigger mid-game, starts it again
            if (inPlay('rpsls',sender_index)) { inPlayClean('rpsls',sender_index) }; // Reset if already playing
            inPlayPause(sender_index); // Pause all in-play...
            inPlaySet('rpsls',sender_index); // ...then un-pause 'rpsls'
            if (SENDERS[sender_index][11]) {
              SENDERS[sender_index][10] = 1; // Provide intsructions + prompt
              SENDERS[sender_index][11] = false; // Reset instructions
            } else {
              SENDERS[sender_index][10] = 2; // Prompt only
            };
          };
          // Hangman
          let hangman_guess = '';
          if (inPlay('hangman',sender_index)) { hangman_guess = analyse_text };
          // FLOW: Typing hangman mid-survey, starts it again
          // 0:id_of_sendery,2:hangman_in_play,7:hangman_strikes,8:hangman_word,9:hangman_array
          position_in_analyse_text = analyse_text.search(TRIGGER_HANGMAN) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_HANGMAN + " search result: " + position_in_analyse_text);
          let hangman_word = '';
          let hangman_answer_array = [];
          let hangman_answer = '';
          if (CHAS_BIOGS_VIABLE && position_in_analyse_text > 0) {
            trigger_path = TRIGGER_HANGMAN;
            if (SENDERS[sender_index][8] == ''||inPlay('hangman',sender_index)) { // New game
              hangman_word = CHAS_BIOGS[numRandomBetween(1,CHAS_BIOGS_TOTAL) * CHAS_BIOGS_BLOCK_SIZE - 2];
              hangman_word = hangman_word.toLowerCase();
              //console.log("DEBUG [postWebhook]> Mystery name: " + hangman_word);
              // swap out spaces for under_scores
              hangman_word = hangman_word.replace(/\s/g, '_');
              // Set up the answer array
              for (var i = 0; i < hangman_word.length; i++) {
                if (hangman_word[i] == '_') {
                  hangman_answer_array[i] = "_";
                } else {
                  hangman_answer_array[i] = "?";
                };
              };
              hangman_answer = hangman_answer_array.join(' ');
              chasbotText = MSG_HANGMAN_INTRO;
              chasbotText = chasbotText + "\n" + hangman_answer;
              chasbotText = chasbotText + "\n" + MSG_THUMBS[0] + " (0 strikes)";
              SENDERS[sender_index][8] = hangman_word;
              SENDERS[sender_index][9] = hangman_answer_array;
              //console.log("DEBUG [postWebhook]> Hangman Initialise: " + chasbotText);
            } else { // Resume existing game
              hangman_word = SENDERS[sender_index][8];
              hangman_answer_array = SENDERS[sender_index][9];
              hangman_answer = hangman_answer_array.join(' ');
              chasbotText = MSG_HANGMAN_PROMPT;
              chasbotText = chasbotText + "\n" + hangman_answer;
              chasbotText = chasbotText + "\n" + MSG_THUMBS[SENDERS[sender_index][7]] + "(" + SENDERS[sender_index][7] + " strike";
              if (SENDERS[sender_index][7] == 1) {
                chasbotText = chasbotText + ")";
              } else {
                chasbotText = chasbotText + "s)";
              };
            };
            inPlayPause(sender_index); // Pause all in-play...
            inPlaySet('hangman',sender_index); // ...then un-pause 'hangman'
          };
          // Top Trumps - SuperHero API
          // 14:trumps_score,15:trumps_played,16:trump_tobeat,17:trump_picked,18:trump_category,19:trumps_start,20:cat_or_char,21:trumps_xs
          let hero_who = '';
          if (inPlay('trumps',sender_index)) {
            // in play - looking for either category OR looking for character name
            let tt_loop = 0;
            let tt_category = '';
            if (SENDERS[sender_index][20] == 'category') {
              //console.log("DEBUG [postWebhook]> In play, trumps, looking for category");
              let tt_category_pick = -1;
              for (tt_loop = 0; tt_loop < HERO_STATS.length; tt_loop++) {
                tt_category = strStandardise(HERO_STATS[tt_loop])[0];
                if (analyse_text.includes(tt_category)) {
                  tt_category_pick = tt_loop;
                  break;
                };
              };
              SENDERS[sender_index][18] = tt_category_pick;
              if (tt_category_pick == -1) {
                //console.log("DEBUG [postWebhook]> In play, trumps, no category picked");
              } else {
                //console.log("DEBUG [postWebhook]> In play, trumps, category: " + HERO_STATS[tt_category_pick]);
              };
            } else if (SENDERS[sender_index][20] == 'character') {
              if (SENDERS[sender_index][21].length > 0) { // picking from list
                let tt_char_pick = -1;
                for (tt_loop = 0; tt_loop < SENDERS[sender_index][21].length; tt_loop++) {
                  tt_category = SENDERS[sender_index][21][tt_loop];
                  if (analyse_text.includes(tt_category)) {
                    tt_char_pick = tt_loop;
                    break;
                  };
                };
                if (tt_char_pick == -1) { // not picked from bubble
                  //console.log("DEBUG [postWebhook]> In play, trumps, hero bubble not picked when offered; hero to find: " + hero_who);
                  hero_who = analyse_text;
                  hero_who = hero_who.trim();
                  hero_who = strTitleCase(hero_who);
                  SENDERS[sender_index][21] = []; // reset bubbles
                } else { // valid single pick
                  SENDERS[sender_index][17] = SENDERS[sender_index][21][tt_char_pick];
                  //console.log("DEBUG [postWebhook]> In play, trumps, caharacter ID picked: " + SENDERS[sender_index][17]);
                };
              } else { // going to search for term
                hero_who = analyse_text;
                hero_who = hero_who.trim();
                hero_who = strTitleCase(hero_who);
                //console.log("DEBUG [postWebhook]> In play, trumps, hero to find: " + hero_who);
              }; // if (SENDERS[sender_index][21] = array of possibles
            }; // if (SENDERS[sender_index][20] = character
          }; // if (inPlay('trumps'
          position_in_analyse_text = analyse_text.search(TRIGGER_TOPTRUMPS) + 1;
          if (position_in_analyse_text > 0){
            trigger_path = TRIGGER_TOPTRUMPS;
            // FLOW: Typing trigger mid-game, starts it again
            if (inPlay('trumps',sender_index)) { inPlayClean('trumps',sender_index) };
            inPlayPause(sender_index); // Pause all in-play...
            inPlaySet('trumps',sender_index); // ...then un-pause 'trumps'
            analyse_text = TRIGGER_TOPTRUMPS; // Clean extra i.e. to prevent other triggers
            //console.log("DEBUG [postWebhook]> In play, trumps, triggered");
          };

    // DEV
    position_in_analyse_text = analyse_text.search(TRIGGER_DEV) + 1;
    if (position_in_analyse_text > 0) {
      trigger_path = TRIGGER_DEV;
      //let pokedex = analyse_text.replace(/[^0-9]+/g, '');
      let pokedex = strReplaceAll(analyse_text,TRIGGER_DEV,'');
      pokedex = pokedex.trim();
      lookupPokemon(event,pokedex);
    };

          //console.log("DEBUG [postWebhook]> In play, survey: " + inPlay('survey',sender_index));
          //console.log("DEBUG [postWebhook]> In play, rpsls: " + inPlay('rpsls',sender_index));
          //console.log("DEBUG [postWebhook]> In play, hangman: " + inPlay('hangman',sender_index));
          //console.log("DEBUG [postWebhook]> In play, trumps: " + inPlay('trumps',sender_index));
          // FLOW: Remaining triggers each clean out analyse_text, so no other triggers fire
          // ****** API LOOKUP *******
          // TV and film
          let moviedb_term = ''
          for (trigger_loop = 0; trigger_loop < TRIGGER_MOVIEDB.length; trigger_loop++) {
            position_in_analyse_text = analyse_text.lastIndexOf(TRIGGER_MOVIEDB[trigger_loop]) + 1;
            if (position_in_analyse_text > 0) {
              starting_point = position_in_analyse_text + TRIGGER_MOVIEDB[trigger_loop].length;
              if (starting_point > rightmost_starting_point) { // Find right-most search term
                rightmost_starting_point = starting_point;
                ending_point = analyse_text.length;
                string_length = ending_point - starting_point;
                //console.log("DEBUG [postWebhook]> Length is " + string_length + ", starting @ " + starting_point + " and go to " + ending_point);
                //console.log("DEBUG [postWebhook]> MovieDb key found: " + TRIGGER_MOVIEDB[trigger_loop]);
                if (string_length > 0) {
                  trigger_path = TRIGGER_MOVIEDB[0];
                  moviedb_term = analyse_text.slice(starting_point,ending_point);
                  //console.log("DEBUG [postWebhook]> Movie or TV title: " + moviedb_term);
                  analyse_text = trigger_path; // clean extra i.e. to prevent other triggers
                };
              };
            };
          };
          // Marvel
          //let hero_who = ''
          position_in_analyse_text = analyse_text.lastIndexOf(TRIGGER_MARVEL) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_MARVEL + " phrase search result: " + position_in_analyse_text);
          if (position_in_analyse_text > 0) {
            starting_point = position_in_analyse_text + TRIGGER_MARVEL.length;
            ending_point = analyse_text.length;
            string_length = ending_point - starting_point;
            //console.log("DEBUG [postWebhook]> Length is " + string_length + ", starting @ " + starting_point + " and go to " + ending_point);
            if (string_length > 0) {
              trigger_path = TRIGGER_MARVEL;
              hero_who = analyse_text.slice(starting_point,ending_point);
              hero_who = strTitleCase(hero_who);
              analyse_text = trigger_path; // clean extra i.e. to prevent other triggers
            };
          };
          // Lord of the Rings
          // If double-triggered - then seond trigger wins
          position_in_analyse_text = analyse_text.lastIndexOf(TRIGGER_LOTR) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_LOTR + " phrase search result: " + position_in_analyse_text);
          if (position_in_analyse_text > 0) {
            starting_point = position_in_analyse_text + TRIGGER_LOTR.length;
            ending_point = analyse_text.length;
            string_length = ending_point - starting_point;
            //console.log("DEBUG [postWebhook]> Length is " + string_length + ", starting @ " + starting_point + " and go to " + ending_point);
            if (string_length > 0) {
              trigger_path = TRIGGER_LOTR;
              hero_who = analyse_text.slice(starting_point,ending_point);
              hero_who = strTitleCase(hero_who);
              analyse_text = trigger_path; // clean extra i.e. to prevent other triggers
            };
          };
          // ****** Odds 'n' Ends *******
          // Lottery
          let uk_lotto = '';
          let scot_lotto = '';
          let euro_lotto = '';
          let one_is_enough = false;
          for (trigger_loop = 0; trigger_loop < TRIGGER_LOTTERY.length; trigger_loop++) {
            position_in_analyse_text = analyse_text.lastIndexOf(TRIGGER_LOTTERY[trigger_loop]) + 1;
            if (position_in_analyse_text > 0 && !one_is_enough && !inPlay('survey',sender_index)) {
              // Found a lottery trigger
              one_is_enough = true; // Single
              uk_lotto = strLottery(6,1,59,"ball"); // UK
              //console.log("DEBUG [postWebhook]> Lottery UK: " + uk_lotto);
              scot_lotto = strLottery(5,1,49,"ball"); // Scot
              //console.log("DEBUG [postWebhook]> Lottery Scottish: " + scot_lotto);
              euro_lotto = strLottery(5,1,50,"ball") + ' ' + strLottery(2,1,12,"star"); // Euro
              //console.log("DEBUG [postWebhook]> Lottery Scottish: " + euro_lotto);
              trigger_path = TRIGGER_LOTTERY[0];
              search_term = analyse_text.slice(starting_point,ending_point);
              // FLOW: Lotto triggered and drawn - pause all in-play
              inPlayPause(sender_index); // Pause all in-play
            }; // if
          }; // for
          // Trigger priority increases down list i.e. if multiple tirggers, lower ones trump higher
          // ****** CHAS THINGS *******
          // CHAS logo
          position_in_analyse_text = analyse_text.search(TRIGGER_CHAS_LOGO) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_CHAS_LOGO + " search result: " + position_in_analyse_text);
          if (position_in_analyse_text > 0) { trigger_path = TRIGGER_CHAS_LOGO };
          // CHAS alphabet
          let alpha = '';
          let alpha_1st = true;
          position_in_analyse_text = analyse_text.lastIndexOf(TRIGGER_CHASABET_1) + 1;
          if (position_in_analyse_text == 0) { // i.e. first phrase not found
            position_in_analyse_text = analyse_text.lastIndexOf(TRIGGER_CHASABET_2) + 1;
            alpha_1st = false;
          }
          //console.log("DEBUG [postWebhook]> " + TRIGGER_CHASABET_1 + " or " + TRIGGER_CHASABET_2 + " phrase search result: " + position_in_analyse_text);
          if (position_in_analyse_text > 0) {
            if (alpha_1st) {
              starting_point = position_in_analyse_text + TRIGGER_CHASABET_1.length;
            } else {
              starting_point = position_in_analyse_text + TRIGGER_CHASABET_2.length;
            }
            ending_point = analyse_text.length;
            string_length = ending_point - starting_point;
            //console.log("DEBUG [postWebhook]> Length is " + string_length + ", starting @ " + starting_point + " and go to " + ending_point);
            if (string_length > 0) {
              // Strip string to first viable letter
              alpha = analyse_text.slice(starting_point,ending_point);
              alpha = strFirstAlpha(alpha);
              if (alpha != '') {
                trigger_path = TRIGGER_CHASABET_1;
                analyse_text = trigger_path; // clean extra i.e. to prevent other triggers
              };
            };
          };
          // CHAS Events
          let event_name = '';
          position_in_analyse_text = analyse_text.lastIndexOf(TRIGGER_CHAS_EVENTS) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_CHAS_EVENTS + " phrase search result: " + position_in_analyse_text);
          if (position_in_analyse_text > 0) {
            starting_point = position_in_analyse_text + TRIGGER_CHAS_EVENTS.length;
            ending_point = analyse_text.length;
            string_length = ending_point - starting_point;
            //console.log("DEBUG [postWebhook]> Length is " + string_length + ", starting @ " + starting_point + " and go to " + ending_point);
            if (string_length > 0) {
              trigger_path = TRIGGER_CHAS_EVENTS;
              event_name = analyse_text.slice(starting_point,ending_point);
              analyse_text = trigger_path; // clean extra i.e. to prevent other triggers
            };
          };
          // CHAS Biogs
          position_in_analyse_text = analyse_text.lastIndexOf(TRIGGER_CHAS_BIOGS) + 1;
          //console.log("DEBUG [postWebhook]> " + TRIGGER_CHAS_BIOGS + " phrase search result: " + position_in_analyse_text);
          let biogs_name = '';
          if (position_in_analyse_text > 0) {
            starting_point = position_in_analyse_text + TRIGGER_CHAS_BIOGS.length;
            ending_point = analyse_text.length;
            string_length = ending_point - starting_point;
            //console.log("DEBUG [postWebhook]> Length is " + string_length + ", starting @ " + starting_point + " and go to " + ending_point);
            if (string_length > 0) {
              let catch_fundraising = analyse_text.lastIndexOf('fundraising');
              if (catch_fundraising > 0) {
                // Swap input text to be caught by hook instead
                analyse_text = 'who is my fundraising contact';
              } else {
                trigger_path = TRIGGER_CHAS_BIOGS;
                biogs_name = analyse_text.slice(starting_point,ending_point);
                analyse_text = trigger_path; // clean extra i.e. to prevent other triggers
              };
            };
          };
          // Stop pauses all activity, regardless of context or other triggers
          // i.e. must be queried last
          position_in_analyse_text = analyse_text.search(TRIGGER_STOP) + 1;
          if (position_in_analyse_text > 0) {
            inPlayPause(sender_index);
            trigger_path = ''; // Send via default else
            event.message.text = 'play a game';
          };
          // Pick a response route
          if (trigger_path == KEY_ADMIN_TRIGGER) {
            //console.log("DEBUG [postWebhook_route]> Admin: " + KEY_ADMIN_TRIGGER);
            deliverText(routeEvent,adminMessage,false,'');

    // DEV
    } else if (trigger_path == TRIGGER_DEV) {
      // do nothing

          } else if (inPlay('survey',sender_index)) { // Survey first
            //console.log("DEBUG [postWebhook_route]> Survey");
            deliverQuestion_playSurvey(event);
          } else if (trigger_path == TRIGGER_HELP) {
            //console.log("DEBUG [postWebhook_route]> Help: " + HELP_INDEX);
            strLottery(6,1,49,'ball');
            console.log("INFO [postWebhook]> Sender: " + sender);
            console.log("INFO [postWebhook]> Request: " + TRIGGER_HELP);
            console.log("INFO [postWebhook]> Action: postWebhook.postImage");
            console.log("INFO [postWebhook]> Response: Help v." + HELP_INDEX);
            postImage(event,help_url,true,chasbotText);
          } else if (trigger_path == TRIGGER_MARVEL) {
            //console.log("DEBUG [postWebhook_route]> Marvel Character: " + hero_who);
            apiMarvelChar(event,hero_who);
          } else if (trigger_path == TRIGGER_LOTR) {
            //console.log("DEBUG [postWebhook_route]> LOTR Character: " + hero_who);
            postLOTR(event,hero_who);
          } else if (trigger_path == TRIGGER_CHASABET_1) {
            //console.log("DEBUG [postWebhook_route]> CHAS alpahbet: " + alpha);
            lookupAlpha(event,alpha);
          } else if (trigger_path == TRIGGER_CHAS_EVENTS && CHAS_EVENTS_VIABLE) {
            //console.log("DEBUG [postWebhook_route]> CHAS event: " + event_name);
            lookupEvent(event,event_name);
          } else if (trigger_path == TRIGGER_CHAS_BIOGS && CHAS_BIOGS_VIABLE) {
            //console.log("DEBUG [postWebhook_route]> CHAS bios: " + biogs_name);
            lookupBiogs(event,biogs_name);
          } else if (SENDERS[sender_index][10] > 0) {
            //console.log("DEBUG [postWebhook_route]> RPSLSpock: " + pick_player);
            playRPSLS(event,pick_player);
          } else if (trigger_path == TRIGGER_SEARCH[0]) {
            //console.log("DEBUG [postWebhook_route]> Search: " + search_term);
            postSearch(event,search_method,search_term);
          } else if (trigger_path == TRIGGER_LOTTERY[0]) {
            //console.log("DEBUG [postWebhook_route]> Lottery UK: " + uk_lotto + ', Euro: ' + euro_lotto + ', Scot: ' + scot_lotto);
            postLottery(event,uk_lotto,euro_lotto,scot_lotto);
          } else if (trigger_path == TRIGGER_MOVIEDB[0]) {
            //console.log("DEBUG [postWebhook_route]> Movie/TV: " + moviedb_term);
            apiPrimeFilmTV(event,moviedb_term);
          } else if (trigger_path == TRIGGER_CHAS_LOGO) {
            //console.log("DEBUG [postWebhook_route]> Logo");
            console.log("INFO [postWebhook]> Sender: " + sender);
            console.log("INFO [postWebhook]> Request: " + TRIGGER_CHAS_LOGO);
            console.log("INFO [postWebhook]> Action: postWebhook.postImage");
            console.log("INFO [postWebhook]> Response: IMG URL " + URL_CHAS_THUMB);
            postImage(event,URL_CHAS_THUMB,false,'');
          } else if (trigger_path == TRIGGER_HANGMAN) {
            //console.log("DEBUG [postWebhook_route]> Hangman Initiated");
            console.log("INFO [postWebhook]> Sender: " + sender);
            console.log("INFO [postWebhook]> Request: " + TRIGGER_HANGMAN);
            console.log("INFO [postWebhook]> Action: postWebhook.deliverText");
            console.log("INFO [postWebhook]> Response: Hangman Mystery Name is " + hangman_word);
            deliverText(event,chasbotText,false,'');
          } else if (inPlay('hangman',sender_index)) {
            //console.log("DEBUG [postWebhook_route]> Hangman Guess: " + hangman_guess);
            playHangman(event,hangman_guess);
          } else if (inPlay('trumps',sender_index)) {
            lookupHero(event,hero_who);
            //console.log("DEBUG [postWebhook_route]> Top Trumps: " + hero_who);
          } else {
            //console.log("DEBUG [postWebhook_route]> No special cases, send via APIAI");
            bounceViaDialogV2(event);
          }
        }
      });
    });
    res.status(200).end();
  }
});

// Core Communication Channels:
//   ___  _      _           ___ _
//  |   \(_)__ _| |___  __ _| __| |_____ __ __
//  | |) | / _` | / _ \/ _` | _|| / _ \ V  V /
//  |___/|_\__,_|_\___/\__, |_| |_\___/\_/\_/ V2
//                     |___/
// Bouncing un-flitered traffic via NLP
//https://github.com/kamjony/Chatbot-DialogFlowV2-Messenger-NodeJS
async function bounceViaDialogV2(eventSend) {
  let sender = eventSend.sender.id;
  let dialogFlowInbound = eventSend.message.text;
  console.log("INFO [bounceViaDialogV2]> Request from " + sender + ": " + dialogFlowInbound);
  try {
    const sessionPath = sessionClient.projectAgentSessionPath(
      GOOGLE_PROJECT_ID,
      sender
    ); // try
    const dialogflow_request = {
      session: sessionPath,
      queryInput: {
        text: {
          text: dialogFlowInbound,
          languageCode: 'en-UK',
        }, // text
      }, // queryInput
    }; // const
    // Send dialogflow_request and log result
    const responses = await sessionClient.detectIntent(dialogflow_request);
    //console.log("DEBUG [bounceViaDialogV2]: DialogFlow Intent Detected");
    const result = responses[0].queryResult;
    console.log("INFO [bounceViaDialogV2]> Request Processed for " + sender + ": " + result.queryText);
    //let dialogFlowText = result.fulfillmentText; // [LEGACY]
    let dialogFlowHook = result.action;
    //console.log("DEBUG [bounceViaDialogV2]> dialogFlowHook: " + dialogFlowHook);
    let dialogFlowText = ''
    if (dialogFlowHook != '') { // If there is an 'action' then there likely to be a hook
      if (dialogFlowHook.includes('smalltalk') || dialogFlowHook.includes('unknown') || dialogFlowHook.includes('Default')){
        // For dialogflow built-in 'action' exceptons
        dialogFlowText = result.fulfillmentMessages[0].text.text[0];
      }; // if (dialogFlowHook
    } else { // If there is no 'action', there is no hook and therefore will be text
      dialogFlowText = result.fulfillmentMessages[0].text.text[0];
    }; // else
    if (result.intent) {
      console.log("INFO [bounceViaDialogV2]> Intent to " + sender + ": " + result.intent.displayName);
    } else {
      console.log("INFO [bounceViaDialogV2]> Intent to " + sender + ": NONE MATCHED");
    };
    // Check for hard-coded hooks
    let hookText = '';
    if (dialogFlowHook === HOOK_WEATHER) {
      // Set a default weather location
      //console.log("DEBUG [bounceViaDialogV2]> HOOK_WEATHER");
      let city = 'Edinburgh';
      if (typeof responses[0].queryResult.parameters != 'undefined') {
        //console.log("DEBUG [bounceViaDialogV2]> Weather params are defined");
        const params = responses[0].queryResult.parameters;
        var paramsObject = Object.values(params);
        let paramsJSON = JSON.stringify(paramsObject[0]);
        let paramsParsed = JSON.parse(paramsJSON);
        //console.log("DEBUG [bounceViaDialogV2]> Weather Parameters: " + paramsJSON);
        if (paramsJSON.includes("geo-city-gb")) {
          city = paramsParsed["geo-city-gb"]["stringValue"];
          //console.log("DEBUG [bounceViaDialogV2]> Weather geo-city-gb found: " + city);
        } else if (paramsJSON.includes("hospice_places")) {
          city = paramsParsed["hospice_places"]["stringValue"];
          //console.log("DEBUG [bounceViaDialogV2]> Weather hospice_places found: " + city);
        }; // else if
      }; //if (typeof
      let restUrl = URL_API_WEATHER + KEY_API_WEATHER + '&q=' + city;
      //console.log("DEBUG [bounceViaDialogV2]> Weather Hook URL: " + restUrl);
      request(restUrl, function (err, response, body) {
        console.log("API Request [OW]: " + URL_API_WEATHER + '<SECRET>&q=' + city);
        if (!err && response.statusCode == 200) { // Successful response
          let json = JSON.parse(body);
          //console.log("DEBUG [bounceViaDialogV2]> Weather Hook JSON: " + body);
          let tempF = ~~(json.main.temp * 9/5 - 459.67);
          let tempC = ~~(json.main.temp - 273.15);
          hookText = 'The current condition in ' + json.name + ' is ' + json.weather[0].description + ' and the temperature is ' + tempF + ' ℉ (' +tempC+ ' ℃).'
          console.log("INFO [bounceViaDialogV2]> Response to " + sender + " via Weather Hook: " + hookText);
          let weatherId = json.weather[0].id;
          // Match the id to the weather icon
          let findId = ' ' + weatherId.toString();
          let hr = hrsGetUK();
          let day_or_night = '';
          let weathericonId = URL_IMG_PREFIX2;
          if (hr >= UTC_DAWN && hr <= UTC_DUSK) { day_or_night = 'day' } else { day_or_night = 'night' };
          //console.log("DEBUG [bounceViaDialogV2]> Weather Id" + findId + " [" + day_or_night + "]");
          for (var loop_icons = 0; loop_icons < WEATHER_GIFS.length; loop_icons++) {
            if (WEATHER_GIFS[loop_icons].includes(findId) && WEATHER_GIFS[loop_icons].includes(day_or_night)) {
              weathericonId = weathericonId + WEATHER_GIFS[loop_icons].slice(0, 14) + URL_GIF_SUFFIX;
              //console.log("DEBUG [bounceViaDialogV2]> Weather GIF: " + weathericonId);
              break;
            }; // if
          }; // for
          // Catch missing GIF
          if (weathericonId == URL_IMG_PREFIX2) { weathericonId = EMPTY_WEATHER_GIF_URL };
          postImage(eventSend,weathericonId,true,hookText);
          return;
        } else {
          hookText = MSG_NO_WEATHER;
          console.log("INFO [bounceViaDialogV2]> Response to " + sender + " via Weather Hook: " + hookText);
          postImage(eventSend,EMPTY_WEATHER_GIF_URL,true,hookText);
          return;
        } //else
      }); // } function ) request
    } else if (dialogFlowHook === HOOK_PICKCARD) {
      //console.log("DEBUG [bounceViaDialogV2]> HOOK_PICKCARD");
      CARD_PICK = CARD_DECK[numRandomBetween(0,CARD_DECK.length-1)];
      hookText = CARD_PROMPTS[numRandomBetween(0,CARD_PROMPTS.length-1)] + CARD_PICK;
      console.log("INFO [bounceViaDialogV2]> Response to " + sender + " via Pick a Card Hook: " + hookText);
      deliverText(eventSend,hookText,false,'');
      return;
    } else if (dialogFlowHook === HOOK_FUNDRAISING) {
      //console.log("DEBUG [bounceViaDialogV2]> HOOK_FUNDRAISING");
      hookText = CHAS_FR_LIST;
      console.log("INFO [bounceViaDialogV2]> Response to " + sender + " via Fundraising Hook: " + hookText);
      deliverText(eventSend,hookText,false,'');
      return;
    }; // else if (dialogFlowHook
    // Check for custom hooks
    if (HOOKS_CUSTOM.length > 0) {
      for (var i = 0; i < HOOKS_CUSTOM.length; i++) {
        if (HOOKS_CUSTOM[i][0] && dialogFlowHook == HOOKS_CUSTOM[i][2]) { // Found custom
          console.log("INFO [bounceViaDialogV2]> Response to " + sender + " via Custom Hook: " + HOOKS_CUSTOM[i][2] + " (" + HOOKS_CUSTOM[i][1] + ")");
          if (HOOKS_CUSTOM[i][1] == 'image') {
            postImage(eventSend,HOOKS_CUSTOM[i][3],false,'');
            return;
          } else if (HOOKS_CUSTOM[i][1] == 'image_text') {
            postImage(eventSend,HOOKS_CUSTOM[i][3],true,HOOKS_CUSTOM[i][4]);
            return;
          } else if (HOOKS_CUSTOM[i][1] == 'button') {
            postLinkButton(eventSend,HOOKS_CUSTOM[i][3],HOOKS_CUSTOM[i][4],HOOKS_CUSTOM[i][5]);
            return;
          }; // else if... HOOKS_CUSTOM[i][1]
        }; // if... HOOKS_CUSTOM[i][0]
      }; // for (var i = 0
    }; // if (HOOKS_CUSTOM.length
    // No hooks found - Note that weather request may still be in-flight - it will catch its own errors
    if (dialogFlowHook != HOOK_WEATHER) {
      if (dialogFlowText == '') {dialogFlowText = MSG_NO_HOOK}; // Catch empty dialogflow responses
      console.log("INFO [bounceViaDialogV2]> Response to " + sender + " scripted via dialogflow NLP: " + dialogFlowText);
      deliverText(eventSend,dialogFlowText,false,'');
      // Look out for unknown response and cc. admin
      if (result.action == 'input.unknown'||result.action.slice(0,21)=='DefaultFallbackIntent') {
        let loopbackText = sender + ">>" + strGreeting(sender,false) + ">>" + result.queryText;
        console.log("ADMIN [bounceViaDialogV2]> Feedback: " + loopbackText);
        let eventLoopback = eventSend;
        eventLoopback.sender.id = KEY_ADMIN;
        deliverText(eventLoopback,loopbackText,false,'');
      }; //if (result.action
    }; // if (dialogFlowHook
} catch (e) { // cattch from try - undefined error from async await
    deliverText(eventSend,MSG_NO_HOOK,false,'');
    console.log("INFO [bounceViaDialogV2]> Catch response to " + sender + " via dialogflow NLP: " + MSG_NO_HOOK)
    console.log("ERROR [bounceViaDialogV2]> " + e);
  } // catch end
} // function

//  ___      _ _
// |   \ ___| (_)_ _____ _ _ _  _
// | |) / -_) | \ V / -_) '_| || |
// |___/\___|_|_|\_/\___|_|  \_, |
//                           |__/
// Delivery Functions - return resposnes
// =====================================
const Q_DELIVERY = 1.5; // seconds to pause sequential messaging

function deliverPause(ms) {
  return new Promise(resolve => setTimeout(resolve, ms));
}

function deliverThinking(eventThink,on_off) {
  let sender = eventThink.sender.id;
  request({
    uri: URL_CHAT_ENDPOINT,
    qs: {access_token: KEY_PAGE_ACCESS},
    method: 'POST',
    json: {
      messaging_type: 'RESPONSE',
      recipient: {id: sender},
      sender_action: 'typing_' + on_off
    }
  }, function (error, response) {
    if (error) {
      console.log("ERROR [deliverThinking]> Error sending simple message: ", error);
    } else if (response.body.error) {
      console.log("ERROR [deliverThinking]> Undefined: ", response.body.error);
    };
  }); // request
}

function deliverText(eventSend,outbound_text,plusTemplate,messageData) {
  if (plusTemplate) {
    //console.log("DEBUG [deliverText]> Deliver text preceeded by template: ", outbound_text);
  } else {
    //console.log("DEBUG [deliverText]> Deliver text: ", outbound_text);
  }; // if (plusTemplate)
  let sender = eventSend.sender.id;
  outbound_text = strGreeting(sender,true) + outbound_text;
  if (plusTemplate) { deliverTMPLTcb(eventSend,messageData, function(){
      //await deliverPause(Q_DELIVERY * 1000); // function needs to be async
      request({
        uri: URL_CHAT_ENDPOINT,
        qs: {access_token: KEY_PAGE_ACCESS},
        method: 'POST',
        json: {
          messaging_type: 'RESPONSE',
          recipient: {id: sender},
          message: {
            text: strTrimTo(640,outbound_text)
          }
        }
      }, function (error, response) {
        if (error) {
          console.log("ERROR [deliverText]> Post deliverTMPLTcb error sending simple message: ", error);
        } else if (response.body.error) {
          console.log("ERROR [deliverText]> Post deliverTMPLTcb undefined: ", response.body.error);
        }; // if (error)
      }); // request
    }); // deliverTMPLTcb
  } else { // if (plusTemplate)
    deliverThinking(eventSend,'off');
    request({
      uri: URL_CHAT_ENDPOINT,
      qs: {access_token: KEY_PAGE_ACCESS},
      method: 'POST',
      json: {
        messaging_type: 'RESPONSE',
        recipient: {id: sender},
        message: {
          text: strTrimTo(640,outbound_text)
        }
      }
    }, function (error, response) {
      if (error) {
        console.log("ERROR [deliverText]> Error sending simple message: ", error);
      } else if (response.body.error) {
        console.log("ERROR [deliverText]> Undefined: ", response.body.error);
      }; // if (error)
    }); // request
  };
}

function deliverTMPLTcb(eventSend,messageData,callback){
  // messageData set outside of function call
  deliverThinking(eventSend,'off');
  let sender = eventSend.sender.id;
  request({
    uri: URL_CHAT_ENDPOINT,
    qs: {access_token: KEY_PAGE_ACCESS},
    method: 'POST',
    json: {
      messaging_type: 'RESPONSE',
      recipient: {id: sender},
      message: messageData
    }
  }, function (error, response) {
    if (error) {
        console.log("ERROR [deliverTMPLTcb]> Error sending template message: ", error);
    } else if (response.body.error) {
        console.log("ERROR [deliverTMPLTcb]> Undefined: ", response.body.error);
    }; // if (error)
    if (callback) callback();
  }); // request({
}

function deliverPicTTcb(eventSend,pictureTT,callback){ // call 3rd
  // Sent 1st
  let sender = eventSend.sender.id;
  let imgTemplate = {
    attachment: {
      type: "image",
      payload: {
        url: pictureTT,
        is_reusable: true
      } // payload
    } // attachment
  }; // template
  request({
    uri: URL_CHAT_ENDPOINT,
    qs: {access_token: KEY_PAGE_ACCESS},
    method: 'POST',
    json: {
      messaging_type: 'RESPONSE',
      recipient: {id: sender},
      message: imgTemplate
    }
  }, function (error, response) {
    if (error) {
        console.log("ERROR [deliverTMPLTcb]> Error sending template message: ", error);
    } else if (response.body.error) {
        console.log("ERROR [deliverTMPLTcb]> Undefined: ", response.body.error);
    }; // if (error)
    callback(); // To deliverMetricsTTcb
  }); // request({
}
function deliverMetricsTTcb(eventSend,metricsTT,pictureTT,callback){ // call 2nd
  deliverPicTTcb(eventSend,pictureTT, function(){
    // Sent 2nd
    let sender = eventSend.sender.id;
    request({
      uri: URL_CHAT_ENDPOINT,
      qs: {access_token: KEY_PAGE_ACCESS},
      method: 'POST',
      json: {
        messaging_type: 'RESPONSE',
        recipient: {id: sender},
        message: {
          text: strTrimTo(640,metricsTT)
        }
      }
    }, function (error, response) {
      if (error) {
        console.log("ERROR [deliverMetricsTTcb]> Error sending TT stack: ", error);
      } else if (response.body.error) {
        console.log("ERROR [deliverMetricsTTcb]> Undefined: ", response.body.error);
      }; // if (error)
    }); // request
    callback(); // To deliverStackTT
  });
}
function deliverStackTT(eventSend,metricsTT,msgTT,pictureTT,game_over){ // Call 1st
  deliverThinking(eventSend,'off');
  let sender = eventSend.sender.id;
  let custom_id = inPlayID(sender);
  deliverMetricsTTcb(eventSend,metricsTT,pictureTT, async function(){
    // Sent 3rd
    if (!game_over) {
      await deliverPause(Q_DELIVERY*1000);
      deliverCategoryTT(eventSend,msgTT); // Category choice peompt and options
      SENDERS[custom_id][19] = false; // No lomger just started}
    } else { // f (!game_over)
      deliverText(eventSend,msgTT,false,'');
    };//
  });
}
function deliverCategoryTT(eventSend,msgTT) {
  //console.log("DEBUG [deliverCategoryTT]> In Progress");
  deliverThinking(eventSend,'off');
  let sender = eventSend.sender.id;
  let custom_id = inPlayID(sender);
  let categoryTemplate = {
    text: msgTT,
    quick_replies:[
      { content_type:"text",
        title: HERO_STATS[0],
        payload:"<POSTBACK_PAYLOAD>" },
      { content_type:"text",
        title: HERO_STATS[1],
        payload:"<POSTBACK_PAYLOAD>" },
      { content_type:"text",
        title: HERO_STATS[2],
        payload:"<POSTBACK_PAYLOAD>" },
      { content_type:"text",
        title: HERO_STATS[3],
        payload:"<POSTBACK_PAYLOAD>" },
      { content_type:"text",
        title: HERO_STATS[4],
        payload:"<POSTBACK_PAYLOAD>" },
      { content_type:"text",
        title: HERO_STATS[5],
        payload:"<POSTBACK_PAYLOAD>" }]};
  request({
    uri: URL_CHAT_ENDPOINT,
    qs: {access_token: KEY_PAGE_ACCESS},
    method: 'POST',
    json: {
      messaging_type: 'RESPONSE',
      recipient: {id: sender},
      message: categoryTemplate
    }
  }, function (error, response) {
    if (error) {
      console.log("ERROR [deliverCategoryTT]> Error sending survey message: ", error);
    } else if (response.body.error) {
      console.log("ERROR [deliverCategoryTT]> Undefined: ", response.body.error);
    }
  }); // request
}
function deliverCharChoiceTT(eventSend,msgTT) {
  //console.log("DEBUG [deliverCharChoiceTT]> In Progress");
  deliverThinking(eventSend,'off');
  let sender = eventSend.sender.id;
  let custom_id = inPlayID(sender);
  let charBubblesNum = SENDERS[custom_id][21].length;
  let charBubbles = [];
  let txtBubble = '';
  let send_index = 0;
  let idBubble = 0;
  if (charBubblesNum > 5) { charBubblesNum = 5 };
  for (send_index = 0; send_index < charBubblesNum; send_index++) {
    idBubble = parseInt(SENDERS[custom_id][21][send_index]);
    txtBubble = idBubble + ": " + HERO_ARRAY[idBubble][0];
    charBubbles.push(txtBubble);
  };
  let charsTemplate = '';
  switch (charBubblesNum) {
    case 2:
      charsTemplate = {
        text: msgTT,
        quick_replies:[
              { content_type:"text",
                title: charBubbles[0],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[1],
                payload:"<POSTBACK_PAYLOAD>" }]};
      break;
    case 3:
      charsTemplate = {
        text: msgTT,
        quick_replies:[
              { content_type:"text",
                title: charBubbles[0],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[1],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[2],
                payload:"<POSTBACK_PAYLOAD>" }]};
      break;
    case 4:
      charsTemplate = {
        text: msgTT,
        quick_replies:[
              { content_type:"text",
                title: charBubbles[0],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[1],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[2],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[3],
                payload:"<POSTBACK_PAYLOAD>" }]};
      break;
    case 5:
      charsTemplate = {
        text: msgTT,
        quick_replies:[
              { content_type:"text",
                title: charBubbles[0],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[1],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[2],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[3],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: charBubbles[4],
                payload:"<POSTBACK_PAYLOAD>" }]};
  }; // Switch
  request({
    uri: URL_CHAT_ENDPOINT,
    qs: {access_token: KEY_PAGE_ACCESS},
    method: 'POST',
    json: {
      messaging_type: 'RESPONSE',
      recipient: {id: sender},
      message: charsTemplate
    }
  }, function (error, response) {
    if (error) {
      console.log("ERROR [deliverCharChoiceTT]> Error sending survey message: ", error);
    } else if (response.body.error) {
      console.log("ERROR [deliverCharChoiceTT]> Undefined: ", response.body.error);
    }
  }); // request
}

function deliverQuestion_playSurvey(eventSend) {
  //console.log("DEBUG [deliverQuestion_playSurvey]> " + SURVEY_NAME + "In Progress");
  // 0:id_of_sender,1:survey_in_play,4:survey_question
  deliverThinking(eventSend,'off');
  let sender = eventSend.sender.id;
  let custom_id = inPlayID(sender);
  let survey_question_number = SENDERS[custom_id][5];
  let rspns_items = 0;
  let qstn = '';
  let surveyTemplate = '';
  if (survey_question_number == SURVEY_QUESTIONS.length) {
    rspns_items = 1; // Thanks
    if (SURVEY_NAME != '') { // Survey
      qstn = MSG_SURVEY_THANKS;
    } else { // Quiz - Final Score
      if (SENDERS[custom_id][6] > HIGH_SCORE[1]) {
        let sender_name = strGreeting(sender,false);
        qstn = "🏆 You are our new high scorer on " + SENDERS[custom_id][6] + "! Congratulations " + sender_name + ".";
        HIGH_SCORE[1] = SENDERS[custom_id][6];
        HIGH_SCORE[0] = sender_name;
        highScore('write');
        console.log('QUIZ [' + QUIZ_NAME + '],' + sender + ', ' + sender_name + ' is new HIGH SCORE on ' + SENDERS[custom_id][6]);
      } else if (SENDERS[custom_id][6] == HIGH_SCORE[1]) {
        qstn = "🏆 You are an equal high scorer on " + SENDERS[custom_id][6] + "!";
      } else {
        qstn = "You scored " + SENDERS[custom_id][6] + ", not the top score but everybody wins a prize " +
               PRIZES[numRandomBetween(0,PRIZES.length-1)] + ". " + HIGH_SCORE[0] + " leads with " + HIGH_SCORE[1] + ".";
      };
    };
    inPlayClean('survey', custom_id);
  } else { // Next question
    rspns_items = SURVEY_QUESTIONS[survey_question_number].length;
    qstn = SURVEY_QUESTIONS[survey_question_number][0];
  }
  switch (rspns_items) {
    case 1:
      surveyTemplate = {
        text: strTrimTo(640,qstn)};
      break;
    case 2:
      surveyTemplate = {
        text: strTrimTo(640,qstn),
        quick_replies:[
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][1],
                payload:"<POSTBACK_PAYLOAD>" }]};
      break;
    case 3:
      surveyTemplate = {
        text: strTrimTo(640,qstn),
        quick_replies:[
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][1],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][2],
                payload:"<POSTBACK_PAYLOAD>" }]};
      break;
    case 4:
      surveyTemplate = {
        text: strTrimTo(640,qstn),
        quick_replies:[
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][1],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][2],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][3],
                payload:"<POSTBACK_PAYLOAD>" }]};
      break;
    case 5:
      surveyTemplate = {
        text: strTrimTo(640,qstn),
        quick_replies:[
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][1],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][2],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][3],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][4],
                payload:"<POSTBACK_PAYLOAD>" }]};
      break;
    case 6:
      surveyTemplate = {
        text: strTrimTo(640,qstn),
        quick_replies:[
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][1],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][2],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][3],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][4],
                payload:"<POSTBACK_PAYLOAD>" },
              { content_type:"text",
                title: SURVEY_QUESTIONS[survey_question_number][5],
                payload:"<POSTBACK_PAYLOAD>" }]};
  }; // Switch
  request({
    uri: URL_CHAT_ENDPOINT,
    qs: {access_token: KEY_PAGE_ACCESS},
    method: 'POST',
    json: {
      messaging_type: 'RESPONSE',
      recipient: {id: sender},
      message: surveyTemplate
    }
  }, function (error, response) {
    if (error) {
      console.log("ERROR [deliverQuestion_playSurvey]> Error sending survey message: ", error);
    } else if (response.body.error) {
      console.log("ERROR [deliverQuestion_playSurvey]> Undefined: ", response.body.error);
    }
  }); // request
  if (inPlay('survey',custom_id)) { SENDERS[custom_id][5] = survey_question_number + 1 };
}

//  ___        _
// | _ \___ __| |_
// |  _/ _ (_-<  _|
// |_| \___/__/\__|
// Post Functions - Prep Responses For Delivery
// ============================================
function postImage(postEvent,image_url,plusText,passText) {
  //console.log("DEBUG [postImage]> Input: " + image_url);
  let imgTemplate = {
    attachment: {
      type: "image",
      payload: {
        url: image_url,
        is_reusable: true
      } // payload
    } // attachment
  }; // template
  if (plusText) {
    deliverText(postEvent,passText,true,imgTemplate);
  } else {
    deliverTMPLTcb(postEvent,imgTemplate,'');
  }; // if (plusText)
}

function postLinkButton(postEvent,link_url,reponse_msg,btn_msg) {
  let linkTemplate = {
    attachment: {
      type: "template",
      payload: {
        template_type:"button",
        text: reponse_msg,
        buttons: [{
          type: 'web_url',
          url:  link_url,
          title:  btn_msg
        }] // buttons
      } // payload
    } // attachment
  }; // template
  deliverTMPLTcb(postEvent,linkTemplate,'');
}

function postMarvel(postEvent,success_result,hero_array) {
  //console.log("DEBUG [postMarvel]> True or False: " + success_result);
  let sender = postEvent.sender.id;
  let marvelTemplate = '';
  let marvelText = '';
  // hero_array = [marvelWho,marvelNote,marvelThumb,marvelURL];
  console.log("INFO [postMarvel]> Sender: " + sender);
  console.log("INFO [postMarvel]> Request: " + TRIGGER_MARVEL + " " + strTitleCase(hero_array[0]));
  console.log("INFO [postMarvel]> Action: apiMarvelChar.postMarvel");
  if (success_result) {
    console.log("INFO [postMarvel]> Reponse: Successful");
    marvelTemplate = {
      attachment: {
        type: "template",
        payload: {
          template_type: "generic",
          elements: [
            {
            title: strTitleCase(hero_array[0]),
            image_url: hero_array[2],
            default_action: {
              type: "web_url",
              url: hero_array[3],
              messenger_extensions: false,
              webview_height_ratio: "tall"
            } // default_action
          }] // elements
        } // payload
      } // attachment
    }; // template
    marvelText = hero_array[1];
    deliverText(postEvent,marvelText,true,marvelTemplate);
  } else {
    console.log("INFO [postMarvel]> Reponse: Unsuccessful");
    marvelText = MSG_HERO_OOPS[numRandomBetween(0,MSG_HERO_OOPS.length-1)] + ' try something instead of ' + strTitleCase(hero_array[0]) + '?'; // Required within deliverText
    deliverText(postEvent,marvelText,false,'');
  };
}

function postEvents(postEvent,success_result,event_index,event_in) {
  //console.log("DEBUG [postEvents]> Pass or Fail: " + success_result);
  let sender = postEvent.sender.id;
  let eventsText = '';
  let eventsTemplate = '';
  console.log("INFO [postEvents]> Sender: " + sender);
  console.log("INFO [postEvents]> Request: " + TRIGGER_CHAS_EVENTS + " " + event_in);
  console.log("INFO [postEvents]> Action: lookupEvent.postEvents");
  if (success_result) {
    console.log("INFO [postEvents]> Reponse: Successful");
    let event_name = CHAS_EVENTS_CALENDAR[event_index + 1];
    let event_detail = CHAS_EVENTS_CALENDAR[event_index + 2];
    let event_info = CHAS_EVENTS_CALENDAR[event_index + 3];
    eventsTemplate = {
      attachment: {
        type: "template",
        payload: {
          template_type: "generic",
          elements: [
            {
            title: event_name,
            image_url: URL_CHAS_THUMB,
            default_action: {
              type: "web_url",
              url: event_info,
              messenger_extensions: false,
              webview_height_ratio: "tall"
            } // default_action
          }] // elements
        } // payload
      } // attachment
    }; // template
    eventsText = event_detail; // Required within deliverText
    deliverText(postEvent,eventsText,true,eventsTemplate);
  } else {
    console.log("INFO [postEvents]> Reponse: Unsuccessful");
    eventsText = MSG_EVENTS_OOPS[CHAS_EVENTS_OOPS_INDEX] + ' try something instead of ' + strTitleCase(event_in) + '?'; // Required within deliverText
    CHAS_EVENTS_OOPS_INDEX++;
    if (CHAS_EVENTS_OOPS_INDEX == MSG_EVENTS_OOPS.length) {CHAS_EVENTS_OOPS_INDEX = 0};
    deliverText(postEvent,eventsText,false,'');
  };
}

function postBiogs(postEvent,success_result,biogs_index,biogs_name) {
  //console.log("DEBUG [postBiogs]> Input: " + postEvent);
  let sender = postEvent.sender.id;
  console.log("INFO [postBiogs]> Sender: " + sender);
  console.log("INFO [postBiogs]> Request: " + TRIGGER_CHAS_BIOGS + " " + biogs_name);
  console.log("INFO [postBiogs]> Action: lookupBiogs.postBiogs");
  if (success_result) {
    //console.log("DEBUG [postBiogs]> Index: " + biogs_index);
    console.log("INFO [postBiogs]> Reponse: Successful");
    let biogsText = CHAS_BIOGS[biogs_index + 1];
    //console.log("DEBUG [postBiogs]> Result: " + CHAS_BIOGS[biogs_index + 1]);
    deliverText(postEvent,biogsText,false,'');
  } else {
    console.log("INFO [postBiogs]> Reponse: Unsuccessful");
    bounceViaDialogV2(postEvent);
  };
}

function postLottery(postEvent,lotto_uk,lotto_euro,lotto_scot) {
  //console.log("DEBUG [postLottery]> Input: " + postEvent);
  let sender = postEvent.sender.id;
  console.log("INFO [postLottery]> Sender: " + sender);
  console.log("INFO [postLottery]> Request: UK " + lotto_uk + ", Euro "+ lotto_euro + ", Scot " + lotto_scot);
  console.log("INFO [postLottery]> Action: postSearch.deliverTMPLTcb");
  let carouselTemplate = {
    attachment: {
      type: "template",
      payload: {
        template_type: "generic",
        elements: [{
          title: lotto_uk,
          image_url: URL_LOTTO_THUMB_UK,
          default_action: {
            type: "web_url",
            url: URL_LOTTO_UK,
            messenger_extensions: false,
            webview_height_ratio: "tall"
          }
        },{
          title: lotto_euro,
          image_url: URL_LOTTO_THUMB_EURO,
          default_action: {
            type: "web_url",
            url: URL_LOTTO_EURO,
            messenger_extensions: false,
            webview_height_ratio: "tall"
          }
        },{
          title: lotto_scot,
          image_url: URL_LOTTO_THUMB_SCOT,
          default_action: {
            type: "web_url",
            url: URL_LOTTO_SCOT,
            messenger_extensions: false,
            webview_height_ratio: "tall"
          }
        }]
      }
    }
  };
  console.log("INFO [postLottery]> Reponse: Lottery Carousel");
  deliverTMPLTcb(postEvent,carouselTemplate,'');
}

function postSearch(postEvent,search_method,search_term) {
  //console.log("DEBUG [postSearch]> Input: " + postEvent);
  let sender = postEvent.sender.id;
  console.log("INFO [postSearch]> Sender: " + sender);
  console.log("INFO [postSearch]> Request: " + search_method + ' ' + search_term);
  console.log("INFO [postSearch]> Action: postSearch.deliverTMPLTcb");
  let search_title = '';
  let search_image_url = '';
  let search_url = '';
  if (search_method == "google") {
    search_title = 'Search Google';
    search_image_url = URL_GOOGLE_THUMB;
    search_url = URL_SEARCH_GOOGLE + search_term;
  } else if (search_method == "wiki") {
    search_title = 'Search Wikipedia';
    search_image_url = URL_WIKI_THUMB;
    search_url = URL_SEARCH_WIKI + search_term;
  } else if (search_method == "beeb") {
    search_title = 'Search BBC';
    search_image_url = URL_BEEB_THUMB;
    search_url = URL_SEARCH_BEEB + search_term;
  }
  let searchTemplate = {
    attachment: {
      type: "template",
      payload: {
        template_type: "generic",
        elements: [
          {
          title: search_title,
          image_url: search_image_url,
          default_action: {
            type: "web_url",
            url: search_url,
            messenger_extensions: false,
            webview_height_ratio: "tall"
          } // default_action
        }] // elements
      } // payload
    } // attachment
  }; // template
  let carouselTemplate = {
    attachment: {
      type: "template",
      payload: {
        template_type: "generic",
        elements: [{
          title: "Search Google",
          image_url: URL_GOOGLE_THUMB,
          default_action: {
            type: "web_url",
            url: URL_SEARCH_GOOGLE + search_term,
            messenger_extensions: false,
            webview_height_ratio: "tall"
          }
        },{
          title: "Search Wikipedia",
          image_url: URL_WIKI_THUMB,
          default_action: {
            type: "web_url",
            url: URL_SEARCH_WIKI + search_term,
            messenger_extensions: false,
            webview_height_ratio: "tall"
          }
        },{
          title: "Search BBC",
          image_url: URL_BEEB_THUMB,
          default_action: {
            type: "web_url",
            url: URL_SEARCH_BEEB + search_term,
            messenger_extensions: false,
            webview_height_ratio: "tall"
          }
        }]
      }
    }
  };
  if (search_method == "search") {
    console.log("INFO [postSearch]> Reponse: Search Carousel");
    deliverTMPLTcb(postEvent,carouselTemplate,'');
  } else {
    console.log("INFO [postSearch]> Reponse: Simple Search");
    deliverTMPLTcb(postEvent,searchTemplate,'');
  };
}

function postFilmTV(postEvent,record_index) {
  //console.log("DEBUG [postFilmTV]> Index: " + record_index + ", " + MOVIEDB_RECORDS[record_index][0] + ", " + MOVIEDB_RECORDS[record_index][3]+ ", " + MOVIEDB_RECORDS[record_index][7]);
  let sender = postEvent.sender.id;
  let filmText = '';
  if (MOVIEDB_RECORDS[record_index][0] && MOVIEDB_RECORDS[record_index][3] && !MOVIEDB_RECORDS[record_index][7]) {
    MOVIEDB_RECORDS[record_index][7] = true;
    if (MOVIEDB_RECORDS[record_index][1] == 'No TV result' && MOVIEDB_RECORDS[record_index][4] == 'No film result') {
      // No result
      bounceViaDialogV2(postEvent);
    } else if (MOVIEDB_RECORDS[record_index][1] != 'No TV result' && MOVIEDB_RECORDS[record_index][4] == 'No film result') {
      // TV only
      console.log("INFO [postFilmTV]> Sender: " + sender);
      console.log("INFO [postFilmTV]> Request: MovieDb");
      console.log("INFO [postFilmTV]> Action: postFilmTV.deliverText");
      filmText = "📺 " + MOVIEDB_RECORDS[record_index][1];
      console.log("INFO [postFilmTV]> Reponse: " + filmText);
      deliverText(postEvent,filmText,false,'');
    } else if (MOVIEDB_RECORDS[record_index][1] == 'No TV result' && MOVIEDB_RECORDS[record_index][4] != 'No film result') {
      // Film only
      console.log("INFO [postFilmTV]> Sender: " + sender);
      console.log("INFO [postFilmTV]> Request: MovieDb");
      console.log("INFO [postFilmTV]> Action: postFilmTV.deliverText");
      filmText = "📽️ " + MOVIEDB_RECORDS[record_index][4];
      console.log("INFO [postFilmTV]> Reponse: " + filmText);
      deliverText(postEvent,filmText,false,'');
    } else {
      // Both
      console.log("INFO [postFilmTV]> Sender: " + sender);
      console.log("INFO [postFilmTV]> Request: MovieDb");
      console.log("INFO [postFilmTV]> Action: postFilmTV.deliverText");
      if (MOVIEDB_RECORDS[record_index][2] > MOVIEDB_RECORDS[record_index][5]) {
        filmText = "📺 " + MOVIEDB_RECORDS[record_index][1];
        console.log("INFO [postFilmTV]> Reponse: " + filmText);
        deliverText(postEvent,filmText,false,'');
      } else if (MOVIEDB_RECORDS[record_index][2] < MOVIEDB_RECORDS[record_index][5]) {
        filmText = "📽️ " + MOVIEDB_RECORDS[record_index][4];
        console.log("INFO [postFilmTV]> Reponse: " + filmText);
        deliverText(postEvent,filmText,false,'');
      } else {
        let pick_one = Math.floor(numRandomBetween(0,1));
        if (pick_one == 0) {
          filmText = "🎞️ " + MOVIEDB_RECORDS[record_index][1];
        } else {
          filmText = "🎞️ " + MOVIEDB_RECORDS[record_index][4];
        };
        console.log("INFO [postFilmTV]> Reponse: " + filmText);
        deliverText(postEvent,filmText,false,'');
      };
    };
  };
}

function postLOTR(eventLOTR,lotrWho) {
  console.log("INFO [postLOTR]> Sender: " + eventLOTR.sender.id);
  console.log("INFO [postLOTR]> Request: " + lotrWho);
  let lotrBlurb = '';
  // LOTR_ARRAY[X]
  // [0] _id [1] name [2] gender [3] wikiUrl
  // [4] race [5] realm [6] height [7] hair
  // [8] birth [9] death
  // [10][0] movie [10][1] dialogue
  if (LOTR_ARRAY.length == 0) {
    // The array is empty, need to call API function
    //console.log("DEBUG [postLOTR]> LOTR array is empty");
    apiLOTRcb('chars','', function() {
      //console.log("DEBUG [postLOTR]> apiLOTR returned with array length: " + LOTR_ARRAY.length);
      if (LOTR_ARRAY.length != 0) {
        let match_id = lookupLOTR(lotrWho);
        //console.log("DEBUG [postLOTR]> Via API fork looking for: " + lotrWho + " = " + match_id);
        // Need to get the quotes
        apiLOTRcb('quotes',LOTR_ARRAY[match_id][0], function() {
          lotrBlurb = wrapLOTR(match_id,lotrWho);
          //console.log("DEBUG [postLOTR]> Final blurb via API is: " + lotrBlurb);
          console.log("INFO [postLOTR]> Action: API.postLOTR.postLinkButton");
          console.log("INFO [postLOTR]> Reponse: Successful");
          postLinkButton(eventLOTR,LOTR_ARRAY[match_id][3],lotrBlurb,'Wiki ' + LOTR_ARRAY[match_id][1]);
        }); // apiLOTRcb('quotes'
      } else {
        // Array not populated after API call
        console.log("INFO [postLOTR]> Action: apiLOTR.deliverText");
        console.log("INFO [postLOTR]> Reponse: Unsuccessful");
        console.log("ERROR [postLOTR]> apiLOTR did not populate array");
        lotrBlurb = MSG_LOTR_OOPS[numRandomBetween(0,MSG_LOTR_OOPS.length-1)] + ' try something instead of ' + strTitleCase(lotrWho) + '?'; // Required within deliverText
        deliverText(eventLOTR,lotrBlurb,false,'');
      };
    }); // apiLOTRcb('chars'
  } else { // Operating from memeory - not API
    let match_id = lookupLOTR(lotrWho);
    //console.log("DEBUG [postLOTR]> Via memory fork looking for: " + lotrWho + " = " + match_id);
    if (typeof LOTR_ARRAY[match_id][10] != 'undefined') {
      lotrBlurb = wrapLOTR(match_id,lotrWho);
      //console.log("DEBUG [postLOTR]> Final blurb via memory is: " + lotrBlurb);
      console.log("INFO [postLOTR]> Action: stored.postLOTR.postLinkButton");
      console.log("INFO [postLOTR]> Reponse: Successful");
      postLinkButton(eventLOTR,LOTR_ARRAY[match_id][3],lotrBlurb,'Wiki ' + LOTR_ARRAY[match_id][1]);
    } else { // if (typeof LOTR_ARRAY
      apiLOTRcb('quotes',LOTR_ARRAY[match_id][0], function() {
        lotrBlurb = wrapLOTR(match_id,lotrWho);
        //console.log("DEBUG [postLOTR]> Final blurb via memory & API is: " + lotrBlurb);
        console.log("INFO [postLOTR]> Action: stored.API.postLOTR.postLinkButton");
        console.log("INFO [postLOTR]> Reponse: Successful");
        postLinkButton(eventLOTR,LOTR_ARRAY[match_id][3],lotrBlurb,'Wiki ' + LOTR_ARRAY[match_id][1]);
      }); // apiLOTRcb('quotes'
    }; // if (typeof LOTR_ARRAY
  }; // if (LOTR_ARRAY.length
}

// __      __
// \ \    / / _ __ _ _ __
//  \ \/\/ / '_/ _` | '_ \
//   \_/\_/|_| \__,_| .__/
//                  |_|
// Wrap Functions - Prep Responses For Delivery
// ============================================
function wrapLOTR(match_id,lotrWho) {
  let lotrBlurb = '';
  let clean_up_text1 = '';
  let clean_up_text2 = '';
  let various_trap = false;
  lotrBlurb = "This is the best match I can find for " + strTitleCase(lotrWho) + ". ";
  //console.log("DEBUG [wrapLOTR]> [0] Gender: " + LOTR_ARRAY[match_id][2]);
  if (LOTR_ARRAY[match_id][2] == 'Male') {
    lotrBlurb = lotrBlurb + "He is ";
  } else if (LOTR_ARRAY[match_id][2] == 'Female') {
    lotrBlurb = lotrBlurb + "She is ";
  } else {
    lotrBlurb = lotrBlurb + "They are ";
  };
  //console.log("DEBUG [wrapLOTR]> [0] Blurb so far is: " + lotrBlurb);
  let extent_unknown = 0;
  //console.log("DEBUG [wrapLOTR]> Race: " + LOTR_ARRAY[match_id][4]);
  //console.log("DEBUG [wrapLOTR]> Realm: " + LOTR_ARRAY[match_id][5]);
  if ((LOTR_ARRAY[match_id][4] == '') && (LOTR_ARRAY[match_id][5] == '')) {
    extent_unknown = extent_unknown + 1; // 0 or 1
    //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Either race or realm is unknown");
  } else if ((LOTR_ARRAY[match_id][4] != '') && (LOTR_ARRAY[match_id][5] != '')) {
    lotrBlurb = lotrBlurb + "of the " + LOTR_ARRAY[match_id][4] + " race, from the " + LOTR_ARRAY[match_id][5] + " realm";
    //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Blurb so far is: " + lotrBlurb);
  } else if (LOTR_ARRAY[match_id][4] != '') {
    lotrBlurb = lotrBlurb + "of the " + LOTR_ARRAY[match_id][4] + " race";
  } else {
    lotrBlurb = lotrBlurb + "from the " + LOTR_ARRAY[match_id][5] + " realm";
  };
  // Either:
  // 0 = 'He is/ She is/ They are of the A race, from the B realm'
  // 0 = 'He is/ She is/ They are of the A race'
  // 0 = 'He is/ She is/ They are from the B realm'
  // 1 = 'He is/ She is/ They are '
  //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Height: " + LOTR_ARRAY[match_id][6]);
  //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Hair: " + LOTR_ARRAY[match_id][7]);
  if ((LOTR_ARRAY[match_id][6] != '') && (LOTR_ARRAY[match_id][7] != '')) {
    clean_up_text1 = LOTR_ARRAY[match_id][7];
    clean_up_text1 = clean_up_text1.toLowerCase();
    clean_up_text2 = LOTR_ARRAY[match_id][6];
    clean_up_text2 = clean_up_text2.toLowerCase();
    if (clean_up_text1.includes('various')||clean_up_text2.includes('various')) { various_trap = true };
  };
  if ((LOTR_ARRAY[match_id][6] == '') || (LOTR_ARRAY[match_id][7] == '' || various_trap)) {
    extent_unknown = extent_unknown + 2; // 0, 1, 2 or 3
    //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Either height or hair colour is unknown, or various");
  } else if (extent_unknown == 1) {
    lotrBlurb = lotrBlurb + clean_up_text2 + " in height with " + clean_up_text1 + " hair.";
    //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Blurb so far is: " + lotrBlurb);
  } else {
    lotrBlurb = lotrBlurb + "; with " + clean_up_text1 + " hair, and a height of " + clean_up_text2 + ".";
    //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Blurb so far is: " + lotrBlurb);
  };
  //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Birth: " + LOTR_ARRAY[match_id][8]);
  //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Death: " + LOTR_ARRAY[match_id][9]);
  if ((LOTR_ARRAY[match_id][8] != '') && (LOTR_ARRAY[match_id][9] != '')) {
    clean_up_text1 = LOTR_ARRAY[match_id][8]; // birth
    clean_up_text1 = clean_up_text1.replace(/,/g, ""); // birth without commas
    if (clean_up_text1.length > 2) {
      let first_letter = clean_up_text1.charAt(0); // hold first letter
      first_letter = first_letter.toLowerCase(); // make lowercase
      clean_up_text1 = clean_up_text1.substr(1); // drop first character
      clean_up_text1 = first_letter + clean_up_text1; // at lowercase first character back
    };
    clean_up_text2 = LOTR_ARRAY[match_id][9]; // death
    clean_up_text2 = clean_up_text2.replace(/,/g, "");
    if (clean_up_text2.length > 2) {
      let first_letter = clean_up_text2.charAt(0);
      first_letter = first_letter.toLowerCase();
      clean_up_text2 = clean_up_text2.substr(1);
      clean_up_text2 = first_letter + clean_up_text2;
    };
  };
  // Either:
  // 0 = 'He is/ She is/ They are of the A race, from the B realm; with C hair, and a height of D.' <period>
  // 0 = 'He is/ She is/ They are of the A race; with C hair, and a height of D.' <period>
  // 0 = 'He is/ She is/ They are from the B realm; with C hair, and a height of D.' <period>
  // 1 = 'He is/ She is/ They are D in height with C hair.' <period>
  // 2 = 'He is/ She is/ They are of the A race, from the B realm' <txt>
  // 2 = 'He is/ She is/ They are of the A race' <txt>
  // 2 = 'He is/ She is/ They are from the B realm' <txt>
  // 3 = 'He is/ She is/ They are ' <space>
  if ((LOTR_ARRAY[match_id][8] == '') && (LOTR_ARRAY[match_id][9] == '') && (extent_unknown == 3)) {
    //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Either birth or death is unknown");
    lotrBlurb = lotrBlurb + "a complete mystery to me! 😞 You might have better luck with the Wiki.";
  } else if ((LOTR_ARRAY[match_id][8] == '') && (LOTR_ARRAY[match_id][9] == '') && (extent_unknown == 2)) {
    //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Either birth or death is unknown");
    lotrBlurb = lotrBlurb + ". More than that, I don't know! 🤔 Find our more at the Wiki.";
  } else if ((LOTR_ARRAY[match_id][8] == '') && (LOTR_ARRAY[match_id][9] == '') && (extent_unknown == 1)) {
    //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Either birth or death is unknown");
    lotrBlurb = lotrBlurb + " 😊 The Wiki can tell you more.";
  } else if ((LOTR_ARRAY[match_id][8] == '') && (LOTR_ARRAY[match_id][9] == '') && (extent_unknown == 0)) {
    //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Either birth or death is unknown");
    lotrBlurb = lotrBlurb + " 😃 Check out the Wiki.";
  } else if (extent_unknown == 3) {
    lotrBlurb = lotrBlurb + "a stranger to me but I can tell you they were born " + clean_up_text1 + " and concluded their story " + clean_up_text2 + ". 🤔 Find our more at the Wiki.";
  } else if (extent_unknown == 2) {
    lotrBlurb = lotrBlurb + ". I can also tell you they were born " + clean_up_text1 + " and ended their journey " + clean_up_text2 + ". 😊 The Wiki has more.";
  } else { // 1 or 0
    lotrBlurb = lotrBlurb + " I can also tell you they were born " + clean_up_text1 + " and finished their adventure " + clean_up_text2 + ". 😃 Check out the Wiki.";
  };
  //console.log("DEBUG [wrapLOTR]> [" + extent_unknown + "] Before clean-up: " + lotrBlurb);
  lotrBlurb = strFixStutter(lotrBlurb); // i.e. doubled words
  // FA First Age, SA Second Age, TA Third Age, FO Fourth Age
  lotrBlurb = strReplaceAll(lotrBlurb,' FA ', ' First Age ');
  lotrBlurb = strReplaceAll(lotrBlurb,' SA ', ' Second Age ');
  lotrBlurb = strReplaceAll(lotrBlurb,' TA ', ' Third Age ');
  lotrBlurb = strReplaceAll(lotrBlurb,' FO ', ' Fourth Age ');
  lotrBlurb = strReplaceAll(lotrBlurb,' YT ', ' Years of the Trees ');
  lotrBlurb = strReplaceAll(lotrBlurb,' YS ', ' Years of the Sun ');
  lotrBlurb = strReplaceAll(lotrBlurb,' YL ', ' Years of the Lamps ');
  lotrBlurb = strReplaceAll(lotrBlurb,' VY ', ' Valian Years ');
  lotrBlurb = strProper(lotrBlurb); // Tidy proper pronouns
  let movie_quote = '';
  // The block below appends if there is a viable quote
  if (typeof LOTR_ARRAY[match_id][10] != 'undefined') {
    let quoteListCount = LOTR_ARRAY[match_id][10].length;
    let quoteArray = LOTR_ARRAY[match_id][10];
    //console.log("DEBUG [wrapLOTR]> Quotes to pick from: " + quoteListCount);
    let quotePick = numRandomBetween(0,quoteListCount-1);
    //console.log("DEBUG [wrapLOTR]> Quote Picked: " + quotePick);
    for (var loop_films = 0; loop_films < LOTR_MOVIES.length; loop_films++) {
      if (LOTR_MOVIES[loop_films].includes(quoteArray[quotePick][0])) {
        movie_quote = " Quoted in " + LOTR_MOVIES[loop_films].replace(quoteArray[quotePick][0],'') + ' 💬 ';
        //console.log("DEBUG [wrapLOTR]> Film: " + movie_quote);
        break;
      }; // if (LOTR_MOVIES[loop_films]
    }; // (var loop_films
    // if there wasn't a movie named then skip the quote
    if (movie_quote!= '') {
      let quote_placeholder = quoteArray[quotePick][1];
      //console.log("DEBUG [wrapLOTR]> Quote raw: " + quote_placeholder);
      var regex_punctuation = new RegExp("[?!;:.,]", 'g');
      quote_placeholder = quote_placeholder.replace(regex_punctuation,"$& "); // add minimal space after punctuation
      //console.log("DEBUG [wrapLOTR]> Quote add minimal spaces after punctuation: " + quote_placeholder);
      quote_placeholder = strReplaceAll(quote_placeholder,' , ','');
      //console.log("DEBUG [wrapLOTR]> Quote extra commas removed: " + quote_placeholder);
      quote_placeholder = quote_placeholder.replace(/\s+(\W)/g, "$1"); // pre-punctuation spaces
      //console.log("DEBUG [wrapLOTR]> Quote spaces pre-punctuation removed: " + quote_placeholder);
      quote_placeholder = quote_placeholder.replace(/\s\s+/g, ' '); // internal whitespace
      //console.log("DEBUG [wrapLOTR]> Quote padded spaces removed: " + quote_placeholder);
      quote_placeholder = quote_placeholder.trim(); // leading/trailing whitespace
      //console.log("DEBUG [wrapLOTR]> Quote leading/trailing whitespace removed: " + quote_placeholder);
      movie_quote = movie_quote + quote_placeholder;
    }; // if (movie_quote
    //console.log("DEBUG [wrapLOTR]> Full Quote: " + movie_quote);
  }; // if (typeof LOTR_ARRAY
  lotrBlurb = lotrBlurb + movie_quote;
  return lotrBlurb;
}

//     _     ___  ___
//    /_\   | _ \|_ _|
//   / _ \ _|  _/ | | _
//  /_/ \_(_)_|(_)___(_)
// Remote search functions - API
// =============================
function apiGIPHY(eventGiphy,giphy_tag,giphy_rating,passText) {
  // Ratings are Y; G; PG; PG-13; R
  //console.log("DEBUG [apiGIPHY]> Input: " + giphy_tag + ", " + giphy_rating + ", " + passText);
  const base_url = URL_API_GIPHY;
  const params_url = "?api_key=" + KEY_API_GIPHY + "&tag=" + giphy_tag + "&rating=" + giphy_rating;
  let url = base_url + params_url;
  // e.g. https://api.giphy.com/v1/gifs/random?api_key=5LqK0fRD8cNeyelbovZKnuBVGcEGHytv&tag=robot&rating=G
  //console.log("DEBUG [apiGIPHY]> URL: " + url);
  http.get(url, function(res) {
    //console.log("DEBUG [apiGIPHY]> GIPHY Response Code: " + res.statusCode);
    let api_url = strReplaceAll(url,KEY_API_GIPHY,'<SECRET>');
    console.log("API Request [GIPHY]: " + api_url);
    let body = "";
    res.on('data', function (chunk) { body += chunk });
    res.on('end', function() {
      let giphyData = JSON.parse(body);
      //console.log("DEBUG [apiGIPHY]> GIPHY Response: " + giphyData);
      if (res.statusCode === 200) {
        if (typeof giphyData.data != 'undefined') {
          let giphy_url = giphyData.data.fixed_height_downsampled_url;
          //console.log("DEBUG [apiGIPHY]> URL: " + giphy_url);
          postImage(eventGiphy,giphy_url,false,'');
          return;
        } else {
          console.log("ERROR [apiGIPHY]> No Results");
          deliverText(eventGiphy,passText,false,'')
          return;
        };
      } else {
        console.log("ERROR [apiGIPHY]> Response Error");
        deliverText(eventGiphy,passText,false,'')
        return;
      }; // if (res.statusCode === 200)
    }); // res.on('end', function()
  }); // http.get(url, function(res)
}

function apiFilmTV(eventFilmTV,nameFilmTV,episode_find,tv_film,record_index) {
  //console.log("DEBUG [apiFilmTV]> Input: " + nameFilmTV + ", " + episode_find + ", " + tv_film + ", " + record_index);
  let epBlurb = ''; // return value
  const base_url = URL_API_MOVIEDB + "search/";
  const params_url = "api_key=" + KEY_API_MOVIEDB;
  const movie_url = "movie?";
  const tv_url = "tv?";
  let query_url = "&query=" + nameFilmTV;
  // First pass * TV *
  if (tv_film == 'tv') { var url = base_url + tv_url + params_url + query_url }
  else if (tv_film == 'film') { var url = base_url + movie_url + params_url + query_url };
  // e.g. https://api.themoviedb.org/3/search/movie?api_key={api_key}&query=Jack+Reacher
  // id 1871 is Eastenders; Season 33 is 2017
  if (episode_find) { url = URL_API_MOVIEDB + "tv/1871/season/33?api_key=" + KEY_API_MOVIEDB + "&language=en-US" };
  //console.log("DEBUG [apiFilmTV]> URL: " + url);
  http.get(url, function(res) {
    let api_url = strReplaceAll(url,KEY_API_MOVIEDB,'<SECRET>');
    console.log("API Request [MDB]: " + api_url);
    //console.log("DEBUG [apiFilmTV]> MovieDb Response Code: " + res.statusCode);
    // In the event of API reporting down i.e. 503, then return null results on one pass and exit on other
    if (res.statusCode === 503) {
      console.log("ERROR [apiFilmTV]> 503 Response Error for " + tv_film);
      if (tv_film == 'tv') {
	      MOVIEDB_RECORDS[record_index][0] = true;
        MOVIEDB_RECORDS[record_index][1] = 'No TV result';
        MOVIEDB_RECORDS[record_index][3] = true;
        MOVIEDB_RECORDS[record_index][4] = 'No film result';
        postFilmTV(eventFilmTV,record_index);
      };
      return;
    };
    let body = "";
    res.on('data', function (chunk) { body += chunk });
    res.on('end', function() {
      let movieDbData = JSON.parse(body);
      //console.log("DEBUG [apiFilmTV]> MovieDb Response: " + movieDbData);
      if (res.statusCode === 200) {
        if (episode_find) {
          let tdyDate = new Date();
          // Loop down from latest episode
          for (var i = movieDbData.episodes.length-1; i > -1; i--) {
            let epDate = new Date(movieDbData.episodes[i].air_date);
            // Find the first in the past
            if (tdyDate > epDate) {
              epBlurb = movieDbData.episodes[i].overview;
              let weekday_value = epDate.getDay();
              //epBlurb = "The last episode I saw was on " + PROPER_NOUNS_DAYS[weekday_value] + ", it was the one where: " + epBlurb;
              //console.log("DEBUG [apiFilmTV]> Easties result: " + epBlurb);
              MOVIEDB_RECORDS[record_index][0] = true;
              MOVIEDB_RECORDS[record_index][1] = epBlurb;
              MOVIEDB_RECORDS[record_index][3] = true;
              MOVIEDB_RECORDS[record_index][4] = epBlurb;
              postFilmTV(eventFilmTV,record_index);
              return;
            };
          };
        } else if (typeof movieDbData.results != 'undefined' && movieDbData.total_results != 0) {
          // Read the first result
          let blurb = movieDbData.results[0].overview;
          let rating = Math.round(movieDbData.results[0].vote_average / 2);
          epBlurb = MSG_STAR_RATING[rating] + " That's the one where: " + blurb + " (theMovieDb)";
          //console.log("DEBUG [apiFilmTV]> TV result: " + epBlurb);
          if (tv_film == 'tv') {
            MOVIEDB_RECORDS[record_index][0] = true;
            MOVIEDB_RECORDS[record_index][1] = epBlurb;
            MOVIEDB_RECORDS[record_index][2] = rating;
          } else if (tv_film == 'film') {
            MOVIEDB_RECORDS[record_index][3] = true;
            MOVIEDB_RECORDS[record_index][4] = epBlurb;
            MOVIEDB_RECORDS[record_index][5] = rating;
          };
          postFilmTV(eventFilmTV,record_index);
          return;
        } else {
          //console.log("DEBUG [apiFilmTV]> No " + tv_film + " result");
          if (tv_film == 'tv') {
            MOVIEDB_RECORDS[record_index][0] = true;
            MOVIEDB_RECORDS[record_index][1] = 'No TV result';
          } else if (tv_film == 'film') {
            MOVIEDB_RECORDS[record_index][3] = true;
            MOVIEDB_RECORDS[record_index][4] = 'No film result';
          };
          postFilmTV(eventFilmTV,record_index);
          return;
        };
      } else {
        console.log("ERROR [apiFilmTV]> Response Error");
        MOVIEDB_RECORDS[record_index][0] = true;
        MOVIEDB_RECORDS[record_index][1] = 'No TV result';
        MOVIEDB_RECORDS[record_index][3] = true;
        MOVIEDB_RECORDS[record_index][4] = 'No film result';
        postFilmTV(eventFilmTV,record_index);
        return;
      }; // if (res.statusCode === 200)
    }); // res.on('end', function()
  }); // http.get(url, function(res)
}

function apiPrimeFilmTV(eventFilmTV,targetName) {
  //console.log("DEBUG [apiPrimeFilmTV]> Input: " + targetName);
  MOVIEDB_RECORDS_INDEX++;
  let hold_index = MOVIEDB_RECORDS_INDEX;
  //if (MOVIEDB_RECORDS_INDEX == 10) {MOVIEDB_RECORDS_INDEX = 0;};
  MOVIEDB_RECORDS[hold_index] = [false,'',0,false,'',0,false];
  targetName = targetName.replace(/\s/g, '+');
  targetName = targetName.toLowerCase();
  if (targetName == 'easties'||targetName == 'east+enders'||targetName == 'eastenders') {
    // id 1871 is Eastenders; Season 33 is 2017
    apiFilmTV(eventFilmTV,targetName,true,'tv',hold_index);
  } else {
    apiFilmTV(eventFilmTV,targetName,false,'tv',hold_index,eventFilmTV);
    apiFilmTV(eventFilmTV,targetName,false,'film',hold_index,eventFilmTV);
  };
}

function apiMarvelChar(eventMarvel,marvelWho) {
  //console.log("DEBUG [apiMarvelChar]> Input: " + marvelWho);
  // String together a URL using the provided keys and search parameters
  let marvelNote = '';
  let marvelThumb = '';
  let marvelURL = '';
  let marvelPost = [];
  let marvelLimit = "1";
  let marvelWhoShort = marvelWho.substring(0,8); // Trim to first eight characyers
  let url = URL_API_MARVEL + marvelWhoShort + "&limit=" + marvelLimit + "&apikey=" + KEY_MARVEL_PUBLIC;
  let ts = new Date().getTime();
  let hash = crypto.createHash('md5').update(ts + KEY_MARVEL_PRIVATE + KEY_MARVEL_PUBLIC).digest('hex');
  url += "&ts=" + ts + "&hash=" + hash;
  //console.log("DEBUG [apiMarvelChar]> Lookup: " + url);
  // Call on the URL to get a response
  http.get(url, function(res) {
    console.log("API Request [MARVEL]: " + URL_API_MARVEL + marvelWhoShort + "&limit=" + marvelLimit + "&apikey=<SECRET>&ts=" + ts + "&hash=<SECRET>");
    let body = "";
    // Data comes through in chunks
    res.on('data', function (chunk) { body += chunk });
    // When all the data is back, go on to query the full response
    res.on('end', function() {
      let characterData = JSON.parse(body);
      //console.log("DEBUG [apiMarvelChar]> Character JSON: " + JSON.stringify(characterData));
      if (characterData.code === 200) { // Successful response from Marvel
        if (characterData['data'].count == 0) { // A successful response doesn't mean there was a match
          //console.log("DEBUG [apiMarvelChar]> Valid URL but no results for " + strTitleCase(marvelWho));
          marvelPost = [marvelWho,marvelNote,marvelThumb,marvelURL];
          postMarvel(eventMarvel,false,marvelPost);
          return;
        } else if (characterData['data'].results[0].description !== '') { // Assess the first result back
          //console.log("DEBUG [apiMarvelChar]> Number of possible: " + characterData['data'].results.length);
          marvelNote = characterData.data.results[0].description;
          //console.log("DEBUG [apiMarvelChar]> Description: " + marvelNote);
          marvelThumb = characterData.data.results[0].thumbnail.path + '/standard_xlarge.jpg';
          //console.log("DEBUG [apiMarvelChar]> Thumbnail: " + marvelThumb);
          marvelURL = characterData.data.results[0].urls[0].url;
          //console.log("DEBUG [apiMarvelChar]> Hero URL: " + marvelURL);
          marvelPost = [marvelWho,marvelNote,marvelThumb,marvelURL];
          postMarvel(eventMarvel,true,marvelPost);
          return;
        } else { // Assess the first result back when there isn't a description provided by Marvel
          marvelNote = "Find out more at Marvel.";
          //console.log("DEBUG [apiMarvelChar]> Description: " + marvelNote);
          marvelThumb = characterData.data.results[0].thumbnail.path + '/standard_xlarge.jpg';
          //console.log("DEBUG [apiMarvelChar]> Thumbnail: " + marvelThumb);
          marvelURL = characterData.data.results[0].urls[0].url;
          //console.log("DEBUG [apiMarvelChar]> Hero URL: " + marvelURL);
          marvelPost = [marvelWho,marvelNote,marvelThumb,marvelURL];
          postMarvel(eventMarvel,true,marvelPost);
          return;
        };
      } else if (characterData.code === "RequestThrottled") {
          console.log("ERROR [apiMarvelChar]> RequestThrottled Error");
          marvelPost = [marvelWho,marvelNote,marvelThumb,marvelURL];
          postMarvel(eventMarvel,false,marvelPost);
          return;
      } else {
          console.log("ERROR [apiMarvelChar]> Error: " + JSON.stringify(result));
          marvelPost = [marvelWho,marvelNote,marvelThumb,marvelURL];
          postMarvel(eventMarvel,false,marvelPost);
          return;
      };
    });
  });
}

function apiLOTRcb(chars_or_quotes,char_id,callback){
  //console.log("DEBUG [apiLOTR]> Length of stored LOTR: " + LOTR_ARRAY.length)
  let url_path = '';
  if (chars_or_quotes == 'chars') {
    url_path = '/v2/character';
    // Set URL with authorisation header i.e. API key not sent in URL
    //console.log("DEBUG [apiLOTR]> Character URL: " + URL_API_LOTR + url_path);
    const requestOptions = {
      hostname: URL_API_LOTR,
      path: url_path,
      headers: {
        Authorization: 'Bearer ' + KEY_API_LOTR
      }
    }
    var req = http.get(requestOptions, function(res) {
      console.log("API Request [LOTR]: https://" + URL_API_LOTR + '/' + url_path);
      let body = "";
      // Data comes through in chunks
      res.on('data', function (chunk) { body += chunk });
      // When all the data is back, go on to query the full response
      res.on('end', function() {
        let characterData = JSON.parse(body);
        let characterData_legible = JSON.stringify(characterData);
        //console.log("DEBUG [apiLOTR]> Character JSON: " + characterData_legible);
        // Correct responses start with "docs" i.e. no status code 200 to help verify
        if (characterData_legible.includes('docs')) {
          let characterDataList = characterData.docs;
          //console.log("DEBUG [apiLOTR]> Characters Retrieved No.: " + characterDataList.length);
          loadLOTRcb(characterDataList,'chars','', function(){
            callback();
          });
        } else {
          // Could be status code 404 or some other response i.e. valid block BUT not results
          console.log("ERROR [apiLOTR]> Error getting characters results e.g. 404");
          callback();
        };
      }); // res.on('end'
    }); // var req = http
    req.on('error', function(e) { // Catches failures to connect to the API
      console.log("ERROR [apiLOTR]> Error getting to API: " + e);
      callback();
    }); // req.on('error'
  } else { // quotes API
    url_path = '/v2/character/' + char_id + "/quote"
    //console.log("DEBUG [apiLOTR]> Quotes URL: " + URL_API_LOTR + url_path);
    const requestOptions = {
      hostname: URL_API_LOTR,
      path: url_path,
      headers: {
        Authorization: 'Bearer ' + KEY_API_LOTR
      }
    }
    var req = http.get(requestOptions, function(res) {
      console.log("API Request [LOTR]: https://" + URL_API_LOTR + url_path);
      let body = "";
      // Data comes through in chunks
      res.on('data', function (chunk) { body += chunk });
      // When all the data is back, go on to query the full response
      res.on('end', function() {
        let quoteData = JSON.parse(body);
        let quoteData_legible = JSON.stringify(quoteData);
        //console.log("DEBUG [apiLOTR]> Quote JSON: " + quoteData_legible);
        // Correct responses start with "docs" i.e. no status code 200 to help verify
        if (quoteData_legible.includes('docs')) {
          let quoteList = quoteData.docs;
          let quoteListCount = quoteList.length;
          if (quoteListCount > 0) {
            //console.log("DEBUG [apiLOTR]> Quotes Retrieved No.: " + quoteListCount);
            loadLOTRcb(quoteList,'quotes',char_id, function(){
              callback();
            });
          } else { // if (quoteListCount
            // Could be status code 404 or some other response i.e. valid block BUT not results
            console.log("ERROR [apiLOTR]> Error getting quotes results e.g. 404");
            callback();
          }; // if (quoteListCount
        }; // if (quoteData_legible
      }); // res.on('end'
    }); // http.get
    req.on('error', function(e) { // Catches failures to connect to the API
      console.log("ERROR [apiLOTR]> Error getting to API: " + e);
      callback();
    }); // req.on('error'
  }; // if (chars_or_quotes
}

function apiHEROcb(heroWho,randomPick,callback){
  //https://superheroapi.com/api/3449097715109340/search/batman
  //console.log("DEBUG [apiHero]> Getting started");
  let hero_url = URL_API_HERO + KEY_API_HERO;
  if (randomPick) {
    hero_url = hero_url + "/" + heroWho;
  } else {
    hero_url = hero_url + "/search/" + heroWho;
  };
  var req = http.get(hero_url, function(res) {
    console.log("API Request [HERO]: " + hero_url);
    let body = "";
    // Data comes through in chunks
    res.on('data', function (chunk) { body += chunk });
    // When all the data is back, go on to query the full response
    res.on('end', function() {
      let heroData = JSON.parse(body);
      //console.log("DEBUG [apiHero]> Got this back raw: " + body);
      //console.log("DEBUG [apiHero]> Response Code: " + heroData.response);
      if (typeof heroData.response != 'undefined' && heroData.response == 'success') {
        let targetID = 0;
        if (randomPick) { // bringing backa single prescribed result
          targetID = parseInt(heroWho);
          //console.log("DEBUG [apiHero]> Target ID requested: " + targetID + ', ID returned: ' + heroData.id);
          if (targetID == heroData.id) {
            HERO_ARRAY[targetID]=[
              heroData.name, // [0]
              heroData.powerstats.intelligence,
              heroData.powerstats.strength,
              heroData.powerstats.speed,
              heroData.powerstats.durability,
              heroData.powerstats.power,
              heroData.powerstats.combat,
              heroData.image.url]; // [7]
            console.log("ERROR [apiHero]> Brought back " + heroData.name + " for ID: " + heroData.id);
            callback();
          } else { // if (targetID == heroStats.id)
            console.log("ERROR [apiHero]> No joy bringing back a record for ID: " + targetID);
            callback();
          }; // if (typeofif (targetID == heroStats.id)
        } else { // if (randomPick)
          for (var character_loop = 0; character_loop < heroData.results.length; character_loop++) {
            let heroStats = heroData.results[character_loop];
            targetID = heroStats.id;
            //console.log("DEBUG [apiHero]> Target: " + targetID);
            if (typeof HERO_ARRAY[targetID] == 'undefined') {
              HERO_ARRAY[targetID]=[
                heroStats.name, // [0]
                heroStats.powerstats.intelligence,
                heroStats.powerstats.strength,
                heroStats.powerstats.speed,
                heroStats.powerstats.durability,
                heroStats.powerstats.power,
                heroStats.powerstats.combat,
                heroStats.image.url]; // [7]
            }; // if (typeof
          }; // for (var character_loop
          callback();
        }; // if (randomPick)
      } else { // if (typeof heroData.response
        console.log("ERROR [apiHero]> No joy bringing back a record");
        callback();
      }; // else
    }); // res.on('end'
  }); // http.get(url
  req.on('error', function(e) { // Catches failures to connect to the API
    console.log("ERROR [apiHero]> Error getting to API: " + e);
    callback();
  }); // req.on('error'
}

//  _             _
// | |   ___  ___| |___  _ _ __ ___
// | |__/ _ \/ _ \ / / || | '_ (_-<
// |____\___/\___/_\_\\_,_| .__/__/
//                        |_|
// Loaded/stored value search functions
// ====================================
function lookupHero (eventHero,heroWho){ //
  // 14:trumps_score,15:trumps_played,16:trump_tobeat,17:trump_picked,
  // 8:trump_category,19:trumps_start,20:cat_or_char,21:trumps_xs
  //console.log("DEBUG [lookupHero]> Hero to find: " + heroWho);
  let sender = eventHero.sender.id;
  let custom_id = inPlayID(sender);
  let heroWhoMatch = heroWho.toLowerCase();
  let heroWhoStored = '';
  let heroMatches = []; // May be more than one
  let bypass = false;
  // Set to start but previous card played i.e. after stop and restart
  if (SENDERS[custom_id][19] && SENDERS[custom_id][16] != '') { bypass = true };
  // Charactrer and no carried over list to pick from
  if (SENDERS[custom_id][20]=='character' && SENDERS[custom_id][21].length==0) { bypass = true };
  if (bypass){
    // lookup characters
    if (SENDERS[custom_id][19]) { // trumps_start
      let randomID = numRandomBetween(1,HERO_MAX);
      heroWho = randomID.toString();
      apiHEROcb(heroWho,true, function(){
        if (typeof HERO_ARRAY[randomID] != 'undefined') {
          heroMatches.push(randomID);
          //console.log("DEBUG [lookupHero]> Hero was populated for ID: " + randomID);
        } else {
          console.log("ERROR [lookupHero]> Hero was NOT populated for ID: " + randomID);
        }; // if (HERO_ARRAY
        playTopTrumps(eventHero,heroMatches); // After API i.e. may be results
      }); // apiHEROcb(heroWho
    } else { // not trumps start
      if (HERO_ARRAY.length != 0) { // Array not empty
        //console.log("DEBUG [lookupHero]> There are values stored");
        for (var hero_loop = 0; hero_loop < HERO_ARRAY.length; hero_loop++) {
          if (typeof HERO_ARRAY[hero_loop] != 'undefined') {
            heroWhoStored = HERO_ARRAY[hero_loop][0].toLowerCase();
            if (heroWhoStored.includes(heroWhoMatch)) {
                heroMatches.push(hero_loop);
                //console.log("DEBUG [lookupHero]> Stored match No. " + heroMatches.length + " for " + HERO_ARRAY[hero_loop][0] + ": " + hero_loop);
            }; // if (heroWhoStored
          }; // if (typeof
        }; // for (var hero_loop
      }; // if (HERO_ARRAY
      if (heroMatches.length == 0) {
        //console.log("DEBUG [lookupHero]> No matches stored, trying API");
        apiHEROcb(heroWho,false, function(){
          if (HERO_ARRAY.length != 0) { // Array not empty
            for (var hero_loop = 0; hero_loop < HERO_ARRAY.length; hero_loop++) {
              if (typeof HERO_ARRAY[hero_loop] != 'undefined') {
                heroWhoStored = HERO_ARRAY[hero_loop][0].toLowerCase();
                if (heroWhoStored.includes(heroWhoMatch)) {
                    heroMatches.push(hero_loop);
                    //console.log("DEBUG [lookupHero]> API match No. " + heroMatches.length + " for " + HERO_ARRAY[hero_loop][0] + ": " + hero_loop);
                }; // if (heroWhoStored
              }; // if (typeof
            }; // for (var hero_loop
          } else {
            //console.log("DEBUG [lookupHero]> Hero array is empty");
          }; // if (HERO_ARRAY
          playTopTrumps(eventHero,heroMatches); // After API i.e. may be results
        }); // apiHEROcb(heroWho
      } else {
        playTopTrumps(eventHero,heroMatches); // After stored successful i.e. will be results
      } // if (heroMatches
    }; // if (HERO_ARRAY.length != 0
  } else { // category
    playTopTrumps(eventHero,heroMatches); // Complete bypass of lookup
    //console.log("DEBUG [lookupHero]> Hero bypass to [playTopTrumps] for category evaluation");
  }; // if (SENDERS[custom_id][20]=='character'
}

function lookupLOTR(lotrWho){
  //console.log("DEBUG [lookupLOTR]> Looking for:" + lotrWho)
  let match_id = -1;
  let lotrWhoMatch = '';
  let lotrWhoLower = '';
  let levenshtein_lowest = 100;
  let levenshtein_newest = 100;
  lotrWhoLower = lotrWho.toLowerCase(); // Able to compare both
  for (var character_loop = 0; character_loop < LOTR_ARRAY.length; character_loop++) {
    lotrWhoMatch = LOTR_ARRAY[character_loop][1];
    lotrWhoMatch = lotrWhoMatch.toLowerCase(); // Retain lotrWho as title case but compare lower
    levenshtein_newest = levenshtein(lotrWhoLower,lotrWhoMatch); // Calculate proximity of names
    //console.log("DEBUG [lookupLOTR]> Difference: " + lotrWhoLower + " [" + levenshtein_newest + "] " + lotrWhoMatch);
    // Better match but must also have a wiki
    let validWikiURL = LOTR_ARRAY[character_loop][3];
    let validWikiURLstring = JSON.stringify(validWikiURL);
    //console.log("DEBUG [lookupLOTR]> wikiUrl STRING " + validWikiURLstring);
    if (levenshtein_newest < levenshtein_lowest && typeof validWikiURLstring != 'undefined'
        && validWikiURLstring != 'wikiUrlundefined' && validWikiURLstring != '') {
      // Better proximity between terms
      match_id = character_loop; // Best for now
      levenshtein_lowest = levenshtein_newest; // Lower difference
      //console.log("DEBUG [lookupLOTR]> Best for now [" + levenshtein_lowest + "] is: " + lotrWhoMatch);
      //console.log("DEBUG [lookupLOTR]> wikiUrl" + LOTR_ARRAY[match_id][3])
    }; // if (levenshtein_newest
  }; // for (var character_loop
  // Found best match
  //console.log("DEBUG [lookupLOTR]> Matched " + LOTR_ARRAY[match_id][0] + " to index " + match_id);
  return match_id;
}

function lookupAlpha(eventAlpha,letterTile) {
  //console.log("DEBUG [lookupAlpha]> Input: " + letterTile);
  let sender = eventAlpha.sender.id;
  console.log("INFO [lookupAlpha]> Sender: " + sender);
  console.log("INFO [lookupAlpha]> Request: " + TRIGGER_CHASABET_1 + " or " + TRIGGER_CHASABET_2 + " " + letterTile);
  console.log("INFO [lookupAlpha]> Action: lookupAlpha.postImage");
  let target_letter_code = letterTile.charCodeAt(0) - 97;
  let target_version = CHASABET_INDEX[target_letter_code];
  let chasabet_url = URL_IMG_PREFIX + CHASABET[target_letter_code][target_version] + URL_IMG_SUFFIX;
  console.log("INFO [lookupAlpha]> Reponse: IMG URL " + chasabet_url);
  //console.log("DEBUG [lookupAlpha]> IMAGE URL: " + chasabet_url);
  CHASABET_INDEX[target_letter_code] = target_version + 1;
  if (CHASABET_INDEX[target_letter_code] == CHASABET[target_letter_code].length) {
    CHASABET_INDEX[target_letter_code] = 0;
  };
  postImage(eventAlpha,chasabet_url,false,'');
}

function lookupEvent(eventEntry,eventName) {
  //console.log("DEBUG [lookupEvent]> Input: " + eventName);
  let event_index = -1;
  let eventIn = eventName;
  // Take the input provded by the user...
  // ...convert to lower case
  eventName = eventName.toLowerCase();
  // 5k special case
  eventName = eventName.replace(/5k/g, 'fivek');
  // 10k special case
  eventName = eventName.replace(/10k/g, 'tenk');
  // Strip out anything that isn't an alpha or a space
  eventName = eventName.replace(/[^A-Za-z\s]/g, '');
  // Remove small words, 'the','in','at' and 'on'
  eventName = eventName.replace(/ the /g, ' ');
  eventName = eventName.replace(/ in /g, ' ');
  eventName = eventName.replace(/ at /g, ' ');
  eventName = eventName.replace(/ on /g, ' ');
  let compare_to_string = eventName;
  // Remove spaces just to check the final length of the alpha content
  eventName = eventName.replace(/\s/g, '');
  let stripped_sentence_length = eventName.length;
  //console.log("DEBUG [lookupEvent]> Cleaned message is: " + compare_to_string);
  //console.log("DEBUG [lookupEvent]> Length: " + stripped_sentence_length);
  let error_caught = false; // Gets changed to true, if things go iffy before the end
  if (stripped_sentence_length == 0) {
    //console.log("DEBUG [lookupEvent]> There is nothing left to compare");
    error_caught = true;
  };
  // Variables
  let stripped_message_count = 0;
  let regex_builder = '';
  let next_stripped_word = '';
  let found_event = false;
  let zero_is_a_match = -1;
  let event_loop = 0;
  let keyword_loop = 0;
  // Here we go looping through each set of keywords
  //console.log("DEBUG [lookupEvent]> Total events: " + CHAS_EVENTS_TOTAL);
  for (event_loop = 0; event_loop < CHAS_EVENTS_TOTAL; event_loop++) {
    // Break up the keywords into an array of individual words
    let sentence_split = CHAS_EVENTS_CALENDAR[event_loop * CHAS_EVENTS_BLOCK_SIZE].split(' ');
    let sentence_length = sentence_split.length;
    //console.log("DEBUG [lookupEvent]> Number of words: " + sentence_length);
    // If there are no keywords at all, the skip the rest of this iteration
    if (sentence_length == 0) {continue};
    // Reset variables for the inner loop
    stripped_message_count = 0;
    regex_builder = '';
    for (keyword_loop = 0; keyword_loop < sentence_length; keyword_loop++) {
      // Make lowercase
      next_stripped_word = sentence_split[keyword_loop].toLowerCase();
      // 5k special case
      next_stripped_word = next_stripped_word.replace(/5k/g, 'fivek');
      // 10k special case
      next_stripped_word = next_stripped_word.replace(/10k/g, 'tenk');
      // Strip out all but letters from each keyword and skip small words
      next_stripped_word = next_stripped_word.replace(/[^A-Za-z]/g, '');
      if (!((next_stripped_word == 'the') || (next_stripped_word == 'in') ||
            (next_stripped_word == 'at') || (next_stripped_word == 'on'))) {
        regex_builder = regex_builder + REGEX_START + next_stripped_word + REGEX_MIDDLE;
        //console.log("DEBUG [lookupEvent]> Next word: " + next_stripped_word);
        stripped_message_count++;
      };
    };
    // Nothing left to compare because search terms have all been stripped out
    if (stripped_message_count == 0) {continue};
    // Complete the search terms regular expression
    regex_builder = regex_builder + REGEX_END;
    //console.log("DEBUG [lookupEvent]> Stripped number of words: " + stripped_message_count);
    //console.log("DEBUG [lookupEvent]> Regex search: " + regex_builder);
    zero_is_a_match = compare_to_string.search(regex_builder);
    //console.log("DEBUG [lookupEvent]> Match Check: " + zero_is_a_match);
    // If there is a match then a value of 0 is returned
    if (zero_is_a_match == 0) {
      //console.log("DEBUG [lookupEvent]> Matched: " + (event_loop * CHAS_EVENTS_BLOCK_SIZE));
      // Sets the index value for the name/keywords for the event
      event_index = event_loop * CHAS_EVENTS_BLOCK_SIZE;
      found_event = true;
      break;
    };
  };
  // If there is not an event found then things have gone funky
  if (!found_event) {
    //console.log("DEBUG [lookupEvent]> No matching event found");
    error_caught = true;
  };
  if (error_caught) {
    postEvents(eventEntry,false,event_index,eventIn);
  } else {
    postEvents(eventEntry,true,event_index,eventIn);
  };
};

function lookupBiogs(eventBiogs,personName) {
  //console.log("DEBUG [lookupBiogs]> Input: " + personName);
  let biogs_index = -1;
  let nameIn = personName;
  // Take the input provded by the user...
  // ...convert to lowercase
  personName = personName.toLowerCase();
  let compare_to_string = personName;
  // Remove spaces just to check the final length of the alpha content
  personName = personName.replace(/\s/g, '');
  let stripped_sentence_length = personName.length;
  //console.log("DEBUG [lookupBiogs]> Cleaned message is: " + compare_to_string);
  //console.log("DEBUG [lookupBiogs]> Length: " + stripped_sentence_length);
  let error_caught = false; // Gets changed to true, if things go iffy before the end
  if (stripped_sentence_length == 0) {
    //console.log("DEBUG [lookupBiogs]> There is nothing left to compare");
    error_caught = true;
  }
  // Variables
  let stripped_message_count = 0;
  let regex_builder = '';
  let next_stripped_word = '';
  let found_bio = false;
  let zero_is_a_match = -1;
  let event_loop = 0;
  let keyword_loop = 0;
  // Here we go looping through each set of keywords
  //console.log("DEBUG [lookupBiogs]> Total: " + CHAS_BIOGS_TOTAL);
  for (event_loop = 0; event_loop < CHAS_BIOGS_TOTAL; event_loop++) {
    // Break up the keywords into an array of individual words
    let sentence_split = CHAS_BIOGS[event_loop * CHAS_BIOGS_BLOCK_SIZE].split(' ');
    let sentence_length = sentence_split.length;
    //console.log("DEBUG [lookupBiogs]> Number of words: " + sentence_length);
    // If there are no keywords at all, the skip the rest of this iteration
    if (sentence_length == 0) {continue};
    // Reset variables for the inner loop
    stripped_message_count = 0;
    regex_builder = '';
    for (keyword_loop = 0; keyword_loop < sentence_length; keyword_loop++) {
      // Make lowercase
      next_stripped_word = sentence_split[keyword_loop].toLowerCase();
      // Strip out all but letters from each keyword and skip small words
      next_stripped_word = next_stripped_word.replace(/[^A-Za-z]/g, '');
      regex_builder = regex_builder + REGEX_START + next_stripped_word + REGEX_MIDDLE;
      //console.log("DEBUG [lookupBiogs]> Next word: " + next_stripped_word);
      stripped_message_count++;
    }
    // Nothing left to compare because search terms have all been stripped out
    if (stripped_message_count == 0) {continue};
    // Complete the search terms regular expression
    regex_builder = regex_builder + REGEX_END;
    //console.log("DEBUG [lookupBiogs]> Stripped number of words: " + stripped_message_count);
    //console.log("DEBUG [lookupBiogs]> Regex search: " + regex_builder);
    zero_is_a_match = compare_to_string.search(regex_builder);
    //console.log("DEBUG [lookupBiogs]> Match Check: " + zero_is_a_match);
    // If there is a match then a value of 0 is returned
    if (zero_is_a_match == 0) {
      //console.log("DEBUG [lookupBiogs]> Matched: " + (event_loop * CHAS_BIOGS_BLOCK_SIZE));
      // Sets the index value for the name/keywords for the event
      biogs_index = event_loop * CHAS_BIOGS_BLOCK_SIZE;
      found_bio = true;
      break;
    };
  };
  // If there is not a name found then things have gone funky
  if (!found_bio) {
    //console.log("DEBUG [lookupBiogs]> No matching name found");
    error_caught = true;
  };
  if (error_caught) {
    postBiogs(eventBiogs,false,biogs_index,nameIn);
  } else {
    postBiogs(eventBiogs,true,biogs_index,nameIn);
  };
}

//  ___ _           _
// | _ \ |__ _ _  _(_)_ _  __ _
// |  _/ / _` | || | | ' \/ _` |_ _ _
// |_| |_\__,_|\_, |_|_||_\__, (_|_|_)
//             |__/       |___/
// 'In-play' functions
// ===================
// Note deliverQuestion_playSurvey is also an in-play function
function playHangman(postEvent,hangman_guess) {
  // 0:id_of_sender,2:hangman_in_play,3:rpsls_in_play,7:hangman_strikes,8:hangman_word,9:hangman_array
  //console.log("DEBUG [playHangman]> Input: " + postEvent);
  let sender = postEvent.sender.id;
  // Take out some possible prefixes
  hangman_guess = hangman_guess.replace(/is it /g, '');
  hangman_guess = hangman_guess.replace(/is there an /g, '');
  hangman_guess = hangman_guess.replace(/is there a /g, '');
  hangman_guess = hangman_guess.replace(/\s/g, '_'); // Swap spaces for under under_scores
  let hangmanText = hangman_guess;
  let custom_id = inPlayID(sender);
  let hangman_strikes = SENDERS[custom_id][7];
  let hangman_word = SENDERS[custom_id][8];
  let hangman_answer_array = SENDERS[custom_id][9];
  let clean = false;
  if (hangman_guess == hangman_word) { // Correct answer
    hangman_guess = "Yes! You guessed the mystery staff member, " + hangman_word.toUpperCase() + '!';
    hangmanText = hangman_guess;
    clean = true;
  } else if (hangman_guess.length != 1) { // Long answer that isn't correct
    hangman_guess = '0'; // Make sure it fails on processing
  } else if (!hangman_guess.match(/[a-z]/i)||hangman_guess.length == 0) {
    hangman_guess = "🔤 Single letters only would be nice. I won't give you a strike for that." ;
    hangmanText = hangman_guess;
  };
  if (hangman_guess.length == 1) {
    var got_one = false;
    let i = 0; // an indexer into the array
    for (i = 0; i < hangman_word.length; i++) {
      if (hangman_word[i] == hangman_guess) {
        hangman_answer_array[i] = hangman_guess.toUpperCase(); // Swap the ? for the actual upper-case letter
        got_one = true;
        hangmanText = "Yes! " + hangman_guess.toUpperCase() + " is in the answer.";
        hangmanText = hangmanText + "\n" + hangman_answer_array.join(' ');
        hangmanText = hangmanText + "\n" + MSG_THUMBS[hangman_strikes] + " (" + hangman_strikes + " strike";
        if (hangman_strikes == 1) {
          hangmanText = hangmanText + ")";
        } else {
          hangmanText = hangmanText + "s)";
        };
      };
    };
    // Count the remaining letters
    let hangman_remaining = 0;
    for (i = 0; i < hangman_word.length; i++) {
      if (hangman_answer_array[i] == '?') {
        hangman_remaining++;
      };
    };
    // If no remaining letters, hurray, you won
    if (hangman_remaining == 0) {
      clean = true;
      hangmanText = "Yes! You guessed the mystery staff member, " + hangman_word.toUpperCase() + '!';
    };
    // Otherwise, wrong guess
    if (!got_one) {
      if (hangman_guess == '0') {
        hangmanText = "Bad guess, try a letter at a time until you are closer.";
      } else {
        hangmanText = "Sorry, no " + hangman_guess.toUpperCase() + " to be found.";
      }
      hangman_strikes++;
      // Game Over
      if (hangman_strikes == 4) {
        clean = true;
        hangmanText = hangmanText + '\n' + 'The mystery staff member was ' + hangman_word.toUpperCase() + '!'
      } else {
        hangmanText = hangmanText + "\n" + hangman_answer_array.join(' ');
        hangmanText = hangmanText + "\n" + MSG_THUMBS[hangman_strikes] + " (" + hangman_strikes + " strike";
        if (hangman_strikes == 1) {
          hangmanText = hangmanText + ")";
        } else {
          hangmanText = hangmanText + "s)";
        };
      };
    };
  };
  if (clean) {
    inPlayClean('hangman',custom_id);
  } else {
    SENDERS[custom_id][7] = hangman_strikes;
    SENDERS[custom_id][8] = hangman_word;
    SENDERS[custom_id][9] = hangman_answer_array;
  };
  console.log("INFO [playHangman]> Sender: " + sender);
  console.log("INFO [playHangman]> Request: Hangman guess was " + hangman_guess);
  console.log("INFO [playHangman]> Action: playHangman.deliverText");
  console.log("INFO [playHangman]> Response: " + hangmanText);
  deliverText(postEvent,hangmanText,false,'');
}

function playRPSLS(eventRPSLS,pickPlayer) {
  // 0:id_of_sender,3:rpsls_in_play,10:rpsls_action,11:issue_instructions,12:rpsls_player,13:rpsls_bot
  //console.log("DEBUG [playRPSLS]> Round");
  let sender = eventRPSLS.sender.id;
  let custom_id = inPlayID(sender);
  let rpslsText = '';
  let rpsls_url = '';
  let pick_chasbot = '';
  let rpsls_action = SENDERS[custom_id][10];
  let issue_instructions = SENDERS[custom_id][11];
  let score_player = SENDERS[custom_id][12];
  let score_bot = SENDERS[custom_id][13];
  console.log("INFO [playRPSLS]> Sender: " + sender);
  if (rpsls_action == 1) { // Provide some instructions + prompt
    console.log("INFO [playRPSLS]> Request: " + TRIGGER_RPSLS);
    rpsls_url = URL_IMG_PREFIX + RPSLS_IMGS[0] + URL_IMG_SUFFIX;
    rpslsText = MSG_RPSLS_INTRO + "\n" + MSG_RPSLS_PROMPT; // Required within deliverText
    console.log("INFO [playRPSLS]> Action: playRPSLS.postImage_deliverText");
    console.log("INFO [playRPSLS]> Reponse: IMG URL "  + rpsls_url + '; Text: ' + rpslsText);
    postImage(eventRPSLS,rpsls_url,true,rpslsText);
  } else if (rpsls_action == 2) { // Just prompt
    console.log("INFO [playRPSLS]> Request: " + TRIGGER_RPSLS);
    rpslsText = MSG_RPSLS_PROMPT; // Required within deliverText
    console.log("INFO [playRPSLS]> Action: playRPSLS.deliverText");
    console.log("INFO [playRPSLS]> Reponse: " + rpslsText);
    deliverText(eventRPSLS,rpslsText,false,'');
  } else { // Compare results and show outcome
    console.log("INFO [playRPSLS]> Request: " + pickPlayer);
    pick_chasbot = RPSLS_VALID[numRandomBetween(0,4)];
    let PLAYERvBOT = pickPlayer + pick_chasbot;
    rpslsText = '';
    //console.log("DEBUG [playRPSLS]> PLAYERvBOT: " + PLAYERvBOT);
    // Check WIN
    let find_index = 0;
    for (find_index = 0; find_index < RPSLS_WIN.length; find_index++) {
      //console.log("DEBUG [playRPSLS]> Win check: " + RPSLS_WIN[find_index]);
      if (PLAYERvBOT == RPSLS_WIN[find_index]) {
        rpsls_url = URL_IMG_PREFIX + RPSLS_IMGS[1 + find_index] + URL_IMG_SUFFIX;
        rpslsText = "You win. Your " + strTitleCase(pickPlayer) + " ";
        rpslsText = rpslsText + RPSLS_OUTCOMES[find_index] + " my ";
        rpslsText = rpslsText + strTitleCase(pick_chasbot) + ". ";
        score_player++;
        break;
      };
    };
    // Check LOSE
    if (rpslsText == '') {
      find_index = 0;
      for (find_index = 0; find_index < RPSLS_LOSE.length; find_index++) {
        //console.log("DEBUG [playRPSLS]> Lose check: " + RPSLS_LOSE[find_index]);
        if (PLAYERvBOT == RPSLS_LOSE[find_index]) {
          rpsls_url = URL_IMG_PREFIX + RPSLS_IMGS[11 + find_index] + URL_IMG_SUFFIX;
          rpslsText = "I win. My " + strTitleCase(pick_chasbot) + " ";
          rpslsText = rpslsText + RPSLS_OUTCOMES[find_index] + " your ";
          rpslsText = rpslsText + strTitleCase(pickPlayer) + ". ";
          score_bot++;
          break;
        };
      };
    };
    // Check DRAW
    if (rpslsText == '') {
      find_index = 0;
      for (find_index = 0; find_index < RPSLS_DRAW.length; find_index++) {
        //console.log("DEBUG [playRPSLS]> Draw check: " + RPSLS_DRAW[find_index]);
        if (PLAYERvBOT == RPSLS_DRAW[find_index]) {
          rpsls_url = URL_IMG_PREFIX2 + RPSLS_IMGS[21 + find_index] + URL_IMG_SUFFIX;
          rpslsText = "It's a draw. ";
          break;
        };
      };
    };
    // Script message
    if (score_bot == 5) {
      rpslsText = rpslsText + "😁 Soz, I'm the Champion! (Score: CHASbot " + score_bot ;
      rpslsText = rpslsText + ", you " + score_player + ").";
      score_bot = 0;
      score_player = 0;
      issue_instructions = true;
    } else if (score_player == 5) {
      rpslsText = rpslsText + "😡 Whoop, your're the Champion! (Score: CHASbot " + score_bot ;
      rpslsText = rpslsText + ", you " + score_player + ").";
      score_bot = 0;
      score_player = 0;
      issue_instructions = true;
    } else if (score_bot > score_player) {
      rpslsText = rpslsText + "😉 I'm ahead for now but you could turn it around! (Score: CHASbot " + score_bot ;
      rpslsText = rpslsText + ", you " + score_player + ").";
    } else if (score_player > score_bot) {
      rpslsText = rpslsText + "😏 You're leading the way, for now! (Score: CHASbot " + score_bot ;
      rpslsText = rpslsText + ", you " + score_player + ").";
    } else {
      rpslsText = rpslsText + "🙂 Level pegging. (Score: CHASbot " + score_bot ;
      rpslsText = rpslsText + ", you " + score_player + ").";
    };
    SENDERS[custom_id][10] = rpsls_action;
    SENDERS[custom_id][11] = issue_instructions;
    SENDERS[custom_id][12] = score_player;
    SENDERS[custom_id][13] = score_bot;
    console.log("INFO [playRPSLS]> Action: playRPSLS.postImage_deliverText");
    console.log("INFO [playRPSLS]> Reponse: IMG URL "  + rpsls_url + '; Text: ' + rpslsText);
    postImage(eventRPSLS,rpsls_url,true,rpslsText);
  };
}

function playTopTrumps(eventTT,playTT){
  // 14:trumps_score,15:trumps_played,16:trump_tobeat,17:trump_picked
  // 18:trump_category,19:trumps_start,20:cat_or_char,21:trumps_xs
  // Preceded by lookupHero
  let sender = eventTT.sender.id;
  console.log("INFO [playTopTrumps]> Sender: " + sender);
  let tt_msg = MSG_TOPTRUMPS_PROMPT;
  let custom_id = inPlayID(sender);
  if (SENDERS[custom_id][21].length > 0) { // Character selection - down to single result
    //console.log("DEBUG [playTopTrumps]> Single character picked from bubbles")
    playTT = [];
    playTT.push(SENDERS[custom_id][17]);
    SENDERS[custom_id][21] = [];
  };
  let trumps_restart = false;
  let playTT_loop = 0;
  let possibleRepeat = 0;
  if (SENDERS[custom_id][19] && SENDERS[custom_id][16] != '') {
    //console.log("DEBUG [playTopTrumps]> Restart from last played character")
    playTT = [];
    playTT.push(SENDERS[custom_id][16]);
    let spliceID = -1;
    let indexFind = SENDERS[custom_id][15];
    for (playTT_loop = 0; playTT_loop < SENDERS[custom_id][15].length; playTT_loop++) {
      possibleRepeat = SENDERS[custom_id][16];
      if (possibleRepeat == indexFind[playTT_loop]) { spliceID = playTT_loop }
    }; // for (playTT_loop = 0
    SENDERS[custom_id][15].splice(spliceID,1);
    trumps_restart = true;
  }; // if (SENDERS[custom_id][19]
  //console.log("DEBUG [playTopTrumps]> Possible Top Trumps to select: " + playTT.length + " [" + sender + "]");
  let trumps_played = SENDERS[custom_id][15];
  let trump_tobeat = SENDERS[custom_id][16];
  let trump_category = SENDERS[custom_id][18];
  let trumps_start = SENDERS[custom_id][19];
  let cat_or_char = SENDERS[custom_id][20];
  // Weed out all of the previously played possibles
  let foundRepeat = false;
  if (playTT.length > 0) {
    let loopDown = 0;
    let loopLength = playTT.length;
    for (playTT_loop = 0; playTT_loop < loopLength; playTT_loop++) {
      loopDown = loopLength - 1 - playTT_loop; // reverse through array
      possibleRepeat = playTT[loopDown];
      if (trumps_played.includes(possibleRepeat)) { // identify if any of the possible trunps have been played before
        playTT.splice(loopDown,1); // remove any previously played trumps from the possibles
        foundRepeat = true;
        //console.log("DEBUG [playTopTrumps]> Repeated character removed: " + possibleRepeat);
      }; // if (trumps_played
    }; // for (playTT_loop = 0
  }; // if (playTT.length
  if (playTT.length == 0) {
    if (cat_or_char == 'character') {
      //console.log("DEBUG [playTopTrumps]> No hero is identified when character is in scope");
      if (foundRepeat) {
        tt_msg = "🤖 Maybe I should have said but I won't let you play the same card twice in a game. Think of any other hero or villain?";
      } else {
        tt_msg = "🤖 Oops, I wasn't able to find your choice of hero or villain. Think of another?";
      };
      deliverText(eventTT,tt_msg,false,'');
      console.log("INFO [playTopTrumps]> Request: Problem with setting a character - looking for another");
      console.log("INFO [playTopTrumps]> Action: playTopTrumps.deliverText");
      console.log("INFO [playTopTrumps]> Response: " + tt_msg);
      return;
    } else { // category has been selected
      if (trump_category == -1) { // invalid category
        //console.log("DEBUG [playTopTrumps]> No valid character picked");
        tt_msg = "🤖 Oops, I wasn't able to recognise that category. Try again by picking a category bubble (no need to type):";
        deliverCategoryTT(eventTT,tt_msg);
        console.log("INFO [playTopTrumps]> Request: Problem with setting a category - looking for another");
        console.log("INFO [playTopTrumps]> Action: playTopTrumps.deliverCategoryTT");
        console.log("INFO [playTopTrumps]> Response: " + tt_msg);
        return;
      } else { // valid category
        //console.log("DEBUG [playTopTrumps]> Valid character picked");
        SENDERS[custom_id][20] = 'character';
        tt_msg = "Now that you have picked " + HERO_STATS[trump_category] +
          " as your category, name a hero or villain you think will trump " +
          HERO_ARRAY[trump_tobeat][0] + "?";
        deliverText(eventTT,tt_msg,false,'');
        console.log("INFO [playTopTrumps]> Request: Trumps category was set properly - looking for character next");
        console.log("INFO [playTopTrumps]> Action: playTopTrumps.deliverText");
        console.log("INFO [playTopTrumps]> Response: " + tt_msg);
        return;
      }; // if (trump_category
    }; // if (cat_or_char
  } else if (playTT.length == 1 && cat_or_char == 'character') {
    let chicken_dinner = true;
    let tt_id = playTT[0];
    SENDERS[custom_id][17] = tt_id; // Set trump_picked
    SENDERS[custom_id][15].push(tt_id); // Add picked card into trumps_played array
    //console.log("DEBUG [playTopTrumps]> Single ID: " + tt_id);
    let tt_url = HERO_ARRAY[tt_id][7];
    //console.log("DEBUG [playTopTrumps]> Image: " + tt_url);
    let tt_stats = HERO_ARRAY[tt_id][0] + " ID: " + tt_id + "\n" +
      intPad(HERO_ARRAY[tt_id][1],3) + " = 🧠 Intelligence\n" +
      intPad(HERO_ARRAY[tt_id][2],3) + " = 💪 Strength\n" +
      intPad(HERO_ARRAY[tt_id][3],3) + " = 💨 Speed\n" +
      intPad(HERO_ARRAY[tt_id][4],3) + " = 🔋 Durability\n" +
      intPad(HERO_ARRAY[tt_id][5],3) + " = 🌡️ Power\n" +
      intPad(HERO_ARRAY[tt_id][6],3) + " = ⚔️ Combat"
    //console.log("DEBUG [playTopTrumps]> Stats: " + tt_stats);
    tt_stats = strReplaceAll(tt_stats, 'null', ' ❓ ');
    let oldScore = 0;
    let newScore = 0;

    if (!trumps_start) {
      oldScore = parseInt(HERO_ARRAY[trump_tobeat][trump_category+1]);
      newScore = parseInt(HERO_ARRAY[tt_id][trump_category+1]);
      if (isNaN(oldScore)||isNaN(newScore)) {
        // Flip for winner or loser if either is NaN
        let binary_pick = numRandomBetween(0,1);
        if (binary_pick == 1) { // winner
          newScore = 101;
          oldScore = 0;
        } else { // loser
          newScore = -1;
          oldScore = 100;
        };
        //console.log("DEBUG [playTopTrumps]> One of the values is null, so picked either [0]=Lose [1]=Win: " + binary_pick);
      }; // if ( oldScore == 'NaN'
      if (newScore >= oldScore) { // win
        SENDERS[custom_id][14] = SENDERS[custom_id][14] + 1; // Increase winning cards in a row tally
      } else { // lose
        chicken_dinner = false;
      }; // if (newScore >= oldScore)
    }; // if (!trumps_start)
    //if (!trumps_start) { //console.log("DEBUG [playTopTrumps]> Comparison character " + HERO_ARRAY[trump_tobeat][0] + ", with value: " + oldScore) };
    SENDERS[custom_id][20] = 'category'; // set cat_ot_char
    SENDERS[custom_id][16] = SENDERS[custom_id][17]; // new card becomes old trump_tobeat
    if (trumps_start) { tt_msg = MSG_TOPTRUMPS_INTRO1 + HERO_ARRAY[SENDERS[custom_id][16]][0] + MSG_TOPTRUMPS_INTRO2 };
    if (trumps_restart) { tt_msg = "Let's return to " + HERO_ARRAY[SENDERS[custom_id][16]][0] + ", where we left off with the last card played. " };
    if (chicken_dinner){
      let wins = SENDERS[custom_id][14];
      if (wins > 0) {
        if (wins == 1) {
          tt_msg = "🏆 First win under your belt.\n";
        } else if (wins < 5) {
          tt_msg = wins + " wins so far.\n";
        } else if (wins < 10) {
          tt_msg = "A solid " + intWords(wins) + "wins to your name.\n";
        } else {
          tt_msg = "An impressive " + intWords(wins) + "wins to your name.\n";
        };
        if (newScore == 101) { tt_msg = "🍀 Lucky, you won the toss of a coin with the mystery value! " + tt_msg }
      }; // if (wins > 0)
      deliverStackTT(eventTT,tt_stats,tt_msg,tt_url,false);
      console.log("INFO [playTopTrumps]> Request: Winning trump character picked - pick again");
      console.log("INFO [playTopTrumps]> Action: playTopTrumps.deliverStackTT");
      console.log("INFO [playTopTrumps]> Response: " + tt_msg);
      //console.log("DEBUG [playTopTrumps]> Winning character " + HERO_ARRAY[SENDERS[custom_id][16]][0] + ", pick category, winning value: " + newScore);
    } else {
      //console.log("DEBUG [playTopTrumps]> Losing character " + HERO_ARRAY[SENDERS[custom_id][16]][0] + ", GAME OVER, losing value: " + newScore);
      tt_msg = "Sorry, no luck with " + HERO_STATS[trump_category] + ", game over... you won " + intWords(SENDERS[custom_id][14]) + "in a row.";
      if (newScore == -1) { tt_msg = "👎 Oops, you lost the toss of a coin with the mystery value! " + tt_msg }
      deliverStackTT(eventTT,tt_stats,tt_msg,tt_url,true);
      inPlayClean('trumps',custom_id); // clean
      inPlayPause(custom_id); // Pause all in-play...
      console.log("INFO [playTopTrumps]> Request: Losing trump character picked - <GAME OVER>");
      console.log("INFO [playTopTrumps]> Action: playTopTrumps.deliverStackTT");
      console.log("INFO [playTopTrumps]> Response: " + tt_msg);
    };
    return;
  } else if (playTT.length > 1 && cat_or_char == 'character'){
    //console.log("DEBUG [playTopTrumps]> Too many charactrers from search: " + playTT.length);
    SENDERS[custom_id][21] = playTT; // Copy the possibles array
    tt_msg = "🤖 Can't be sure who you meant, I found " + playTT.length + " possibilities.";
    if (playTT.length > 5) { tt_msg = tt_msg + " I've cut it down to five." }
    tt_msg = tt_msg + " Pick one from the selection.";
    deliverCharChoiceTT(eventTT,tt_msg);
    console.log("INFO [playTopTrumps]> Request: Too many character returned - select from list");
    console.log("INFO [playTopTrumps]> Action: playTopTrumps.deliverCharChoiceTT");
    console.log("INFO [playTopTrumps]> Response: " + tt_msg);
  };
}

// DEV >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

const URL_API_POKEMON = "https://pokeapi.co/api/v2/pokemon/";
const POKE_CEILING = 893;
var TRIGGER_DEV = 'poke'; // = pokemon number/name

// DEV

let pokeEvoDetails = ['held_item','item','known_move','known_move_type','location','min_affection',
  'min_beauty','min_happiness','min_level','needs_overworld_rain','party_species','party_type',
  'relative_physical_stats','time_of_day','trade_species','trigger'];
let pokeEvoPrefix = ['holding ','','with ','with ','at ','with Affection ','with Beauty ','with Happiness ',
  'with Level ','','with ','with ','with ','in ','for ',''];
let pokeEvoSuffix = ['','',' Move',' Type-Move','','+','+','+','+','',' Species in party','-type in party',
  '','-time','',''];
let pokeType = ["⚫","⚪","🔥 Fire","🔴","🌊 Water","🔵","🌱 Grass","🟢","⚡ Electric","🟡",
  "💎 Rock","🟤","🌎 Ground","🟤","👊 Fighting","🟠","🔮 Psychic","🟣","🌒 Dark","⚫","🧊 Ice","⚪",
  "🐲 Dragon","🟢","⚙️ Steel","🔵","✈️ Flying","🔵","👻 Ghost","⚪","☠️ Poison","🟣","🐞 Bug","🔴",
  "🧚 Fairy","🟢","😊 Normal","🟡"];
let pokeDex = [];
let pokeSpecies = [];
let pokeEvolution = [];

function intEmoji(num) {
  let numEmoji = ['0️⃣','1️⃣','2️⃣','3️⃣','4️⃣','5️⃣','6️⃣','7️⃣','8️⃣','9️⃣'];
  let strEmoji = '';
  let sNumber = num + '';
  let emoIndex = 0;
  for (var i = 0; i < sNumber.length; i++) {
    emoIndex = parseInt(sNumber.charAt(i));
    strEmoji = strEmoji + numEmoji[emoIndex];
  };
  return strEmoji;
}

function strBar(top,target,on,off) {
  let bar = '';
  let on_units = Math.trunc((target/top)*100);
  if (on_units < 20) {
    bar = on + off + off + off + off;
  } else if (on_units < 40) {
    bar = on + on + off + off + off;
  } else if (on_units < 60) {
    bar = on + on + on + off + off;
  } else if (on_units < 80) {
    bar = on + on + on + on + off;
  } else {
    bar = on + on + on + on + on;
  };
  return bar;
}

function lookupPokemon(eventPoke,pokemonID){
  var pokeDigits = pokemonID.replace(/\D/g,'');
  var pokeLetters = pokemonID.replace(/[^a-zA-Z-]/g,'');
  var pokeInt = parseInt(pokeDigits);
  if (pokemonID == 'porygon2') {
    // exception
  } else if (isNaN(pokeInt) && pokeLetters == '') { // neither int nor str > random
    pokemonID = '' + numRandomBetween(1,POKE_CEILING);
  } else if (!isNaN(pokeInt) && pokeLetters != ''){ // both int and str > query str
    pokemonID = pokeLetters;
  } else if (pokeLetters != ''){ // str > query str
    pokemonID = pokeLetters;
  } else {
    if (pokeInt > 0 && pokeInt <= POKE_CEILING) { // int within range > query int
      pokemonID = '' + pokeInt
    } else {
      pokemonID = '' + numRandomBetween(1,POKE_CEILING); // int out of range > query random
    }; // if (pokeInt > 0
  }; // if (pokemonID
  // check the array first - find a match then api not necessary
  // ***********************************************************
  //mime-jr 439; ho-oh 250; porygon2 233; porygon-z 474; nidoran-f 29; nidoran-m 32; jangmo-o 782
  //hakamo-o 783; kommo-o 784; tapu-koko 785; tapu-lele 786; tapu-bulu 787; tapu-fini 788
  let apiURL = URL_API_POKEMON + pokemonID + "/";
  apiPOKEMONcb(apiURL, function(){
    // check not empty
    var pokeNew = pokeDex.length - 1; // check empty?
    // NEWEST ONE
    var checkID = pokeDex[pokeNew]['ID'] + '';
    if (pokemonID == checkID || pokemonID == pokeDex[pokeNew]['Name']) {
      console.log('%%%%%%%%%%%%%%%%%%%%% Match: TRUE');
      // check the array first - find a match then api not necessary
      // ***********************************************************
      apiPOKEMONcb(pokeDex[pokeNew]['Species URL'], function(){
        // CHECK VALID?
        var speciesNew = pokeSpecies.length - 1; // check empty?
        // NEWEST ONE
        apiPOKEMONcb(pokeSpecies[speciesNew]['Evolution URL'], function(){
          // CHECK VALID?
          var evoNew = pokeEvolution.length - 1; // check empty?
          // NEWEST ONE
            console.log(pokeEvolution[evoNew]["Evolution Narrative"]);

            let ceiling = Math.max(
              pokeDex[pokeNew]['Speed'],
              pokeDex[pokeNew]['Defence'],
              pokeDex[pokeNew]['Attack'],
              pokeDex[pokeNew]['Sp. Defence'],
              pokeDex[pokeNew]['Sp. Attack'],
              pokeDex[pokeNew]['HP']
            );
            let pokeType1 = '';
            let pokeType2 = '';
            let colType1 = '';
            let colType2 = pokeType[0];
            let typeLoop = 0;
            for (typeLoop = 2; typeLoop < pokeType.length; typeLoop++) {
              var cleanType = strStandardise(pokeType[typeLoop]);
              var cleanTarget = strStandardise(pokeDex[pokeNew]['Type(s)']);
              var spam = cleanType[0];
              var eggs = cleanTarget[0];
              if (cleanTarget[0].includes(spam) && cleanType[0] != '') {
                if (pokeType1 == '') {
                  pokeType1 = pokeType[typeLoop];
                  colType1 = pokeType[typeLoop+1];
                } else {
                  pokeType2 = pokeType[typeLoop];
                  colType2 = pokeType[typeLoop+1];
                }; // if (pokeType1
              }; // if (cleanTarget
            }; // for (typeLoop
            if (colType1 == colType2) { colType2 = pokeType[0] };
            if (colType1 == colType2) { colType2 = pokeType[1] };

            var speciesNew = pokeSpecies.length - 1; // check empty?
            console.log('%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ',speciesNew)

            var base_stats =
              strTitleCase(pokeDex[pokeNew]['Name']) + ' ID: ' + intEmoji(pokeDex[pokeNew]['ID']) + '\n\n' +
              pokeType1 + ' ' + pokeType2 + ' ⚖️ ' + pokeDex[pokeNew]['Weight'] + ' 📊 ' + pokeDex[pokeNew]['Height'] + '\n\n' +
              strBar(ceiling,pokeDex[pokeNew]['HP'],colType1,colType2) + ': [' + intPad(pokeDex[pokeNew]['HP'],3) + '] \t❤️ HP\n' +
              strBar(ceiling,pokeDex[pokeNew]['Attack'],colType1,colType2) + ': [' + intPad(pokeDex[pokeNew]['Attack'],3) + '] \t⚔️ Attack\n' +
              strBar(ceiling,pokeDex[pokeNew]['Defence'],colType1,colType2) + ': [' + intPad(pokeDex[pokeNew]['Defence'],3) + '] \t🛡️ Defence\n' +
              strBar(ceiling,pokeDex[pokeNew]['Sp. Attack'],colType1,colType2) + ': [' + intPad(pokeDex[pokeNew]['Sp. Attack'],3) + '] \t⚔️ Sp. Attack\n' +
              strBar(ceiling,pokeDex[pokeNew]['Sp. Defence'],colType1,colType2) + ': [' + intPad(pokeDex[pokeNew]['Sp. Defence'],3) + '] \t🛡️ Sp. Defence\n' +
              strBar(ceiling,pokeDex[pokeNew]['Speed'],colType1,colType2) + ': [' + intPad(pokeDex[pokeNew]['Speed'],3) + '] \t💨 Speed\n\n' +
              '[Stats Total: ' + intPad(pokeDex[pokeNew]['Total'],3) + ']\n\n' +
              pokeSpecies[speciesNew]['Description'];
              //'(ℹ️ Info) (📶 Evolution) (◀️ Previous) (▶️ Next) (🔢 Random)';
            postImage(eventPoke,pokeDex[pokeNew]['Sprite'],true,base_stats);
            // Moves *may* need split over multiple messages


        }); // apiPOKEMONcb(pokeSpecies[speciesNew]
      }); // apiPOKEMONcb(pokeDex[pokeNew]
    } else {
      console.log('%%%%%%%%%%%%%%%%%%%%% Match: FALSE'); // TO DO
    }; // else
  }); // apiPOKEMONcb(apiURL
}

// evo test cases 312, 67, 362, 116, 41, 268, 47
function apiPOKEMONcb(apiCall,callback) {
  // API Reference @ https://pokeapi.co
  console.log("API Request [POKE]: " + apiCall);
  var req = http.get(apiCall, function(res) {
    let body = "";
    res.on('data', function (chunk) { body += chunk });
    res.on('end', function() {
      if (body == 'Not Found') {
        console.log('^^^^^^^^^^^^^^^^^^^^ DUD'); // TO DO
        callback();
      } else {
        if (apiCall.includes('evolution')) {
          let poke = JSON.parse(body);
          var evoChain = [];
          var evoData = poke.chain;
          let nest = -1;
          let evoChainNarrative = [];
          let evoNarrative = '';
          do {
            nest = nest + 1;
            let numberOfEvolutions = evoData['evolves_to'].length;
            var evoDetails = evoData['evolution_details'][0];
            let pokeEvoDetailsLoop = 0;
            if (typeof evoData['evolution_details'][0] != 'undefined') {
              //console.table(evoDataNest['evolution_details'][nestLoop]);
              evoChainNarrative = [];
              for (pokeEvoDetailsLoop = 0; pokeEvoDetailsLoop < pokeEvoDetails.length; pokeEvoDetailsLoop++) {
                var holder = evoData['evolution_details'][0][pokeEvoDetails[pokeEvoDetailsLoop]];
                if (typeof holder != 'undefined'  && holder != null && holder != '') {
                  if (typeof holder == 'object') { holder = holder.name };
                  holder = '' + holder;
                  if (holder != '-1') {holder = holder.replace(/-/g, ' ')};
                  holder = strTitleCase(holder);
                  if (pokeEvoDetails[pokeEvoDetailsLoop] == 'trigger') {
                    evoNarrative = holder;
                  } else {
                    if (pokeEvoDetails[pokeEvoDetailsLoop] == 'relative_physical_stats') {
                      if (holder == '1') { holder = 'Attack > Defence' };
                      if (holder == '-1') { holder = 'Defence > Attack' };
                    };
                    if (holder == 'True') { holder = 'while raining'};
                    holder = pokeEvoPrefix[pokeEvoDetailsLoop] + holder + pokeEvoSuffix[pokeEvoDetailsLoop];
                    evoChainNarrative.push(holder);
                  }; // if (pokeEvoDetails[pokeEvoDetailsLoop]
                  //console.log("DEBUG [apiPOKEMONcb]> Evolution parameters: " + pokeEvoDetails[pokeEvoDetailsLoop] + ' = ' + holder);
                }; // if (typeof holder
              }; // for (pokeEvoDetailsLoop
            }; // if (typeof evoData
            //if (typeof evoData['evolution_details'][0] != 'undefined') { console.table(evoData['evolution_details'][0]) };
            var evoPhraseCnt = evoChainNarrative.length;
            var super_prefix = ' and '; // switch to or?
            if (evoPhraseCnt == 0) {
              // Only trigger
            } else if (evoPhraseCnt == 1) {
              evoNarrative = evoNarrative + ' ' + evoChainNarrative[0];
            } else if (evoPhraseCnt == 2) {
              evoNarrative = evoNarrative + ' ' + evoChainNarrative[0] + super_prefix + evoChainNarrative[1];
            } else { // >2 e.g. 3.... 0,1,2 (length -1)
              let narLoop = 1;
              for (narLoop = 0; narLoop < evoPhraseCnt.length; narLoop++) {
                if (narLoop == (evoPhraseCnt-1)) {
                  super_prefix = ' and ';
                } else if (narLoop == 0) {
                  super_prefix = ' ';
                } else {
                  super_prefix = ', ';
                }; // if (narLoop
                evoNarrative = evoNarrative + super_prefix + evoChainNarrative[narLoop];
              }; // for (narLoop = 0;
            }; // if (evoPhraseCnt
            evoChain.push({
              "Root": '*',
              "Sequence": nest,
              "Species": strTitleCase(evoData.species.name),
              "Evolution": evoNarrative
            }); // evoChain.push({
            //console.log("DEBUG [apiPOKEMONcb]> Pokemon: " + evoData .species.name + '; Evolution: ' + evoNarrative);
            if (numberOfEvolutions > 1) {
              for (let i = 1;i < numberOfEvolutions; i++) {
                evoChainNarrative = [];
                var evoDataNest = evoData.evolves_to[i];
                var evoDetailsNest = evoDataNest['evolution_details'][0];
                let nestLoop = 0;
                let reached = -1;
                for (nestLoop = 0; nestLoop < evoDataNest['evolution_details'].length; nestLoop++) {
                  if (typeof evoDataNest['evolution_details'][nestLoop] != 'undefined') {
                    for (pokeEvoDetailsLoop = 0; pokeEvoDetailsLoop < pokeEvoDetails.length; pokeEvoDetailsLoop++) {
                      var holder = evoDataNest['evolution_details'][nestLoop][pokeEvoDetails[pokeEvoDetailsLoop]];
                      if (typeof holder != 'undefined'  && holder != null && holder != '') {
                        if (typeof holder == 'object') { holder = holder.name };
                        holder = '' + holder;
                        if (holder != '-1') {holder = holder.replace(/-/g, ' ')};
                        holder = strTitleCase(holder);
                        if (pokeEvoDetails[pokeEvoDetailsLoop] == 'trigger') {
                          evoNarrative = holder;
                        } else {
                          if (pokeEvoDetails[pokeEvoDetailsLoop] == 'relative_physical_stats') {
                            if (holder == '1') { holder = 'Attack > Defence' };
                            if (holder == '-1') { holder = 'Defence > Attack' };
                          };
                          if (holder == 'True') { holder = 'while raining'};
                          holder = pokeEvoPrefix[pokeEvoDetailsLoop] + holder + pokeEvoSuffix[pokeEvoDetailsLoop];
                          evoChainNarrative.push(holder);
                        };
                        //console.log("DEBUG [apiPOKEMONcb]> Evolution parameters (nested): " + pokeEvoDetails[pokeEvoDetailsLoop] + ' = ' + holder);
                      }; // if (typeof holder
                    }; // for (pokeEvoDetailsLoop
                  }; // if (typeof evoDataNest
                  reached = nestLoop;
                }; // for (nestLoop
                var evoPhraseCnt = evoChainNarrative.length;
                var super_prefix = ' and '; // switch to or?
                if (reached > 0) { var super_prefix = ' or ' }
                if (evoPhraseCnt == 0) {
                  // Only trigger
                } else if (evoPhraseCnt == 1) {
                  evoNarrative = evoNarrative + ' ' + evoChainNarrative[0];
                } else if (evoPhraseCnt == 2) {
                  evoNarrative = evoNarrative + ' ' + evoChainNarrative[0] + super_prefix + evoChainNarrative[1];
                } else { // >2 e.g. 3.... 0,1,2 (length -1)
                  let narLoop = 0;
                  for (narLoop = 0; narLoop < evoPhraseCnt; narLoop++) {
                    if (narLoop == (evoPhraseCnt-1)) {
                      super_prefix = ' and ';
                      if (reached > 0) { var super_prefix = ' or ' }
                    } else if (narLoop == 0) {
                      super_prefix = ' ';
                    } else {
                      super_prefix = ', ';
                    }; // if (narLoop
                    evoNarrative = evoNarrative + super_prefix + evoChainNarrative[narLoop];
                  }; // for (narLoop
                }; // if (evoPhraseCnt
                evoChain.push({
                  "Sequence": nest,
                  "Species": strTitleCase(evoDataNest.species.name),
                  "Evolution": evoNarrative
                }); // evoChain.push({
                //console.log("DEBUG [apiPOKEMONcb]> Pokemon: " + evoDataNest .species.name + '; Evolution: ' + evoNarrative);
              }; // for (let i = 1;i < numberOfEvolutions; i++) {
            }; // if (numberOfEvolutions > 1)
           evoData = evoData['evolves_to'][0];
          } while (!!evoData && evoData.hasOwnProperty('evolves_to'));
          //console.log("DEBUG [apiPOKEMONcb]> Results:"); console.table(evoChain);
          let evoChainCnt = evoChain.length;
          let evoSequence = '';
          if (evoChainCnt == 0) {
            evoSequence = 'Sorry, unable to find evolution chain';
          } else if (evoChainCnt == 1) {
            evoSequence = evoChain[0]['Species'] + " does not evolve";
          } else {
            let evoLoop = 0;
            let pokePrevious = '';
            let pokeFirst = false;
            for (evoLoop = 0; evoLoop < evoChainCnt; evoLoop++) {
              if (evoChain[evoLoop]['Root'] == '*' && evoLoop == 0 ) { // 0
                pokePrevious = evoChain[evoLoop]['Species'];
              } else if (evoChain[evoLoop]['Root'] == '*'  && evoLoop != (evoChainCnt - 1)) { // 1
                evoSequence = evoSequence + pokePrevious + ' ➡️ ';
                // Poliwag >
                pokePrevious = evoChain[evoLoop]['Species'];
                evoSequence = evoSequence + pokePrevious + ' 📶 ' + evoChain[evoLoop]['Evolution'] + '\n';
                // Poliwag > Poliwhirl [Level Up with Level 25+]
                //
              } else if (evoChain[evoLoop]['Root'] != '*') { // 2
                evoSequence = evoSequence + pokePrevious + ' ➡️ ';
                evoSequence = evoSequence + evoChain[evoLoop]['Species'] + ' 📶 ' + evoChain[evoLoop]['Evolution'] + '\n';

              } else if (evoChain[evoLoop]['Root'] == '*') { // Final evolution 3
                evoSequence = evoSequence + pokePrevious + ' ➡️ ';
                // Poliwag > Poliwhirl [Level Up with Level 25+]
                // Poliwhirl >
                evoSequence = evoSequence + evoChain[evoLoop]['Species'] + ' 📶 ' + evoChain[evoLoop]['Evolution'];
                // Poliwag > Poliwhirl [Level Up with Level 25+]
                // Poliwhirl > Poliwrath [Use Item Water Stone]
              };
            }; // for (evoLoop = 0
          }; // if (evoChainCnt == 0)
          pokeEvolution.push({
            "Evolution URL": apiCall,
            "Evolution Narrative": evoSequence
          }); //
          console.log("DEBUG [apiPOKEMONcb]> Evolution sequence: \n" + evoSequence);
          callback();
        } else if (apiCall.includes('species')) {
          let poke = JSON.parse(body);
          let description = 'No description'
          let flavCount = poke.flavor_text_entries.length;
          let flavLoop = 0;
          for (flavLoop = 0; flavLoop < flavCount; flavLoop++) {
            let flavEntry = poke.flavor_text_entries[flavLoop];
            if (flavEntry.language.name == 'en' && flavEntry.version.name == 'red') {
              description = flavEntry.flavor_text;
            }; // if
          }; // for (flavLoop
          description = strReplaceAll(description,'\n',' ');
          description = strReplaceAll(description,'\f',' ');
          description = description.replace(/^((\S+\s+){7}\S+)\s+/, '$1\n');
          let eggs = poke.egg_groups.map((element) => strTitleCase(element.name)).join(', ');
          eggs = eggs.replace(/,([^,]*)$/,' &$1'); // last comma for and
          let hatch_after = (poke.hatch_counter+1)*255;
          let habitat = "No Habitat";
          if (poke.habitat != null) { habitat = poke.habitat.name };
          let hatch_steps = hatch_after + ' Steps';
          let female_eighth = poke.gender_rate; // in 1/8th female proportion i.e. 2=25% female
          let gender = '';
          if (female_eighth == -1) {
            gender = 'None';
          } else {
            var female_proportion = (female_eighth/8)*100;
            var male_proportion = 100 - female_proportion;
            gender = '♀️' + female_proportion.toFixed(1) + '% ♂️' + male_proportion.toFixed(1) + '%'; //ToFixed is string
          }
          pokeSpecies.push({
            "Species URL": apiCall,
            "Description": description,
            "Egg Groups": eggs,
            "Steps to Hatch": hatch_steps,
            "Gender Distribution": gender,
            "Colour": poke.color.name,
            "Shape": poke.shape.name,
            "Growth Rate": poke.growth_rate.name,
            "Habitat": habitat,
            "Base Happiness": poke.base_happiness,
            "Capture Rate": poke.capture_rate,
            "Evolution URL": poke.evolution_chain.url
          }); // pokeSpecies.push
          console.log("DEBUG [apiPOKEMONcb]> Species: \n");
          console.table(pokeSpecies[pokeSpecies.length - 1])
          callback();
        } else { // pokemon URL
          let poke = JSON.parse(body);
          let types = poke.types.map((type) => strTitleCase(type.type.name)).join(', ');
          types = types.replace(/,([^,]*)$/, ' &$1'); // last comma for and
          let abilities = poke.abilities.map((ability) => strTitleCase(ability.ability.name)).join(', ');
          abilities = abilities.replace(/,([^,]*)$/, ' &$1');
          let moves = poke.moves.map((move) => strTitleCase(move.move.name)).join(', ');
          moves = moves.replace(/,([^,]*)$/, ' &$1');
          pokeDex.push({
            "ID": poke.id,
            "Name": poke.species.name,
            "Species URL": poke.species.url,
            "Height": poke.height/10 + 'm',
            "Weight": poke.weight/10 + 'kg',
            "Sprite": poke.sprites.front_default,
            "Speed": poke.stats[0].base_stat,
            "Defence": poke.stats[1].base_stat,
            "Attack": poke.stats[2].base_stat,
            "Sp. Defence": poke.stats[3].base_stat,
            "Sp. Attack": poke.stats[4].base_stat,
            "HP": poke.stats[5].base_stat,
            "Total": (poke.stats[5].base_stat + poke.stats[4].base_stat + poke.stats[3].base_stat +
              poke.stats[2].base_stat + poke.stats[1].base_stat + poke.stats[0].base_stat),
            "Base Experience": poke.base_experience,
            "Type(s)": types,
            "Abilities": abilities,
            "Moves": moves
          }); // pokeDex.push
          console.log("DEBUG [apiPOKEMONcb]> Pokemon: \n");
          console.table(pokeDex[pokeDex.length - 1]);
          callback();
        }; // else { // pokemon URL
      }; // if (body == 'Not Found')
    }); // res.on('end'
  }); // http.get(url
  req.on('error', function(e) { // Catches failures to connect to the API
    console.log("ERROR [apiPOKEMONcb]> Error getting to API: " + e);
    callback();
  }); // req.on('error'
}

// pokedex <name>
// find <name>
// pokedex null or !match then random

// look through stored first...
// evlaluate whether int, string or null
// if null then random

// not found in store then fire API
// if name not a match then pick random

// in_play function...
// store last pokemon loaded per person

// [ℹ️ Info] [📶 Evolution] [◀️ Previous] [▶️ Next] [🔢 Random]
// Details = Description & Abilities
// Evolution = Evolution sequences

// lookup and store
// name/id - character THEN species THEN evolution