Revision 06a392cac9fde389833193930efb991b305de5a4 authored by Dmitry on 24 January 2024, 17:37:30 UTC, committed by Ivan Kochurkin on 12 February 2024, 13:27:29 UTC
1 parent 6fee1b6
yarrel.txt
;"Author: Rob Myers <rob@robmyers.org> 2012"
;"License: http://creativecommons.org/publicdomain/zero/1.0/"
;"-----------------------------------------------------------------------------"
@verb me:sp*oof any any any
@program me:spoof
"People can still see who called the verb if they know how to look.";
if (this == player)
player.location:announce_all(argstr);
else
player:tell("I don't understand that.");
endif
.
@verb me:lick this none none
@program me:lick
"Give him a lick...";
"Many thanks to Dreyannah";
if (this.location != player.location)
lickfail = "You must be in the same location as %t to lick %[dpo].";
player:tell($string_utils:pronoun_sub(lickfail));
elseif (this == player)
lick = "You lick yourself. Mmm! You taste just like raisins.";
player:tell($string_utils:pronoun_sub(lick));
licks = "%N %<licks> %r. Mmm! %[dpsc] %<d:tastes> just like raisins.";
player.location:announce_all_but({player}, $string_utils:pronoun_sub(licks));
else
lick = "You lick %t. Mmm! %[dpsc] %<d:tastes> just like raisins.";
player:tell($string_utils:pronoun_sub(lick));
licks = "%N %<licks> %t. Mmm! %[dpsc] %<d:tastes> just like raisins.";
but = {this, player};
player.location:announce_all_but(but, $string_utils:pronoun_sub(licks));
licked = "%N %<licks> you. Mmm! You taste just like raisins.";
this:tell($string_utils:pronoun_sub(licked));
endif
.
@verb me:wav*icle any none none
@program me:wavicle
"Greet people midway between a wave and a particle.";
if (this == player)
if (dobjstr)
who = $string_utils:match_player(dobjstr);
if (valid(who) && who in connected_players())
if(who.location == player.location)
player:tell($string_utils:pronoun_sub("You wavicle to %d."));
exclude = {who, this};
announcement = $string_utils:pronoun_sub("%N wavicles to %d.");
player.location:announce_all_but(exclude, announcement);
who:tell($string_utils:pronoun_sub("%N wavicles to you."));
else
player:tell($string_utils:pronoun_sub("You wavicle to %d.", dobj=who));
who:tell($string_utils:pronoun_sub("From %l, %N wavicles to you."));
endif
else
player:tell($string_utils:pronoun_sub("%d is not connected.", dobj=who));
endif
else
player:tell("You wavicle.");
player.location:announce($string_utils:pronoun_sub("%N wavicles."));
endif
else
player:tell("I don't understand that.");
endif
.
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...