Added $client->GetMoney(type, subtype) to Perl/Lua.

Types:
- 0: Copper
- 1: Silver
- 2: Gold
- 3: Platinum
Sub Types (if applicable):
- 0: On Character
- 1: In Bank
- 2: On Cursor
- 3: Shared Bank (only applies to Type 3/Platinum)

zone/client.h

@@ -663,6 +663,7 @@ public:
 	bool HasMoney(uint64 copper);
 	uint64 GetCarriedMoney();
 	uint64 GetAllMoney();
+	uint32 GetMoney(uint8 type, uint8 subtype);
 
 	bool IsDiscovered(uint32 itemid);
 	void DiscoverItem(uint32 itemid);