my spell scriber

[Davood]

I believe in sharing, you will want to change the item IDs to reflect items modified to represent the last level of spells acquired through the focuser (name of item).

Enjoy.

Note; there are error traps for wrong currency amounts, and wrong item hand ins, so that you don't lose your stuff

If you go through the code you can see there is incrementally increasing price on the spells scribing... it seems like "alot' but really it isn't all that crazy on my server as I have an "npc economy" which I can explain later.

anyways enjoy !


# level 1 to 11

sub EVENT_SAY {

if ($text=~ /Hail/i) {

quest::say("Greetings ! I can invest you with the powers of [level 1] to 11, [level eleven] to 50, [level 51] to 60, [level 61] to 65, [level 66] to 70 spells !");

}

if ($text=~ /level 1/i) {

quest::say("Are you [most definately] sure that you want to reset to level one to ten spells?");

}
if ($text=~ /most definately/i) {

quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");

quest::exp(1);
quest::scribespells(10);

quest::summonitem(72725);

}

if ($text=~ /level eleven/i) {

quest::say("Yep ! It will cost you 500 platinum for every 10 levels up to 50, and I will give you a [token] that you have to hand in with the pp for each succeeding rank, MAKE SURE YOU HAND IN THE TOKEN WITH THE PP");

}
if ($text=~ /level 51/i) {

quest::say("Yep ! It will cost you 5,000 platinum PER level up to 60 and requires a [token] for each level.");

}
if ($text=~ /level 61/i) {

quest::say("Yep ! It will cost you 25,000 platinum PER level up to 65 and requires a [token] for each level.");

}
if ($text=~ /level 66/i) {

quest::say("Yep ! It will cost you 50,000 platinum PER level up to 70 and requires a [token] for each level.");

}

if ($text=~ /token/i) {

quest::say("Don't lose your token ! It is used to get to the next rank of spells, assuming you have the money ! If you lose it, you will have to start over from the beginning ! Chuu Chuu !");

}

}



sub EVENT_ITEM {

if(plugin::check_handin(\%itemcount, 72725 => 1) && ($platinum == 500)){

quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");

quest::exp(1);

quest::scribespells(20);

quest::summonitem(72726);

}

if(plugin::check_handin(\%itemcount, 72726 => 1) && ($platinum == 500)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(30);
quest::summonitem(72727);
}

if(plugin::check_handin(\%itemcount, 72727 => 1) && ($platinum == 500)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(40);
quest::summonitem(72728);
}

if(plugin::check_handin(\%itemcount, 72728 => 1) && ($platinum == 500)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu ! NEXT RANK OF SPELLS REQUIRES 5,000 PLAT");
quest::exp(1);
quest::scribespells(50);
quest::summonitem(72729);
}

if(plugin::check_handin(\%itemcount, 72729 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
# $x = $ulevel;
# quest::level(51);
quest::scribespells(51);
# quest::level($x);
quest::summonitem(72730);
}

if(plugin::check_handin(\%itemcount, 72730 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(52);
quest::summonitem(72731);
}

if(plugin::check_handin(\%itemcount, 72731 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(53);
quest::summonitem(72732);
}

if(plugin::check_handin(\%itemcount, 72732 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(54);
quest::summonitem(72733);
}

if(plugin::check_handin(\%itemcount, 72733 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(55);
quest::summonitem(72734);
}

if(plugin::check_handin(\%itemcount, 72734 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(56);
quest::summonitem(72735);
}

if(plugin::check_handin(\%itemcount, 72735 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(57);
quest::summonitem(72736);
}

if(plugin::check_handin(\%itemcount, 72736 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(58);
quest::summonitem(72737);
}

if(plugin::check_handin(\%itemcount, 72737 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(59);
quest::summonitem(72738);
}

if(plugin::check_handin(\%itemcount, 72738 => 1) && ($platinum == 5000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu ! NEXT RANK OF SPELLS REQUIRES 25,000 PLAT");
quest::exp(1);
quest::scribespells(60);
quest::summonitem(72739);
}

if(plugin::check_handin(\%itemcount, 72739 => 1) && ($platinum == 25000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(61);
quest::summonitem(72740);
}

if(plugin::check_handin(\%itemcount, 72740 => 1) && ($platinum == 25000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(62);
quest::summonitem(72741);
}

if(plugin::check_handin(\%itemcount, 72741 => 1) && ($platinum == 25000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(63);
quest::summonitem(72742);
}

if(plugin::check_handin(\%itemcount, 72742 => 1) && ($platinum == 25000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(64);
quest::summonitem(72743);
}

if(plugin::check_handin(\%itemcount, 72743 => 1) && ($platinum == 25000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu ! NEXT RANK OF SPELLS REQUIRES 50,000 PLAT");
quest::exp(1);
quest::scribespells(65);
quest::summonitem(72744);
}

if(plugin::check_handin(\%itemcount, 72744 => 1) && ($platinum == 50000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(66);
quest::summonitem(72745);
}

if(plugin::check_handin(\%itemcount, 72745 => 1) && ($platinum == 50000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(67);
quest::summonitem(72746);
}

if(plugin::check_handin(\%itemcount, 72746 => 1) && ($platinum == 50000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(68);
quest::summonitem(72747);
}

if(plugin::check_handin(\%itemcount, 72747 => 1) && ($platinum == 50000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(69);
quest::summonitem(72748);
}

if(plugin::check_handin(\%itemcount, 72748 => 1) && ($platinum == 50000)){
quest::say("Mabulu Bubulu Chu ! Keep this token for the next set of spells ! Chu Chu !");
quest::exp(1);
quest::scribespells(70);
quest::summonitem(72749);
}


#if(plugin::check_handin($platinum != 500) && ($platinum != 5000) && ($platinum != 25000) && ($platinum != 50000)){
# quest::givecash($copper,$silver,$gold,$platinum);
#}

if(($item1==72725) && ($platinum != 500)){
quest::say("Hmm here's your token and pp back, try again ! ITS 500 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72725);
}

if(($item1==72726) && ($platinum != 500)){
quest::say("Hmm here's your token and PP back, try again ! ITS 500 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72726);
}
if(($item1==72727) && ($platinum != 500)){
quest::say("Hmm here's your token and PP back, try again ! ITS 500 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72727);
}
if(($item1==72728) && ($platinum != 500)){
quest::say("Hmm here's your token and PP back, try again ! ITS 500 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72728);
}
if(($item1==72729) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72729);
}
if(($item1==72730) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72730);
}
if(($item1==72731) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72731);
}
if(($item1==72732) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72732);
}
if(($item1==72733) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72733);
}
if(($item1==72734) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72734);
}
if(($item1==72735) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72735);
}
if(($item1==72736) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72736);
}
if(($item1==72737) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72737);
}
if(($item1==72738) && ($platinum != 5000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 5,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72738);
}
if(($item1==72739) && ($platinum != 25000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 25,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72739);
}
if(($item1==72740) && ($platinum != 25000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 25,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72740);
}
if(($item1==72741) && ($platinum != 25000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 25,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72741);
}
if(($item1==72742) && ($platinum != 25000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 25,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72742);
}
if(($item1==72743) && ($platinum != 25000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 25,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72743);
}
if(($item1==72744) && ($platinum != 50000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 50,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72744);
}
if(($item1==72745) && ($platinum != 50000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 50,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72745);
}
if(($item1==72746) && ($platinum != 50000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 50,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72746);
}
if(($item1==72747) && ($platinum != 50000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 50,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72747);
}
if(($item1==72748) && ($platinum != 50000)){
quest::say("Hmm here's your token and PP back, try again ! ITS 50,000 PLAT FOR THIS TURN IN");
quest::givecash($copper,$silver,$gold,$platinum);
quest::summonitem(72748);
}




else {

quest::say("I have no need for this item $name, you can have it back.");

plugin::return_items(\%itemcount);

}

}

# EOF zone: bazaar spell merchantzorz