[mystic414]

First, you have sub EVENT ITEM placed within the sub EVENT SAY routine. They need to be kept seperate. Also, I don't know why you're using quest::text. quest::say is better. And I'm pretty sure it requires a double-quote " rather than a single-quote ' to work.

sub EVENT_SAY {
  if($text=~/Hail/i) {
    quest::say ("Greetings $name, I bet you are here to collect your armor??");
  }
  if($text=~/yes/i) {
    quest::say ("Well you must head to greater faydark and bring me back four spiderling silk");
  }
}

sub EVENT_ITEM {
  if ($itemcount{13099}==4) {
    if ($ulevel>3) {
      quest::emote('starts to wave quickly.');
      quest::say('congradulation!');
      quest::summonitem(25);
      quest::summonitem(26);
      quest::summonitem(27);
      quest::summonitem(28);
      quest::summonitem(29);
      quest::summonitem(30);
      quest::summonitem(100);
      quest::summonitem(1000);
    }
  }
  else {
    quest::say("You will have to be more skilled to complete that quest.");
    quest::summonitem(13099);
    quest::summonitem(13099);
    quest::summonitem(13099);
    quest::summonitem(13099);
  }
}