Completed script below:
Code:
sub EVENT_SAY
{
my $stats = quest::saylink("stats", 1);
my $NPCNAME = $npc->GetCleanName();
if($text=~/hail/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'Hey there $name, I'm really good at guessing your $stats. Go on, try me!'");
}
elsif($text=~/stats/i)
{
$str = $client->GetSTR();
$sta = $client->GetSTA();
$agi = $client->GetAGI();
$dex = $client->GetDEX();
$wis = $client->GetWIS();
$intel = $client->GetINT();
$cha = $client->GetCHA();
$ac = $client->GetAC();
$atk = $client->GetATK();
$hp = $client->GetHP();
$hp2 = $client->GetMaxHP();
$mana = $client->GetMana();
$mana2 = $client->GetMaxMana();
$end = $client->GetEndurance();
$end2 = $client->GetMaxEndurance();
$aa = $client->GetAAPoints();
$aa2 = $client->GetSpentAA();
$client->Message(314, "----------------------------------------------------------------");
$client->Message(315, "$NPCNAME whispers to you, '$name: Current Health: $hp Max Health: $hp2'");
$client->Message(315, "$NPCNAME whispers to you, '$name: Current Endurance: $end Max Endurance: $end2'");
$client->Message(315, "$NPCNAME whispers to you, '$name: Current Mana: $mana Max Mana: $mana2'");
$client->Message(315, "$NPCNAME whispers to you, '$name: Total AA Points: $aa Spent AA Points: $aa2'");
$client->Message(315, "$NPCNAME whispers to you, '$name: Armor Class: $ac Attack: $atk'");
$client->Message(315, "$NPCNAME whispers to you, '$name: Strength: $str Stamina: $sta Agility: $agi'");
$client->Message(315, "$NPCNAME whispers to you, '$name: Dexterity: $dex Wisdom: $wis Intelligence: $intel Charisma: $cha'");
$client->Message(314, "----------------------------------------------------------------");
}
}
sub EVENT_ITEM
{
quest::say("I do not need this.");
quest::givecash($copper,$silver,$gold,$platinum);
plugin::return_items(\%itemcount);
}