Added a new client method in Perl and Lua.
- Added uint32 GetMoney(uint8 type, uint8 coin_type = 0) - returns a uint32 of the specified type of money rather than a uint64 so it can be used correctly in Perl (added to Lua as well).
- uint8 type -> Type 1: On Player, Type 2: Bank, Type 3: Cursor
- uint8 coin_type -> Type 1: Copper, Type 2: Silver, Type 3: Gold, Type 4: Platinum
- uint8 type -> Type 4: Will return shared Platinum, due to this, coin_type is unnecessary when pulling shared Platinum.