#The Converter - Purchase Varlyndrian Augments - Created by Drakiyth

###WORKS REALLY WELL. ONLY KNOWN ISSUE IS DISPLAY ERRORS###

###133564	0	Varlyndrian Jewel of Minor Power
###133565	0	Varlyndrian Jewel of Lesser Power
###133566	0	Varlyndrian Jewel of Moderate Power
###133567	0	Varlyndrian Jewel of Greater Power
###133568	0	Varlyndrian Jewel of Immense Power
###133569	0	Varlyndrian Jewel of Extreme Power  - NOT SOLD HERE - DROP BOSSES
###133570	0	Varlyndrian Jewel of Cosmic Power - NOT SOLD HERE - DROP BOSSES
###133571	0	Varlyndrian Jewel of Godly Power - NOT SOLD HERE - DROP BOSSES

sub EVENT_SAY{

my $total = $client->GetAAPoints();
my $purchase = quest::saylink("Purchase Augments");
my $convert = quest::saylink("Convert AA Points into Platinum");
my $buyminor = quest::saylink("Purchase Minor");
my $buylesser = quest::saylink("Purchase Lesser");
my $buymoderate = quest::saylink("Purchase Moderate");
my $buygreater = quest::saylink("Purchase Greater");
my $buyimmense = quest::saylink("Purchase Immense");
my $buyextreme = quest::saylink("Purchase Extreme");

my $convaa1 = quest::saylink("Convert 1 AA Point into 250 Platinum");
my $convaa10 = quest::saylink("Convert 10 AA Points into 2500 Platinum");
my $convaa50 = quest::saylink("Convert 50 AA Points into 12500 Platinum");
my $convaa100 = quest::saylink("Convert 100 AA Points into 25000 Platinum");
my $convaa500 = quest::saylink("Convert 500 AA Points into 125000 Platinum");
my $convaa1000 = quest::saylink("Convert 1000 AA Points into 250000 Platinum");
my $convaa5000 = quest::saylink("Convert 5000 AA Points into 1250000 Platinum");


my $showminor = quest::varlink(133564);
my $showlesser = quest::varlink(133565);
my $showmoderate = quest::varlink(133566);
my $showgreater = quest::varlink(133567);
my $showimmense = quest::varlink(133568);
my $showextreme = quest::varlink(133569);

################################################################################################################
#####################################AA POINT SYSTEM### AUTO UPDATES############################################
################################################################################################################

if ($text=~/hail/i)
{
plugin::Whisper("Greetings $name, I am Dria, the Wise, one of the many Daughter's of Veeshan. I hope you're enjoying your stay in New Sarith. I can help you advance further in your travels by offering you countless power,
but I also wish to know of your adventures and what you have earned in your lifetime. I wish to know of your heroism and villainy. The grey matter is all that matters in this world and I understand it's hard for you mortals to fully grasp.
The balance must never end, or we truly will face oblivion one day. Do you wish to $purchase or $convert today?");
}

if ($text=~/Purchase/i)
{
plugin::Whisper("Greetings $name, I am Dria, the Wise, one of the many Daughter's of Veeshan. I hope you're enjoying your stay in New Sarith. I can help you advance further in your travels by offering you countless power,
but I also wish to know of your adventures and what you have earned in your lifetime. I wish to know of your heroism and villainy. The grey matter is all that matters in this world and I understand it's hard for you mortals to fully grasp.
The balance must never end, or we truly will face oblivion one day. Do you wish to $purchase or $convert today?");
$client->Message(327, "__________________________________________________________________________________________");
$client->Message(327, "YOU CURRENTLY HAVE $total AA POINTS TO SPEND. WHAT WOULD YOU LIKE TO PURCHASE?");
$client->Message(327, "__________________________________________________________________________________________");
$client->Message(327, "I can offer you a $showminor -- [COST: 2 AA POINTS EACH] -- $buyminor --");
$client->Message(327, "I can offer you a $showlesser -- [COST: 25 AA POINTS EACH] -- $buylesser --");
$client->Message(327, "I can offer you a $showmoderate -- [COST: 150 AA POINTS EACH] -- $buymoderate --");
$client->Message(327, "I can offer you a $showgreater -- [COST: 650 AA POINTS EACH] -- $buygreater --");
$client->Message(327, "I can offer you a $showimmense -- [COST: 1590 AA POINTS EACH] -- $buyimmense --");
$client->Message(327, "I can offer you a $showextreme -- [COST: 4900 AA POINTS EACH] -- $buyextreme --");
$client->Message(327, "__________________________________________________________________________________________");
}

if ($text=~/Convert/i)
{
$client->Message(327, "__________________________________________________________________________________________");
$client->Message(327, "YOU CURRENTLY HAVE $total AA POINTS TO CONVERT INTO PLATINUM. WHAT DO YOU WANT TO DO?");
$client->Message(327, "__________________________________________________________________________________________");
$client->Message(327, "------------- $convaa1 -----------------");
$client->Message(327, "------------- $convaa10 ----------------");
$client->Message(327, "------------- $convaa50 ----------------");
$client->Message(327, "------------- $convaa100 ---------------");
$client->Message(327, "------------- $convaa500 ---------------");
$client->Message(327, "------------- $convaa1000 --------------");
$client->Message(327, "------------- $convaa5000 --------------");
$client->Message(327, "__________________________________________________________________________________________");
}

###############################################################################################################
########################################### PURCHASE AUGMENTS #################################################
###############################################################################################################
if($text=~/^Purchase Minor$/i && $total >= 2)
{
plugin::Whisper("My power is yours.");
quest::summonitem(133564);
$client->AddAAPoints(-2);
}

if($text=~/^Purchase Minor$/i && $total < 2)
{
$client->Message(13, "You can't afford that.");
}
############################################################
if($text=~/^Purchase Lesser$/i && $total >= 25)
{
plugin::Whisper("My power is yours.");
quest::summonitem(133565);
$client->AddAAPoints(-25);
}

if($text=~/^Purchase Lesser$/i && $total < 25)
{
$client->Message(13, "You can't afford that.");
}
############################################################
if($text=~/^Purchase Moderate$/i && $total >= 150)
{
plugin::Whisper("My power is yours.");
quest::summonitem(133566);
$client->AddAAPoints(-150);
}

if($text=~/^Purchase Moderate$/i && $total < 150)
{
$client->Message(13, "You can't afford that.");
}
############################################################
if($text=~/^Purchase Greater$/i && $total >= 650)
{
plugin::Whisper("My power is yours.");
quest::summonitem(133567);
$client->AddAAPoints(-650);
}

if($text=~/^Purchase Greater$/i && $total < 650)
{
$client->Message(13, "You can't afford that.");
}
############################################################
if($text=~/^Purchase Immense$/i && $total >= 1590)
{
plugin::Whisper("My power is yours.");
quest::summonitem(133568);
$client->AddAAPoints(-1590);
}

if($text=~/^Purchase Immense$/i && $total < 1590)
{
$client->Message(13, "You can't afford that.");
}
############################################################
if($text=~/^Purchase Extreme$/i && $total >= 4900)
{
plugin::Whisper("My power is yours.");
quest::summonitem(133569);
$client->AddAAPoints(-4900);
}

if($text=~/^Purchase Extreme$/i && $total < 4900)
{
$client->Message(13, "You can't afford that.");
}

###############################################################################################################
################################### CONVERT AA TO MONEY #######################################################
###############################################################################################################

my $convaa1 = quest::saylink("Convert 1 AA Point into 250 Platinum");
my $convaa10 = quest::saylink("Convert 10 AA Points into 2500 Platinum");
my $convaa50 = quest::saylink("Convert 50 AA Points into 12500 Platinum");
my $convaa100 = quest::saylink("Convert 100 AA Points into 25000 Platinum");
my $convaa500 = quest::saylink("Convert 500 AA Points into 125000 Platinum");
my $convaa1000 = quest::saylink("Convert 1000 AA Points into 250000 Platinum");
my $convaa5000 = quest::saylink("Convert 5000 AA Points into 1250000 Platinum");


#####################################################################################
if($text=~/^Convert 1 AA Point into 250 Platinum$/i && $total >= 1)
{
plugin::Whisper("It is done.");
quest::givecash(0,0,0,250);
$client->AddAAPoints(-1);
}

if($text=~/^Convert 1 AA Point into 250 Platinum$/i && $total < 1)
{
$client->Message(13, "You can't afford that.");
}
#####################################################################################
if($text=~/^Convert 10 AA Points into 2500 Platinum$/i && $total >= 10)
{
plugin::Whisper("It is done.");
quest::givecash(0,0,0,2500);
$client->AddAAPoints(-10);
}

if($text=~/^Convert 10 AA Points into 2500 Platinum$/i && $total < 10)
{
$client->Message(13, "You can't afford that.");
}
#####################################################################################
if($text=~/^Convert 50 AA Points into 12500 Platinum$/i && $total >= 50)
{
plugin::Whisper("It is done.");
quest::givecash(0,0,0,12500);
$client->AddAAPoints(-50);
}

if($text=~/^Convert 10 AA Points into 12500 Platinum$/i && $total < 50)
{
$client->Message(13, "You can't afford that.");
}
#####################################################################################
if($text=~/^Convert 100 AA Points into 25000 Platinum$/i && $total >= 100)
{
plugin::Whisper("It is done.");
quest::givecash(0,0,0,25000);
$client->AddAAPoints(-100);
}

if($text=~/^Convert 100 AA Points into 25000 Platinum$/i && $total < 100)
{
$client->Message(13, "You can't afford that.");
}
#####################################################################################
if($text=~/^Convert 500 AA Points into 125000 Platinum$/i && $total >= 500)
{
plugin::Whisper("It is done.");
quest::givecash(0,0,0,125000);
$client->AddAAPoints(-500);
}

if($text=~/^Convert 500 AA Points into 125000 Platinum$/i && $total < 500)
{
$client->Message(13, "You can't afford that.");
}
#####################################################################################
if($text=~/^Convert 1000 AA Points into 250000 Platinum$/i && $total >= 1000)
{
plugin::Whisper("It is done.");
quest::givecash(0,0,0,250000);
$client->AddAAPoints(-1000);
}

if($text=~/^Convert 1000 AA Points into 250000 Platinum$/i && $total < 1000)
{
$client->Message(13, "You can't afford that.");
}
#####################################################################################
if($text=~/^Convert 5000 AA Points into 1250000 Platinum$/i && $total >= 5000)
{
plugin::Whisper("It is done.");
quest::givecash(0,0,0,1250000);
$client->AddAAPoints(-5000);
}

if($text=~/^Convert 5000 AA Points into 1250000 Platinum$/i && $total < 5000)
{
$client->Message(13, "You can't afford that.");
}

}