| … | |
… | |
| 91 | } |
91 | } |
| 92 | } else { |
92 | } else { |
| 93 | $who->message ("canceling all invites"); |
93 | $who->message ("canceling all invites"); |
| 94 | delete $invite{$name}; |
94 | delete $invite{$name}; |
| 95 | } |
95 | } |
| 96 | 1 |
|
|
| 97 | }; |
96 | }; |
| 98 | |
97 | |
| 99 | sub teleport { |
98 | sub teleport { |
| 100 | my ($pl, $map, $x, $y) = @_; |
99 | my ($pl, $map, $x, $y) = @_; |
| 101 | |
100 | |
| … | |
… | |
| 127 | $who->message ("A godly force starts to pull you up..."); |
126 | $who->message ("A godly force starts to pull you up..."); |
| 128 | teleport $who, @{$inv}[1,2,3]; |
127 | teleport $who, @{$inv}[1,2,3]; |
| 129 | $who->message ("... and sets you down where $args invited you to."); |
128 | $who->message ("... and sets you down where $args invited you to."); |
| 130 | |
129 | |
| 131 | } |
130 | } |
| 132 | 1 |
131 | }; |
| 133 | } |
|
|
| 134 | |
132 | |
