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.