[Quest API] Add GetBodyTypeName() to Perl/Lua. (#1863)

* [Quest API] Add GetBodyTypeName() to Perl/Lua.
- Add GetBodyTypeName() and GetBodyTypeMap() helper methods.
- Add quest::getbodytypename(bodytype_id) to Perl.
- Add eq.get_body_type_name(bodytype_id) to Lua.

* ShowStats() cleanup.

zone/questmgr.h

@@ -117,6 +117,7 @@ public:
 	std::string getskillname(int skill_id);
 	std::string getfactionname(int faction_id);
 	std::string getlanguagename(int language_id);
+	std::string getbodytypename(uint32 bodytype_id);
 	void safemove();
 	void rain(int weather);
 	void snow(int weather);