I can't really post any of my raid modules
It's branched off Bebot too much, it doesn't really look the same anymore.
It would be easier to list the modules we haven't changed than to list all those we have. However, changes to Bot.php have been minimal. I think we can at least share some of the useful stuff we've done. Neither Nat or myself would want to post the entire Campalot. It's a support nightmare, but hopefully these ideas help in development of the official BeBot.
At the moment we've got everything stuffed into user_history and raid_history tables. We added function addHistory() to Bot.php. The purpose of addHistory() is to basically log any and all changes in someone's points in a manner that makes reporting easy. We defined the likely events, and by agreement only use those events when calling addHistory() for our modules.
The EventTypes are:
ADDPTS - Points Added to the account
REMPTS - Points Removed from the account
RAIDKICK - User was kicked from a raid.
BOTKICK - User was kicked from the bot.
BAN - User was banned from the bot.
LOOT - User looted (won at auction or raffle, whatever.) an item.
Plus a couple other special use cases...
The raid_history table isn't anything more than a log file in the database.
CREATE TABLE IF NOT EXISTS raid_history (raidid INT NOT NULL, event TEXT, date TIMESTAMP);
1141428693 | Stillian has started a raid for apf | 2006-03-03 17:31:33
1141428693 | Oddwuaya joined the raid | 2006-03-03 17:31:36
1141428693 | Stillian kicked Stillian from the raid | 2006-03-03 17:36:50
1141428693 | Stillian added Stillian to the raid | 2006-03-03 17:36:56
etc.
addHistory() is the first thing I ever wrote for BeBot, and I was still discovering PHP and MySQL at the time. It can be done much better and I've got a whole list of things to change/fix when I have time...
/*
Logs a user history event
Added by Glarawyn for Omnicom/Campalot
*/
function addHistory ($UserID, $LeaderID, $EventType, $PointVal, $Info)
{
$this -> db -> query("CREATE TABLE IF NOT EXISTS user_history
(id INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
UserID VARCHAR(12),
LeaderID VARCHAR(12),
EventType VARCHAR(12),
PointVal SMALLINT,
Info TEXT,
Timestamp TIMESTAMP)");
// Sanitize UserID & LeaderID strtolower & ucfirst
// These should be no loger than 12 characters, but that's a limit imposed by FunCom so no need to check.
$UserID = ucfirst(strtolower($UserID));
$LeaderID = ucfirst(strtolower($LeaderID));
// Sanitize EventType (strtoupper)
$EventType = strtoupper($EventType);
// PointVal should be negitive if $EventType is LOOT or REMPTS
if (($EventType == "REMPTS") || ($EventType == "LOOT"))
if ($PointVal > 0)
$PointVal = $PointVal * -1;
// Info is a text block. We need to remove stuff we don't want to deal with, like double quotes. htmlentities() will convert characters with special meanins in HTML to HTML equivlents, ie: & becomes &. Use html_entity_decode to get back to the original string.
if ($EventType != "LOOT")
$Info = htmlentities($Info, ENT_QUOTES);
else
$Info = preg_replace("/<a href=\"(.+)\">(.+)<\/a>/sU", "<a href='$1'>$2</a>", $Info);
$this -> db -> query("INSERT INTO user_history (UserID, LeaderID, EventType, PointVal, Info, Timestamp) VALUES ('" . $UserID . "','" . $LeaderID . "','" . $EventType . "'," . $PointVal . ",'" . addslashes($Info) . "'," . gmdate (YmdHis) .")");
}
So now that we have the needed info in the database, reporting can be done...
Show history for a user (Wolfbiter did this function, with latter edits by Nat and myself):
function getHistory($name,$list=30) {
//$list=30;
$id = $this->bot->aoc->get_uid($name);
$sql = "Select EventType,Timestamp,LeaderID,PointVal,Info from user_history where UserID=".$id." ORDER BY Timestamp DESC limit 0,".$list;
$result = $this->bot->db->select($sql);
$return = "History for $name<br>";
if (!empty($result)) {
foreach ($result as $event) {
$return.= "<br><br><font color=#FF00FF>".$event[1]."</font><br> ";
switch($event[0]) {
case "ADDPTS":
$return.="<font color=#cccc00>".$event[3]."</font> points added by <font color=#0088FF>".$event[2]."</font> for ".$event[4];
break;
case "RAIDKICK":
$return.="Kicked from raid by <font color=#0088FF>".$event[2]."</font>. Reason- ".$event[4];
break;
case "LOOT":
$event[4] = preg_replace("/<a href=\"(.+)\">(.+)<\/a>/sU", "<a href=$1>$2</a>", $event[4]);
$return.="Won <font color=#ffff00>".$event[4]."</font> for ".$event[3]*(-1)." points";
break;
case "REMPTS":
$return.="<font color=#cccc00>".($event[3] * (-1))."</font> points removed by <font color=#0088FF>".$event[2]."</font>. Reason- ".$event[4];
break;
case "BAN":
$return.=$event[3]." banned by <font color=#0088FF>".$event[2]."</font>. Reason- ".$event[4];
break;
case "ADD_XFER":
$return.="<font color=#cccc00>".$event[3]."</font> points added. Transfered from: <font color=#0088FF>".$event[2]."</font>";
break;
case "REM_XFER":
$return.="<font color=#cccc00>".($event[3]*(-1))."</font> points removed. Transfered to: <font color=#0088FF>".$event[2]."</font>";
break;
case "PTADJ":
$return.="<font color=#cccc00>".$event[3]."</font> points added by <font color=#0088FF>".$event[2]."</font> for last active raid.";
break;
default:
$return.="Unknown entry: ".$event[0];
}
}
return $return;
}
}
Basic Last 25 items won:
function show_report()
{
// Find last record in total members
$sql = "SELECT UserID,Info,PointVal,Timestamp from user_history WHERE EventType = 'LOOT' ORDER BY Timestamp DESC LIMIT 0,25";
$result = $this -> bot -> db -> select($sql);
$output = "<font color=CCInfoHeader>Last 25 items won on <botname></font><br>";
foreach ($result as $info)
{
// preg_match("/^(.+) has ended the raid for (.+)$/i", $raiddata[0], $info);
$sql = "SELECT nickname FROM members where id = ".$info[0];
// $nickname = $this -> bot -> aoc -> get_uname($info[0]);
$res = $this -> bot -> db -> select($sql);
$nickname = $res[0][0];
$output .= "<font color=CCInfoText>";
$output .= $nickname;
$output .= " won ";
$output .= $info[1];
$output .= " </font><font color=#7ce2ec> for ";
$output .= $info[2]*-1;
$output .= " points on ";
$output .= $info[3];
$output .="</font><br>";
}
return $this -> bot -> make_blob("Last 25 Items Won", $output);
} // End function show_report()
Getting info out of raid_history is done via regexp SQL queries. It does work, hopefully someday we'll maybe do something better.
Display last 40 raids (broken up by timeblocks)
function show_report()
{
// Find last record in total members
$sql = "SELECT event,date,UNIX_TIMESTAMP(date) FROM raid_history WHERE event REGEXP \"^(.+) has ended the raid for (.+)$\" ORDER BY date DESC LIMIT 0,40";
$result = $this -> bot -> db -> select($sql);
$output = "<font color=CCInfoHeader>Last 40 raids on <botname></font>\n\n";
$output .= "<font color=CCInfoText>It is currently ";
// Need to use gmdate with time()
if (gmdate(G, time()) >= 1 AND gmdate(G, time()) <= 6)
$output .= "UTC Late Night (USA Evening)";
else if (gmdate(G, time()) >= 7 AND gmdate(G, time()) <= 12)
$output .= "UTC Morning (USA Late Night)";
else if (gmdate(G, time()) >= 13 AND gmdate(G, time()) <= 18)
$output .= "UTC Afternoon (USA Morning)";
else if (gmdate(G, time()) >= 19 AND gmdate(G, time()) <= 23)
$output .= "UTC Evening (USA Afternoon)";
else if (gmdate(G, time()) == 0)
$output .= "UTC Evening (USA Afternoon)";
$output .= "</font>\n\n";
// MySQL timestamps are in local time, not UTC. So use date() not gmdate() here
foreach ($result as $raiddata)
{
preg_match("/^(.+) has ended the raid for (.+)$/i", $raiddata[0], $info);
if (date(G, $raiddata[2]) >= 0 AND date(G, $raiddata[2]) <= 5)
$output_latenight .= "<font color=CCInfoText>".$info[2]."</font><font color=#7ce2ec> by ".$info[1]." on ".$raiddata[1]."</font>\n";
else if (date(G, $raiddata[2]) >= 6 AND date(G, $raiddata[2]) <= 11)
$output_morning .= "<font color=CCInfoText>".$info[2]."</font><font color=#7ce2ec> by ".$info[1]." on ".$raiddata[1]."</font>\n";
else if (date(G, $raiddata[2]) >= 12 AND date(G, $raiddata[2]) <= 17)
$output_afternoon .= "<font color=CCInfoText>".$info[2]."</font><font color=#7ce2ec> by ".$info[1]." on ".$raiddata[1]."</font>\n";
else if (date(G, $raiddata[2]) >= 18 AND date(G, $raiddata[2]) <= 23)
$output_evening .= "<font color=CCInfoText>".$info[2]."</font><font color=#7ce2ec> by ".$info[1]." on ".$raiddata[1]."</font>\n";
}
$output .= "UTC Morning (USA Late Night) Raids:\n";
$output .= $output_morning;
$output .= "\n";
$output .= "UTC Afternoon (USA Morning) Raids:\n";
$output .= $output_afternoon;
$output .= "\n";
$output .= "UTC Evening (USA Afternoon) Raids:\n";
$output .= $output_evening;
$output .= "\n";
$output .= "UTC Late Night (USA Evening) Raids:\n";
$output .= $output_latenight;
$output .= "\n";
return $this -> bot -> make_blob("Last 40 Raids", $output);
} // End function show_report()
And then LootSearch (attached) which displays info for the items in APF with average points and links to view more info on that item. Some of this module is good code, some of it is ugly and repetitive. Loot search can also just search the history db for items that are and are not defined in the click windows.
LootSearch updates it's average number of points and item won count every 6 hours and keeps the info in an array so queries don't have to be done every time someone views the basic history (!loot).
Content
Members
Total Members: 1235
Stats
Users Online
