sub EVENT_SAY {
    if($text=~/Hail/i) {
        plugin::Whisper("Greetings.. I am a researcher wizard for the King and I am here to help you learn your spells past level 86. Course I used to be just a greenhorn on a ship at sea. Do you like " . quest::saylink("seamen", 1) . "?'");
    } elsif($text=~/scribe/i && defined $qglobals{"SpellLevel"}) {
        quest::traindiscs($qglobals{"SpellLevel"}, 87);
        quest::scribespells($qglobals{"SpellLevel"}, 87);
        plugin::Whisper("Scribed your spells.");
    } elsif($text=~/scribe/i && !defined $qglobals{"SpellLevel"}) {
        plugin::Whisper("I cannot scribe your spells, you haven't learned anything, have you?!");
    } elsif($text=~/seamen/i) {
        plugin::Whisper("Well speaking of seamen, if you find any " . quest::saylink("slick stones", 1) . " around I could use them for... research. I can trade you my knowledge of arts and crafts in exchange for them. Or perhaps you have already turned this type of thing in in which case I can just " . quest::saylink("scribe", 1) . " your spells up to that level if you wish.  However if you have NOT turned them in you will need to, they can be found on any creatures out in the land over level 90 or so.");
    } elsif($text=~/slick stones/i) {
        plugin::Whisper("These Mystical Runes of Learning can be found on any creatures out in the lands that would con RED to a level 88.. But I would try Akheva Ruins or the Oasis Orcs.");
    }
}

sub EVENT_ITEM {
    if (defined $qglobals{"SpellLevel"} && $qglobals{"SpellLevel"} < 99 && plugin::check_handin(\%itemcount, 4380 => 1)) {
        quest::traindiscs(($qglobals{"SpellLevel"} + 1), ($qglobals{"SpellLevel"} + 1));
        quest::scribespells(($qglobals{"SpellLevel"} + 1), ($qglobals{"SpellLevel"} + 1));
        quest::setglobal("SpellLevel", ($qglobals{"SpellLevel"} + 1), 5, "F");
        plugin::Whisper("You have learned everything up to level " . ($qglobals{"SpellLevel"} + 1) . ".");
    } elsif (!defined $qglobals{"SpellLevel"} && plugin::check_handin(\%itemcount, 4380 => 1)) {
        quest::traindiscs(88, 88);
        quest::scribespells(88, 88);
        quest::setglobal("SpellLevel", 88, 5, "F");
        plugin::Whisper("You have learned everything up to level 88.");
    }
    plugin::return_items(\%itemcount);
}