Test_Console_NPC.pl

##Written by: Kingly_Krab
##NOTE: Must have global_player.pl for all of my scripts.
sub EVENT_SAY
{
    if($text=~/Hail/i)
    {
        plugin::Whisper("I have 4 settings.");
        plugin::Whisper("You can say 'Announcement' then some text,");
        plugin::Whisper("'Warning' then some text,");
        plugin::Whisper("'Message' then some text,");
        plugin::Whisper("Or 'Error' then some text.");
    }
    if($text=~/^Announcement/i)
    {
        my @announcesplit = split / /, substr($text, 13);
        my @wordarray = ();
        foreach $word (@announcesplit)
        {
            push(@wordarray, $word);
        }
        quest::we(327, "Server Announcement sent by $name: @wordarray");
    }
    if($text=~/^Warning/i)
    {
        my @warningsplit = split / /, substr($text, 8);
        my @wordarray = ();
        foreach $word (@warningsplit)
        {
            push(@wordarray, $word);
        }
        quest::we(331, "Server Warning sent by $name: @wordarray");
    }
    if($text=~/^Message/i)
    {
        my @messagesplit = split / /, substr($text, 8);
        my @wordarray = ();
        foreach $word (@messagesplit)
        {
            push(@wordarray, $word);
        }
        quest::we(335, "Server Message sent by $name: @wordarray");
    }
    if($text=~/^Error/i)
    {
        my @errorsplit = split / /, substr($text, 6);
        my @wordarray = ();
        foreach $word (@errorsplit)
        {
            push(@wordarray, $word);
        }
        quest::we(342, "Server Error sent by $name: @wordarray");
    }
}