TADS PROGRAMMING (1) - ANSWERME.T

                  Author:  Scott Steinfath
                     Taken from the Net

Purpose: Code to allow answers to questions asked by the game
itself.  It also disallows the specialized response after 1 turn,
which in this case it displays a default message.

Creation Date:   January 25th, 1994
Modification History:  None

NOTE: If you have any questions or comments regarding this
"feature", drop me E-MAIL on High Energy BBS, or America Online;
screen name "ELFVAPOUR".

/*
    Example code for your "doMethod" processing
*/

   doAttack( actor )
   {
   if ( self  dragon ) /* Player is trying to attack a dragon */
     {
"What are you, crazy?";    /* Pose the question to the player */

/*
1. Set "global.questionAsked" to tell parser we asked a question.
2. Set "global.questionTurn" to the current turn.
3. Set "global.Qyes" to the desired "yes" response for the player.
4. Set "global.Qno" to the desired "no" response for the player.
5. Set "global.Qmaybe to the desired "maybe" response for the
player.
*/

global.questionAsked : true;
global.questionTurn : global.turnsofar;
global.Qyes : 'That\'s what I thought!";
global.Qno : 'Well, you *ARE* crazy for trying to attack a
dragon!";

global.Qmaybe : 'I can tell you're a very decisive person.";
      }
      else
"You can't attack that!"; /* Give default response for anything */
   }     /* else    */

/*
Insert these items into the "global: object" definition in
your "std.t"
*/

global: object
   questionAsked  nil   // Determines whether a question was asked
   QuestionTurn  0      // Turn in which question was asked
   Qyes  nil     // "yes" response
   Qno  nil      // "no" response
   Qmaybe  nil   // "maybe" response
;

/*
    Insert this code into your "yes" verb in "adv.t"
*/

yesverb: sysverb
   verb  'yes'
   action( actor )
   {

/*
Get number of turns since question was asked, if the question was
asked on the last turn, display the "yes" response set by the
method.  Otherwise just display the default "You sound rather
positive." message.
*/

      local result : global.turnsofar - global.questionTurn;
      if ( global.questionAsked  true and result  1 )
say( global.Qyes );
      else
"You sound rather positive.";
      global.questionAsked : nil;   // Reset "question asked" flag
   }
;

/*
    Insert this code into your "no" verb in "adv.t"
*/

noverb: sysverb
   verb  'no'
   action( actor )
   {

/*
Get number of turns since question was asked, if the question was
asked on the last turn, display the "no" response set by the
method.  Otherwise just display the default "You sound rather
negative."  message.
*/

      local result : global.turnsofar - global.questionTurn;
      if ( global.questionAsked  true and result  1 )
say( global.Qno );
      else
"You sound rather negative.";
   global.questionAsked : nil;    // Reset "question asked" flag
   }
;

/*
    Insert this code into your "maybe" verb in "adv.t"
*/

maybeverb: sysverb
   verb  'maybe'
   action( actor )
   {


/*
Get number of turns since question was asked, if the question was
asked on the last turn, display the "maybe" response set by the
method.  Otherwise just display the default "You sound rather
indecisive."  message.
*/

      local result : global.turnsofar - global.questionTurn;
      if ( global.questionAsked  true and result  1 )
say( global.Qmaybe );
      else
"You sound rather indecisive.";
   global.questionAsked : nil;  // Reset "question asked" flag
   }
;




                              - o -