| … | |
… | |
| 75 | my $mlevel = map_level $map, $x, $y; |
75 | my $mlevel = map_level $map, $x, $y; |
| 76 | |
76 | |
| 77 | if (is_damned ($map, $x, $y)) { |
77 | if (is_damned ($map, $x, $y)) { |
| 78 | $who->message ("Your god isn't present here, you can't invite someone to unholy ground."); |
78 | $who->message ("Your god isn't present here, you can't invite someone to unholy ground."); |
| 79 | } elsif ($plevel >= $mlevel) { |
79 | } elsif ($plevel >= $mlevel) { |
| 80 | if (my $other = cf::player::find $args) { |
80 | if (my $other = cf::player::find_active $args) { |
| 81 | $who->message ("inviting player '$args', to cancel, type: 'invite or wait $TIMEOUT seconds"); |
81 | $who->message ("inviting player '$args', to cancel, type: 'invite or wait $TIMEOUT seconds"); |
| 82 | $other->ob->message ("$name invites you to $maplevel[$mlevel], to accept, use 'accept-invitation $name"); |
82 | $other->ob->message ("$name invites you to $maplevel[$mlevel], to accept, use 'accept-invitation $name"); |
| 83 | $invite{$name}{$args} = [time + $TIMEOUT, $map, $x, $y]; |
83 | $invite{$name}{$args} = [time + $TIMEOUT, $map, $x, $y]; |
| 84 | } else { |
84 | } else { |
| 85 | $who->message ("cannot invite '$args': no such player"); |
85 | $who->message ("cannot invite '$args': no such player"); |
