[Quest API] Add multiple augment related methods to Perl/Lua. (#1930)

* [Quest API] Add multiple augment related methods to Perl/Lua.
- Add $inventory->CountAugmentEquippedByID(item_id) to Perl.
- Add $inventory->HasAugmentEquippedByID(item_id) to Perl.
- Add $item->ContainsAugmentByID(item_id) to Perl.
- Add $item->CountAugmentByID(item_id) to Perl.
- Add inventory:CountAugmentEquippedByID(item_id) to Perl.
- Add inventory:HasAugmentEquippedByID(item_id) to Perl.
- Add item:ContainsAugmentByID(item_id) to Perl.
- Add item:CountAugmentByID(item_id) to Perl.

* Update inventory_profile.cpp

zone/lua_iteminst.h

@@ -80,6 +80,8 @@ public:
 	void SetTimer(std::string name, uint32 time);
 	void StopTimer(std::string name);
 	void ClearTimers();
+	bool ContainsAugmentByID(uint32 item_id);
+	int CountAugmentByID(uint32 item_id);
 
 private:
 	bool cloned_;