Code:
#Illusionist_Mindbender.pl
#zone:poknowledge
#Magicdragon
sub EVENT_SAY
{
if(($text=~/hail/i))
{
$npc->SetAppearance(0);
quest::emote("waves at $name");
quest::say("Welcome, welcome, I am the mighty Illusionist Mindbender and I'll happily [bend] your mind for a price");
}
if($text=~/bend/i && $ulevel>= 1 && $ulevel<= 14)
{
$npc->SetAppearance(0);
quest::say("Well my friend, your [will] is only proficient for [breeze], it will cost you 1 platinum.");
}
if($text=~/bend/i && $ulevel>= 15 && $ulevel<= 29)
{
$npc->SetAppearance(0);
quest::say("A lot of puney rats want my mind buffs, sadly their [will] is not as advanced, sadly you fall in this line and can only obtain [clarity] from me, this spell will cost you 5 platinum.");
}
if($text=~/bend/i && $ulevel>= 30 && $ulevel<= 45)
{
$npc->SetAppearance(0);
quest::say("Ha, I'd call you a Mid-be, in other words your [will] is strong enough to handle my [clarity 2] spell which still sucks. It's 10 platinum if you want it.");
}
if($text=~/bend/i && $ulevel>= 46 && $ulevel<= 50)
{
$npc->SetAppearance(0);
quest::say("Nice, you can now forget Illusionist Orange here to my right, your [will] is quite powerful enough for [KEI]. However, it will cost you 30 platinum.");
}
if($text=~/bend/i && $ulevel>= 51 && $ulevel<= 55)
{
$npc->SetAppearance(0);
quest::say("You have come to the right place friend, your [will] is capable of [tranquility]. It's better then [KEI], but does not last as long. [KEI] is still 30 platinum if you want it. [tranquility] is 35 platinum.");
}
if($text=~/bend/i && $ulevel>= 56 && $ulevel<= 59)
{
$npc->SetAppearance(0);
quest::say("Wow, your [will] is quite strong, I can sense it pulse with energy. I can offer you [VOQ] which is much better then [KEI], but does not last as long. [KEI] is still 30 platinum if you want it. [VOQ] is 40 platinum.");
}
if($text=~/bend/i && $ulevel>= 60)
{
$npc->SetAppearance(0);
quest::emote("looks quite happy");
quest::say("FINALLY, Someone that I can respect! Your [will] is as powerful as mine. If you want [KEI] it's still 30 platinum as always. But why not take advantage of [clairvoyance]. It's much more powerful then [KEI] but doesn't last as long. I can cast it on you for just 50 platinum.");
}
if($text=~/will/i)
{
$npc->SetAppearance(0);
quest::say("I can offer [breeze] starting at level 1, [clarity] at level 15, [clarity 2] at level 30, [KEI] at level 46, [tranquility] at level 51, [VOQ] at level 56, and finally and definitely something that will keep you up at night, [clairvoyance] at level 60.");
}
if($text=~/breeze/i)
{
$npc->SetAppearance(0);
quest::say("Breeze: 4 to 6 mana per tick, and lasts 27 minutes. This spell will cost you 1 platinum.");
}
if($text=~/clarity/i)
{
$npc->SetAppearance(0);
quest::say("Clarity: 7 to 9 mana per tick, and lasts 27 minutes. You need a will of at least level 15 to handle it. This spell will cost you 5 platinum.");
}
if($text=~/clarity 2/i)
{
$npc->SetAppearance(0);
quest::say("Clarity 2: 9 to 11 mana per tick, and lasts 35 minutes. You will need a will of at least level 30 to handle it. This spell will cost you 10 platinum.");
}
if($text=~/KEI/i)
{
$npc->SetAppearance(0);
quest::say("Koadic's Endless Intelligence: Increases mana pool by 250, 14 mana per tick, +25 WIS, +25 INT, and lasts 2 hours and 30 minutes. You will need a will of at least level 46 to handle this spell. It will cost you 30 platinum.");
}
if($text=~/tranquility/i)
{
$npc->SetAppearance(0);
quest::say("Tanquility: Increases mana pool by 260, 16 mana per tick, +26INT, +26WIS, and lasts 1 hour and 20 minutes. You will need a will of at least level 51. This spell will cost you 35 platinum.");
}
if($text=~/VOQ/i)
{
$npc->SetAppearance(0);
quest::say("Voice of Quellious: Increases mana pool by 275, 18 mana per tick, +28WIS, +28INT, and lasts 1 hour and 20 minutes. You will need a will of at least 56. This spell will cost you 40 platinum.");
}
if($text=~/clairvoyance/i)
{
$npc->SetAppearance(0);
quest::say("Clairvoyance: Increases mana pool by 400, 20 mana per tick, +32WIS, +32INT, and lasts 1 hour and 20 minutes. You will need a will of at least 60. This spell will cost you 50 platinum.");
}
}
sub EVENT_SPAWN
{
$x = $npc->GetX();
$y = $npc->GetY();
quest::set_proximity($x - 90, $x + 90, $y - 90, $y + 90);
}
sub EVENT_ENTER
{
$npc->SetAppearance(1);
my $random_result = int(rand(100));
if($random_result <= '75')
{
quest::shout("Casting Mind Buffs for donations on the rock behind the main bank!");
}
else
{
#Do Nothing
}
}
sub EVENT_ITEM
{
if($platinum >= '1' && $platinum <= '4' && $ulevel <= '45')
{
$npc->SetAppearance(0);
quest::selfcast(697);
quest::say("Thanks for the donation, check with Vicar Qadar for health buffs.");
}
if($platinum >= '5' && $platinum <= '9' && $ulevel <= '45' && $ulevel >= '15')
{
$npc->SetAppearance(0);
quest::selfcast(174);
quest::say("Thanks for the donation, check with Vicar Qadar for health buffs.");
}
if($platinum >= '10' && $platinum <= '29' && $ulevel <= '45' && $ulevel >= '30')
{
$npc->SetAppearance(0);
quest::selfcast(1693);
quest::say("Thanks for the donation, check with Vicar Qadar for health buffs.");
}
if($platinum >= '30' && $platinum <= '34' && $ulevel >= '46')
{
$npc->SetAppearance(0);
quest::selfcast(2570);
quest::say("Thanks for the donation, check with Vicar Qadar for health buffs.");
}
if($platinum >= '35' && $platinum <= '39' && $ulevel >= '51')
{
$npc->SetAppearance(0);
quest::selfcast(3350);
quest::say("Thanks for the donation, check with Vicar Qadar for health buffs.");
}
if($platinum >= '40' && $platinum <= '49' && $ulevel >= '56')
{
$npc->SetAppearance(0);
quest::selfcast(3360);
quest::say("Thanks for the donation, check with Vicar Qadar for health buffs.");
}
if($platinum >= '50' && $ulevel >= '60')
{
$npc->SetAppearance(0);
quest::selfcast(5522);
quest::say("Thanks for the donation, check with Vicar Qadar for health buffs.");
}
}