ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/invite.ext
Revision: 1.3
Committed: Sun Feb 11 02:25:25 2007 UTC (17 years, 4 months ago) by root
Branch: MAIN
CVS Tags: rel-2_4, rel-2_5, rel-2_2, rel-2_3, rel-2_0, rel-2_1, rel-2_52, rel-2_32, rel-2_43, rel-2_42, rel-2_41
Changes since 1.2: +5 -8 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 #! perl
2
3 # implement the invite command
4
5 # level 1: invite to private rooms only ~lvl 10
6 # level 2: private rooms and saving maps (guilds, some other public saving maps)
7 # level 3: invite everywhere where no monsters are on the map
8 # level 4: invite everywhere
9
10 my $TIMEOUT = $cf::CFG{invite_timeout} || 60;
11
12 # determine whether map cell is damned
13 sub is_damned {
14 my ($map, $x, $y) = @_;
15 return grep $_->flag (cf::FLAG_DAMNED), $map->at ($x, $y);
16 }
17
18 # determine level available to the player
19 sub player_level {
20 my ($ob) = @_;
21
22 return 4
23 if $ob->flag (cf::FLAG_WIZ);
24
25 List::Util::max
26 map $_->type == cf::FORCE && $_->slaying =~ /^Invitor Level (\d+)$/ ? $1 : 0,
27 $ob->inv
28 }
29
30 # determine level required for the given location
31 sub map_level {
32 my ($map, $x, $y) = @_;
33
34 for my $x (0 .. $map->width - 1) {
35 for my $y (0 .. $map->height - 1) {
36 return 4
37 if grep $_->flag (cf::FLAG_MONSTER),
38 $map->at ($x, $y);
39 }
40 }
41
42 if ($map->path =~ /^~/) {
43 1
44 } elsif (grep $_->flag (cf::FLAG_UNIQUE) && $_->flag (cf::FLAG_IS_FLOOR), $map->at ($x, $y)) {
45 2
46 } else {
47 3
48 }
49 }
50
51 my @maplevel = (
52 "some mysterious hideout",
53 "his home",
54 "his guild", # wrong, this is any unique place !player-specific
55 "a nice place",
56 "a place with monsters",
57 );
58
59 my %invite;
60
61 cf::register_command invite => sub {
62 my ($who, $args) = @_;
63
64 $who->speed_left ($who->speed_left - 0.2);
65
66 my $name = $who->name;
67
68 if ($args ne "" && $name ne $args) {
69 my ($map, $x, $y) = ($who->map, $who->x, $who->y);
70
71 my $plevel = player_level $who;
72 my $mlevel = map_level $map, $x, $y;
73
74 if (is_damned ($map, $x, $y)) {
75 $who->message ("Your god isn't present here, you can't invite someone to unholy ground.");
76 } elsif ($plevel >= $mlevel) {
77 if (my $other = cf::player::find_active $args) {
78 $who->message ("inviting player '$args', to cancel, use invite with no arguments or wait $TIMEOUT seconds");
79 $other->ob->message ("$name invites you to $maplevel[$mlevel], to accept, use 'accept-invitation $name");
80 $invite{$name}{$args} = [time + $TIMEOUT, $map, $x, $y];
81 } else {
82 $who->message ("cannot invite '$args': no such player");
83 }
84 } elsif ($plevel) {
85 $who->message ("Valriel deems you not worthy yet. Gorokh is annoyed by your sacrilege.");
86 } else {
87 $who->message ("You haven't proven your worthyness in the mountain maze.");
88 }
89 } else {
90 $who->message ("canceling all invites");
91 delete $invite{$name};
92 }
93 };
94
95 sub teleport {
96 my ($pl, $map, $x, $y) = @_;
97
98 my $portal = cf::object::new "exit";
99
100 $portal->slaying ($map->path);
101 $portal->stats->hp ($x);
102 $portal->stats->sp ($y);
103
104 $portal->apply ($pl);
105
106 $portal->destroy;
107 }
108
109 cf::register_command "accept-invitation" => sub {
110 my ($who, $args) = @_;
111
112 $who->speed_left ($who->speed_left - 0.2);
113
114 my $name = $who->name;
115 my ($map, $x, $y) = ($who->map, $who->x, $who->y);
116
117 if (is_damned ($map, $x, $y)) {
118 $who->message ("You can't be invited from a place where your god isn't present.");
119 } elsif (!exists $invite{$args} || !exists $invite{$args}{$name}) {
120 $who->message ("Sorry, $args hasn't invited you.");
121 } elsif ($invite{$args}{$name}[0] < time) {
122 $who->message ("Sorry, $args\'s invitation has expired.");
123 } else {
124 my $inv = delete $invite{$args}{$name};
125 $who->message ("A godly force starts to pull you up...");
126 teleport $who, @{$inv}[1,2,3];
127 $who->message ("... and sets you down where $args invited you to.");
128
129 }
130 };
131