Openkore.com

Code: Select all

###########################
# Name of Plugin: waitParty.pl
# Version: 1.0 (9/05/2008)
# Version of Openkore Required: OpenKore  2.0.5.1

#follow_wait 1
#follow_wait_inLockOnly 1
#follow_wait_timeOut 5
#follow_wait_noPartyMember NNNNNNName



package waitParty;

use Plugins;
use Globals;
use Log qw(message error warning debug);

our $findParty;
our $temp;
my %Timecount;

Plugins::register('waitParty', 'Wait and come back for party', \&unload, \&unload);
my $hooks = Plugins::addHooks(   ['actor_player_add', \&waitForOthers, undef],
            ['actor_player_remove', \&waitForOthers, undef],
            ['party_share', \&waitForOthers, undef],
            ['party_move', \&waitForOthers, undef],
            ['AI_pre', \&waitForOthers, undef],
            ['actor_action_sit', \&waitForOthers, undef],
            ['actor_action_stand', \&waitForOthers, undef]);

sub unload {
   Plugins::delHooks($hooks);
}

sub waitForOthers {
   return unless $config{'follow_wait'};
   return unless defined @partyUsersID;

   #return if bot isn't at lockmap
   return if (($config{'follow_wait_inLockOnly'} > 0) && ($field{name} ne $config{lockMap}));

   my $actor;
   foreach (@partyUsersID) {
      next if $_ eq $accountID;
      next if $_ eq "";
      $actor = $playersList->getByID($_);
      
      next if ($char->{'party'}{'users'}{$_}{'name'} eq $config{'follow_wait_noPartyMember'});
      
      if(!$actor && $char->{'party'}{'users'}{$_}{'online'}) {
         my %party;

         $party{x} = $char->{party}{users}{$_}{pos}{x};
         $party{y} = $char->{party}{users}{$_}{pos}{y};
         ($party{map}) = $char->{party}{users}{$_}{map} =~ /([\s\S]*)\.gat/;

         if ($party{map} ne $field{name} || $party{x} == 0 || $party{y} == 0) {
            delete $party{x};
            delete $party{y};
         }

         return unless ($party{map} ne $field{name} || exists $party{x});

         if ($Timecount{start} eq ''){
            $Timecount{start} = time;
         }
         $Timecount{current} = time;

         $Timecount{toreset} = $config{'follow_wait_timeOut'};
         if ($Timecount{toreset} eq '') {
            $Timecount{toreset} = 30;
         }
         $Timecount{after} = $Timecount{start} + $Timecount{toreset};
         if ($Timecount{current} >= $Timecount{after}){
            $Timecount{start} = time;
         }

         if (($Timecount{current} >= $Timecount{after})
            && ((exists $ai_v{party} && AI::distance(\%party, $ai_v{party}) > 15)
            || $party{map} != $ai_v{party}{map}
            || (AI::timeOut($ai_v{party}{time}, 15) && AI::distance(\%party, $char->{pos_to}) > $config{followDistanceMax}))) {
         
               $ai_v{party}{x} = $party{x};
               $ai_v{party}{y} = $party{y};
               $ai_v{party}{map} = $party{map};
               $ai_v{party}{time} = time;

               warning "Party is far way.\n", "waitParty";

               if ($ai_v{party}{map} ne $field{name}) {
               message "Searching party: $ai_v{party}{map}\n", , "follow";
               } elsif (AI::distance(\%party, $char->{pos_to}) > $config{followDistanceMax} ) {
               message "Searching party: $ai_v{party}{map} ($ai_v{party}{x},$ai_v{party}{y})\n", "follow";
               } else {
               return;
               }
               AI::clear("move", "route", "mapRoute");
               AI::ai_route($ai_v{party}{map}, $ai_v{party}{x}, $ai_v{party}{y}, distFromGoal => $config{followDistanceMin});
               my $followIndex = AI::findAction("follow");
               if (defined $followIndex) {
               $ai_seq_args[$followIndex]{ai_follow_lost_end}{timeout} = $timeout{ai_follow_lost_end}{timeout};
               }
           }
           $findParty = 1;
           return;
       } elsif ($findParty && ($actor = $playersList->getByID($_))) {
           warning "Party Found.\n", "waitParty";
           $findParty = 0;
      
   AI::clear("move", "route");


       } elsif ($findParty) {
           warning "Party is offline.\n", "waitParty";
           $findParty = 0;
           return;
       }
   }
}
1;