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