Fake players...npc_player scripts

[WarAngel]

####################################
#:: Usage:			plugin::wa_KillMode([minRange], [maxRange]); Example... plugin::wa_KillRange(500, 1000);
#:: Created:		12April2020
#:: Version:		wa_1.00
#:: Author:			Others have made the scripts and I just mushed them togather, and created a bastard child...WarAngel
#:: Description:	To have a NPC create the illusion of other real world players running around.
#:: With help from:	TurmoilToad,Salvanna,Akkadius,Trust,Kinglykrab
#:: Plugins:		plugin::val('$npc');
#:: Future Plans	Figure out interaction with waypoints.
####################################

sub wa_KillMode
{
	#quest::debug("Killmode begin for " . $npc->GetName() . ""); #Wrong place to put this as it prevents the script
	my $npc = plugin::val('$npc'); #this was what I was missing. without this the plugin was not knowing who was calling
	my $entity_list = plugin::val('$entity_list');
	my $wa_minRange = $_[0]; #pulled from first position in the plugin call
	my $wa_maxRange = $_[1]; #pulled from second position in the plugin call

	$wa_disUpper = plugin::RandomRange($wa_minRange, $wa_maxRange);
	#$wa_rangelower = plugin::RandomRange(1, $wa_varRange);

    #my @npc_list = $entity_list->GetNPCList(); # "@" is for array... "my" is for a single... I am an idiot
	@npc_list = $entity_list->GetNPCList(); #not sure in a plugin why this works and not the one with a "my"
	#quest::debug("Killmode begin for " . $npc->GetName() . "");

	foreach $npc_ent (@npc_list) 
	{ ###This whole next if has me bonkers...seems counter intuitive...oposites...">" is less than. "==" is NOT equal 
		#quest::debug("Killmode subscript begin for " . $npc->GetName() . ""); #This debug will repeat for each NPC in the GetNPCList()
		next if $npc_ent->CalculateDistance($x, $y, $z) > $wa_disUpper; #skip mobs OVER $wa_disUpper distance, check those BELOW
		next if $npc_ent->CalculateDistance($x, $y, $z) < $wa_minRange; #skip mobs BELOW $wa_minRange distance, check those OVER
		next if $npc_ent->GetLevel() > $npc->GetLevel(); # Enemy level parameters...works...but some mobs are never attacked, do not know why
		next if $npc_ent->IsEngaged(); # Is target in combat?...works
		next if $npc_ent->GetID() == $npc->GetID(); #Lets not kill ourself..have not tested this
		next if ($npc_ent->GetSpecialAbility(19) || $npc_ent->GetSpecialAbility(20) || $npc_ent->GetSpecialAbility(24) || $npc_ent->GetSpecialAbility(35)); #Immune to melee / magic / aggro / noharm SKIP...have not tested this
		next if $npc_ent->GetBodyType() == 11; #skip untargetable NPCs...have not tested this
		next if $npc_ent->GetOwnerID(); #skip pets...have not tested this
		next if $npc_ent->CheckNPCFactionAlly(faction_id) == $npc->CheckNPCFactionAlly(faction_id); #We are brothers and sisters in arms, lets not kill each other
		#quest::shout("I am coming for you, " . $npc_ent->GetCleanName() . "!");
		quest::SetRunning(1);
		$npc->AddToHateList($npc_ent, 1); #We now HATE HIM!...Will go through the list thats left and pick the npc at the bottom of the list to attack
		#quest::debug("Killmode subscript end for " . $npc->GetName() . "");	
		last; #we found a valid target jump out of the loop
    }
}

####################################
#:: Usage:			plugin::wa_RandomName();
#:: Created:		13Apr2020
#:: Version:		wa_1.00
#:: Author:			Akkadius, and others have made the scripts and I just mushed them togather, and created a bastard child...WarAngel
#:: Description:	To have a NPC create the illusion of other real world players running around.
#:: With help from:	TurmoilToad,Salvanna,Akkadius,Trust,Kinglykrab
#:: Plugins:		plugin::val('$npc');
#:: Future Plans	Turn this into an array plugin.
####################################

sub wa_RandomName
{
	my $npc = plugin::val('$npc');
	my $wa_RanRoll = int(rand(3)); #Need to make a gender and maybe race checks. Hence why I will make a array plugin sometime soon, 3 means total of three int not 1-3

	if ($wa_RanRoll == 0)
		{
			$npc->TempName("Kid_one");
		}
	if ($wa_RanRoll == 1)
		{
			$npc->TempName("Kid_two");
		}
	if ($wa_RanRoll == 2)
		{
			$npc->TempName("Kid_three");
		}
}

####################################
#:: Usage:			plugin::wa_ChatMode();
#:: Created:		12Apr202
#:: Version:		wa_1.00
#:: Author:			Akkadius, and others have made the scripts and I just mushed them togather, and created a bastard child...WarAngel
#:: Description:	To have a NPC create the illusion of other real world players running around.
#:: With help from:	TurmoilToad,Salvanna,Akkadius,Trust,Kinglykrab
#:: Plugins:		plugin::val('$npc'); plugin::SetAnim("sit"); plugin::DoAnim("dance"); plugin::RandomRange(1, 100);
#:: Future Plans	Turn this into an array.
####################################

sub wa_ChatMode
{
	my $npc = plugin::val('$npc');
	my $wa_intCHAT = plugin::RandomRange(1, 100); #Random int used localy

	#quest::shout("Hiyas folks I am ". $npc->GetName() ."!"); #This worked
	#quest::emote("Does the whole zone hear me!!"); #Works but emote has a limited range
	#plugin::RandomSay(chance(1-100), "Heyhey!!","How are you all doing?","How about it?"); #Not working...even when I am on top of NPC...I believe I know why now. Working on this for next version.
				
	if ($wa_intCHAT <= 33) #Below or at 33
	{
		plugin::SetAnim("sit"); #Options (stand/sit/duck/dead/kneel)		
		#quest::shout2("worldwide only shout"); #Does not use...relies on the datbase name
		#quest::we(14, "World emote");
		#quest::debug("wa_intCHAT Sarcastic chat");
	}
	if ($wa_intCHAT > 33 && $wa_intCHAT <= 66) #Above between 33 66
	{
		plugin::SetAnim("stand"); #Options (stand/sit/duck/dead/kneel)
		#quest::debug("wa_intCHAT Positive chat");
	}
	if ($wa_intCHAT > 66) #above 66
	{
		plugin::DoAnim("dance");		
		#quest::shout("Zone shout"); #Does not use...relies on the dataase name
		#quest::ze(14, "Zone emote");
		#quest::debug("wa_intCHAT idiot chat");
	}
}

return 1;	#This line is required at the end of every plugin file in order to use it


#@a = (1..5);
#@a = (1..3, 5, 7..11);