Return Plat

[trevius]

Here is a slightly modified script that I use for adding training points to players in case they used all of them and forgot to train something simple like meditate lol. This shows how to return money easy enough. I am sure you could add in $copper, $gold, and $silver in there as well if you wanted to be sure to return any form of money.

sub EVENT_ITEM {

	if($platinum == 100) {
		quest::say("Thank you!  Here is your costly skill point.  Use it wisely!");
		my $cur_skill = $client->GetSkillPoints();
		my $new_skill = ($cur_skill + 1);
		$client->SetSkillPoints("$new_skill");
		quest::say("You have gained 1 skill point.  You must zone before you can use it.");
		$platinum = undef;
	}
	else
	{
		if($platinum) {
			$client->AddMoneyToPP(0, 0, 0, $platinum, updateclient);
			quest::say("That is not the required amount!");
			$platinum = undef;
		}
	}

}