Tinkering Mastery

[Turmoiltoad]

I didn't see this posted elsewhere, so sharing it here:

Quests/global/items/script_3751.pl

# Used by books for Tinkering Mastery AA ranks 1 - 3

sub EVENT_ITEM_CLICK {
	if($itemid == 98471) { # Mastering Tinkering Master I Item ID 98471
		$client->GrantAlternateAdvancementAbility(575,1,0); # Tinkering Mastery AA ID 575 Rank 1
		$client->Message(15,"You have mastered tinkering!");
		quest::ding();
	} 
	if($itemid == 98472) { # Mastering Tinkering Master II Item ID 98472
		$client->GrantAlternateAdvancementAbility(575,2,0); # Tinkering Mastery AA ID 575 Rank 2
		$client->Message(15,"You have really mastered tinkering!");
		quest::ding();
	}
	if($itemid == 98473) { # Mastering Tinkering Master III Item ID 98473
		$client->GrantAlternateAdvancementAbility(575,3,0); # Tinkering Mastery AA ID 575 Rank 3
		$client->Message(15,"You are the greatest tinkerer in the world!");
		quest::ding();
	}
}