//<![CDATA[

var board, planchette;    // Board and planchette elements.

var boardY, boardY;       // Coordinates.
var nextX, nextY;
var saveX, saveY;
var posX, posY;

var offsetX = 23;         // Offset of viewport on planchette.
var offsetY = 7;

var questionFld,          // Question and reply form fields.
    replyFld;

var inReply   = false;    // Status flags.
var inContact = false;

var response;             // Response to spell out.
var nextChar;             // Next character to move to.

var step    =    5;       // Used for movement.
var timeout =   50;
var pause   = 2000;
var angle;
var timerID;

// Board positions, each letter and number has position. In addition, other
// symbols are used for other areas of the board:
// ! = 'yes'
// ~ = 'no'
// ^ = 'goodbye'
// _ = rest position
// and a space is a blank spot on the board.

var chars = "abcdefghijklmnopqrstuvwxyz1234567890!~^_ ";

// Set up character positions.

posX = new Array(28,58, 80, 110, 134, 168, 196, 229, 256, 286, 317, 344, 371,
                 055, 077, 105, 127, 159, 185, 210, 231, 259, 280, 310, 336, 361,
                 105, 124, 143, 164, 182, 202, 223, 242, 260, 277,
                 120, 290, 200, 190, 200);
posY = new Array(122, 108, 122, 108, 122, 108, 122, 108, 122, 108, 122, 108, 122,
                 163, 182, 163, 182, 163, 182, 163, 182, 163, 182, 163, 182, 163,
                 231, 227, 231, 227, 231, 227, 231, 227, 231, 227,
                 82, 82, 030, 063, 073);

window.onload = init;

//-----------------------------------------------------------------------------
// Initialize everything.
//-----------------------------------------------------------------------------

function init() {

  var i;

  // Initialize board and planchette.

  board = document.getElementById("board");
  boardX = getPageOffsetLeft(board);
  boardY = getPageOffsetTop(board);

  planchette = document.getElementById("planchette");
  i = chars.indexOf("_");
  moveElTo(planchette, boardX + posX[i] - offsetX, boardY + posY[i] - offsetY);
  planchette.style.visibility = "visible";
  
  // Get the question and reply fields.

  questionFld = document.getElementById("question");
  replyFld = document.getElementById("reply");
}

//-----------------------------------------------------------------------------
// These functions handle the movement of the planchette when revealing a
// response.
//-----------------------------------------------------------------------------

function handsOn() {

  inContact = true;
}

function handsOff() {

  inContact = false;
  if (inReply) {
    saveX = getElLeft(planchette);
    saveY = getElTop(planchette);
    shakePlanchette();
  }
}

function startReply() {

  // Start revealing a response.

  response += "_";
  if (!inContact) {
    saveX = getElLeft(planchette);
    saveY = getElTop(planchette);
    shakePlanchette();
  }
  if (getNext()) {
    inReply = true;
    movePlanchette();
  }
  else
    inReply = false;
}

function endReply() {

  // Done revealing the response.

  nextChar = "";
  inReply = false;
}

function getNext() {

  var i;

  // Find the next character to move to.

  if (response == "")
    return false;

  nextChar = response.substr(0, 1)
  response = response.substr(1);
  for (i = 0; i < chars.length; i++)
    if (chars.charAt(i) == nextChar.toLowerCase()) {
      nextX = posX[i];
      nextY = posY[i];
      return true;
    }

  return false;
}

function movePlanchette() {

  var i, dx, dy, last, theta;

  // If no reply to give, return.

  if (!inReply)
    return;

  // If mouse is on planchette, move it.

  if (inContact) {

    // Move planchette toward the designated character.

    dx = boardX + nextX - getElLeft(planchette) - offsetX;
    dy = boardY + nextY - getElTop(planchette) - offsetY;
    theta = Math.round(Math.atan2(-dy, dx) * 180 / Math.PI);
    if (theta < 0)
      theta += 360;

    // If we reached the character, pause and start on the next one.

    if (Math.abs(dx) < step && Math.abs(dy) < step) {

      // Finish the move and add the character to the reply display.


      moveElBy(planchette, dx, dy);
      if (nextChar == "!")
	  	replyFld.value = "YES";
      else if (nextChar == "~")
	  	replyFld.value = "NO";
      else if (nextChar == "^")
	  	replyFld.value = "GOOD BYE";
	  else if (nextChar != "_")
        replyFld.value += nextChar.toUpperCase();

      // Circle if next character is the same as the last.

      last = nextChar;
      if (getNext()) {
        if (nextChar == last) {
          angle = 0;
          timerID = window.setTimeout('circlePlanchette()', pause);
        }
        else
          timerID = window.setTimeout('movePlanchette()', pause);
        return;
      }

      // End movement if no more characters in reply.

      else {
        endReply();
        return;
      }
    }

    // If not, move it.

    else if (theta > 23 && theta <= 68)
      moveElBy(planchette, step, -step);
    else if (theta > 68 && theta <= 113)
      moveElBy(planchette, 0, -step);
    else if (theta > 113 && theta <= 158)
      moveElBy(planchette, -step, -step);
    else if (theta > 158 && theta <= 203)
      moveElBy(planchette, -step, 0);
    else if (theta > 203 && theta <= 248)
      moveElBy(planchette, -step, step);
    else if (theta > 248 && theta <= 293)
      moveElBy(planchette, 0, step);
    else if (theta > 293 && theta <= 338)
      moveElBy(planchette, step, step);
    else
      moveElBy(planchette, step, 0);
  }

  // Set up next call.

  timerID = window.setTimeout('movePlanchette()', timeout);
}

function circlePlanchette() {

  var x, y;

  // Mouse on planchette?

  if (!inContact) {
    timerID = window.setTimeout('circlePlanchette()', timeout);
    return;
  }

  // Move the planchette in a small circle.

  x = getElLeft(planchette) + step * Math.cos(angle);
  y = getElTop(planchette) - step * Math.sin(angle);
  moveElTo(planchette, x, y);
  angle += Math.PI / 10;
  if (angle < 2 * Math.PI)
    timerID = window.setTimeout('circlePlanchette()', timeout);
  else
    movePlanchette();
}

function shakePlanchette() {

  var dx, dy, x, y;

  // Mouse on planchette?

  if (inContact)
    return;

  // Randomly move planchette around it's original position.

  dx = Math.floor(Math.random() * 5) - 2;
  dy = Math.floor(Math.random() * 5) - 2;
  x = saveX + dx;
  y = saveY + dy;
  moveElTo(planchette, x, y);
  timerID = window.setTimeout('shakePlanchette()', timeout);
}

//-----------------------------------------------------------------------------
// This code handles the analysis of a question and generates a response.
//-----------------------------------------------------------------------------

// Lists of responses by category.

var none = new Array("ask", "ask me", "i am here", "fear not", "speak",
                     "speak to me", "i hear", "i await");
var days = new Array("sunday", "monday", "tuesday", "wednesday", "thursday",
                     "friday", "saturday");
var months = new Array("january", "february", "march", "april", "may", "june",
                       "july", "august", "september", "october", "november",
                       "december");
var seasons = new Array("spring", "summer", "fall", "winter");
var times = new Array("never", "soon", "very soon", "tomorrow", "next week",
                      "not now", "later", "in time", "not yet", "midnight",
					  "at the proper time", "during the day", "at night");
var people = new Array("a friend", "a stranger", "yourself", "no one",
                       "an associate", "one to be feared", "a liar",
					   "an imposter", "one unknown", "some one familiar",
                       "one dear", "unseen hands", "a trusted one", "an enemy",
                       "one close", "an old friend", "one from your past");
var places = new Array("far away", "close", "very near", "someplace new",
                       "not here", "at a crossroads", "a familiar place",
					   "near water", "location unknown", "a dark place");
var other = new Array("cannot say", "cannot tell", "unknown", "ask later",
                      "not known", "not seen", "leave me now", "maybe later",
					  "future hazy", "too dark", "not clear", "unclear");

function consult() {

  var question, words, r;
  var i, today;

  // Stop any current animation.

  if (timerID)
    clearTimeout(timerID);
  response = "";
  inReply = false;
  
  // Clear any current reply.
  replyFld.value = "";

  // Make up a response based on keywords in the question.

  question = questionFld.value;
  question = clean(question);
  words = question.split(" ");
  r = Math.random();

  // No question?

  if (question == "") {
    response = pickFromList(none);
    startReply();
    return false;
  }

  // Look for two words surrounding 'or' and pick one at random.

  if (words.length >= 3)
    for (i = 0; i < words.length - 3; i++)
      if (words[i + 1] == "or") {
        if (r < .5)
          response = words[i];
        else
          response = words[i + 2];
        startReply();
        return false;
      }

  // At random, give an ambiguous response.

  if (r < .1)
    response = pickFromList(other);

  // Time related question?

  else if (inList(words, "day")) {         // Pick a random day.
    if (r < .7)
      response = pickFromList(days);
    else
      response = pickFromList(times);
  }
  else if (inList(words, "month")) {    // Pick a random month.
    if (r < .7)
      response = pickFromList(months);
    else
      response = pickFromList(times);
  }
  else if (inList(words, "time"))            // Pick random time.
    response = Math.floor(Math.random() * 12) + 1;
  else if (inList(words, "when")) {          // Pick a random time.
    if (r < .3)
      response = pickFromList(days);
    if (r < .4)
      response = pickFromList(months);
    if (r < .5)
      response = pickFromList(seasons);
    else
      response = pickFromList(times);
  }

  // Asking for a number?

  else if (inList(words, "how") &&
      (inList(words, "few") ||
       inList(words, "often") ||
       inList(words, "many") ||
       inList(words, "much"))) {
    response = Math.round(Math.random() * 10) + 1;    // Give a one or two digit
    if (response != 10 && r < .5)                     // random number.
      response += Math.round(Math.random() * 10);
  }

  // Asking about a person?

  else if (inList(words, "who")) {
    response = pickFromList(people);
  }

  // Asking about a place?

  else if (inList(words, "where"))
    response = pickFromList(places);

  // Asking about a thing?

  else if (inList(words, "what"))
    response = pickFromList(other);

  // Yes or no question?

  else if (inList(words, "am") ||
           inList(words, "is") ||
           inList(words, "are") ||
           inList(words, "does") ||
           inList(words, "do") ||
           inList(words, "can") ||
           inList(words, "will") ||
           inList(words, "may") ||
           inList(words, "could") ||
           inList(words, "would") ||
           inList(words, "should")) {
    if (r < .5)
      response = "!";
    else
      response = "~";
  }

  // All else failed, give a nice, ambiguous response.

  if (response == "")
    response = pickFromList(other);

  // Start the animation.

  startReply();
}

function abortReply() {

  var i;

  // Stop any current animation.

  if (timerID)
    clearTimeout(timerID);
  response = "";
  inReply = false;

  // Reset planchette.
  
  i = chars.indexOf("_");
  moveElTo(planchette, boardX + posX[i] - offsetX, boardY + posY[i] - offsetY);
}

//-----------------------------------------------------------------------------
// Utility functions.
//-----------------------------------------------------------------------------

function clean(s) {

  var i, c, t;
  var letters = "abcdefghijklmnopqrstuvwxyz";

  // Convert string to lower case.

  t = s.toLowerCase();

  // Expand any contractions.

  s = "";
  for (i = 0; i < t.length; i++) {
    if (t.substr(i, 2) == "'s") {
      s += " is";
      i++;
    }
    else if (t.substr(i, 2) == "'t") {
      s += " not";
      i++;
    }
    else if (t.substr(i, 3) == "'ll") {
      s += " will";
      i += 2;
    }
    else
      s += t.substr(i, 1);
  }

  // Replace any non-letters with spaces.

  t = "";
  for (i = 0; i < s.length; i++) {
    c = s.substr(i, 1);
    if (letters.indexOf(c) >= 0)
      t += c;
    else
      t += " ";
  }
  return t;
}

function inList(list, word) {

  var i;

  // Return true if the given word is in the list.

  for (i = 0; i < list.length; i++)
    if (list[i] == word)
      return true;
  return false;
}

function pickFromList(list) {

  var r;

  // Return a random word from a list.

  r = Math.floor(Math.random() * list.length);
  return list[r];
}

//-----------------------------------------------------------------------------
// Positioning utility functions.
//-----------------------------------------------------------------------------

function getPageOffsetLeft(el) {

  // Return the true x coordinate of an element relative to the page.

  return el.offsetLeft + (el.offsetParent ? getPageOffsetLeft(el.offsetParent) : 0);
}

function getPageOffsetTop(el) {

  // Return the true y coordinate of an element relative to the page.

  return el.offsetTop + (el.offsetParent ? getPageOffsetTop(el.offsetParent) : 0);
}

function getElLeft(el) {

  // Returns an element's x-coordinate.

  return parseInt(el.style.left, 10);
}

function getElTop(el) {

  // Returns an element's y-coordinate.

  return parseInt(el.style.top, 10);
}

function moveElTo(el, x, y) {

  // Move an element to the specified coordinates.

  el.style.left = x + "px";
  el.style.top  = y + "px";
}

function moveElBy(el, dx, dy) {

  // Move an element by the specified offsets.

  el.style.left = (getElLeft(el) + dx) + "px";
  el.style.top  = (getElTop(el)  + dy) + "px";
}

//]]>