Code:
sub EVENT_SAY {
my $AA = $client->GetAAPoints();
my $cost = $AA * 10;
if($text=~/hail/i) {
quest::say("It will cost you $cost platinum for a chunk of experience.");
}
}
sub EVENT_ITEM {
my $AA = $client->GetAAPoints();
my $cost = $AA * 10;
if($platinum == $cost) {
quest::exp(10000000);
}
else {
$client->AddMoneyToPP(0, 0, 0, $platinum, updateclient);
quest::say("That's not what I asked for!");
}
}
Not sure if you still need a script, it's been a while. Here's a quick and sloppy one to give you an idea of a way you could do it.