| … | |
… | |
| 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 |
| 96 | }; |
97 | }; |
| 97 | |
98 | |
| 98 | sub teleport { |
99 | sub teleport { |
| 99 | my ($pl, $map, $x, $y) = @_; |
100 | my ($pl, $map, $x, $y) = @_; |
| 100 | |
101 | |
| … | |
… | |
| 126 | $who->message ("A godly force starts to pull you up..."); |
127 | $who->message ("A godly force starts to pull you up..."); |
| 127 | teleport $who, @{$inv}[1,2,3]; |
128 | teleport $who, @{$inv}[1,2,3]; |
| 128 | $who->message ("... and sets you down where $args invited you to."); |
129 | $who->message ("... and sets you down where $args invited you to."); |
| 129 | |
130 | |
| 130 | } |
131 | } |
|
|
132 | 1 |
| 131 | } |
133 | } |
| 132 | |
134 | |
