… | |
… | |
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"); |