sub EVENT_SAY {
	if ($text=~/#BuffInfo/i) {
		BuffCountList();
	}
}

sub BuffCountList {
	my $buff_count = $client->BuffCount();
	my $message = "<table>
	<tr>
		<td>" . plugin::PWColor("Slot", "Yellow") . "</td>
		<td>" . plugin::PWColor("Spell ID", "Royal Blue") . "</td>
		<td>" . plugin::PWColor("Spell Name", "Royal Blue") . "</td>
	</tr>";
	for (my $i = 0; $i < 64; $i++) {
		if ($client->FindBuffBySlot($i) != 0) {
			my $spell_id = $client->FindBuffBySlot($i);
			my $spell_name = GetSpellName($spell_id);
			$message .= "<tr>";
				$message .= "<td>" . plugin::PWColor($i, "Yellow") . "</td>";
				$message .= "<td>" . plugin::PWColor($spell_id, "Royal Blue") . "</td>";
				$message .= "<td>" . $spell_name . "</td>";
			$message .= "</tr>";
		}
	}
	$message .= "</table>";
	quest::popup("Buff Info", $message);
}

sub GetSpellName {
	my $spell_id = shift;
	my $dbh = plugin::LoadMysql();
	my $sth = $dbh->prepare("SELECT `name` FROM `spells_new` WHERE `id` = '$spell_id'");
	$sth->execute();
	if ($sth->rows() > 0) {
		my @data = $sth->fetchrow_array();
		return plugin::PWColor($data["name"], "Light Blue");
	} else {
		return plugin::PWColor("INVALID SPELL", "Light Blue");
	}
	$sth->finish();
	$dbh->disconnect();
}