intfiction.org

DNA is a kind of thing. Some skin is a kind of thing. Some DNA and some skin is part of every person.

Felix is a man.
Dr Wilbur is a man.
The Lab is a room. Wilbur is here. The player is Felix.

After asking Wilbur about "[DNA]", say "'Your genetic code has somehow been altered.'"
After asking Wilbur about "[skin]", say "'Yes, that was where I scraped off some DNA for my sample.'"

Test me with "ask wilbur about wilbur's DNA/ask wilbur about wilbur's skin".

! ----------------------------------------------------------------------------------------------------
! Rules in rulebook: After (B24_after)
! ----------------------------------------------------------------------------------------------------
! Rule 1/2 ! After asking Wilbur about ~[DNA]~:
!   === which is equally specific with ===
! Rule 2/2 ! After asking Wilbur about ~[skin]~:
! ----------------------------------------------------------------------------------------------------
! No specific request
! After asking Wilbur about ~[DNA]~:
[ R_740 ;
   if ((action ==##Ask) &&  (actor==player) && ((noun == I95_dr_wilbur) && (true)) && (Consult_Grammar_100(consult_from, consult_words)~=GPR_FAIL)) { ! Runs only when pattern matches
self = noun;
   if (debug_rules) DB_Rule(R_740, 740);
      ! phrase 1
      ! [1: say ~'Your genetic code has somehow been altered.'~]
      say__p=1;ParaContent();  print (PrintText) SC_12;  new_line; .L_Say3; .L_SayX3;
      RulebookSucceeds(); rtrue;
   } ! Runs only when pattern matches
   else if (debug_rules > 1) DB_Rule(R_740, 740, true);
   rfalse;
];
! No specific request
! After asking Wilbur about ~[skin]~:
[ R_741 ;
   if ((action ==##Ask) &&  (actor==player) && ((noun == I95_dr_wilbur) && (true)) && (Consult_Grammar_101(consult_from, consult_words)~=GPR_FAIL)) { ! Runs only when pattern matches
self = noun;
   if (debug_rules) DB_Rule(R_741, 741);
      ! phrase 1
      ! [1: say ~'Yes, that was where I scraped off some DNA for my sample.'~]
      say__p=1;ParaContent();  print (PrintText) SC_13;  new_line; .L_Say4; .L_SayX4;
      RulebookSucceeds(); rtrue;
   } ! Runs only when pattern matches
   else if (debug_rules > 1) DB_Rule(R_741, 741, true);
   rfalse;
];
! ----------------------------------------------------------------------------------------------------

[ Consult_Grammar_100
    range_from  ! call parameter: word number of snippet start
    range_words  ! call parameter: snippet length
    original_wn  ! first word of text parsed
    group_wn  ! first word matched against A/B/C/... disjunction
    w  ! for use by individual grammar lines
    rv  ! for use by individual grammar lines
    ;
    wn = range_from; original_wn = wn; rv = GPR_PREPOSITION;
        w = ParseTokenStopped(ROUTINE_FILTER_TT, Noun_Filter_4);
        if (w == GPR_FAIL) jump Fail_1; rv = w;
        if ((range_words==0) || (wn-range_from==range_words)) return rv;
        .Fail_1; rv = GPR_PREPOSITION; wn = original_wn;
    return GPR_FAIL;
];

[ Consult_Grammar_101
    range_from  ! call parameter: word number of snippet start
    range_words  ! call parameter: snippet length
    original_wn  ! first word of text parsed
    group_wn  ! first word matched against A/B/C/... disjunction
    w  ! for use by individual grammar lines
    rv  ! for use by individual grammar lines
    ;
    wn = range_from; original_wn = wn; rv = GPR_PREPOSITION;
        w = ParseTokenStopped(ROUTINE_FILTER_TT, Noun_Filter_5);
        if (w == GPR_FAIL) jump Fail_1; rv = w;
        if ((range_words==0) || (wn-range_from==range_words)) return rv;
        .Fail_1; rv = GPR_PREPOSITION; wn = original_wn;
    return GPR_FAIL;
];
[ Noun_Filter_4 x;
    x=noun;
    return ((noun ofclass K16_dna));
];
[ Noun_Filter_5 x;
    x=noun;
    return ((noun ofclass K17_skin));
];

Include (-

[ MakeMatch obj quality i;
#Ifdef DEBUG;
if (parser_trace >= 6) print "
Match with quality ",quality,"^";
#Endif; ! DEBUG
if (token_filter ~= 0 && ConsultNounFilterToken(obj) == 0) {
!print token_filter; print "^"; print (name)obj; print": "; print ConsultNounFilterToken(obj); print "^";
#Ifdef DEBUG;
if (parser_trace >= 6) print "
Match filtered out: token filter ", token_filter, "^";
#Endif; ! DEBUG
rtrue;
}
if (quality < match_length) rtrue;
if (quality > match_length) { match_length = quality; number_matched = 0; }
else {
if (number_matched >= MATCH_LIST_WORDS) rtrue;
for (i=0 : i<number_matched : i++)
if (match_list-->i == obj) rtrue;
}
match_list-->number_matched++ = obj;
#Ifdef DEBUG;
if (parser_trace >= 6) print "
Match added to list^";
#Endif; ! DEBUG
];

[ ConsultNounFilterToken obj n tf;
if (token_filter ofclass Routine) {
n = noun;
noun = obj;
tf = indirect(token_filter);
noun = n;
return tf;
}
if (obj has (token_filter-1)) rtrue;
rfalse;
];

-) instead of "Match List" in "Parser.i6t".

[ ConsultNounFilterToken obj;
if (token_filter ofclass Routine) {
noun = obj;
return indirect(token_filter);
}
if (obj has (token_filter-1)) rtrue;
rfalse;
];