add Card.GetMutualLinkedGroup

card.cpp

@@ -1303,6 +1303,15 @@ uint32 card::get_mutual_linked_zone() {
 	}
 	return zones;
 }
+void card::get_mutual_linked_cards(card_set* cset) {
+	cset->clear();
+	if(!(data.type & TYPE_LINK) || current.location != LOCATION_MZONE)
+		return;
+	int32 p = current.controler;
+	uint32 mutual_linked_zone = get_mutual_linked_zone();
+	pduel->game_field->get_cards_in_zone(cset, mutual_linked_zone, p);
+	pduel->game_field->get_cards_in_zone(cset, mutual_linked_zone >> 16, 1 - p);
+}
 int32 card::is_link_state() {
 	if(current.location != LOCATION_MZONE)
 		return FALSE;

card.h

@@ -202,6 +202,7 @@ public:
 	uint32 get_linked_zone();
 	void get_linked_cards(card_set* cset);
 	uint32 get_mutual_linked_zone();
+	void get_mutual_linked_cards(card_set * cset);
 	int32 is_link_state();
 	int32 is_position(int32 pos);
 	void set_status(uint32 status, int32 enabled);

interpreter.cpp

@@ -47,6 +47,9 @@ static const struct luaL_Reg cardlib[] = {
 	{ "GetLinkedGroup", scriptlib::card_get_linked_group },
 	{ "GetLinkedGroupCount", scriptlib::card_get_linked_group_count },
 	{ "GetLinkedZone", scriptlib::card_get_linked_zone },
+	{ "GetMutualLinkedGroup", scriptlib::card_get_mutual_linked_group },
+	{ "GetMutualLinkedGroupCount", scriptlib::card_get_mutual_linked_group_count },
+	{ "GetMutualLinkedZone", scriptlib::card_get_mutual_linked_zone },
 	{ "IsLinkState", scriptlib::card_is_link_state },
 	{ "GetAttribute", scriptlib::card_get_attribute },
 	{ "GetOriginalAttribute", scriptlib::card_get_origin_attribute },

libcard.cpp

@@ -311,6 +311,32 @@ int32 scriptlib::card_get_linked_zone(lua_State *L) {
 	lua_pushinteger(L, pcard->get_linked_zone());
 	return 1;
 }
+int32 scriptlib::card_get_mutual_linked_group(lua_State *L) {
+	check_param_count(L, 1);
+	check_param(L, PARAM_TYPE_CARD, 1);
+	card* pcard = *(card**)lua_touserdata(L, 1);
+	card::card_set cset;
+	pcard->get_mutual_linked_cards(&cset);
+	group* pgroup = pcard->pduel->new_group(cset);
+	interpreter::group2value(L, pgroup);
+	return 1;
+}
+int32 scriptlib::card_get_mutual_linked_group_count(lua_State *L) {
+	check_param_count(L, 1);
+	check_param(L, PARAM_TYPE_CARD, 1);
+	card* pcard = *(card**)lua_touserdata(L, 1);
+	card::card_set cset;
+	pcard->get_mutual_linked_cards(&cset);
+	lua_pushinteger(L, cset.size());
+	return 1;
+}
+int32 scriptlib::card_get_mutual_linked_zone(lua_State *L) {
+	check_param_count(L, 1);
+	check_param(L, PARAM_TYPE_CARD, 1);
+	card* pcard = *(card**)lua_touserdata(L, 1);
+	lua_pushinteger(L, pcard->get_mutual_linked_zone());
+	return 1;
+}
 int32 scriptlib::card_is_link_state(lua_State *L) {
 	check_param_count(L, 1);
 	check_param(L, PARAM_TYPE_CARD, 1);

scriptlib.h

@@ -49,6 +49,9 @@ public:
 	static int32 card_get_linked_group(lua_State *L);
 	static int32 card_get_linked_group_count(lua_State *L);
 	static int32 card_get_linked_zone(lua_State *L);
+	static int32 card_get_mutual_linked_group(lua_State *L);
+	static int32 card_get_mutual_linked_group_count(lua_State *L);
+	static int32 card_get_mutual_linked_zone(lua_State *L);
 	static int32 card_is_link_state(lua_State *L);
 	static int32 card_get_attribute(lua_State *L);
 	static int32 card_get_origin_attribute(lua_State *L);