PHP Classes
elePHPant
Icontem

File: plugins/ql.class.php

Recommend this page to a friend!
Stumble It! Stumble It! Bookmark in del.icio.us Bookmark in del.icio.us
  Classes of Sergei Miami  >  Joker the IRC bot  >  plugins/ql.class.php  >  Download  
File: plugins/ql.class.php
Role: Example script
Content type: text/plain
Description: QuakeLive player stats plugin
Class: Joker the IRC bot
Base for building IRC bot
Author: By
Last change: PHP notice fixed
Date: 4 years ago
Size: 4,320 bytes
 

Contents

Class file image Download
<?php

/**
 * @package Joker
 * @subpackage Plugins
 * @author Miami <miami@blackcrystal.net>
 * @version 1.0 on 03/06/2010
 * @license Released under the MIT License
 * @link www.blackcrystal.net
 *
 * Quake Live player stats plugin
 *
 * Retrieves player statistics from Quakelive server
 * @see http://www.quakelive.com/profile/summary/bc_miami
 *
 * What we have here:
 * - Plugin accepts channel and private messages
 * - Usage !ql nick [option] - where option can be summary (default), or friends
 */
class Ql {

  public function
PRIVMSG(Joker $joker)
  {

   
$hash = $joker->param;
   
    @list(
$cmd,$nick,$opt) = $joker->param; // three parameters accepted

   
if ($cmd != '!ql') return; // first must be !ql

    // if no nickname, answer with help message
   
if (!$nick) return $joker->answer('!ql: Usage !ql nick [option]. Allowed options: summary (default), friends.');
   
// if no option
   
if (!$opt) $opt = 'summary';

   
$url = "http://www.quakelive.com/profile/$opt/$nick";
   
$joker->log('p',"Getting $url");
   
$file = file_get_contents($url);
   
$file = preg_replace('@\s+@',' ', $file ); // remove spaces and newlines
   
$stats = new stdClass(); // one object, to easy debug all parsed infos

    // name is always present here
   
$stats->name = preg_match('@id="prf_player_name">(.+)</div>@Ui', $file, $matches) ? $matches[1] : '';

    switch (
strtolower($opt)):

    case
'summary':

     
$stats->lastgame = preg_match('@<b>Last Game:</b> (.+) <br />@Ui', $file, $matches) ? trim(strip_tags($matches[1])) : '';
     
$stats->played = preg_match('@<b>Time Played:</b> <span title=".*">(.+)</span>@Ui', $file, $matches) ? $matches[1] : '';
     
$stats->wins = preg_match('@<b>Wins:</b> ([\d,]+)<br />@Ui', $file, $matches) ? $matches[1] : '';
      list(,
$stats->losses,$stats->quits) = preg_match('@<b>Losses / Quits:</b> ([\d,]+) / ([\d,]+)<br />@Ui', $file, $matches) ? $matches : array('','','');
      list(,
$stats->frags,$stats->deaths) = preg_match('@<b>Frags / Deaths:</b> ([\d,]+) / ([\d,]+)<br />@Ui', $file, $matches) ? $matches : array('','','');
     
$stats->accuracy = preg_match('@<b>Accuracy:</b> (.+)<br />@Ui', $file, $matches) ? $matches[1] : 'n/a';
     
// now we get only section with last match played...
     
$file = preg_match('@class="\w+ recent_match \w+"(.+)<span class="played">@Ui', $file, $matches) ? $matches[1] : '';
     
$stats->lastmap = preg_match('@/levelshots/lg/(.{1,20})_v2010@Ui', $file, $matches) ? ucfirst($matches[1] ) : '';
     
$stats->finish = preg_match('@<span class="finish">(.+)</span>@Ui', $file, $matches) ? strtolower(trim( $matches[1]) ) : '';
     
$text = $stats->played ? "!ql({$stats->name}): ".
                             
"Wins/losses/quits: {$stats->wins}/{$stats->losses}/{$stats->quits}, ".
                             
"frags/deaths: {$stats->frags}/{$stats->deaths}, accuracy: {$stats->accuracy}. ".
                             
"Total time played {$stats->played}. ".
                             
"Last game was {$stats->lastgame}".
                              (
$stats->lastmap && $stats->finish ? " on {$stats->lastmap}, {$stats->finish}" : "" ) .
                             
"."
                          
: '!ql: No such player :p';
      break;
   
    case
'friends':

     
$stats->list = preg_match_all('@<div class="player_name"> .+/flags/([a-z]{2})_.+ /> <a .+>(.+)</a>.+</div>@Ui', $file, $matches, PREG_PATTERN_ORDER) ? array_combine($matches[2], $matches[1]) : array();
     
$stats->result = array();
      foreach (
$stats->list as $name=>$country)
      {
       
$name = strip_tags ( strtr($name, array('</span>'=>' '))) ; // changing <span class="clan">just</span>x1t] => just xlt
       
$stats->result[] = "$name ($country)";
      }
     
$result = count($stats->result) ? 'Friends: '. implode(', ', $stats->result) .'.' : 'Has no friends.';
     
$text = "!ql({$stats->name}) $result";
      break;

    default:

     
$text = '!ql: This option is not implemented yet';
      break;
   
    endswitch;

   
// print_r($stats);
   
$joker->answer($text);

    return
Joker::STOP; // stop processing other plugins

 
}

}