[Quest API] Add CopyHateList() to Perl/Lua. (#2623)

* [Quest API] Add CopyHateList() to Perl/Lua.

# Perl
- Add `$mob->CopyHateList(to_mob)`.

# Lua
- Add `mob:CopyHateList(to_mob)`.

# Notes
- Allows operators to easily copy and entire hatelist from one mob to another.

* Update mob.cpp

zone/mob.h

@@ -654,6 +654,8 @@ public:
 	inline const bool AlwaysAggro() const { return always_aggro; }
 	inline int32 GetHeroicStrikethrough() const  { return heroic_strikethrough; }
 
+	void CopyHateList(Mob* to);
+
 	//Group
 	virtual bool HasRaid() = 0;
 	virtual bool HasGroup() = 0;