Took the liberty of changing the teammodule. I have no clue how PHP really works so forgice the coding, but I think I made a nice feature rewrite. I removed the !showmeteams command, and added /tell <botname> !teams admin. Should make it abit easier to make teams and makes a good replacement for !showmeteams. Also, fixed a bug (seemed to be at least) that when someone leaves the bot, the teams weren't cleaned properly. Feel free to use it
<?php
/*
* Teams Module for BE Bot <http://bebot.fieses.net>
* Module coded by Craized <http://www.craized.net>

/*
Add a "_" at the beginning of the file (Teams.php) if you do not want it to be loaded.
*/

$teams = new Teams($bot);
$commands["tell"]["teams"] = &$teams;
$commands["pgmsg"]["teams"] = &$teams;
$commands["pgjoin"][] = &$teams;
$commands["pgleave"][] = &$teams;

/*
The Class itself...
*/
class Teams {
var $bot;
var $pgroup;


/*
Constructor:
Hands over a referance to the "Bot" class.
*/
function Teams (&$bot) {
$this -> bot = &$bot;
$this -> autonum = true;
}

function tell($name, $msg) {
$msg = explode(" ", $msg);
$red = "<font color=#FF0000>";
$blue = "<font color=#9999CC>";
$yellow = "<font color=#ffff00>";

if($this -> autonum == true) {
$numteams = $this -> teams;
} 
else {
$numteams = $this -> numteam;
}
if($msg[1] == "admin"){
if($this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
$result .= $yellow . ":::: Teams Administration ::::</font><font color=#0000dd44>\n\n";
$result .= "Commands:\n";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams admin'>Refresh Teams Administration</a>\n";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams'>Show Teams</a>\n";
$result .= "Set Number of Teams <a href='chatcmd:///tell <botname> <pre>teams num auto'>Auto</a> ";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams num 1'>1</a> ";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams num 2'>2</a> ";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams num 3'>3</a> ";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams num 4'>4</a> ";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams num 5'>5</a> ";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams num 6'>6</a> ";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams num 7'>7</a> ";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams num 8'>8</a> ";
$result .= "<a href='chatcmd:///tell <botname> <pre>teams num 9'>9</a>\n\n";
for($num=1; $num<=$numteams; $num++) {
$result .= $red . $num . ": LDR ";
$count = count($this -> team[$num]);
$membnum = 1;
for($spot=1; $spot<=$count; $spot++) {
if($this -> team[$num][$spot] && $this -> team[$num][$spot] != "gone") {
if($membnum == 1) {
$result .= "<a href='chatcmd:///tell <botname> <pre>teams 0 " . $this -> team[$num][$spot] . "'>" . $this -> team[$num][$spot] . "</a></font>";
}
else {
$result .= " - " . $membnum . "." . "<a href='chatcmd:///tell <botname> <pre>teams 0 " . $this -> team[$num][$spot] . "'>" . $this -> team[$num][$spot] . "</a>";
}
$membnum++;
}
}
$result .= "\n";
}
$result .= $red . "Unteamed: </font>\n";
unset($unteamed);
foreach($this -> pgroup as $player=>$team) {
if($team == "lft") {
$result .= "~" . $player . "~ ";
$result .= "Add to team: ";
for($num=1; $num<=$numteams; $num++) {
$result .=  "<a href='chatcmd:///tell <botname> <pre>teams " . $num . " " . $player . "'>" . $num . "</a> ";
}
$result .= "\n";
$unteamed = true;
}
}
$result = $this -> bot -> make_blob("Teams Administration", $result);
$this -> bot -> send_tell($name, $result);
unset($result);
}
}
if ($msg[1] == "") {
for($num=1; $num<=$numteams; $num++) {
$result .= $red . $num . ": LDR ";
$count = count($this -> team[$num]);
$membnum = 1;
for($spot=1; $spot<=$count; $spot++) {
if($this -> team[$num][$spot] && $this -> team[$num][$spot] != "gone") {
if($membnum == 1) {
$result .= $this -> team[$num][$spot] . "</font>";
}
else {
$result .= " - " . $membnum . "." . $this -> team[$num][$spot];
}
$membnum++;
}
}
$this -> bot -> send_pgroup($result);
unset($result);
}
$result .= $red . "Unteamed: ";
unset($unteamed);
foreach($this -> pgroup as $player=>$team) {
if($team == "lft") {
$result .= "~" . $player . "~ ";
$unteamed = true;
}
}
if($unteamed) {
$this -> bot -> send_pgroup($result);
}
}
if($msg[1] == "clear") {
if($this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
foreach($this -> pgroup as $player=>$value) {
if($this -> left[$player]) {
unset($this -> pgroup[$player]);
} 
else {
$this -> pgroup[$player] = "lft";
}
unset($this -> team);
}
$this -> bot -> send_pgroup($blue . "Teams cleared");
}
}
if(preg_match("#^[1-9]#", $msg[1])) {
if($numteams >= $msg[1]) {
$team = $msg[1];
$spot = count($this -> team[$team])+1;
$count = 1;
for($teamnum=1; $teamnum <= $numteams; $teamnum++) {
foreach($this -> team[$teamnum] as $key => $value) {
if($value == $teamnum) {
$count++;
}
}
}
if ($count <= 6){
if($msg[2] == "") {
if($this -> pgroup[$name] != $team) {
foreach($this -> team as $team1=>$spot1) {
foreach($this -> team[$team1] as $spot1=>$spot2) {
if($this -> team[$team1][$spot1] == $name){
$oldspot = $spot1;
$oldteam = $team1;
}
}
}
$this -> team[$oldteam][$oldspot] = "gone";
$this -> team[$team][$spot] = $name;
$this -> pgroup[$name] = $team;
$this -> bot -> send_pgroup($blue . $name . " assigned to team " . $msg[1]);
}
else {
$this -> bot -> send_pgroup($blue . " " . $name . " already in team " . $team);
}
}
else {
if($this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
$user = ucfirst($msg[2]);
if($numteams >= $msg[1]) {
if($this -> pgroup[$user]) {
if($this -> pgroup[$user] != $team) {
foreach($this -> team as $team1=>$spot1) {
foreach($this -> team[$team1] as $spot1=>$spot2) {
if($this -> team[$team1][$spot1] == $user){
$oldspot = $spot1;
$oldteam = $team1;
}
}
}
$this -> team[$oldteam][$oldspot] = "gone";
$this -> team[$team][$spot] = $user;
$this -> pgroup[$user] = $team;
$this -> bot -> send_pgroup($blue . $user . " assigned to team " . $msg[1]);
} 
else {
$this -> bot -> send_pgroup($blue . $user . " already in team " . $team);
}
}
else {
$this -> bot -> send_pgroup($blue . $msg[2] . " not in " . $this -> bot -> botname);
}
}
}
}
} 
else {
$this -> bot -> send_pgroup($blue . "Sorry, team " . $team . " is full.");
}
}
}
 elseif(preg_match("#^0#", $msg[1])) {
if(!$msg[2]) {
$user = $name;
}
else {
$user = ucfirst($msg[2]);
}
foreach($this -> team as $team1=>$spot1) {
foreach($this -> team[$team1] as $spot1=>$spot2) {
if($this -> team[$team1][$spot1] == $user){
$oldspot = $spot1;
$oldteam = $team1;
}
}
}
$this -> team[$oldteam][$oldspot] = "gone";
if($this -> left[$user]) {
unset($this -> pgroup[$user]);
} 
else {
$this -> pgroup[$user] = "lft";
}
$this -> bot -> send_pgroup($blue . $user . " cleared from teams.");
}
if($msg[1] == num) {
if($this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
if($msg[2] == auto) {
$this -> autonum = true;
foreach($this -> pgroup as $player=>$value) {
$this -> pgroup[$player] = "lft";
unset($this -> team);
}
$this -> bot -> send_pgroup($blue . "Teams cleared");
$this -> bot -> send_pgroup($blue . "Automatic teams now enabled");
} 
elseif(preg_match("#^[1-90]#", $msg[2])) {
$this -> numteam = $msg[2];
$this -> bot -> send_pgroup($blue . "Maximum number of teams now set to " . $msg[2]);
$this -> autonum = false;
}
}
}
}

/*
This gets called on a msg in the privgroup with the command
*/
function pgmsg($name, $msg) {
$msg = explode(" ", $msg);
$red = "<font color=#FF0000>";
$blue = "<font color=#9999CC>";
if($this -> autonum == true) {
$numteams = $this -> teams;
} 
else {
$numteams = $this -> numteam;
}
if ($msg[1] == "") {
for($num=1; $num<=$numteams; $num++) {
$result .= $red . $num . ": LDR ";
$count = count($this -> team[$num]);
$membnum = 1;
for($spot=1; $spot<=$count; $spot++) {
if($this -> team[$num][$spot] && $this -> team[$num][$spot] != "gone") {
if($membnum == 1) {
$result .= $this -> team[$num][$spot];
} else {
$result .= " - " . $membnum . "." . $this -> team[$num][$spot];
}
$membnum++;
}
}
$this -> bot -> send_pgroup($result);
unset($result);
}
$result .= $red . "Unteamed: ";
unset($unteamed);
foreach($this -> pgroup as $player=>$team) {
if($team == "lft") {
$result .= "~" . $player . "~ ";
$unteamed = true;
}
}
if($unteamed) {
$this -> bot -> send_pgroup($result);
}
}
if($msg[1] == "clear") {
if($this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
foreach($this -> pgroup as $player=>$value) {
if($this -> left[$player]) {
unset($this -> pgroup[$player]);
} else {
$this -> pgroup[$player] = "lft";
}
unset($this -> team);
}
$this -> bot -> send_pgroup($blue . "Teams cleared");
}
}
if(preg_match("#^[1-9]#", $msg[1])) {
if($numteams >= $msg[1]) {
$team = $msg[1];
$spot = count($this -> team[$team])+1;
$count = 1;
for($teamnum=1; $teamnum <= $numteams; $teamnum++) {
foreach($this -> team[$teamnum] as $key => $value) {
if($value == $teamnum) {
$count++;
}
}
}
if ($count <= 6){
if($msg[2] == "") {
if($this -> pgroup[$name] != $team) {
foreach($this -> team as $team1=>$spot1) {
foreach($this -> team[$team1] as $spot1=>$spot2) {
if($this -> team[$team1][$spot1] == $name){
$oldspot = $spot1;
$oldteam = $team1;
}
}
}
$this -> team[$oldteam][$oldspot] = "gone";
$this -> team[$team][$spot] = $name;
$this -> pgroup[$name] = $team;
$this -> bot -> send_pgroup($blue . $name . " assigned to team " . $msg[1]);
} else {
$this -> bot -> send_pgroup($blue . " " . $name . " already in team " . $team);
}
} else {
if($this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
$user = ucfirst($msg[2]);
if($numteams >= $msg[1]) {
if($this -> pgroup[$user]) {
if($this -> pgroup[$user] != $team) {
foreach($this -> team as $team1=>$spot1) {
foreach($this -> team[$team1] as $spot1=>$spot2) {
if($this -> team[$team1][$spot1] == $user){
$oldspot = $spot1;
$oldteam = $team1;
}
}
}
$this -> team[$oldteam][$oldspot] = "gone";
$this -> team[$team][$spot] = $user;
$this -> pgroup[$user] = $team;
$this -> bot -> send_pgroup($blue . $user . " assigned to team " . $msg[1]);
} else {
$this -> bot -> send_pgroup($blue . $user . " already in team " . $team);
}
} else {
$this -> bot -> send_pgroup($blue . $msg[2] . " not in " . $this -> bot -> botname);
}
}
}
}
} else {
$this -> bot -> send_pgroup($blue . "Sorry, team " . $team . " is full.");
}
}
} elseif(preg_match("#^0#", $msg[1])) {
if(!$msg[2]) {
$user = $name;
} else {
$user = ucfirst($msg[2]);
}
foreach($this -> team as $team1=>$spot1) {
foreach($this -> team[$team1] as $spot1=>$spot2) {
if($this -> team[$team1][$spot1] == $user){
$oldspot = $spot1;
$oldteam = $team1;
}
}
}
$this -> team[$oldteam][$oldspot] = "gone";
if($this -> left[$user]) {
unset($this -> pgroup[$user]);
} else {
$this -> pgroup[$user] = "lft";
}
$this -> bot -> send_pgroup($blue . $user . " cleared from teams.");
}
if($msg[1] == num) {
if($this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
if($msg[2] == auto) {
$this -> autonum = true;
foreach($this -> pgroup as $player=>$value) {
$this -> pgroup[$player] = "lft";
unset($this -> team);
}
$this -> bot -> send_pgroup($blue . "Teams cleared");
$this -> bot -> send_pgroup($blue . "Automatic teams now enabled");
} elseif(preg_match("#^[1-90]#", $msg[2])) {
$this -> numteam = $msg[2];
$this -> bot -> send_pgroup($blue . "Maximum number of teams now set to " . $msg[2]);
$this -> autonum = false;
}
}
}
}


/*
This gets called if someone joins the privgroup
*/
function pgjoin($name) {
if($this -> left[$name]) {
unset($this -> left[$name]);
}
if(!$this -> pgroup[$name]) {
$this -> pgroup[$name] = "lft";
$this -> teams = ceil(count($this -> pgroup)/6);
}
}



/*
This gets called if someone leaves the privgroup
*/
function pgleave($name) {
foreach($this -> team as $team1=>$spot1) {
foreach($this -> team[$team1] as $spot1=>$spot2) {
if($this -> team[$team1][$spot1] == $name){
$oldspot = $spot1;
$oldteam = $team1;
}
}
}
$this -> team[$oldteam][$oldspot] = "gone";
/*if($this -> left[$user]) {
unset($this -> pgroup[$user]);
} 
else {
$this -> pgroup[$user] = "lft";
}*/
$this -> pgroup[$name] = "lft";
if ($this -> pgroup[$name] == "lft") {
unset($this -> pgroup[$name]);
} 
else {
$this -> left[$name] = true;
}
}
}
?>

Per request, I have made it possible to set a highlight color so to speak through your Bot.conf file. All my modules will now use this color if its set, otherwise I've set another color to highlight with. In order for this to work, download these moded files and replace your current versions. I included Bot.conf as well with the extra value, but I suggest just adding in the line $highlight_color = "#FF0000";(or any color) to your pre-existing files.

On top of this, I'm releasing a new version of my Loot module with better formatting, and a new Teams module Lal and I have been working on together. It actually does include some of the changes Zacix has made himself, purely by coincidence, !showmeteams has been changed to !teams, there are now two modes. !teams mode stay, and !teams mode kick. Stay mode will keep users in the teams setup after they leave the bot (My prefered setup to help prevent confusion with LD etc.), and kick mode, where users will be kicked from the teams setup upon exit of the bot.

Code: [Select]


    function member_del($name, $group, $member)
    {
      $group = strtolower($group);
      if (($group == "admin") || ($group == "superadmin"))
        $need_group = "superadmin";
      else
        $need_group = "admin";


This means that if the user is trying to delete an admin or a superadmin, then they need to be a superadmin, otherwise, they need to be an admin. This does not allow users in the admin group to delete superadmins.

Also, this is the wrong thread for this.  

This is true, but u could do !tell <botname> !admin del <username>. In this case group = all (the option where u want to delete the user from all groups). If the <username> is a superadmin and the user that tries to delete the superadmin is just an admin, it will work perfectly well since the code checks the $group against "admin" and "superadmin". Therefore, in my opinion, it's more bulletproof and versatile to check if the user you are trying to delete is in a specific group rather than using the groupname entered.

I do understand the old code btw, and it does not work Only difference with my code is that you can't delete superadmins online. Superadmins will have to be removed from the setupfiles anyway. To make the code the same as yours was intended to be, just remove the first if block.

If u want to check that the old logic doesn't work, make an admin do a /tell <botname> !admin del <superadmin>

Sowwy for using the wrong thread btw and big thx to you guys that's making this a really good bot


function cron()
{
$timeleft = $this -> timer -> time-mktime();
if($timeleft <= 0 && $this -> timer -> active == "on") {
$this -> bot -> send_pgroup("TIMER UP!! ITS ON !!");
unset($this -> timer);
}
}


That should work

Oop ><

Bad bug in my loot module, whoever joins the role first wins. Updated code here, I'll upload asap.

Thanks to Zacix for fixing a bug in the single loot mode.


<?
/*
* Loot Module for BE Bot <http://bebot.fieses.net>
* Module coded by Craized <http://www.craized.net>

/*
Add a "_" at the beginning of the file (_Loot.php) if you do not want it to be loaded.
*/

$loot = new Rolls($bot);


$commands["tell"]["rem"] = &$loot;
$commands["tell"]["add"] = &$loot;
$commands["pgmsg"]["loot"] = &$loot;
$commands["pgmsg"]["add"] = &$loot;
$commands["pgmsg"]["rem"] = &$loot;
$commands["pgmsg"]["result"] = &$loot;
$commands["pgmsg"]["mode"] = &$loot;
$commands["pgmsg"]["list"] = &$loot;
$commands["pgmsg"]["clear"] = &$loot;

/*
The Class itself...
*/
class Rolls {
var $bot;

/*
Constructor:
Hands over a referance to the "Bot" class.
*/
function Rolls (&$bot) {
$this -> bot = &$bot;
$this -> mode = "multi";
if(!$this -> bot -> highlight_color) {
$this -> highlight = "<font color=#CB11C9>";
} else {

$this -> highlight = "<font color=" . $this -> bot -> highlight_color . ">";
}
}

/*
This gets called on a tell with the command
*/
function tell($name, $msg) {
$highlight = $this -> highlight;
if(preg_match("/^" . $this -> bot -> commpre . "rem ([0-9]+)/i", $msg, $info)) {
unset($this -> loot[$info[1]][$name]);
$this -> bot -> send_pgroup($highlight . $name . "</font> removed from rolls in slot$highlight #" . $info[1]);
$this -> bot -> send_tell($name, $highlight . $name . " </font>removed from rolls in slot$highlight #" . $info[1]);
}
if(preg_match("/^" . $this -> bot -> commpre . "add ([0-9]+)/i", $msg, $info)) {
$this -> add($name, $info[1]);
$this -> bot -> send_tell($name, $this -> addmsg);
}
}

/*
This gets called on a msg in the privgroup with the command
*/
function pgmsg($name, $msg) {
$highlight = $this -> highlight;
if(preg_match("/^" . $this -> bot -> commpre . "loot (.*)/i", $msg, $info)) {
$this -> loot($info[1], $name);
}
if(preg_match("/^" . $this -> bot -> commpre . "add ([0-9]+)/i", $msg, $info)) {
$this -> add($name, $info[1]);
}
if(preg_match("/^" . $this -> bot -> commpre . "list/i", $msg)) {
$this -> rlist();
}
if(preg_match("/^" . $this -> bot -> commpre . "mode ?(.*)/i", $msg, $info)) {
if(!$info[1]) {
$this -> bot -> send_pgroup("Loot mode currently set to$highlight " . $this -> mode . "</font>.");
}
if(!$this -> lead || $this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
if(!$this -> lead) {
if($info[1] == single) {
$this -> mode = "single";
$this -> bot -> send_pgroup("Roll mode changed to$highlight single loot</font>.");
} else if($info[1] == multi) {
$this -> mode = "multi";
$this -> bot -> send_pgroup("Roll mode changed to$highlight multiple loot</font>.");
}
} else {
$this -> bot -> send_pgroup("You cannot change the loot mode while rolling is in progress.");
}
}
}

if(preg_match("/^" . $this -> bot -> commpre . "rem ([0-9]+)/i", $msg, $info)) {
unset($this -> loot[$info[1]][$name]);
$this -> bot -> send_pgroup($highlight . $name . "</font> removed from rolls in slot$highlight #" . $info[1]);
}
if(preg_match("/^" . $this -> bot -> commpre . "result/i", $msg)) {
if($this -> lead == $name || !$this -> lead || $this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
$this -> roll($name);
}
}
if(preg_match("/^" . $this -> bot -> commpre . "clear/i", $msg)) {
if($this -> lead == $name || !$this -> lead || $this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin")) {
unset($this -> loot);
unset($this -> lead);
$this -> bot -> send_pgroup("<font color=#FF0000>" . $name . " cancelled the loot rolls in progress");
}
}
}

function add($name, $slot) {
$highlight = $this -> highlight;
unset($present);
if($this -> loot[$slot]) {
if($this -> mode == 'single') {
$slots = array_keys($this -> loot);
foreach($slots as $key=>$sslot) {
$list = array_keys($this -> loot[$sslot]);
foreach($list as $playerslot=>$player) {
if($player == $name) {
unset($this -> loot[$sslot][$player]);
$present = true;
}
}
}
if($present == true) {
$this -> addmsg = $highlight . "$name</font> changed to slot$highlight #$slot</font>";
} else {
$this -> addmsg = $highlight . "$name</font> assigned to slot$highlight #$slot</font>";
}
$this -> loot[$slot][$name] = true;
} else {
$this -> loot[$slot][$name] = true;
$this -> addmsg = $highlight . "$name</font> assiged to slot$highlight #$slot</font>";
}
} else {
$this -> addmsg = "There is currently no roll in slot $slot";
}
$this -> bot -> send_pgroup($this -> addmsg);
}

function loot($msg, $name) {
$highlight = $this -> highlight;
if($this -> lead == $name || !$this -> lead) {
$this -> lead = $name;
$count = count($this -> loot)+1;
$this -> loot[$count][item] = $msg;
$this -> bot -> send_pgroup($highlight . $msg . "</font> being rolled in slot$highlight #" . $count);
}
}

function roll($name){
$highlight = $this -> highlight;
$num = 1;
if($this -> bot -> commands[pgmsg][leader] -> raidleader == $name || $this -> bot -> admin -> in_group($name, "raidleader") || $this -> bot -> admin -> in_group($name, "admin") || $this -> lead == $name || !$this -> lead) {
foreach($this -> loot as $slot) {
unset($winner);
$users = array();
$item = $slot[item];
unset($slot[item]);
$list = $slot;
$users = array_keys($slot);
$rolling = $users;
$count = count($slot)-1;
for($i = 1; $i <= 10000; $i++) {
$list[$users[rand(0, $count)]] += 1;
}
natsort($list);
foreach($list as $name => $points) {
$winner = $name;
}
if(!$winner) {
$winner = Nobody;
}
$this -> bot -> send_pgroup($highlight . $winner . " </font>won the roll for$highlight " . $item . " </font>in slot$highlight #" . $num . "!");
unset($this -> loot[$num]);
unset($this -> lead);
$num++;
}
}
}

function rlist() {
$highlight = $this -> highlight;
$num = 0;
foreach($this -> loot as $slot) {
unset($msg);
$num++;
$msg .= "Rolling on item$highlight $slot[item]</font> in slot$highlight #$num</font>:";
if(count($slot) == 1) {
$msg .= $highlight . " Nobody included";
} else {
$list = array_keys($slot);
foreach($list as $key=>$player) {
if($player != "item") {
$msg .= "$highlight [$player]</font>";
}
}
}
$this -> bot -> send_pgroup($msg);
}
}
}
?>