| … | |
… | |
| 4 | # level 2: private rooms and saving maps (guilds, some other public saving maps) |
4 | # level 2: private rooms and saving maps (guilds, some other public saving maps) |
| 5 | # level 3: invite everywhere where no monsters are on the map |
5 | # level 3: invite everywhere where no monsters are on the map |
| 6 | # level 4: invite everywhere |
6 | # level 4: invite everywhere |
| 7 | |
7 | |
| 8 | # implement a 'follow' command |
8 | # implement a 'follow' command |
|
|
9 | |
|
|
10 | #TODO: fon't invite on damned ground |
| 9 | |
11 | |
| 10 | my $TIMEOUT = 60; |
12 | my $TIMEOUT = 60; |
| 11 | |
13 | |
| 12 | # determine level available to the player |
14 | # determine level available to the player |
| 13 | sub player_level { |
15 | sub player_level { |
| … | |
… | |
| 107 | if (!exists $invite{$args} || !exists $invite{$args}{$name}) { |
109 | if (!exists $invite{$args} || !exists $invite{$args}{$name}) { |
| 108 | $who->message ("Sorry, $args hasn't invited you."); |
110 | $who->message ("Sorry, $args hasn't invited you."); |
| 109 | } elsif ($invite{$args}{$name}[0] < time) { |
111 | } elsif ($invite{$args}{$name}[0] < time) { |
| 110 | $who->message ("Sorry, $args\'s invitation has expired."); |
112 | $who->message ("Sorry, $args\'s invitation has expired."); |
| 111 | } else { |
113 | } else { |
|
|
114 | my $inv = delete $invite{$args}{$name}; |
| 112 | $who->message ("A godly force starts to pull you up..."); |
115 | $who->message ("A godly force starts to pull you up..."); |
| 113 | teleport $who, @{$invite{$args}{$name}}[1,2,3]; |
116 | teleport $who, @{$inv}[1,2,3]; |
| 114 | $who->message ("... and sets you down where $args invited you to."); |
117 | $who->message ("... and sets you down where $args invited you to."); |
|
|
118 | |
| 115 | } |
119 | } |
| 116 | } |
120 | } |
| 117 | |
121 | |
