#charset "us-ascii"

/*
 * Yes No Maybe
 * 
 * Credits: This is a routine by Scott Steinfath found at:
 *  ftp://ftp.ifarchive.org/if-archive/programming/tads2/examples/answerme.t
 *
 * Creation Date: 25JAN1994
 *
 * Converted from Tads 2.0 to Tads 3.0.17 by Cleo Kraft
 * Contact on the board here if any questions: http://www.tfgamessite.com
 *
 * Conversion Date: 22NOV2008
 *
 * Description: The parser/narrator can ask the player a
 *          yes/no/maybe question and if the player actually
 *          answers it back, an answer can be given. 
 *
 * Example: 
 *          Player: "attack dragon"
 *          Parser: "What, are you crazy or something?"
 *          Player: "yes"
 *          Parser: "That's what I thought!"
 *
 * Set up:
 *          If you have the parser ask the player an arbitrary question:
 *          1. set the variable myNarrator.questionAsked=true
 *          2. set single quoted string values for myNarrator.qYes, qNo and qMaybe
 *             using the myNarrator.setNarratorQuestion(yes,no,maybe) function.
 * 
 * Example:
 *   someMethod{
 *            "Ooooh. How cute. You\'re going to awaken the frost giant. 
 *            Are you sure or shall I call the undertaker? ";
 *            local sYes = 'Seems like you have this well thought out. At least you\'ve got a plan. ';
 *            local sNo = 'Good idea. Let\'s let sleeping giants lie. ';
 *            local sMaybe = 'I can see you\'re quite decisive. ';
 *            myNarrator.setNarratorQuestion(sYes,sNo,sMaybe);
 *   }
 *
 * File Order: Put near the end of your file order in the Tads workbench
 *             as this file modifies actor.t, actions.t, etc. 
 *   
 */

#pragma once

#ifndef ADV3_H
#include <adv3.h>
#endif

#ifndef singleDir
#include <en_us.h>
#endif

myNarrator: object
    questionAsked = nil // nil or true - was a question asked to the player?
    questionTurn = nil// nil or turn number this was set
    qYes=nil // nil or a single quoted string value ''
    qNo=nil  // nil or a single quoted string value ''
    qMaybe=nil // nil or a single quoted string value ''
    // This function sets all the string values and flags ready
    setNarratorQuestion(yestext,notext,maybetext){
        myNarrator.questionAsked=true;
        myNarrator.questionTurn=libGlobal.totalTurns;
        myNarrator.qYes=yestext;
        myNarrator.qNo=notext;
        myNarrator.qMaybe=maybetext;
    }
;

// see actions.t
modify YesAction
  execAction(){
     if((myNarrator.questionAsked!=nil) &&
        (myNarrator.questionTurn!=nil)){
         if((libGlobal.totalTurns-1)==(myNarrator.questionTurn)){
            say(myNarrator.qYes);  
            myNarrator.questionAsked=nil;
            exit;
         }
     }
     gIssuingActor.sayYes(gActor);// default in actions.t
  }
;

// see actions.t
modify NoAction
  execAction(){
    if((myNarrator.questionAsked!=nil) &&
        (myNarrator.questionTurn!=nil)){
         if((libGlobal.totalTurns-1)==(myNarrator.questionTurn)){
            say(myNarrator.qNo);  
            myNarrator.questionAsked=nil;
            exit;
         }
     }
     gIssuingActor.sayNo(gActor);// default in actions.t
  }
;


VerbRule(Maybe)
    'maybe' | 'possibly' | 'say' 'maybe' | 'could' 'be' | 'say' 'could' 'be' | 'say' 'possibly' 
    : MaybeAction
    verbPhrase = 'say/saying maybe'
;

DefineConvIAction(Maybe)
  execAction(){
    if((myNarrator.questionAsked!=nil) &&
        (myNarrator.questionTurn!=nil)){
         if((libGlobal.totalTurns-1)==(myNarrator.questionTurn)){
            say(myNarrator.qMaybe);  
            myNarrator.questionAsked=nil;
            exit;
         }
     }
     gIssuingActor.sayMaybe(gActor);
  }
;


SuggestedMaybeTopic
    name = 'maybe'
    fullName = 'say maybe'
;

modify Actor
  sayMaybe(actor) { sayToActor(actor, maybeTopicObj, maybeConvType); }
 
  defaultMaybeResponse(fromActor)
        { mainReport(&noResponseFromMsg, self); } // where "no" doesn't mean logical yes/no but no as in "The actor does not respond. "
;

class SuggestedMaybeTopic: SuggestedTopic
    suggestionGroup = [suggestionYesNoMaybeGroup]// see: actor.t
;

maybeConvType: ConvType
    unknownMsg = &sayMaybeMsg
    topicListProp = &miscTopics
    defaultResponseProp = &defaultMaybeResponse
    defaultResponse(db, other, topic)
        { db.defaultMaybeResponse(other); }
;

class YesNoMaybeTopic: MiscTopic
    includeInList = [&miscTopics]
    matchList = [yesTopicObj, noTopicObj, maybeTopicObj]
;

class MaybeTopic: YesNoTopic
    matchList = [maybeTopicObj]
;

maybeTopicObj: object;

modify playerActionMessages
  sayMaybeMsg = (addressingNoOneMsg)
;

// YES/NO/MAYBE suggestion group - see msg_neu.t
suggestionYesNoMaybeGroup: SuggestionListGroup
    showGroupList(pov, lister, lst, options, indent, infoTab)
    {
        /*
         *   if we have one each of YES and NO responses, make the entire
         *   list "say yes or no"; otherwise, use the default behavior 
         */
        if (lst.length() == 2
            && lst.indexWhich({x: x.ofKind(SuggestedYesTopic)}) != nil
            && lst.indexWhich({x: x.ofKind(SuggestedNoTopic)}) != nil
            && lst.indexWhich({x: x.ofKind(SuggestedMaybeTopic)}) != nil)
        {
            /* we have a [yes, no] group - use the simple message */
            "say yes, no or maybe";
        }
        else
        {
            /* inherit the default behavior */
            inherited(pov, lister, lst, options, indent, infoTab);
        }
    }
    groupPrefix = "say";
;