| … | |
… | |
| 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)) { |
