View Single Post
  #7  
Old 01-06-2013, 02:25 AM
kmra247
Sarnak
 
Join Date: Apr 2012
Posts: 55
Default

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);
}
Reply With Quote