!--------------------------------------------------------------------------
! Followable objects: how to allow the player to type "follow thief" when
! the thief has left the room.
!
! The "follow" verb needs a different scope definition. You can try to
! follow anything that's ordinarily in scope, or any object that's
! followable and whose just_visited value equals your location.
!
! The routine MoveNPC(object,destination,direction) is used to maintain the
! just_visited and follow_direction properties. When you try to follow
! something, the action <Go f> is generated, where f is the
! follow_direction property of the object.
!
! Finally, we need to cancel the just_visited property whenever the player
! moves from one location to another (I rule that you can only follow
! things that you saw leave, and only if neither you nor they has done any
! movement since). The entry point NewRoom() is just right for this.
!
! Gareth Rees, 29/11/94
!--------------------------------------------------------------------------
Constant Story "FOLLOW MY LEADER";
Constant Headline "^An Interactive Skeleton^by Gareth Rees^";
Include "parser";
Include "verblib";
! If you're running out of properties you can probably alias just_visited
! and follow_direction as all the code checks that followable is set before
! querying or changing them.
[ Initialise;
location = RoomNW;
StartDaemon(Roadrunner);
print "^^^^^Now you see it, now you don't...^^";
];
[ NewRoom i;
for (i = selfobj + 1: i <= top_object: i++) {
if (i has followable)
i.just_visited = 0;
}
];
[ FollowScope i;
if (scope_stage == 1) rfalse;
if (scope_stage == 2) {
for (i = selfobj + 1: i <= top_object: i++) {
if (i has followable && i.just_visited == location)
PlaceInScope(i);
}
rfalse;
}
"You've no idea where that is.";
];
[ FollowSub d;
if (noun in location || noun hasnt followable) "No need!";
if (noun.follow_direction == 0) {
print "You start after ", (the) noun, " but as far as you're \
concerned, ";
if (noun hasnt animate) print "it";
else { if (noun has female) print "she"; else print "he"; }
" has vanished into thin air.";
}
d = noun.follow_direction;
<Go d>;
];
[ NoFollowSub;
if (noun == player) "You can't follow yourself.";
print_ret (The) noun, " is right here.";
];
[ MoveNPC n dest dir i;
if (n has followable) {
for (i = n: parent(i) ~= 0: i = parent(i)) {}
n.just_visited = i;
}
n.follow_direction = dir;
if (dest == 0) remove n;
else move n to dest;
];
Class FollowClass
has followable,
with just_visited 0,
follow_direction 0;
Object RoomNW "NW Room"
has light
with description "You can go east or south.",
e_to RoomNE,
s_to RoomSW;
Object RoomNE "NE Room"
has light
with description "You can go west or south.",
w_to RoomNW,
s_to RoomSE;
Object RoomSE "SE Room"
has light
with description "You can go west or north.",
n_to RoomNE,
w_to RoomSW;
Object RoomSW "SW Room"
has light
with description "You can go east or north.",
n_to RoomNW,
e_to RoomSE;
Object Roadrunner "roadrunner" RoomNW
class FollowClass
has animate
with name "road" "runner" "roadrunner" "bird",
description "A small bird of the species G. californiensis.",
life [;
Ask, Answer, Order: "~Meep! Meep!~";
],
daemon [ d;
if (self in RoomNW) d = e_obj;
if (self in RoomNE) d = s_obj;
if (self in RoomSE) d = w_obj;
if (self in RoomSW) d = n_obj;
if (self in location)
print "^The roadrunner sprints away to the ",
(address) (d.&name)-->1, ".^";
MoveNPC(self, (parent(self)).(d.door_dir), d);
if (self in location)
print "^A roadrunner comes sprinting up to you.^";
];
