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