dep-ygopro-core/playerop.cpp

/*
 * playerop.cpp
 *
 *  Created on: 2010-12-22
 *      Author: Argon
 */

#include "field.h"
#include "duel.h"
#include "effect.h"
#include "card.h"

#include <algorithm>
#include <stack>

int32_t field::select_battle_command(uint16_t step, uint8_t playerid) {
	if(step == 0) {
		auto message = pduel->new_message(MSG_SELECT_BATTLECMD);
		message->write<uint8_t>(playerid);
		//Activatable
		message->write<uint32_t>(core.select_chains.size());
		std::sort(core.select_chains.begin(), core.select_chains.end(), chain::chain_operation_sort);
		for(const auto& ch : core.select_chains) {
			effect* peffect = ch.triggering_effect;
			card* pcard = peffect->get_handler();
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint32_t>(pcard->current.sequence);
			message->write<uint64_t>(peffect->description);
			message->write<uint8_t>(peffect->get_client_mode());
		}
		//Attackable
		message->write<uint32_t>(core.attackable_cards.size());
		for(auto& pcard : core.attackable_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint8_t>(pcard->current.sequence);
			message->write<uint8_t>(pcard->direct_attackable);
		}
		//M2, EP
		if(core.to_m2)
			message->write<uint8_t>(1);
		else
			message->write<uint8_t>(0);
		if(core.to_ep)
			message->write<uint8_t>(1);
		else
			message->write<uint8_t>(0);
		return FALSE;
	} else {
		uint32_t t = returns.at<int32_t>(0) & 0xffff;
		uint32_t s = returns.at<int32_t>(0) >> 16;
		if(t > 3
		   || (t == 0 && s >= core.select_chains.size())
		   || (t == 1 && s >= core.attackable_cards.size())
		   || (t == 2 && !core.to_m2)
		   || (t == 3 && !core.to_ep)) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}
int32_t field::select_idle_command(uint16_t step, uint8_t playerid) {
	if(step == 0) {
		auto message = pduel->new_message(MSG_SELECT_IDLECMD);
		message->write<uint8_t>(playerid);
		//idle summon
		message->write<uint32_t>(core.summonable_cards.size());
		for(auto& pcard : core.summonable_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint32_t>(pcard->current.sequence);
		}
		//idle spsummon
		message->write<uint32_t>(core.spsummonable_cards.size());
		for(auto& pcard : core.spsummonable_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint32_t>(pcard->current.sequence);
		}
		//idle pos change
		message->write<uint32_t>(core.repositionable_cards.size());
		for(auto& pcard : core.repositionable_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint8_t>(pcard->current.sequence);
		}
		//idle mset
		message->write<uint32_t>(core.msetable_cards.size());
		for(auto& pcard : core.msetable_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint32_t>(pcard->current.sequence);
		}
		//idle sset
		message->write<uint32_t>(core.ssetable_cards.size());
		for(auto& pcard : core.ssetable_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint32_t>(pcard->current.sequence);
		}
		//idle activate
		message->write<uint32_t>(core.select_chains.size());
		std::sort(core.select_chains.begin(), core.select_chains.end(), chain::chain_operation_sort);
		for(const auto& ch : core.select_chains) {
			effect* peffect = ch.triggering_effect;
			card* pcard = peffect->get_handler();
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint32_t>(pcard->current.sequence);
			message->write<uint64_t>(peffect->description);
			message->write<uint8_t>(peffect->get_client_mode());
		}
		//To BP
		if(infos.phase == PHASE_MAIN1 && core.to_bp)
			message->write<uint8_t>(1);
		else
			message->write<uint8_t>(0);
		if(core.to_ep)
			message->write<uint8_t>(1);
		else
			message->write<uint8_t>(0);
		if(infos.can_shuffle && player[playerid].list_hand.size() > 1)
			message->write<uint8_t>(1);
		else
			message->write<uint8_t>(0);
		return FALSE;
	} else {
		uint32_t t = returns.at<int32_t>(0) & 0xffff;
		uint32_t s = returns.at<int32_t>(0) >> 16;
		if(t > 8
		   || (t == 0 && s >= core.summonable_cards.size())
		   || (t == 1 && s >= core.spsummonable_cards.size())
		   || (t == 2 && s >= core.repositionable_cards.size())
		   || (t == 3 && s >= core.msetable_cards.size())
		   || (t == 4 && s >= core.ssetable_cards.size())
		   || (t == 5 && s >= core.select_chains.size())
		   || (t == 6 && (infos.phase != PHASE_MAIN1 || !core.to_bp))
		   || (t == 7 && !core.to_ep)
		   || (t == 8 && !(infos.can_shuffle && player[playerid].list_hand.size() > 1))) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}
int32_t field::select_effect_yes_no(uint16_t step, uint8_t playerid, uint64_t description, card* pcard) {
	if(step == 0) {
		if((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			returns.set<int32_t>(0, 1);
			return TRUE;
		}
		auto message = pduel->new_message(MSG_SELECT_EFFECTYN);
		message->write<uint8_t>(playerid);
		message->write<uint32_t>(pcard->data.code);
		message->write(pcard->get_info_location());
		message->write<uint64_t>(description);
		returns.set<int32_t>(0, -1);
		return FALSE;
	} else {
		if(returns.at<int32_t>(0) != 0 && returns.at<int32_t>(0) != 1) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}
int32_t field::select_yes_no(uint16_t step, uint8_t playerid, uint64_t description) {
	if(step == 0) {
		if((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			returns.set<int32_t>(0, 1);
			return TRUE;
		}
		auto message = pduel->new_message(MSG_SELECT_YESNO);
		message->write<uint8_t>(playerid);
		message->write<uint64_t>(description);
		returns.set<int32_t>(0, -1);
		return FALSE;
	} else {
		if(returns.at<int32_t>(0) != 0 && returns.at<int32_t>(0) != 1) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}
int32_t field::select_option(uint16_t step, uint8_t playerid) {
	if(step == 0) {
		returns.set<int32_t>(0, -1);
		if(core.select_options.size() == 0)
			return TRUE;
		if((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			returns.set<int32_t>(0, 0);
			return TRUE;
		}
		auto message = pduel->new_message(MSG_SELECT_OPTION);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(static_cast<uint8_t>(core.select_options.size()));
		for(auto& option : core.select_options)
			message->write<uint64_t>(option);
		return FALSE;
	} else {
		if(returns.at<int32_t>(0) < 0 || returns.at<int32_t>(0) >= (int32_t)core.select_options.size()) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}

namespace {
template<typename ReturnType>
bool parse_response_cards(ProgressiveBuffer& returns, return_card_generic<ReturnType>& return_cards, const std::vector<ReturnType>& select_cards, bool cancelable) {
	auto type = returns.at<int32_t>(0);
	if(type == -1) {
		if(cancelable) {
			return_cards.canceled = true;
			return true;
		}
		return false;
	}
	auto& list = return_cards.list;
	if(type == 3) {
		for(size_t i = 0; i < select_cards.size(); ++i) {
			if(returns.bitGet(i + (sizeof(uint32_t) * 8)))
				list.push_back(select_cards[i]);
		}
	} else {
		try {
			auto size = returns.at<uint32_t>(1);
			for(uint32_t i = 0; i < size; ++i) {
				list.push_back(select_cards.at(
					(type == 0) ? returns.at<uint32_t>(i + 2) :
					(type == 1) ? returns.at<uint16_t>(i + 4) :
					returns.at<uint8_t>(i + 8)
				)
				);
			}
		} catch(...) {
			return false;
		}
	}
	if(std::is_same<ReturnType, card*>::value) {
		std::sort(list.begin(), list.end());
		auto ip = std::unique(list.begin(), list.end());
		bool res = (ip == list.end());
		list.resize(std::distance(list.begin(), ip));
		return res;
	}
	return true;
}
}
bool inline field::parse_response_cards(bool cancelable) {
	return ::parse_response_cards(returns, return_cards, core.select_cards, cancelable);
}
int32_t field::select_card(uint16_t step, uint8_t playerid, uint8_t cancelable, uint8_t min, uint8_t max) {
	if(step == 0) {
		return_cards.clear();
		returns.clear();
		if(max == 0 || core.select_cards.empty()) {
			auto message = pduel->new_message(MSG_HINT);
			message->write<uint8_t>(HINT_SELECTMSG);
			message->write<uint8_t>(playerid);
			message->write<uint64_t>(0);
			return TRUE;
		}
		if(max > core.select_cards.size())
			max = static_cast<uint8_t>(core.select_cards.size());
		if(min > max)
			min = max;
		if((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			for(int32_t i = 0; i < min; ++i) {
				return_cards.list.push_back(core.select_cards[i]);
			}
			return TRUE;
		}
		core.units.begin()->arg2 = ((uint32_t)min) + (((uint32_t)max) << 16);
		auto message = pduel->new_message(MSG_SELECT_CARD);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(cancelable || min == 0);
		message->write<uint32_t>(min);
		message->write<uint32_t>(max);
		message->write<uint32_t>((uint32_t)core.select_cards.size());
		std::sort(core.select_cards.begin(), core.select_cards.end(), card::card_operation_sort);
		for(auto& pcard : core.select_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write(pcard->get_info_location());
		}
		return FALSE;
	} else {
		if(!parse_response_cards(cancelable || min == 0)) {
			return_cards.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		if(return_cards.canceled)
			return TRUE;
		if(return_cards.list.size() < min || return_cards.list.size() > max) {
			return_cards.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}
int32_t field::select_card_codes(uint16_t step, uint8_t playerid, uint8_t cancelable, uint8_t min, uint8_t max) {
	if(step == 0) {
		return_card_codes.clear();
		returns.clear();
		if(max == 0 || core.select_cards_codes.empty()) {
			auto message = pduel->new_message(MSG_HINT);
			message->write<uint8_t>(HINT_SELECTMSG);
			message->write<uint8_t>(playerid);
			message->write<uint64_t>(0);
			return TRUE;
		}
		if(max > core.select_cards_codes.size())
			max = static_cast<uint8_t>(core.select_cards_codes.size());
		if(min > max)
			min = max;
		if((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			for(int32_t i = 0; i < min; ++i) {
				return_card_codes.list.push_back(core.select_cards_codes[i]);
			}
			return TRUE;
		}
		core.units.begin()->arg2 = ((uint32_t)min) + (((uint32_t)max) << 16);
		auto message = pduel->new_message(MSG_SELECT_CARD);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(cancelable || min == 0);
		message->write<uint32_t>(min);
		message->write<uint32_t>(max);
		message->write<uint32_t>((uint32_t)core.select_cards_codes.size());
		for(const auto& obj : core.select_cards_codes) {
			message->write<uint32_t>(obj.first);
			message->write(loc_info{ playerid, 0, 0, 0 });
		}
		return FALSE;
	} else {
		if(!::parse_response_cards(returns, return_card_codes, core.select_cards_codes, cancelable || min == 0)) {
			return_card_codes.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		if(return_card_codes.canceled)
			return TRUE;
		if(return_card_codes.list.size() < min || return_card_codes.list.size() > max) {
			return_card_codes.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}
int32_t field::select_unselect_card(uint16_t step, uint8_t playerid, uint8_t cancelable, uint8_t min, uint8_t max, uint8_t finishable) {
	if (step == 0) {
		return_cards.clear();
		returns.clear();
		if (core.select_cards.empty() && core.unselect_cards.empty()) {
			auto message = pduel->new_message(MSG_HINT);
			message->write<uint8_t>(HINT_SELECTMSG);
			message->write<uint8_t>(playerid);
			message->write<uint64_t>(0);
			return TRUE;
		}
		if ((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			if(cancelable)
				return_cards.canceled = true;
			else
				return_cards.list.push_back(core.select_cards.size() ? core.select_cards.front() : core.unselect_cards.front());
			return TRUE;
		}
		auto message = pduel->new_message(MSG_SELECT_UNSELECT_CARD);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(finishable);
		message->write<uint8_t>(cancelable);
		message->write<uint32_t>(min);
		message->write<uint32_t>(max);
		message->write<uint32_t>((uint32_t)core.select_cards.size());
		std::sort(core.select_cards.begin(), core.select_cards.end(), card::card_operation_sort);
		for (auto& pcard : core.select_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write(pcard->get_info_location());
		}
		message->write<uint32_t>((uint32_t)core.unselect_cards.size());
		for(auto& pcard : core.unselect_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write(pcard->get_info_location());
		}
		return FALSE;
	} else {
		if(returns.at<int32_t>(0) == -1) {
			if(cancelable || finishable) {
				return_cards.canceled = true;
				return TRUE;
			}
			return_cards.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		if(returns.at<int32_t>(0) == 0 || returns.at<int32_t>(0) > 1) {
			return_cards.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		int32_t _max = (int32_t)(core.select_cards.size() + core.unselect_cards.size());
		int retval = returns.at<int32_t>(1);
		if(retval < 0 || retval >= _max){
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return_cards.list.push_back((retval >= (int32_t)core.select_cards.size()) ? core.unselect_cards[retval - core.select_cards.size()] : core.select_cards[retval]);
		return TRUE;
	}
}
int32_t field::select_chain(uint16_t step, uint8_t playerid, uint8_t spe_count, uint8_t forced) {
	if(step == 0) {
		returns.set<int32_t>(0, -1);
		if((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			if(core.select_chains.size() == 0)
				returns.set<int32_t>(0, -1);
			else if(forced)
				returns.set<int32_t>(0, 0);
			else {
				bool act = true;
				for(const auto& ch : core.current_chain)
					if(ch.triggering_player == 1)
						act = false;
				if(act)
					returns.set<int32_t>(0, 0);
				else
					returns.set<int32_t>(0, -1);
			}
			return TRUE;
		}
		auto message = pduel->new_message(MSG_SELECT_CHAIN);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(spe_count);
		message->write<uint8_t>(forced);
		message->write<uint32_t>(core.hint_timing[playerid]);
		message->write<uint32_t>(core.hint_timing[1 - playerid]);
		std::sort(core.select_chains.begin(), core.select_chains.end(), chain::chain_operation_sort);
		message->write<uint32_t>(core.select_chains.size());
		for(const auto& ch : core.select_chains) {
			effect* peffect = ch.triggering_effect;
			card* pcard = peffect->get_handler();
			message->write<uint32_t>(pcard->data.code);
			message->write(pcard->get_info_location());
			message->write<uint64_t>(peffect->description);
			message->write<uint8_t>(peffect->get_client_mode());
		}
		return FALSE;
	} else {
		if(!forced && returns.at<int32_t>(0) == -1)
			return TRUE;
		if(returns.at<int32_t>(0) < 0 || returns.at<int32_t>(0) >= (int32_t)core.select_chains.size()) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}
int32_t field::select_place(uint16_t step, uint8_t playerid, uint32_t flag, uint8_t count) {
	if(step == 0) {
		if(count == 0) {
			auto message = pduel->new_message(MSG_HINT);
			message->write<uint8_t>(HINT_SELECTMSG);
			message->write<uint8_t>(playerid);
			message->write<uint64_t>(0);
			return TRUE;
		}
		if((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			flag = ~flag;
			int32_t filter;
			int32_t pzone = 0;
			if(flag & 0x7f) {
				returns.set<int8_t>(0, 1);
				returns.set<int8_t>(1, LOCATION_MZONE);
				filter = flag & 0x7f;
			} else if(flag & 0x1f00) {
				returns.set<int8_t>(0, 1);
				returns.set<int8_t>(1, LOCATION_SZONE);
				filter = (flag >> 8) & 0x1f;
			} else if(flag & 0xc000) {
				returns.set<int8_t>(0, 1);
				returns.set<int8_t>(1, LOCATION_SZONE);
				filter = (flag >> 14) & 0x3;
				pzone = 1;
			} else if(flag & 0x7f0000) {
				returns.set<int8_t>(0, 0);
				returns.set<int8_t>(1, LOCATION_MZONE);
				filter = (flag >> 16) & 0x7f;
			} else if(flag & 0x1f000000) {
				returns.set<int8_t>(0, 0);
				returns.set<int8_t>(1, LOCATION_SZONE);
				filter = (flag >> 24) & 0x1f;
			} else {
				returns.set<int8_t>(0, 0);
				returns.set<int8_t>(1, LOCATION_SZONE);
				filter = (flag >> 30) & 0x3;
				pzone = 1;
			}
			if(!pzone) {
				if(filter & 0x40) returns.set<int8_t>(2, 6);
				else if(filter & 0x20) returns.set<int8_t>(2, 5);
				else if(filter & 0x4) returns.set<int8_t>(2, 2);
				else if(filter & 0x2) returns.set<int8_t>(2, 1);
				else if(filter & 0x8) returns.set<int8_t>(2, 3);
				else if(filter & 0x1) returns.set<int8_t>(2, 0);
				else if(filter & 0x10) returns.set<int8_t>(2, 4);
			} else {
				if(filter & 0x1) returns.set<int8_t>(2, 6);
				else if(filter & 0x2) returns.set<int8_t>(2, 7);
			}
			return TRUE;
		}
		auto message = pduel->new_message((core.units.begin()->type == PROCESSOR_SELECT_PLACE) ? MSG_SELECT_PLACE : MSG_SELECT_DISFIELD);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(count);
		message->write<uint32_t>(flag);
		returns.set<int8_t>(0, 0);
		return FALSE;
	} else {
		auto retry = [&pduel=pduel]() {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		};
		uint8_t pt = 0;
		for(int8_t i = 0; i < count; ++i) {
			uint8_t select_player = returns.at<uint8_t>(pt);
			if(select_player > 1)
				return retry();
			const bool isplayerid = (select_player == playerid);
			uint8_t location = returns.at<uint8_t>(pt + 1);
			if(location != LOCATION_MZONE && location != LOCATION_SZONE)
				return retry();
			const bool ismzone = location == LOCATION_MZONE;
			uint8_t sequence = returns.at<uint8_t>(pt + 2);
			if(sequence > 7 - ismzone) //szone allow max of 8 zones, so 0-7, mzones 7 zones, so 0-6
				return retry();
			uint32_t to_check = 0x1u << sequence;
			if(!ismzone)
				to_check <<= 8;
			if(!isplayerid)
				to_check <<= 16;
			if(to_check & flag)
				return retry();
			flag |= to_check;
			pt += 3;
		}
		return TRUE;
	}
}
int32_t field::select_position(uint16_t step, uint8_t playerid, uint32_t code, uint8_t positions) {
	if(step == 0) {
		if(positions == 0) {
			returns.set<int32_t>(0, POS_FACEUP_ATTACK);
			return TRUE;
		}
		positions &= 0xf;
		if(positions == 0x1 || positions == 0x2 || positions == 0x4 || positions == 0x8) {
			returns.set<int32_t>(0, positions);
			return TRUE;
		}
		if((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			if(positions & 0x4)
				returns.set<int32_t>(0, 0x4);
			else if(positions & 0x1)
				returns.set<int32_t>(0, 0x1);
			else if(positions & 0x8)
				returns.set<int32_t>(0, 0x8);
			else
				returns.set<int32_t>(0, 0x2);
			return TRUE;
		}
		auto message = pduel->new_message(MSG_SELECT_POSITION);
		message->write<uint8_t>(playerid);
		message->write<uint32_t>(code);
		message->write<uint8_t>(positions);
		returns.set<int32_t>(0, 0);
		return FALSE;
	} else {
		uint32_t pos = returns.at<int32_t>(0);
		if((pos != 0x1 && pos != 0x2 && pos != 0x4 && pos != 0x8) || !(pos & positions)) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}
int32_t field::select_tribute(uint16_t step, uint8_t playerid, uint8_t cancelable, uint8_t min, uint8_t max) {
	if(step == 0) {
		returns.clear();
		return_cards.clear();
		if(max == 0 || core.select_cards.empty()) {
			auto message = pduel->new_message(MSG_HINT);
			message->write<uint8_t>(HINT_SELECTMSG);
			message->write<uint8_t>(playerid);
			message->write<uint64_t>(0);
			return TRUE;
		}
		uint8_t tm = 0;
		for(auto& pcard : core.select_cards)
			tm += pcard->release_param;
		if(max > 5)
			max = 5;
		if(max > tm)
			max = tm;
		if(min > max)
			min = max;
		core.units.begin()->arg2 = ((uint32_t)min) + (((uint32_t)max) << 16);
		auto message = pduel->new_message(MSG_SELECT_TRIBUTE);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(cancelable || min == 0);
		message->write<uint32_t>(min);
		message->write<uint32_t>(max);
		message->write<uint32_t>((uint32_t)core.select_cards.size());
		std::sort(core.select_cards.begin(), core.select_cards.end(), card::card_operation_sort);
		for(auto& pcard : core.select_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint32_t>(pcard->current.sequence);
			message->write<uint8_t>(pcard->release_param);
		}
		return FALSE;
	} else {
		if(!parse_response_cards(cancelable || min == 0)) {
			return_cards.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		if(return_cards.canceled)
			return TRUE;
		if(return_cards.list.size() > max) {
			return_cards.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		int32_t tt = 0;
		for(auto& pcard : return_cards.list)
			tt += pcard->release_param;
		if (tt < min) {
			return_cards.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		return TRUE;
	}
}
int32_t field::select_counter(uint16_t step, uint8_t playerid, uint16_t countertype, uint16_t count, uint8_t s, uint8_t o) {
	if(step == 0) {
		if(count == 0)
			return TRUE;
		uint8_t avail = s;
		uint8_t fp = playerid;
		uint32_t total = 0;
		core.select_cards.clear();
		for(int p = 0; p < 2; ++p) {
			if(avail) {
				for(auto& pcard : player[fp].list_mzone) {
					if(pcard && pcard->get_counter(countertype)) {
						core.select_cards.push_back(pcard);
						total += pcard->get_counter(countertype);
					}
				}
				for(auto& pcard : player[fp].list_szone) {
					if(pcard && pcard->get_counter(countertype)) {
						core.select_cards.push_back(pcard);
						total += pcard->get_counter(countertype);
					}
				}
			}
			fp = 1 - fp;
			avail = o;
		}
		if(count > total)
			count = total;
		auto message = pduel->new_message(MSG_SELECT_COUNTER);
		message->write<uint8_t>(playerid);
		message->write<uint16_t>(countertype);
		message->write<uint16_t>(count);
		message->write<uint32_t>(core.select_cards.size());
		std::sort(core.select_cards.begin(), core.select_cards.end(), card::card_operation_sort);
		for(auto& pcard : core.select_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint8_t>(pcard->current.location);
			message->write<uint8_t>(pcard->current.sequence);
			message->write<uint16_t>(pcard->get_counter(countertype));
		}
		return FALSE;
	} else {
		uint16_t ct = 0;
		for(uint32_t i = 0; i < core.select_cards.size(); ++i) {
			if(core.select_cards[i]->get_counter(countertype) < returns.at<int16_t>(i)) {
				pduel->new_message(MSG_RETRY);
				return FALSE;
			}
			ct += returns.at<int16_t>(i);
		}
		if(ct != count) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
	}
	return TRUE;
}
static int32_t select_sum_check1(const std::vector<int32_t>& oparam, int32_t size, int32_t index, int32_t acc) {
	if(acc == 0 || index == size)
		return FALSE;
	int32_t o1 = oparam[index] & 0xffff;
	int32_t o2 = oparam[index] >> 16;
	if(index == size - 1)
		return acc == o1 || acc == o2;
	return (acc > o1 && select_sum_check1(oparam, size, index + 1, acc - o1))
	       || (o2 > 0 && acc > o2 && select_sum_check1(oparam, size, index + 1, acc - o2));
}
int32_t field::select_with_sum_limit(int16_t step, uint8_t playerid, int32_t acc, int32_t min, int32_t max) {
	if(step == 0) {
		return_cards.clear();
		returns.clear();
		if(core.select_cards.empty()) {
			auto message = pduel->new_message(MSG_HINT);
			message->write<uint8_t>(HINT_SELECTMSG);
			message->write<uint8_t>(playerid);
			message->write<uint64_t>(0);
			return TRUE;
		}
		auto message = pduel->new_message(MSG_SELECT_SUM);
		message->write<uint8_t>(playerid);
		if(max)
			message->write<uint8_t>(0);
		else
			message->write<uint8_t>(1);
		if(max < min)
			max = min;
		message->write<uint32_t>(acc & 0xffff);
		message->write<uint32_t>(min);
		message->write<uint32_t>(max);
		message->write<uint32_t>(core.must_select_cards.size());
		for(auto& pcard : core.must_select_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write(pcard->get_info_location());
			message->write<uint32_t>(pcard->sum_param);
		}
		message->write<uint32_t>(core.select_cards.size());
		std::sort(core.select_cards.begin(), core.select_cards.end(), card::card_operation_sort);
		for(auto& pcard : core.select_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write(pcard->get_info_location());
			message->write<uint32_t>(pcard->sum_param);
		}
		return FALSE;
	} else {
		if(!parse_response_cards(false)) {
			return_cards.clear();
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		int32_t tot = return_cards.list.size();
		if (max) {
			if(tot < min || tot > max) {
				return_cards.clear();
				pduel->new_message(MSG_RETRY);
				return FALSE;
			}
			int32_t mcount = core.must_select_cards.size();
			std::vector<int32_t> oparam;
			for(auto& list : { &core.must_select_cards , &return_cards.list })
				for(auto& pcard : *list)
					oparam.push_back(pcard->sum_param);
			if(!select_sum_check1(oparam, tot + mcount, 0, acc)) {
				return_cards.clear();
				pduel->new_message(MSG_RETRY);
				return FALSE;
			}
			return TRUE;
		} else {
			// UNUSED VARIABLE
			// int32_t mcount = core.must_select_cards.size();
			int32_t sum = 0, mx = 0, mn = 0x7fffffff;
			for(auto& list : { &core.must_select_cards , &return_cards.list }) {
				for(auto& pcard : *list) {
					int32_t op = pcard->sum_param;
					int32_t o1 = op & 0xffff;
					int32_t o2 = op >> 16;
					int32_t ms = (o2 && o2 < o1) ? o2 : o1;
					sum += ms;
					mx += (o2 > o1) ? o2 : o1;
					if(ms < mn)
						mn = ms;
				}
			}
			if(mx < acc || sum - mn >= acc) {
				return_cards.clear();
				pduel->new_message(MSG_RETRY);
				return FALSE;
			}
			return TRUE;
		}
	}
	return TRUE;
}
int32_t field::sort_card(int16_t step, uint8_t playerid, uint8_t is_chain) {
	if(step == 0) {
		returns.clear();
		if((playerid == 1) && is_flag(DUEL_SIMPLE_AI)) {
			returns.set<int8_t>(0, -1);
			return TRUE;
		}
		if(core.select_cards.empty()) {
			auto message = pduel->new_message(MSG_HINT);
			message->write<uint8_t>(HINT_SELECTMSG);
			message->write<uint8_t>(playerid);
			message->write<uint64_t>(0);
			return TRUE;
		}
		auto message = pduel->new_message((is_chain) ? MSG_SORT_CHAIN : MSG_SORT_CARD);
		message->write<uint8_t>(playerid);
		message->write<uint32_t>(core.select_cards.size());
		for(auto& pcard : core.select_cards) {
			message->write<uint32_t>(pcard->data.code);
			message->write<uint8_t>(pcard->current.controler);
			message->write<uint32_t>(pcard->current.location);
			message->write<uint32_t>(pcard->current.sequence);
		}
		return FALSE;
	} else {
		if(returns.at<int8_t>(0) == -1)
			return TRUE;
		bool c[64] = {};
		uint8_t m = static_cast<uint8_t>(core.select_cards.size());
		for(uint8_t i = 0; i < m; ++i) {
			int8_t v = returns.at<int8_t>(i);
			if(v < 0 || v >= m || c[v]) {
				pduel->new_message(MSG_RETRY);
				return FALSE;
			}
			c[v] = true;
		}
		return TRUE;
	}
	return TRUE;
}
int32_t field::announce_race(int16_t step, uint8_t playerid, int32_t count, uint64_t available) {
	if(step == 0) {
		int32_t scount = 0;
		for(uint64_t ft = 0x1; ft != 0x2000000; ft <<= 1) {
			if(ft & available)
				++scount;
		}
		if(scount <= count) {
			count = scount;
			core.units.begin()->arg1 = (count << 16) + playerid;
		}
		auto message = pduel->new_message(MSG_ANNOUNCE_RACE);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(count);
		message->write<uint64_t>(available);
		return FALSE;
	} else {
		uint64_t rc = returns.at<uint64_t>(0);
		uint8_t sel = 0;
		for(int32_t ft = 0x1; ft != 0x2000000; ft <<= 1) {
			if(!(ft & rc)) continue;
			if(!(ft & available)) {
				pduel->new_message(MSG_RETRY);
				return FALSE;
			}
			++sel;
		}
		if(sel != static_cast<uint8_t>(count)) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		auto message = pduel->new_message(MSG_HINT);
		message->write<uint8_t>(HINT_RACE);
		message->write<uint8_t>(playerid);
		message->write<uint64_t>(returns.at<uint64_t>(0));
		return TRUE;
	}
	return TRUE;
}
int32_t field::announce_attribute(int16_t step, uint8_t playerid, int32_t count, uint32_t available) {
	if(step == 0) {
		int32_t scount = 0;
		for(int32_t ft = 0x1; ft != 0x80; ft <<= 1) {
			if(ft & available)
				++scount;
		}
		if(scount <= count) {
			count = scount;
			core.units.begin()->arg1 = (count << 16) + playerid;
		}
		auto message = pduel->new_message(MSG_ANNOUNCE_ATTRIB);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(count);
		message->write<uint32_t>(available);
		return FALSE;
	} else {
		uint32_t rc = returns.at<uint32_t>(0);
		int32_t sel = 0;
		for(int32_t ft = 0x1; ft != 0x80; ft <<= 1) {
			if(!(ft & rc)) continue;
			if(!(ft & available)) {
				pduel->new_message(MSG_RETRY);
				return FALSE;
			}
			++sel;
		}
		if(sel != count) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		auto message = pduel->new_message(MSG_HINT);
		message->write<uint8_t>(HINT_ATTRIB);
		message->write<uint8_t>(playerid);
		message->write<uint64_t>(returns.at<uint32_t>(0));
		return TRUE;
	}
	return TRUE;
}
#define BINARY_OP(opcode,op) case opcode: {\
								if (stack.size() >= 2) {\
									auto rhs = stack.top();\
									stack.pop();\
									auto lhs = stack.top();\
									stack.pop();\
									stack.push(lhs op rhs);\
								}\
								break;\
							}
#define UNARY_OP(opcode,op) case opcode: {\
								if (stack.size() >= 1) {\
									auto val = stack.top();\
									stack.pop();\
									stack.push(op val);\
								}\
								break;\
							}
#define UNARY_OP_OP(opcode,val,op) UNARY_OP(opcode,cd.val op)
#define GET_OP(opcode,val) case opcode: {\
								stack.push(cd.val);\
								break;\
							}
static int32_t is_declarable(const card_data& cd, const std::vector<uint64_t>& opcodes) {
	std::stack<int64_t> stack;
	bool alias = false, token = false;
	for(auto& opcode : opcodes) {
		switch(opcode) {
		BINARY_OP(OPCODE_ADD, +);
		BINARY_OP(OPCODE_SUB, -);
		BINARY_OP(OPCODE_MUL, *);
		BINARY_OP(OPCODE_DIV, /);
		BINARY_OP(OPCODE_AND, &&);
		BINARY_OP(OPCODE_OR, ||);
		UNARY_OP(OPCODE_NEG, -);
		UNARY_OP(OPCODE_NOT, !);
		BINARY_OP(OPCODE_BAND, &);
		BINARY_OP(OPCODE_BOR, | );
		BINARY_OP(OPCODE_BXOR, ^);
		UNARY_OP(OPCODE_BNOT, ~);
		BINARY_OP(OPCODE_LSHIFT, <<);
		BINARY_OP(OPCODE_RSHIFT, >>);
		UNARY_OP_OP(OPCODE_ISCODE, code, == (uint32_t));
		UNARY_OP_OP(OPCODE_ISTYPE, type, &);
		UNARY_OP_OP(OPCODE_ISRACE, race, &);
		UNARY_OP_OP(OPCODE_ISATTRIBUTE, attribute, &);
		GET_OP(OPCODE_GETCODE, code);
		GET_OP(OPCODE_GETTYPE, type);
		GET_OP(OPCODE_GETRACE, race);
		GET_OP(OPCODE_GETATTRIBUTE, attribute);
		//GET_OP(OPCODE_GETSETCARD, setcode);
		case OPCODE_ISSETCARD: {
			if(stack.size() >= 1) {
				int32_t set_code = (int32_t)stack.top();
				stack.pop();
				bool res = false;
				uint16_t settype = set_code & 0xfff;
				uint16_t setsubtype = set_code & 0xf000;
				for(auto& sc : cd.setcodes) {
					if((sc & 0xfff) == settype && (sc & 0xf000 & setsubtype) == setsubtype) {
						res = true;
						break;
					}
				}
				stack.push(res);
			}
			break;
		}
		case OPCODE_ALLOW_ALIASES: {
			alias = true;
			break;
		}
		case OPCODE_ALLOW_TOKENS: {
			token = true;
			break;
		}
		default: {
			stack.push(opcode);
			break;
		}
		}
	}
	if(stack.size() != 1 || stack.top() == 0)
		return FALSE;
	return cd.code == CARD_MARINE_DOLPHIN || cd.code == CARD_TWINKLE_MOSS
		|| ((alias || !cd.alias) && (token || ((cd.type & (TYPE_MONSTER + TYPE_TOKEN)) != (TYPE_MONSTER + TYPE_TOKEN))));
}
#undef BINARY_OP
#undef UNARY_OP
#undef UNARY_OP_OP
#undef GET_OP
int32_t field::announce_card(int16_t step, uint8_t playerid) {
	if(step == 0) {
		auto message = pduel->new_message(MSG_ANNOUNCE_CARD);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(static_cast<uint8_t>(core.select_options.size()));
		for(auto& option : core.select_options)
			message->write<uint64_t>(option);
		return FALSE;
	} else {
		int32_t code = returns.at<int32_t>(0);
		const auto& data = pduel->read_card(code);
		if(!data.code || !is_declarable(data, core.select_options)) {
			/*auto message = */pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		auto message = pduel->new_message(MSG_HINT);
		message->write<uint8_t>(HINT_CODE);
		message->write<uint8_t>(playerid);
		message->write<uint64_t>(code);
		return TRUE;
	}
	return TRUE;
}
int32_t field::announce_number(int16_t step, uint8_t playerid) {
	if(step == 0) {
		auto message = pduel->new_message(MSG_ANNOUNCE_NUMBER);
		message->write<uint8_t>(playerid);
		message->write<uint8_t>(static_cast<uint8_t>(core.select_options.size()));
		for(auto& option : core.select_options)
			message->write<uint64_t>(option);
		return FALSE;
	} else {
		int32_t ret = returns.at<int32_t>(0);
		if(ret < 0 || ret >= (int32_t)core.select_options.size()) {
			pduel->new_message(MSG_RETRY);
			return FALSE;
		}
		auto message = pduel->new_message(MSG_HINT);
		message->write<uint8_t>(HINT_NUMBER);
		message->write<uint8_t>(playerid);
		message->write<uint64_t>(core.select_options[returns.at<int32_t>(0)]);
		return TRUE;
	}
}
int32_t field::rock_paper_scissors(uint16_t step, uint8_t repeat) {
	auto checkvalid = [this] {
		const auto ret = returns.at<int32_t>(0);
		if(ret < 1 || ret>3) {
			pduel->new_message(MSG_RETRY);
			--core.units.begin()->step;
			return false;
		}
		return true;
	};
	switch(step) {
	case 0: {
		auto message = pduel->new_message(MSG_ROCK_PAPER_SCISSORS);
		message->write<uint8_t>(0);
		return FALSE;
	}
	case 1: {
		if(checkvalid()) {
			core.units.begin()->arg2 = returns.at<int32_t>(0);
			auto message = pduel->new_message(MSG_ROCK_PAPER_SCISSORS);
			message->write<uint8_t>(1);
		}
		return FALSE;
	}
	case 2: {
		if(!checkvalid())
			return FALSE;
		int32_t hand0 = core.units.begin()->arg2;
		int32_t hand1 = returns.at<int32_t>(0);
		auto message = pduel->new_message(MSG_HAND_RES);
		message->write<uint8_t>(hand0 + (hand1 << 2));
		if(hand0 == hand1) {
			if(repeat) {
				message = pduel->new_message(MSG_ROCK_PAPER_SCISSORS);
				message->write<uint8_t>(0);
				core.units.begin()->step = 0;
				return FALSE;
			} else
				returns.set<int32_t>(0, PLAYER_NONE);
		} else if((hand0 == 1 && hand1 == 2) || (hand0 == 2 && hand1 == 3) || (hand0 == 3 && hand1 == 1)) {
			returns.set<int32_t>(0, 1);
		} else {
			returns.set<int32_t>(0, 0);
		}
		return TRUE;
	}
	}
	return TRUE;
}