| ANSWER TO EXERCISE 26 | |
|
Object -> tricorder "tricorder"
with name "tricorder",
grammar [; return 'tc,'; ],
orders
[; Examine: if (noun==player) "~You radiate life signs.~";
print "~", (The) noun, " radiates ";
if (noun hasnt animate) print "no ";
"life signs.~";
default: "The tricorder bleeps.";
],
life
[; Ask, Answer, Tell: "The tricorder is too simple.";
],
has talkable;
...
Verb "tc," * noun -> Examine;
|