plugin::RandomSay && plugin::RandomEmote

[Akkadius]

Hi! This is a sudden daily occurrence. But I made another plugin to simplify the making of scripts.

The plugin itself is fairly simple, you declare the amount of messages you want the plugin to execute, and then quote the messages after the declare.

There are two parts to this plugin function. RandomSay and RandomEmote. It works well for random npc says and random npc emotes (helpful when making aggro messages).

The number that you see below before the messages represents the amount of messages you want the NPC to take into account. It works 1-6 and that's it.

Hope you find this helpful. I'll probably be making more.

sub EVENT_SAY
{
plugin::RandomSay(6,"Yo","Yo2","Yo3","Yo4","Yo5","Yo6");
}

sub EVENT_SAY
{
plugin::RandomEmote(6,"Yo","Yo2","Yo3","Yo4","Yo5","Yo6");
}

Name this plugin, RandomMessages.pl in the plugins folder of your server.

	###Usage: plugin::RandomSay(numberofrandommessages,"message1","message2","message3","message4","message5","$message6");
	###Usage: plugin::RandomEmote(numberofrandommessages,"message1","message2","message3","message4","message5","$message6");
	###Akkadius of Blood of the Akkadian
	sub RandomSay {
		my $client = plugin::val('$client');
		my $Rsaycount = $_[0];
		my $message1 = $_[1];
		my $message2 = $_[2];
		my $message3 = $_[3];
		my $message4 = $_[4];
		my $message5 = $_[5];
		my $message6 = $_[6];
			if ($Rsaycount == 1)
			{
			quest::say(quest::ChooseRandom("$message1",));
			}
				if ($Rsaycount == 2)
				{
				quest::say(quest::ChooseRandom("$message1","$message2"));
				}
					if ($Rsaycount == 3)
					{
					quest::say(quest::ChooseRandom("$message1","$message2","$message3"));
					}
						if ($Rsaycount == 4)
						{
						quest::say(quest::ChooseRandom("$message1","$message2","$message3","$message4"));
						}
							if ($Rsaycount == 5)
							{
							quest::say(quest::ChooseRandom("$message1","$message2","$message3","$message4","$message5"));
							}
								if ($Rsaycount == 6)
								{
								quest::say(quest::ChooseRandom("$message1","$message2","$message3","$message4","$message5","$message6"));
								}
	}
		sub RandomEmote {
		my $client = plugin::val('$client');
		my $Emotecount = $_[0];
		my $emote1 = $_[1];
		my $emote2 = $_[2];
		my $emote3 = $_[3];
		my $emote4 = $_[4];
		my $emote5 = $_[5];
		my $emote6 = $_[6];
			if ($Emotecount == 1)
			{
			quest::emote(quest::ChooseRandom("$emote1",));
			}
				if ($Emotecount == 2)
				{
				quest::emote(quest::ChooseRandom("$emote1","$emote2"));
				}
					if ($Emotecount == 3)
					{
					quest::emote(quest::ChooseRandom("$emote1","$emote2","$emote3"));
					}
						if ($Emotecount == 4)
						{
						quest::emote(quest::ChooseRandom("$emote1","$emote2","$emote3","$emote4"));
						}
							if ($Emotecount == 5)
							{
							quest::emote(quest::ChooseRandom("$emote1","$emote2","$emote3","$emote4","$emote5"));
							}
								if ($Emotecount == 6)
								{
								quest::emote(quest::ChooseRandom("$emote1","$emote2","$emote3","$emote4","$emote5","$emote6"));
								}
			}
	
	return 1;