EZ Server

my $hptotal = $client->GetMaxHP();
my $manatotal = $client->GetMaxMana();
my $actotal = $client->GetAC();

my $baserace = $client->GetBaseRace();
my %racelist = (
1 => ["Human"],
2 => ["Barbarian"],
3 => ["Erudite"],
4 => ["Wood Elf"],
5 => ["High Elf"],
6 => ["Dark Elf"],
7 => ["Half Elf"],
8 => ["Dwarf"],
9 => ["Troll"],
10 => ["Ogre"],
11 => ["Halfling"],
12 => ["Gnome"],
330 => ["Froglok"],
522 => ["Drakkin"],
);
my $baserace2 = $racelist{$baserace}[0];

	my $query = "SELECT name, level, race, class, hp, mana, ac, played FROM leaderboards ORDER BY $ORDER_BY DESC LIMIT 10";
	my $query_handle = $connect->prepare($query);
	$query_handle->execute();

	# GET THE 10 RECORDS
	my $place_count = 1;
	while(my $ref = $query_handle->fetchrow_hashref)
	{
		$GET_NAME 	= $ref->{'name'};
		$GET_LEVEL 	= $ref->{'level'};
		$GET_RACE 	= $ref->{'race'};
		$GET_CLASS 	= $ref->{'class'};
		$GET_HP 	= commify2($ref->{'hp'});
		$GET_MANA 	= commify2($ref->{'mana'});
		$GET_AC 	= commify2($ref->{'ac'});
		$GET_PLAYED 	= $ref->{'played'};
		$GetDays 	= commify2(int($GET_PLAYED/(24*60*60)));
		$GetDays	= "Blocked";

		push(@table, "<TR><TD>$place_count
			<TD><c \"#FE2E2E\"> $GET_NAME </c>
			<TD><c \"#DF7401\"> $GET_LEVEL </c>
			<TD><c \"#868A08\"> $GET_RACE </c>
			<TD><c \"#088A08\"> $GET_CLASS </c>
			<TD><c \"#0B615E\"> $GET_HP </c>
			<TD><c \"#0431B4\"> $GET_MANA </c>
			<TD><c \"#8904B1\"> $GET_AC </c>
			<TD><c \"#DF013A\"> $GetDays </c>
			<TD>");
		$place_count++;
	}
	push(@table, "</table>");

	quest::popup("Top Ten Players by $ORDER_BY", "@table");

mysql> set global max_allowed_packet=100000000;
Query OK, 0 rows affected (0.00 sec)

$sth = $dbh->prepare("SELECT  name, hp, mana, class, level, armor, aa, race FROM leaderboard ORDER BY hp DESC LIMIT 10,10");

128 => ["Iksar"],
130 => ["Vah Shir"],

if ($text=~/MY RANK/i)
	{
		$sth = $dbh->prepare("SELECT hp from leaderboard WHERE name = '$name'");
		$sth->execute();
		my $rankedHP = $sth->fetchrow_array();
		$sth = $dbh->prepare("SELECT COUNT(hp) from leaderboard WHERE hp > $rankedHP");
		$sth->execute();
		my $ranked = int($sth->fetchrow_array()+1);
		$client->Message(315,"You are Ranked Number $ranked on HP!");
		if ($ranked > 10)
		{
			$ranklist = int($ranked -10);
		}
		else
		{
			$ranklist = int(1);
		}
		@table = "<table><TR><TD>#<TD>$Yel NAME </c><TD>$grn HP </c><TD>$Blu MANA </c><TD>$Pink CLASS </c>/$orange Race </c><TD>$Red LEVEL </c><TD>AC<TD>$purp AA </c><TD>";
	$sth = $dbh->prepare("SELECT  name, hp, mana, class, level, armor, aa, race FROM leaderboard ORDER BY hp DESC LIMIT $ranklist,10");
	$sth->execute();
		$n = $ranklist;
		if ($n > 1)
		{
			$n = $n+1;
		}
		while (my ($pname, $php, $pmana, $pclass, $plevel, $pac, $paa, $prace) = $sth->fetchrow_array())
		{
		my $php2 = plugin::commify($php);
		my $pmana2 = plugin::commify($pmana);
		my $pac2 = plugin::commify($pac);
		my $paa2 = plugin::commify($paa);
			push(@table, "<TR><TD>$n<TD>$Yel $pname </c><TD>$grn $php2 </c><TD>$Blu $pmana2 </c><TD>$Pink $pclass </c>/$orange $prace </c><TD>$Red $plevel </c><TD>$pac2<TD>$purp $paa2 </c><TD>");
		$n++;
		}
		push(@table, "</table>");
	quest::popup("Your Rank", "@table");
	$sth->finish ();
	$dbh->disconnect();
	}

if ($text=~/MY RANK/i)
	{
		$sth = $dbh->prepare("SELECT hp from leaderboard WHERE name = '$name'");
		$sth->execute();
		my $rankedHP = $sth->fetchrow_array();
		$sth = $dbh->prepare("SELECT COUNT(hp) from leaderboard WHERE hp > $rankedHP");
		$sth->execute();
		my $ranked = int($sth->fetchrow_array()+1);
		$client->Message(315,"You are Ranked Number $ranked on HP!");
		if ($ranked > 10)
		{
			$ranklist = int($ranked -10);
		}
		else
		{
			$ranklist = 0;
		}
		@table = "<table><TR><TD>#<TD>$Yel NAME </c><TD>$grn HP </c><TD>$Blu MANA </c><TD>$Pink CLASS </c>/$orange Race </c><TD>$Red LEVEL </c><TD>AC<TD>$purp AA </c><TD>";
		$sth = $dbh->prepare("SELECT  name, hp, mana, class, level, armor, aa, race FROM leaderboard ORDER BY hp DESC LIMIT $ranklist,10");
		$sth->execute();
		$n = $ranklist;  #Set Rank to the Ranklist number
		if ($ranked > 10)
		{
			$n = $n+1;   #If their rank is over 10 you must add 1 otherwise it won't be correct
		}
		if ($n == 0)
		{
			$n = 1;   #If they are in the top 10 need this part
		}
		while (my ($pname, $php, $pmana, $pclass, $plevel, $pac, $paa, $prace) = $sth->fetchrow_array())
		{
		my $php2 = plugin::commify($php);
		my $pmana2 = plugin::commify($pmana);
		my $pac2 = plugin::commify($pac);
		my $paa2 = plugin::commify($paa);
			push(@table, "<TR><TD>$n<TD>$Yel $pname </c><TD>$grn $php2 </c><TD>$Blu $pmana2 </c><TD>$Pink $pclass </c>/$orange $prace </c><TD>$Red $plevel </c><TD>$pac2<TD>$purp $paa2 </c><TD>");
		$n++;
		}
		push(@table, "</table>");
	quest::popup("Your Rank", "@table");
	$sth->finish ();
	$dbh->disconnect();
	}