@create $thing named "Ancient's pet rock","pet rock","rock","pr"

@describe rock as "A small rock. It looks friendly, but doesn't do much."
@verb rock:pet this none none rxd #do not embed text in a verb use a property instead.
@program rock:pet
player:tell("You pet the rock. Nothing happens.");
.


@property rock.pet_msg "Nothing happens." rc
@program rock:pet
player:tell(this.pet_msg);
.
@set rock.pet_msg to "You pet the rock. Nothing happens."

@program rock:pet
player:tell(this.pet_msg);
player.location:announce(player.name + " pets the rock. Nothing happens.");
.
@property rock.player "" r
@property rock.opet_msg " pets the rock. Nothing happens." rc

@program rock:pet
player:tell(this.pet_msg);
this.player = player.name;
player.location:announce(this.player + this.opet_msg);
.

@verb rock:opet_msg this none this rxd
@program rock:opet_msg
return this.player + this.opet_msg;
.

@program rock:pet
player:tell(this.pet_msg);
this.player = player.name;
player.location:announce(this:opet_msg());
.

@set rock.opet_msg to "%N pets the rock. Nothing happens."

@program rock:opet_msg
return $string_utils:pronoun_sub(this.opet_msg);
.

@rmprop rock.player

@program rock:pet
player:tell(this.pet_msg);
player.location:announce(this:opet_msg());
.

@program rock:opet_msg
return $string_utils:pronoun_sub(this.(verb));
.

@addalias "pet_msg" to rock:opet_msg

@list rock:pet

@program rock:pet
player:tell(this:pet_msg());
player.location:announce(this:opet_msg());
.

@opet rock is "%N %<pets> the rock. %<Doesn't> %s look foolish?"
@verb rock:feed this none none rxd
@program rock:feed
player:tell(this:feed_msg());
player.location:announce(this:ofeed_msg());
.
@prop rock.feed_msg "You try to feed the rock. Nothing happens." rc 
@prop rock.ofeed_msg "%N %<tries> to feed the rock. Nothing happens. What a maroon!"
@addalias "feed_msg" to rock:pet_msg
@addalias "ofeed_msg" to rock:pet_msg

@prop rock.throw_failed_msg "Throwing rocks isn't nice, and besides, this rock likes you, so it stays nestled safely in your hand." rc
@prop rock.othrow_failed_msg "%N %<makes> a throwing motion with %t, but can't quite seem to bring %r to let go." rc
@addalias "throw_failed_msg" to rock:pet_msg
@addalias "othrow_failed_msg" to rock:pet_msg