Advertisement
Guest User

recommendations.pm fix for brenbot 1.55

a guest
Nov 18th, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.96 KB | None | 0 0
  1. diff --git "a/E:\\recommendations_broken.pm" "b/E:\\recommendations.pm"
  2. index 0df6b7e..8361d76 100644
  3. --- "a/E:\\recommendations_broken.pm"
  4. +++ "b/E:\\recommendations.pm"
  5. @@ -36,6 +36,9 @@ our %additional_events =
  6.    'n00b'                       => 'recommend',     # Same code for both functions
  7.    'recignore'                  => 'recignore',
  8.    'recallow'                   => 'recallow',
  9. +  'teamplayers'                => 'teamplayers',
  10. +  'shown00bs'                  => 'teamplayers',
  11. +  'recommendations'            => 'recommendations',
  12.    'gamelog_building_killed'    => 'gamelog_building_killed',
  13.    'gamelog_vehicle_killed'         => 'gamelog_vehicle_killed',
  14.    'gamelog_building_repair'    => 'gamelog_building_repair',
  15. @@ -373,7 +376,12 @@ sub recommend
  16.        my $can_recommend = can_recommend ( $args{'nick'}, $player{'name'}, $isNoob );
  17.        if ( $can_recommend == 1 )
  18.        {
  19. -        recommend_player( $player{'name'}, $args{'nick'}, $reason );
  20. +        if ( $isNoob )
  21. +        {
  22. +          n00b_player( $player{'name'}, $args{'nick'}, $reason );
  23. +        } else {
  24. +          recommend_player( $player{'name'}, $args{'nick'}, $reason );
  25. +        }
  26.        }
  27.        elsif ( $can_recommend == 2 )
  28.        {
  29. @@ -537,7 +545,7 @@ sub teamplayers_processTeam
  30.    my $string      = "";
  31.    my $count       = 0;
  32.  
  33. -  my %teamplayers = plugin::getPlayersByTeam($teamid);
  34. +  my %teamplayers = plugin::team_get_players($teamid);
  35.    while ( my ( $id, $player ) = each ( %teamplayers ) )
  36.    {
  37.      my $recs = ( $showNoobs == 1 ) ? get_n00b($player->{'name'}) : get_recommendation($player->{'name'});
  38. @@ -548,13 +556,13 @@ sub teamplayers_processTeam
  39.  
  40.      if ( ++$count >= 5 )
  41.      {
  42. -      players_outputTeam($teamid, $string);
  43. +      teamplayers_outputTeam($teamid, $string);
  44.        $count = 0;
  45.        $string = "";
  46.      }
  47.    }
  48.    
  49. -  players_outputTeam($teamid, $string) if ( $string ne "" );
  50. +  teamplayers_outputTeam($teamid, $string) if ( $string ne "" );
  51.  }
  52.  
  53.  # Worker function for the !teamplayers command
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement