peqzone had to be implemented in C++ to support zoning to any zone by name (no way to turn a zone name into a zone ID in perl right now). This is because the function to cause the player to zone takes a zone ID, not a zone name... if you only wanted to support zoning to a few zones, you could map from name to id in your code, and then call $client->MovePC($zoneid, 0, 0, 0) after checking whatever restrictions you want.
|