[Quest API] Add Zone Flag Methods to Perl/Lua. (#2574)

* [Quest API] Add Zone Flag Methods to Perl/Lua.

# Perl
- Add `$client->GetPEQZoneFlags()`.
- Add `$client->GetZoneFlags()`.

# Lua
- Add `client:GetPEQZoneFlags()`.
- Add `client:GetZoneFlags()`.

# Notes
- Allows operators to get a list of all PEQ/zone flags to be looped through or listed out easily without having to have a list of individual zone IDs to check or otherwise.

* Update zoning.cpp

* Repositories and cleanup.

common/repositories/character_peqzone_flags_repository.h

@@ -44,7 +44,19 @@ public:
      */
 
 	// Custom extended repository methods here
+	static int DeleteFlag(Database& db, uint32 character_id, uint32 zone_id)
+	{
+		auto results = db.QueryDatabase(
+			fmt::format(
+				"DELETE FROM {} WHERE id = {} AND zone_id = {}",
+				TableName(),
+				character_id,
+				zone_id
+			)
+		);
 
+		return (results.Success() ? results.RowsAffected() : 0);
+	}
 };
 
 #endif //EQEMU_CHARACTER_PEQZONE_FLAGS_REPOSITORY_H