… | |
… | |
59 | "a place with monsters", |
59 | "a place with monsters", |
60 | ); |
60 | ); |
61 | |
61 | |
62 | my %invite; |
62 | my %invite; |
63 | |
63 | |
64 | cf::register_command invite => 10, sub { |
64 | cf::register_command invite => sub { |
65 | my ($who, $args) = @_; |
65 | my ($who, $args) = @_; |
|
|
66 | |
|
|
67 | $who->speed_left ($who->speed_left - 0.2); |
66 | |
68 | |
67 | my $name = $who->name; |
69 | my $name = $who->name; |
68 | |
70 | |
69 | if ($args ne "" && $name ne $args) { |
71 | if ($args ne "" && $name ne $args) { |
70 | my ($map, $x, $y) = ($who->map, $who->x, $who->y); |
72 | my ($map, $x, $y) = ($who->map, $who->x, $who->y); |
… | |
… | |
102 | $portal->stats->hp ($x); |
104 | $portal->stats->hp ($x); |
103 | $portal->stats->sp ($y); |
105 | $portal->stats->sp ($y); |
104 | |
106 | |
105 | $portal->apply ($pl); |
107 | $portal->apply ($pl); |
106 | |
108 | |
107 | $portal->free; |
109 | $portal->destroy; |
108 | } |
110 | } |
109 | |
111 | |
110 | cf::register_command "accept-invitation" => 10, sub { |
112 | cf::register_command "accept-invitation" => sub { |
111 | my ($who, $args) = @_; |
113 | my ($who, $args) = @_; |
|
|
114 | |
|
|
115 | $who->speed_left ($who->speed_left - 0.2); |
112 | |
116 | |
113 | my $name = $who->name; |
117 | my $name = $who->name; |
114 | my ($map, $x, $y) = ($who->map, $who->x, $who->y); |
118 | my ($map, $x, $y) = ($who->map, $who->x, $who->y); |
115 | |
119 | |
116 | if (is_damned ($map, $x, $y)) { |
120 | if (is_damned ($map, $x, $y)) { |