add Card.IsExtraLinkState (#139)

card.cpp

@@ -1368,6 +1368,49 @@ int32 card::is_link_state() {
 		return TRUE;
 	return FALSE;
 }
+int32 card::is_extra_link_state() {
+	if(current.location != LOCATION_MZONE)
+		return FALSE;
+	card_set cset;
+	card_set excset;
+	for(int32 p = 0; p < 2; ++p) {
+		card* pcard1 = pduel->game_field->player[p].list_mzone[5];
+		if(pcard1)
+			excset.insert(pcard1);
+		card* pcard2 = pduel->game_field->player[p].list_mzone[6];
+		if(pcard2)
+			excset.insert(pcard2);
+	}
+	if(excset.size() < 2)
+		return FALSE;
+	auto cit = excset.begin();
+	card* pcard = *cit;
+	excset.erase(pcard);
+	card_set linked_group1;
+	pcard->get_mutual_linked_cards(&linked_group1);
+	if(!linked_group1.size())
+		return FALSE;
+	cset.insert(pcard);
+	return check_extra_link(this, &cset, &excset, &linked_group1);
+}
+int32 card::check_extra_link(card* scard, card_set* cset, card_set* excset, card_set* linked_group1) {
+	for(auto cit = linked_group1->begin(); cit != linked_group1->end(); ++cit) {
+		card* pcard = *cit;
+		if(excset->find(pcard) != cset->end())
+			if(cset->find(scard) != cset->end())
+				return TRUE;
+		if(cset->find(pcard) != cset->end())
+			continue;
+		card_set linked_group2;
+		pcard->get_mutual_linked_cards(&linked_group2);
+		if(!linked_group2.size())
+			continue;
+		cset->insert(pcard);
+		if(check_extra_link(scard, cset, excset, &linked_group2))
+			return TRUE;
+	}
+	return FALSE;
+}
 int32 card::is_position(int32 pos) {
 	return current.position & pos;
 }

card.h

@@ -227,6 +227,8 @@ public:
 	uint32 get_mutual_linked_zone();
 	void get_mutual_linked_cards(card_set * cset);
 	int32 is_link_state();
+	int32 is_extra_link_state();
+	int32 check_extra_link(card* scard, card_set* cset, card_set* excset, card_set* linked_group1);
 	int32 is_position(int32 pos);
 	void set_status(uint32 status, int32 enabled);
 	int32 get_status(uint32 status);

interpreter.cpp

@@ -54,6 +54,7 @@ static const struct luaL_Reg cardlib[] = {
 	{ "GetMutualLinkedGroupCount", scriptlib::card_get_mutual_linked_group_count },
 	{ "GetMutualLinkedZone", scriptlib::card_get_mutual_linked_zone },
 	{ "IsLinkState", scriptlib::card_is_link_state },
+	{ "IsExtraLinkState", scriptlib::card_is_extra_link_state },
 	{ "GetColumnGroup", scriptlib::card_get_column_group },
 	{ "GetColumnGroupCount", scriptlib::card_get_column_group_count },
 	{ "GetColumnZone", scriptlib::card_get_column_zone },

libcard.cpp

@@ -413,6 +413,13 @@ int32 scriptlib::card_is_link_state(lua_State *L) {
 	lua_pushboolean(L, pcard->is_link_state());
 	return 1;
 }
+int32 scriptlib::card_is_extra_link_state(lua_State *L) {
+	check_param_count(L, 1);
+	check_param(L, PARAM_TYPE_CARD, 1);
+	card* pcard = *(card**) lua_touserdata(L, 1);
+	lua_pushboolean(L, pcard->is_extra_link_state());
+	return 1;
+}
 int32 scriptlib::card_get_column_group(lua_State *L) {
 	check_param_count(L, 1);
 	check_param(L, PARAM_TYPE_CARD, 1);

scriptlib.h

@@ -56,6 +56,7 @@ public:
 	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_is_extra_link_state(lua_State *L);
 	static int32 card_get_column_group(lua_State *L);
 	static int32 card_get_column_group_count(lua_State *L);
 	static int32 card_get_column_zone(lua_State *L);