[Kingly_Krab]

With your script you aren't using /i on your string comparisons, meaning you must say "Rainkeeper" and can't say "RaINKeeper", "rainkeeper", or any other variation. Here's my version of this quest:

sub EVENT_SAY {
    if ($faction <= 5) {
        if ($text=~/Hail/i) {
            plugin::Whisper("Welcome, Karacleri. I am Deadet Losaren, faithful priest of Karana. You appear to be in search of " . quest::saylink("guidance", 1) . " or perhaps you are merely a " . quest::saylink("visitor to the temple of thunder", 1) . " wishing the blessing of " . quest::saylink("holy armor", 1) . "?");
        }
        elsif ($text=~/Visitor To The Temple Of Thunder/i) {
            plugin::Whisper("Then feel free to look around and speak with the priests and paladins of Thunder. May you find ways to serve the " . quest::saylink("Rainkeeper", 1) . ".");
        }
        elsif ($text=~/Rainkeeper/i) {
            plugin::Whisper("Karana, the Rainkeeper, is the provider of the storms. If it were not for the storms of Karana, life would not flourish. All should pay tribute to the Rainkeeper.");
        }
        elsif ($text=~/Holy Armor/i) {
            plugin::Whisper("Holy Armor? I offer the blessing of Holy Armor to members in good standing of the Knights of Thunder. I must charge ten gold for the service. These " . quest::saylink("components", 1) . " are expensive these days! If you were willing to get me some, I could perhaps gift you with something much " . quest::saylink("better", 1) . "!");
        }
        elsif ($text=~/Better/i) {
            plugin::Whisper("I have been playing around a bit with priestly magic. I can share the secrets I have learned if you bring me those " . quest::saylink("components", 1) . ".");
        }
        elsif ($text=~/Guidance/i) {
            plugin::Whisper("So it is guidance you seek. You will begin on the bottom rung. There is much more to our temple than the bashing of foes. We will need you to " . quest::saylink("collect donations", 1) . ".");
        }
        elsif ($text=~/Donations/i) {
            plugin::Whisper("Then you are a new acolyte. Take this Chest of Faith into Qeynos and Qeynos Hills. Find me six residents willing to donate to the Temple of Thunder.  Combine these donations within the Chest of Faith and return it to me. Do so and I shall reward you with the spell 'Ward Undead.' Now go and spread the Word of Karana.");
            quest::summonitem(17925);
        }
        elsif ($text=~/Components/i) {
            plugin::Whisper("Components are required for my daily tribute to the Rainkeeper. It is he whose power flows from my body. I require a faithful acolyte to " . quest::saylink("gather the required items", 1) . ".");
        }
        elsif ($text=~/Gather The Required Items/i) {
            plugin::Whisper("Very noble of you. Take this chest. I will require it to be filled with flame beetle eyes. Four normal beetles and four " . quest::saylink("Kerra Isle beetles", 1) . ".  Combine these items within the chest and return it to me. I shall reward you with the protection of Holy Armor.");
            quest::summonitem(17934);
        }
        elsif ($text=~/Kerra Isle Beetles/i) {
            plugin::Whisper("Kerra Isle beetles are normally found in the vicinity of the Kerra catpeople. They can be found in Kerra Ridge, but a closer and perhaps safer location would be on the island between Antonica and Odus. The outcast catpeople of that island are far less dangerous.");
        }
    }
    elsif ($faction > 5) {
        plugin::Whisper("While I admire your interest, you need to do more work for the Knights before we can entrust this to you.");
    }
}

sub EVENT_ITEM  {
    my %factions = (183 => 10,
    21 => -10,
    257 => 7,
    135 => 7);
    if ($gold == 10) {
        plugin::Whisper("This should help you remain safe.");
        $npc->SpellFinished(11, $client);
    }

    if (plugin::check_handin(\%itemcount, 13395 => 1)) {
        plugin::Whisper("You did it! Thank you, the Knights of Thunder can use these. Take this and study it. It should help you serve the order.");
        quest::exp(500);
        foreach $key (keys %factions) {
            quest::faction($key, $factions{$key});
        }
        quest::summonitem(26962);
    }
}