游戏王残局简化版

Annotation For script/utility.lua
Login

Annotation For script/utility.lua

Origin for each line in script/utility.lua from check-in ab919e5a98:

ab919e5a98 2023-07-15    1: 
ab919e5a98 2023-07-15    2: Debug.Message(23)
6c4f953b61 2023-07-15    3: Auxiliary={}
6c4f953b61 2023-07-15    4: aux=Auxiliary
6c4f953b61 2023-07-15    5: POS_FACEUP_DEFENCE=POS_FACEUP_DEFENSE
6c4f953b61 2023-07-15    6: POS_FACEDOWN_DEFENCE=POS_FACEDOWN_DEFENSE
6c4f953b61 2023-07-15    7: RACE_CYBERS=RACE_CYBERSE
6c4f953b61 2023-07-15    8: 
6c4f953b61 2023-07-15    9: function GetID()
6c4f953b61 2023-07-15   10: 	local offset=self_code<100000000 and 1 or 100
6c4f953b61 2023-07-15   11: 	return self_table,self_code,offset
6c4f953b61 2023-07-15   12: end
6c4f953b61 2023-07-15   13: 
6c4f953b61 2023-07-15   14: --the lua version of the bit32 lib, which is deprecated in lua 5.3
6c4f953b61 2023-07-15   15: bit={}
6c4f953b61 2023-07-15   16: function bit.band(a,b)
6c4f953b61 2023-07-15   17: 	return a&b
6c4f953b61 2023-07-15   18: end
6c4f953b61 2023-07-15   19: function bit.bor(a,b)
6c4f953b61 2023-07-15   20: 	return a|b
6c4f953b61 2023-07-15   21: end
6c4f953b61 2023-07-15   22: function bit.bxor(a,b)
6c4f953b61 2023-07-15   23: 	return a~b
6c4f953b61 2023-07-15   24: end
6c4f953b61 2023-07-15   25: function bit.lshift(a,b)
6c4f953b61 2023-07-15   26: 	return a<<b
6c4f953b61 2023-07-15   27: end
6c4f953b61 2023-07-15   28: function bit.rshift(a,b)
6c4f953b61 2023-07-15   29: 	return a>>b
6c4f953b61 2023-07-15   30: end
6c4f953b61 2023-07-15   31: function bit.bnot(a)
6c4f953b61 2023-07-15   32: 	return ~a
6c4f953b61 2023-07-15   33: end
6c4f953b61 2023-07-15   34: local function fieldargs(f,width)
6c4f953b61 2023-07-15   35: 	w=width or 1
6c4f953b61 2023-07-15   36: 	assert(f>=0,"field cannot be negative")
6c4f953b61 2023-07-15   37: 	assert(w>0,"width must be positive")
6c4f953b61 2023-07-15   38: 	assert(f+w<=32,"trying to access non-existent bits")
6c4f953b61 2023-07-15   39: 	return f,~(-1<<w)
6c4f953b61 2023-07-15   40: end
6c4f953b61 2023-07-15   41: function bit.extract(r,field,width)
6c4f953b61 2023-07-15   42: 	local f,m=fieldargs(field,width)
6c4f953b61 2023-07-15   43: 	return (r>>f)&m
6c4f953b61 2023-07-15   44: end
6c4f953b61 2023-07-15   45: function bit.replace(r,v,field,width)
6c4f953b61 2023-07-15   46: 	local f,m=fieldargs(field,width)
6c4f953b61 2023-07-15   47: 	return (r&~(m<<f))|((v&m)<< f)
6c4f953b61 2023-07-15   48: end
6c4f953b61 2023-07-15   49: 
6c4f953b61 2023-07-15   50: --the table of xyz number
6c4f953b61 2023-07-15   51: Auxiliary.xyz_number={}
6c4f953b61 2023-07-15   52: function Auxiliary.GetXyzNumber(v)
6c4f953b61 2023-07-15   53: 	local id
6c4f953b61 2023-07-15   54: 	if Auxiliary.GetValueType(v)=="Card" then id=v:GetCode() end
6c4f953b61 2023-07-15   55: 	if Auxiliary.GetValueType(v)=="number" then id=v end
6c4f953b61 2023-07-15   56: 	return Auxiliary.xyz_number[id]
6c4f953b61 2023-07-15   57: end
6c4f953b61 2023-07-15   58: 
6c4f953b61 2023-07-15   59: --the chain id of the results modified by EVENT_TOSS_DICE_NEGATE
6c4f953b61 2023-07-15   60: Auxiliary.idx_table=table.pack(1,2,3,4,5,6,7,8)
6c4f953b61 2023-07-15   61: 
6c4f953b61 2023-07-15   62: function Auxiliary.Stringid(code,id)
6c4f953b61 2023-07-15   63: 	return code*16+id
6c4f953b61 2023-07-15   64: end
6c4f953b61 2023-07-15   65: function Auxiliary.Next(g)
6c4f953b61 2023-07-15   66: 	local first=true
6c4f953b61 2023-07-15   67: 	return	function()
6c4f953b61 2023-07-15   68: 				if first then first=false return g:GetFirst()
6c4f953b61 2023-07-15   69: 				else return g:GetNext() end
6c4f953b61 2023-07-15   70: 			end
6c4f953b61 2023-07-15   71: end
6c4f953b61 2023-07-15   72: function Auxiliary.NULL()
6c4f953b61 2023-07-15   73: end
6c4f953b61 2023-07-15   74: function Auxiliary.TRUE()
6c4f953b61 2023-07-15   75: 	return true
6c4f953b61 2023-07-15   76: end
6c4f953b61 2023-07-15   77: function Auxiliary.FALSE()
6c4f953b61 2023-07-15   78: 	return false
6c4f953b61 2023-07-15   79: end
6c4f953b61 2023-07-15   80: function Auxiliary.AND(...)
6c4f953b61 2023-07-15   81: 	local function_list={...}
6c4f953b61 2023-07-15   82: 	return	function(...)
6c4f953b61 2023-07-15   83: 				local res=false
6c4f953b61 2023-07-15   84: 				for i,f in ipairs(function_list) do
6c4f953b61 2023-07-15   85: 					res=f(...)
6c4f953b61 2023-07-15   86: 					if not res then return res end
6c4f953b61 2023-07-15   87: 				end
6c4f953b61 2023-07-15   88: 				return res
6c4f953b61 2023-07-15   89: 			end
6c4f953b61 2023-07-15   90: end
6c4f953b61 2023-07-15   91: function Auxiliary.OR(...)
6c4f953b61 2023-07-15   92: 	local function_list={...}
6c4f953b61 2023-07-15   93: 	return	function(...)
6c4f953b61 2023-07-15   94: 				local res=false
6c4f953b61 2023-07-15   95: 				for i,f in ipairs(function_list) do
6c4f953b61 2023-07-15   96: 					res=f(...)
6c4f953b61 2023-07-15   97: 					if res then return res end
6c4f953b61 2023-07-15   98: 				end
6c4f953b61 2023-07-15   99: 				return res
6c4f953b61 2023-07-15  100: 			end
6c4f953b61 2023-07-15  101: end
6c4f953b61 2023-07-15  102: function Auxiliary.NOT(f)
6c4f953b61 2023-07-15  103: 	return	function(...)
6c4f953b61 2023-07-15  104: 				return not f(...)
6c4f953b61 2023-07-15  105: 			end
6c4f953b61 2023-07-15  106: end
6c4f953b61 2023-07-15  107: function Auxiliary.BeginPuzzle(effect)
6c4f953b61 2023-07-15  108: 	local e1=Effect.GlobalEffect()
6c4f953b61 2023-07-15  109: 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
6c4f953b61 2023-07-15  110: 	e1:SetCode(EVENT_TURN_END)
6c4f953b61 2023-07-15  111: 	e1:SetCountLimit(1)
6c4f953b61 2023-07-15  112: 	e1:SetOperation(Auxiliary.PuzzleOp)
6c4f953b61 2023-07-15  113: 	Duel.RegisterEffect(e1,0)
6c4f953b61 2023-07-15  114: 	local e2=Effect.GlobalEffect()
6c4f953b61 2023-07-15  115: 	e2:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15  116: 	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
6c4f953b61 2023-07-15  117: 	e2:SetCode(EFFECT_SKIP_DP)
6c4f953b61 2023-07-15  118: 	e2:SetTargetRange(1,0)
6c4f953b61 2023-07-15  119: 	Duel.RegisterEffect(e2,0)
6c4f953b61 2023-07-15  120: 	local e3=Effect.GlobalEffect()
6c4f953b61 2023-07-15  121: 	e3:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15  122: 	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
6c4f953b61 2023-07-15  123: 	e3:SetCode(EFFECT_SKIP_SP)
6c4f953b61 2023-07-15  124: 	e3:SetTargetRange(1,0)
6c4f953b61 2023-07-15  125: 	Duel.RegisterEffect(e3,0)
6c4f953b61 2023-07-15  126: end
6c4f953b61 2023-07-15  127: function Auxiliary.PuzzleOp(e,tp)
6c4f953b61 2023-07-15  128: 	Duel.SetLP(0,0)
6c4f953b61 2023-07-15  129: end
6c4f953b61 2023-07-15  130: --Duel.SelectOption with option condition
6c4f953b61 2023-07-15  131: --Return value starts from 1, different from Duel.SelectOption
6c4f953b61 2023-07-15  132: function Auxiliary.SelectFromOptions(tp,...)
6c4f953b61 2023-07-15  133: 	local options={...}
6c4f953b61 2023-07-15  134: 	local ops={}
6c4f953b61 2023-07-15  135: 	local opvals={}
6c4f953b61 2023-07-15  136: 	for i=1,#options do
6c4f953b61 2023-07-15  137: 		if options[i][1] then
6c4f953b61 2023-07-15  138: 			table.insert(ops,options[i][2])
6c4f953b61 2023-07-15  139: 			table.insert(opvals,options[i][3] or i)
6c4f953b61 2023-07-15  140: 		end
6c4f953b61 2023-07-15  141: 	end
6c4f953b61 2023-07-15  142: 	if #ops==0 then return nil end
6c4f953b61 2023-07-15  143: 	local select=Duel.SelectOption(tp,table.unpack(ops))
6c4f953b61 2023-07-15  144: 	return opvals[select+1]
6c4f953b61 2023-07-15  145: end
6c4f953b61 2023-07-15  146: function Auxiliary.IsDualState(effect)
6c4f953b61 2023-07-15  147: 	local c=effect:GetHandler()
6c4f953b61 2023-07-15  148: 	return not c:IsDisabled() and c:IsDualState()
6c4f953b61 2023-07-15  149: end
6c4f953b61 2023-07-15  150: function Auxiliary.IsNotDualState(effect)
6c4f953b61 2023-07-15  151: 	local c=effect:GetHandler()
6c4f953b61 2023-07-15  152: 	return c:IsDisabled() or not c:IsDualState()
6c4f953b61 2023-07-15  153: end
6c4f953b61 2023-07-15  154: function Auxiliary.DualNormalCondition(effect)
6c4f953b61 2023-07-15  155: 	local c=effect:GetHandler()
6c4f953b61 2023-07-15  156: 	return c:IsFaceup() and not c:IsDualState()
6c4f953b61 2023-07-15  157: end
6c4f953b61 2023-07-15  158: function Auxiliary.EnableDualAttribute(c)
6c4f953b61 2023-07-15  159: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  160: 	e1:SetType(EFFECT_TYPE_SINGLE)
6c4f953b61 2023-07-15  161: 	e1:SetCode(EFFECT_DUAL_SUMMONABLE)
6c4f953b61 2023-07-15  162: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  163: 	local e2=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  164: 	e2:SetType(EFFECT_TYPE_SINGLE)
6c4f953b61 2023-07-15  165: 	e2:SetCode(EFFECT_ADD_TYPE)
6c4f953b61 2023-07-15  166: 	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
6c4f953b61 2023-07-15  167: 	e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
6c4f953b61 2023-07-15  168: 	e2:SetCondition(aux.DualNormalCondition)
6c4f953b61 2023-07-15  169: 	e2:SetValue(TYPE_NORMAL)
6c4f953b61 2023-07-15  170: 	c:RegisterEffect(e2)
6c4f953b61 2023-07-15  171: 	local e3=e2:Clone()
6c4f953b61 2023-07-15  172: 	e3:SetCode(EFFECT_REMOVE_TYPE)
6c4f953b61 2023-07-15  173: 	e3:SetValue(TYPE_EFFECT)
6c4f953b61 2023-07-15  174: 	c:RegisterEffect(e3)
6c4f953b61 2023-07-15  175: end
6c4f953b61 2023-07-15  176: --register effect of return to hand for Spirit monsters
6c4f953b61 2023-07-15  177: function Auxiliary.EnableSpiritReturn(c,event1,...)
6c4f953b61 2023-07-15  178: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  179: 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
6c4f953b61 2023-07-15  180: 	e1:SetCode(event1)
6c4f953b61 2023-07-15  181: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
6c4f953b61 2023-07-15  182: 	e1:SetOperation(Auxiliary.SpiritReturnReg)
6c4f953b61 2023-07-15  183: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  184: 	for i,event in ipairs{...} do
6c4f953b61 2023-07-15  185: 		local e2=e1:Clone()
6c4f953b61 2023-07-15  186: 		e2:SetCode(event)
6c4f953b61 2023-07-15  187: 		c:RegisterEffect(e2)
6c4f953b61 2023-07-15  188: 	end
6c4f953b61 2023-07-15  189: end
6c4f953b61 2023-07-15  190: function Auxiliary.SpiritReturnReg(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15  191: 	local c=e:GetHandler()
6c4f953b61 2023-07-15  192: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  193: 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
6c4f953b61 2023-07-15  194: 	e1:SetDescription(1104)
6c4f953b61 2023-07-15  195: 	e1:SetCategory(CATEGORY_TOHAND)
6c4f953b61 2023-07-15  196: 	e1:SetCode(EVENT_PHASE+PHASE_END)
6c4f953b61 2023-07-15  197: 	e1:SetRange(LOCATION_MZONE)
6c4f953b61 2023-07-15  198: 	e1:SetCountLimit(1)
6c4f953b61 2023-07-15  199: 	e1:SetReset(RESET_EVENT+0xd6e0000+RESET_PHASE+PHASE_END)
6c4f953b61 2023-07-15  200: 	e1:SetCondition(Auxiliary.SpiritReturnConditionForced)
6c4f953b61 2023-07-15  201: 	e1:SetTarget(Auxiliary.SpiritReturnTargetForced)
6c4f953b61 2023-07-15  202: 	e1:SetOperation(Auxiliary.SpiritReturnOperation)
6c4f953b61 2023-07-15  203: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  204: 	local e2=e1:Clone()
6c4f953b61 2023-07-15  205: 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
6c4f953b61 2023-07-15  206: 	e2:SetCondition(Auxiliary.SpiritReturnConditionOptional)
6c4f953b61 2023-07-15  207: 	e2:SetTarget(Auxiliary.SpiritReturnTargetOptional)
6c4f953b61 2023-07-15  208: 	c:RegisterEffect(e2)
6c4f953b61 2023-07-15  209: end
6c4f953b61 2023-07-15  210: function Auxiliary.SpiritReturnConditionForced(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15  211: 	local c=e:GetHandler()
6c4f953b61 2023-07-15  212: 	return not c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) and not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN)
6c4f953b61 2023-07-15  213: end
6c4f953b61 2023-07-15  214: function Auxiliary.SpiritReturnTargetForced(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15  215: 	if chk==0 then return true end
6c4f953b61 2023-07-15  216: 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
6c4f953b61 2023-07-15  217: end
6c4f953b61 2023-07-15  218: function Auxiliary.SpiritReturnConditionOptional(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15  219: 	local c=e:GetHandler()
6c4f953b61 2023-07-15  220: 	return not c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) and c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN)
6c4f953b61 2023-07-15  221: end
6c4f953b61 2023-07-15  222: function Auxiliary.SpiritReturnTargetOptional(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15  223: 	if chk==0 then return e:GetHandler():IsAbleToHand() end
6c4f953b61 2023-07-15  224: 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
6c4f953b61 2023-07-15  225: end
6c4f953b61 2023-07-15  226: function Auxiliary.SpiritReturnOperation(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15  227: 	local c=e:GetHandler()
6c4f953b61 2023-07-15  228: 	if c:IsRelateToEffect(e) then
6c4f953b61 2023-07-15  229: 		Duel.SendtoHand(c,nil,REASON_EFFECT)
6c4f953b61 2023-07-15  230: 	end
6c4f953b61 2023-07-15  231: end
6c4f953b61 2023-07-15  232: function Auxiliary.EnableNeosReturn(c,operation,set_category)
6c4f953b61 2023-07-15  233: 	--return
6c4f953b61 2023-07-15  234: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  235: 	e1:SetDescription(1193)
6c4f953b61 2023-07-15  236: 	e1:SetCategory(CATEGORY_TODECK)
6c4f953b61 2023-07-15  237: 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
6c4f953b61 2023-07-15  238: 	e1:SetCode(EVENT_PHASE+PHASE_END)
6c4f953b61 2023-07-15  239: 	e1:SetRange(LOCATION_MZONE)
6c4f953b61 2023-07-15  240: 	e1:SetCountLimit(1)
6c4f953b61 2023-07-15  241: 	e1:SetCondition(Auxiliary.NeosReturnConditionForced)
6c4f953b61 2023-07-15  242: 	e1:SetTarget(Auxiliary.NeosReturnTargetForced(set_category))
6c4f953b61 2023-07-15  243: 	e1:SetOperation(operation)
6c4f953b61 2023-07-15  244: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  245: 	local e2=e1:Clone()
6c4f953b61 2023-07-15  246: 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
6c4f953b61 2023-07-15  247: 	e2:SetCondition(Auxiliary.NeosReturnConditionOptional)
6c4f953b61 2023-07-15  248: 	e2:SetTarget(Auxiliary.NeosReturnTargetOptional(set_category))
6c4f953b61 2023-07-15  249: 	c:RegisterEffect(e2)
6c4f953b61 2023-07-15  250: 	return e1,e2
6c4f953b61 2023-07-15  251: end
6c4f953b61 2023-07-15  252: function Auxiliary.NeosReturnConditionForced(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15  253: 	return not e:GetHandler():IsHasEffect(42015635)
6c4f953b61 2023-07-15  254: end
6c4f953b61 2023-07-15  255: function Auxiliary.NeosReturnTargetForced(set_category)
6c4f953b61 2023-07-15  256: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15  257: 				if chk==0 then return true end
6c4f953b61 2023-07-15  258: 				Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
6c4f953b61 2023-07-15  259: 				if set_category then set_category(e,tp,eg,ep,ev,re,r,rp) end
6c4f953b61 2023-07-15  260: 			end
6c4f953b61 2023-07-15  261: end
6c4f953b61 2023-07-15  262: function Auxiliary.NeosReturnConditionOptional(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15  263: 	return e:GetHandler():IsHasEffect(42015635)
6c4f953b61 2023-07-15  264: end
6c4f953b61 2023-07-15  265: function Auxiliary.NeosReturnTargetOptional(set_category)
6c4f953b61 2023-07-15  266: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15  267: 				if chk==0 then return e:GetHandler():IsAbleToExtra() end
6c4f953b61 2023-07-15  268: 				Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
6c4f953b61 2023-07-15  269: 				if set_category then set_category(e,tp,eg,ep,ev,re,r,rp) end
6c4f953b61 2023-07-15  270: 			end
6c4f953b61 2023-07-15  271: end
6c4f953b61 2023-07-15  272: function Auxiliary.IsUnionState(effect)
6c4f953b61 2023-07-15  273: 	local c=effect:GetHandler()
6c4f953b61 2023-07-15  274: 	return c:IsHasEffect(EFFECT_UNION_STATUS) and c:GetEquipTarget()
6c4f953b61 2023-07-15  275: end
6c4f953b61 2023-07-15  276: --set EFFECT_EQUIP_LIMIT after equipping
6c4f953b61 2023-07-15  277: function Auxiliary.SetUnionState(c)
6c4f953b61 2023-07-15  278: 	local eset={c:IsHasEffect(EFFECT_UNION_LIMIT)}
6c4f953b61 2023-07-15  279: 	if #eset==0 then return end
6c4f953b61 2023-07-15  280: 	local e0=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  281: 	e0:SetType(EFFECT_TYPE_SINGLE)
6c4f953b61 2023-07-15  282: 	e0:SetCode(EFFECT_EQUIP_LIMIT)
6c4f953b61 2023-07-15  283: 	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
6c4f953b61 2023-07-15  284: 	e0:SetValue(eset[1]:GetValue())
6c4f953b61 2023-07-15  285: 	e0:SetReset(RESET_EVENT+RESETS_STANDARD)
6c4f953b61 2023-07-15  286: 	c:RegisterEffect(e0)
6c4f953b61 2023-07-15  287: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  288: 	e1:SetType(EFFECT_TYPE_SINGLE)
6c4f953b61 2023-07-15  289: 	e1:SetCode(EFFECT_UNION_STATUS)
6c4f953b61 2023-07-15  290: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
6c4f953b61 2023-07-15  291: 	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
6c4f953b61 2023-07-15  292: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  293: 	if c.old_union then
6c4f953b61 2023-07-15  294: 		local e2=e1:Clone()
6c4f953b61 2023-07-15  295: 		e2:SetCode(EFFECT_OLDUNION_STATUS)
6c4f953b61 2023-07-15  296: 		c:RegisterEffect(e2)
6c4f953b61 2023-07-15  297: 	end
6c4f953b61 2023-07-15  298: end
6c4f953b61 2023-07-15  299: --uc: the union monster to be equipped, tc: the target monster
6c4f953b61 2023-07-15  300: function Auxiliary.CheckUnionEquip(uc,tc,exclude_modern_count)
6c4f953b61 2023-07-15  301: 	local modern_count,old_count=tc:GetUnionCount()
6c4f953b61 2023-07-15  302: 	if exclude_modern_count then modern_count=modern_count-exclude_modern_count end
6c4f953b61 2023-07-15  303: 	if uc.old_union then return modern_count==0
6c4f953b61 2023-07-15  304: 	else return old_count==0 end
6c4f953b61 2023-07-15  305: end
6c4f953b61 2023-07-15  306: --EFFECT_DESTROY_SUBSTITUTE filter for modern union monsters
6c4f953b61 2023-07-15  307: function Auxiliary.UnionReplaceFilter(e,re,r,rp)
6c4f953b61 2023-07-15  308: 	return r&(REASON_BATTLE+REASON_EFFECT)~=0
6c4f953b61 2023-07-15  309: end
6c4f953b61 2023-07-15  310: --add effect to modern union monsters
6c4f953b61 2023-07-15  311: function Auxiliary.EnableUnionAttribute(c,f)
6c4f953b61 2023-07-15  312: 	--destroy sub
6c4f953b61 2023-07-15  313: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  314: 	e1:SetType(EFFECT_TYPE_EQUIP)
6c4f953b61 2023-07-15  315: 	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
6c4f953b61 2023-07-15  316: 	e1:SetCode(EFFECT_DESTROY_SUBSTITUTE)
6c4f953b61 2023-07-15  317: 	e1:SetValue(aux.UnionReplaceFilter)
6c4f953b61 2023-07-15  318: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  319: 	--limit
6c4f953b61 2023-07-15  320: 	local e2=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  321: 	e2:SetType(EFFECT_TYPE_SINGLE)
6c4f953b61 2023-07-15  322: 	e2:SetCode(EFFECT_UNION_LIMIT)
6c4f953b61 2023-07-15  323: 	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
6c4f953b61 2023-07-15  324: 	e2:SetValue(f)
6c4f953b61 2023-07-15  325: 	c:RegisterEffect(e2)
6c4f953b61 2023-07-15  326: end
6c4f953b61 2023-07-15  327: function Auxiliary.EnableChangeCode(c,code,location,condition)
6c4f953b61 2023-07-15  328: 	Auxiliary.AddCodeList(c,code)
6c4f953b61 2023-07-15  329: 	local loc=c:GetOriginalType()&TYPE_MONSTER~=0 and LOCATION_MZONE or LOCATION_SZONE
6c4f953b61 2023-07-15  330: 	loc=location or loc
6c4f953b61 2023-07-15  331: 	if condition==nil then condition=Auxiliary.TRUE end
6c4f953b61 2023-07-15  332: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  333: 	e1:SetType(EFFECT_TYPE_SINGLE)
6c4f953b61 2023-07-15  334: 	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
6c4f953b61 2023-07-15  335: 	e1:SetCode(EFFECT_CHANGE_CODE)
6c4f953b61 2023-07-15  336: 	e1:SetRange(loc)
6c4f953b61 2023-07-15  337: 	e1:SetCondition(condition)
6c4f953b61 2023-07-15  338: 	e1:SetValue(code)
6c4f953b61 2023-07-15  339: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  340: 	return e1
6c4f953b61 2023-07-15  341: end
6c4f953b61 2023-07-15  342: function Auxiliary.TargetEqualFunction(f,value,...)
6c4f953b61 2023-07-15  343: 	local ext_params={...}
6c4f953b61 2023-07-15  344: 	return	function(effect,target)
6c4f953b61 2023-07-15  345: 				return f(target,table.unpack(ext_params))==value
6c4f953b61 2023-07-15  346: 			end
6c4f953b61 2023-07-15  347: end
6c4f953b61 2023-07-15  348: function Auxiliary.TargetBoolFunction(f,...)
6c4f953b61 2023-07-15  349: 	local ext_params={...}
6c4f953b61 2023-07-15  350: 	return	function(effect,target)
6c4f953b61 2023-07-15  351: 				return f(target,table.unpack(ext_params))
6c4f953b61 2023-07-15  352: 			end
6c4f953b61 2023-07-15  353: end
6c4f953b61 2023-07-15  354: function Auxiliary.FilterEqualFunction(f,value,...)
6c4f953b61 2023-07-15  355: 	local ext_params={...}
6c4f953b61 2023-07-15  356: 	return	function(target)
6c4f953b61 2023-07-15  357: 				return f(target,table.unpack(ext_params))==value
6c4f953b61 2023-07-15  358: 			end
6c4f953b61 2023-07-15  359: end
6c4f953b61 2023-07-15  360: function Auxiliary.FilterBoolFunction(f,...)
6c4f953b61 2023-07-15  361: 	local ext_params={...}
6c4f953b61 2023-07-15  362: 	return	function(target)
6c4f953b61 2023-07-15  363: 				return f(target,table.unpack(ext_params))
6c4f953b61 2023-07-15  364: 			end
6c4f953b61 2023-07-15  365: end
6c4f953b61 2023-07-15  366: function Auxiliary.Tuner(f,...)
6c4f953b61 2023-07-15  367: 	local ext_params={...}
6c4f953b61 2023-07-15  368: 	return	function(target,syncard)
6c4f953b61 2023-07-15  369: 				return target:IsTuner(syncard) and (not f or f(target,table.unpack(ext_params)))
6c4f953b61 2023-07-15  370: 			end
6c4f953b61 2023-07-15  371: end
6c4f953b61 2023-07-15  372: function Auxiliary.NonTuner(f,...)
6c4f953b61 2023-07-15  373: 	local ext_params={...}
6c4f953b61 2023-07-15  374: 	return	function(target,syncard)
6c4f953b61 2023-07-15  375: 				return target:IsNotTuner(syncard) and (not f or f(target,table.unpack(ext_params)))
6c4f953b61 2023-07-15  376: 			end
6c4f953b61 2023-07-15  377: end
6c4f953b61 2023-07-15  378: function Auxiliary.GetValueType(v)
6c4f953b61 2023-07-15  379: 	local t=type(v)
6c4f953b61 2023-07-15  380: 	if t=="userdata" then
6c4f953b61 2023-07-15  381: 		local mt=getmetatable(v)
6c4f953b61 2023-07-15  382: 		if mt==Group then return "Group"
6c4f953b61 2023-07-15  383: 		elseif mt==Effect then return "Effect"
6c4f953b61 2023-07-15  384: 		else return "Card" end
6c4f953b61 2023-07-15  385: 	else return t end
6c4f953b61 2023-07-15  386: end
6c4f953b61 2023-07-15  387: function Auxiliary.MustMaterialCheck(v,tp,code)
6c4f953b61 2023-07-15  388: 	local g=Duel.GetMustMaterial(tp,code)
6c4f953b61 2023-07-15  389: 	if not v then
6c4f953b61 2023-07-15  390: 		if code==EFFECT_MUST_BE_XMATERIAL and Duel.IsPlayerAffectedByEffect(tp,67120578) then return false end
6c4f953b61 2023-07-15  391: 		return #g==0
6c4f953b61 2023-07-15  392: 	end
6c4f953b61 2023-07-15  393: 	return Duel.CheckMustMaterial(tp,v,code)
6c4f953b61 2023-07-15  394: end
6c4f953b61 2023-07-15  395: function Auxiliary.MustMaterialCounterFilter(c,g)
6c4f953b61 2023-07-15  396: 	return not g:IsContains(c)
6c4f953b61 2023-07-15  397: end
6c4f953b61 2023-07-15  398: --Synchro monster, 1 tuner + min to max monsters
6c4f953b61 2023-07-15  399: function Auxiliary.AddSynchroProcedure(c,f1,f2,minc,maxc)
6c4f953b61 2023-07-15  400: 	if maxc==nil then maxc=99 end
6c4f953b61 2023-07-15  401: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  402: 	e1:SetDescription(1164)
6c4f953b61 2023-07-15  403: 	e1:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15  404: 	e1:SetCode(EFFECT_SPSUMMON_PROC)
6c4f953b61 2023-07-15  405: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15  406: 	e1:SetRange(LOCATION_EXTRA)
6c4f953b61 2023-07-15  407: 	e1:SetCondition(Auxiliary.SynCondition(f1,f2,minc,maxc))
6c4f953b61 2023-07-15  408: 	e1:SetTarget(Auxiliary.SynTarget(f1,f2,minc,maxc))
6c4f953b61 2023-07-15  409: 	e1:SetOperation(Auxiliary.SynOperation(f1,f2,minc,maxc))
6c4f953b61 2023-07-15  410: 	e1:SetValue(SUMMON_TYPE_SYNCHRO)
6c4f953b61 2023-07-15  411: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  412: end
6c4f953b61 2023-07-15  413: function Auxiliary.SynCondition(f1,f2,minc,maxc)
6c4f953b61 2023-07-15  414: 	return	function(e,c,smat,mg,min,max)
6c4f953b61 2023-07-15  415: 				if c==nil then return true end
6c4f953b61 2023-07-15  416: 				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
6c4f953b61 2023-07-15  417: 				local minc=minc
6c4f953b61 2023-07-15  418: 				local maxc=maxc
6c4f953b61 2023-07-15  419: 				if min then
6c4f953b61 2023-07-15  420: 					if min>minc then minc=min end
6c4f953b61 2023-07-15  421: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15  422: 					if minc>maxc then return false end
6c4f953b61 2023-07-15  423: 				end
6c4f953b61 2023-07-15  424: 				if smat and smat:IsTuner(c) and (not f1 or f1(smat)) then
6c4f953b61 2023-07-15  425: 					return Duel.CheckTunerMaterial(c,smat,f1,f2,minc,maxc,mg) end
6c4f953b61 2023-07-15  426: 				return Duel.CheckSynchroMaterial(c,f1,f2,minc,maxc,smat,mg)
6c4f953b61 2023-07-15  427: 			end
6c4f953b61 2023-07-15  428: end
6c4f953b61 2023-07-15  429: function Auxiliary.SynTarget(f1,f2,minc,maxc)
6c4f953b61 2023-07-15  430: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk,c,smat,mg,min,max)
6c4f953b61 2023-07-15  431: 				local minc=minc
6c4f953b61 2023-07-15  432: 				local maxc=maxc
6c4f953b61 2023-07-15  433: 				if min then
6c4f953b61 2023-07-15  434: 					if min>minc then minc=min end
6c4f953b61 2023-07-15  435: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15  436: 					if minc>maxc then return false end
6c4f953b61 2023-07-15  437: 				end
6c4f953b61 2023-07-15  438: 				local g=nil
6c4f953b61 2023-07-15  439: 				if smat and smat:IsTuner(c) and (not f1 or f1(smat)) then
6c4f953b61 2023-07-15  440: 					g=Duel.SelectTunerMaterial(c:GetControler(),c,smat,f1,f2,minc,maxc,mg)
6c4f953b61 2023-07-15  441: 				else
6c4f953b61 2023-07-15  442: 					g=Duel.SelectSynchroMaterial(c:GetControler(),c,f1,f2,minc,maxc,smat,mg)
6c4f953b61 2023-07-15  443: 				end
6c4f953b61 2023-07-15  444: 				if g then
6c4f953b61 2023-07-15  445: 					g:KeepAlive()
6c4f953b61 2023-07-15  446: 					e:SetLabelObject(g)
6c4f953b61 2023-07-15  447: 					return true
6c4f953b61 2023-07-15  448: 				else return false end
6c4f953b61 2023-07-15  449: 			end
6c4f953b61 2023-07-15  450: end
6c4f953b61 2023-07-15  451: function Auxiliary.SynOperation(f1,f2,minct,maxc)
6c4f953b61 2023-07-15  452: 	return	function(e,tp,eg,ep,ev,re,r,rp,c,smat,mg,min,max)
6c4f953b61 2023-07-15  453: 				local g=e:GetLabelObject()
6c4f953b61 2023-07-15  454: 				c:SetMaterial(g)
6c4f953b61 2023-07-15  455: 				Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO)
6c4f953b61 2023-07-15  456: 				g:DeleteGroup()
6c4f953b61 2023-07-15  457: 			end
6c4f953b61 2023-07-15  458: end
6c4f953b61 2023-07-15  459: --Synchro monster, 1 tuner + 1 monster
6c4f953b61 2023-07-15  460: --backward compatibility
6c4f953b61 2023-07-15  461: function Auxiliary.AddSynchroProcedure2(c,f1,f2)
6c4f953b61 2023-07-15  462: 	Auxiliary.AddSynchroProcedure(c,f1,f2,1,1)
6c4f953b61 2023-07-15  463: end
6c4f953b61 2023-07-15  464: --Synchro monster, f1~f3 each 1 MONSTER + f4 min to max monsters
6c4f953b61 2023-07-15  465: function Auxiliary.AddSynchroMixProcedure(c,f1,f2,f3,f4,minc,maxc,gc)
6c4f953b61 2023-07-15  466: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  467: 	e1:SetDescription(1164)
6c4f953b61 2023-07-15  468: 	e1:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15  469: 	e1:SetCode(EFFECT_SPSUMMON_PROC)
6c4f953b61 2023-07-15  470: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15  471: 	e1:SetRange(LOCATION_EXTRA)
6c4f953b61 2023-07-15  472: 	e1:SetCondition(Auxiliary.SynMixCondition(f1,f2,f3,f4,minc,maxc,gc))
6c4f953b61 2023-07-15  473: 	e1:SetTarget(Auxiliary.SynMixTarget(f1,f2,f3,f4,minc,maxc,gc))
6c4f953b61 2023-07-15  474: 	e1:SetOperation(Auxiliary.SynMixOperation(f1,f2,f3,f4,minc,maxc,gc))
6c4f953b61 2023-07-15  475: 	e1:SetValue(SUMMON_TYPE_SYNCHRO)
6c4f953b61 2023-07-15  476: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  477: end
6c4f953b61 2023-07-15  478: function Auxiliary.SynMaterialFilter(c,syncard)
6c4f953b61 2023-07-15  479: 	return c:IsFaceupEx() and c:IsCanBeSynchroMaterial(syncard)
6c4f953b61 2023-07-15  480: end
6c4f953b61 2023-07-15  481: function Auxiliary.SynLimitFilter(c,f,e,syncard)
6c4f953b61 2023-07-15  482: 	return f and not f(e,c,syncard)
6c4f953b61 2023-07-15  483: end
6c4f953b61 2023-07-15  484: function Auxiliary.GetSynchroLevelFlowerCardian(c)
6c4f953b61 2023-07-15  485: 	return 2
6c4f953b61 2023-07-15  486: end
6c4f953b61 2023-07-15  487: function Auxiliary.GetSynMaterials(tp,syncard)
6c4f953b61 2023-07-15  488: 	local mg=Duel.GetSynchroMaterial(tp):Filter(Auxiliary.SynMaterialFilter,nil,syncard)
6c4f953b61 2023-07-15  489: 	if mg:IsExists(Card.GetHandSynchro,1,nil) then
6c4f953b61 2023-07-15  490: 		local mg2=Duel.GetMatchingGroup(Card.IsCanBeSynchroMaterial,tp,LOCATION_HAND,0,nil,syncard)
6c4f953b61 2023-07-15  491: 		if mg2:GetCount()>0 then mg:Merge(mg2) end
6c4f953b61 2023-07-15  492: 	end
6c4f953b61 2023-07-15  493: 	return mg
6c4f953b61 2023-07-15  494: end
6c4f953b61 2023-07-15  495: function Auxiliary.SynMixCondition(f1,f2,f3,f4,minc,maxc,gc)
6c4f953b61 2023-07-15  496: 	return	function(e,c,smat,mg1,min,max)
6c4f953b61 2023-07-15  497: 				if c==nil then return true end
6c4f953b61 2023-07-15  498: 				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
6c4f953b61 2023-07-15  499: 				local minc=minc
6c4f953b61 2023-07-15  500: 				local maxc=maxc
6c4f953b61 2023-07-15  501: 				if min then
6c4f953b61 2023-07-15  502: 					if min>minc then minc=min end
6c4f953b61 2023-07-15  503: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15  504: 					if minc>maxc then return false end
6c4f953b61 2023-07-15  505: 				end
6c4f953b61 2023-07-15  506: 				if smat and not smat:IsCanBeSynchroMaterial(c) then return false end
6c4f953b61 2023-07-15  507: 				local tp=c:GetControler()
6c4f953b61 2023-07-15  508: 				local mg
6c4f953b61 2023-07-15  509: 				local mgchk=false
6c4f953b61 2023-07-15  510: 				if mg1 then
6c4f953b61 2023-07-15  511: 					mg=mg1
6c4f953b61 2023-07-15  512: 					mgchk=true
6c4f953b61 2023-07-15  513: 				else
6c4f953b61 2023-07-15  514: 					mg=Auxiliary.GetSynMaterials(tp,c)
6c4f953b61 2023-07-15  515: 				end
6c4f953b61 2023-07-15  516: 				if smat~=nil then mg:AddCard(smat) end
6c4f953b61 2023-07-15  517: 				return mg:IsExists(Auxiliary.SynMixFilter1,1,nil,f1,f2,f3,f4,minc,maxc,c,mg,smat,gc,mgchk)
6c4f953b61 2023-07-15  518: 			end
6c4f953b61 2023-07-15  519: end
6c4f953b61 2023-07-15  520: function Auxiliary.SynMixTarget(f1,f2,f3,f4,minc,maxc,gc)
6c4f953b61 2023-07-15  521: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk,c,smat,mg1,min,max)
6c4f953b61 2023-07-15  522: 				local minc=minc
6c4f953b61 2023-07-15  523: 				local maxc=maxc
6c4f953b61 2023-07-15  524: 				if min then
6c4f953b61 2023-07-15  525: 					if min>minc then minc=min end
6c4f953b61 2023-07-15  526: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15  527: 					if minc>maxc then return false end
6c4f953b61 2023-07-15  528: 				end
6c4f953b61 2023-07-15  529: 				::SynMixTargetSelectStart::
6c4f953b61 2023-07-15  530: 				local g=Group.CreateGroup()
6c4f953b61 2023-07-15  531: 				local mg
6c4f953b61 2023-07-15  532: 				local mgchk=false
6c4f953b61 2023-07-15  533: 				if mg1 then
6c4f953b61 2023-07-15  534: 					mg=mg1
6c4f953b61 2023-07-15  535: 					mgchk=true
6c4f953b61 2023-07-15  536: 				else
6c4f953b61 2023-07-15  537: 					mg=Auxiliary.GetSynMaterials(tp,c)
6c4f953b61 2023-07-15  538: 				end
6c4f953b61 2023-07-15  539: 				if smat~=nil then mg:AddCard(smat) end
6c4f953b61 2023-07-15  540: 				local c1
6c4f953b61 2023-07-15  541: 				local c2
6c4f953b61 2023-07-15  542: 				local c3
6c4f953b61 2023-07-15  543: 				local cancel=Duel.IsSummonCancelable()
6c4f953b61 2023-07-15  544: 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
6c4f953b61 2023-07-15  545: 				c1=mg:Filter(Auxiliary.SynMixFilter1,nil,f1,f2,f3,f4,minc,maxc,c,mg,smat,gc,mgchk):SelectUnselect(g,tp,false,cancel,1,1)
6c4f953b61 2023-07-15  546: 				if not c1 then return false end
6c4f953b61 2023-07-15  547: 				g:AddCard(c1)
6c4f953b61 2023-07-15  548: 				if f2 then
6c4f953b61 2023-07-15  549: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
6c4f953b61 2023-07-15  550: 					c2=mg:Filter(Auxiliary.SynMixFilter2,g,f2,f3,f4,minc,maxc,c,mg,smat,c1,gc,mgchk):SelectUnselect(g,tp,false,cancel,1,1)
6c4f953b61 2023-07-15  551: 					if not c2 then return false end
6c4f953b61 2023-07-15  552: 					if g:IsContains(c2) then goto SynMixTargetSelectStart end
6c4f953b61 2023-07-15  553: 					g:AddCard(c2)
6c4f953b61 2023-07-15  554: 					if f3 then
6c4f953b61 2023-07-15  555: 						Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
6c4f953b61 2023-07-15  556: 						c3=mg:Filter(Auxiliary.SynMixFilter3,g,f3,f4,minc,maxc,c,mg,smat,c1,c2,gc,mgchk):SelectUnselect(g,tp,false,cancel,1,1)
6c4f953b61 2023-07-15  557: 						if not c3 then return false end
6c4f953b61 2023-07-15  558: 						if g:IsContains(c3) then goto SynMixTargetSelectStart end
6c4f953b61 2023-07-15  559: 						g:AddCard(c3)
6c4f953b61 2023-07-15  560: 					end
6c4f953b61 2023-07-15  561: 				end
6c4f953b61 2023-07-15  562: 				local g4=Group.CreateGroup()
6c4f953b61 2023-07-15  563: 				for i=0,maxc-1 do
6c4f953b61 2023-07-15  564: 					local mg2=mg:Clone()
6c4f953b61 2023-07-15  565: 					if f4 then
6c4f953b61 2023-07-15  566: 						mg2=mg2:Filter(f4,g,c,c1,c2,c3)
6c4f953b61 2023-07-15  567: 					else
6c4f953b61 2023-07-15  568: 						mg2:Sub(g)
6c4f953b61 2023-07-15  569: 					end
6c4f953b61 2023-07-15  570: 					local cg=mg2:Filter(Auxiliary.SynMixCheckRecursive,g4,tp,g4,mg2,i,minc,maxc,c,g,smat,gc,mgchk)
6c4f953b61 2023-07-15  571: 					if cg:GetCount()==0 then break end
6c4f953b61 2023-07-15  572: 					local finish=Auxiliary.SynMixCheckGoal(tp,g4,minc,i,c,g,smat,gc,mgchk)
6c4f953b61 2023-07-15  573: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
6c4f953b61 2023-07-15  574: 					local c4=cg:SelectUnselect(g+g4,tp,finish,cancel,minc,maxc)
6c4f953b61 2023-07-15  575: 					if not c4 then
6c4f953b61 2023-07-15  576: 						if finish then break
6c4f953b61 2023-07-15  577: 						else return false end
6c4f953b61 2023-07-15  578: 					end
6c4f953b61 2023-07-15  579: 					if g:IsContains(c4) or g4:IsContains(c4) then goto SynMixTargetSelectStart end
6c4f953b61 2023-07-15  580: 					g4:AddCard(c4)
6c4f953b61 2023-07-15  581: 				end
6c4f953b61 2023-07-15  582: 				g:Merge(g4)
6c4f953b61 2023-07-15  583: 				if g:GetCount()>0 then
6c4f953b61 2023-07-15  584: 					g:KeepAlive()
6c4f953b61 2023-07-15  585: 					e:SetLabelObject(g)
6c4f953b61 2023-07-15  586: 					return true
6c4f953b61 2023-07-15  587: 				else return false end
6c4f953b61 2023-07-15  588: 			end
6c4f953b61 2023-07-15  589: end
6c4f953b61 2023-07-15  590: function Auxiliary.SynMixOperation(f1,f2,f3,f4,minct,maxc,gc)
6c4f953b61 2023-07-15  591: 	return	function(e,tp,eg,ep,ev,re,r,rp,c,smat,mg,min,max)
6c4f953b61 2023-07-15  592: 				local g=e:GetLabelObject()
6c4f953b61 2023-07-15  593: 				c:SetMaterial(g)
6c4f953b61 2023-07-15  594: 				Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO)
6c4f953b61 2023-07-15  595: 				g:DeleteGroup()
6c4f953b61 2023-07-15  596: 			end
6c4f953b61 2023-07-15  597: end
6c4f953b61 2023-07-15  598: function Auxiliary.SynMixFilter1(c,f1,f2,f3,f4,minc,maxc,syncard,mg,smat,gc,mgchk)
6c4f953b61 2023-07-15  599: 	return (not f1 or f1(c,syncard)) and mg:IsExists(Auxiliary.SynMixFilter2,1,c,f2,f3,f4,minc,maxc,syncard,mg,smat,c,gc,mgchk)
6c4f953b61 2023-07-15  600: end
6c4f953b61 2023-07-15  601: function Auxiliary.SynMixFilter2(c,f2,f3,f4,minc,maxc,syncard,mg,smat,c1,gc,mgchk)
6c4f953b61 2023-07-15  602: 	if f2 then
6c4f953b61 2023-07-15  603: 		return f2(c,syncard,c1)
6c4f953b61 2023-07-15  604: 			and (mg:IsExists(Auxiliary.SynMixFilter3,1,Group.FromCards(c1,c),f3,f4,minc,maxc,syncard,mg,smat,c1,c,gc,mgchk)
6c4f953b61 2023-07-15  605: 				or minc==0 and Auxiliary.SynMixFilter4(c,nil,1,1,syncard,mg,smat,c1,nil,nil,gc,mgchk))
6c4f953b61 2023-07-15  606: 	else
6c4f953b61 2023-07-15  607: 		return mg:IsExists(Auxiliary.SynMixFilter4,1,c1,f4,minc,maxc,syncard,mg,smat,c1,nil,nil,gc,mgchk)
6c4f953b61 2023-07-15  608: 	end
6c4f953b61 2023-07-15  609: end
6c4f953b61 2023-07-15  610: function Auxiliary.SynMixFilter3(c,f3,f4,minc,maxc,syncard,mg,smat,c1,c2,gc,mgchk)
6c4f953b61 2023-07-15  611: 	if f3 then
6c4f953b61 2023-07-15  612: 		return f3(c,syncard,c1,c2)
6c4f953b61 2023-07-15  613: 			and (mg:IsExists(Auxiliary.SynMixFilter4,1,Group.FromCards(c1,c2,c),f4,minc,maxc,syncard,mg,smat,c1,c2,c,gc,mgchk)
6c4f953b61 2023-07-15  614: 				or minc==0 and Auxiliary.SynMixFilter4(c,nil,1,1,syncard,mg,smat,c1,c2,nil,gc,mgchk))
6c4f953b61 2023-07-15  615: 	else
6c4f953b61 2023-07-15  616: 		return mg:IsExists(Auxiliary.SynMixFilter4,1,Group.FromCards(c1,c2),f4,minc,maxc,syncard,mg,smat,c1,c2,nil,gc,mgchk)
6c4f953b61 2023-07-15  617: 	end
6c4f953b61 2023-07-15  618: end
6c4f953b61 2023-07-15  619: function Auxiliary.SynMixFilter4(c,f4,minc,maxc,syncard,mg1,smat,c1,c2,c3,gc,mgchk)
6c4f953b61 2023-07-15  620: 	if f4 and not f4(c,syncard,c1,c2,c3) then return false end
6c4f953b61 2023-07-15  621: 	local sg=Group.FromCards(c1,c)
6c4f953b61 2023-07-15  622: 	sg:AddCard(c1)
6c4f953b61 2023-07-15  623: 	if c2 then sg:AddCard(c2) end
6c4f953b61 2023-07-15  624: 	if c3 then sg:AddCard(c3) end
6c4f953b61 2023-07-15  625: 	local mg=mg1:Clone()
6c4f953b61 2023-07-15  626: 	if f4 then
6c4f953b61 2023-07-15  627: 		mg=mg:Filter(f4,sg,syncard,c1,c2,c3)
6c4f953b61 2023-07-15  628: 	else
6c4f953b61 2023-07-15  629: 		mg:Sub(sg)
6c4f953b61 2023-07-15  630: 	end
6c4f953b61 2023-07-15  631: 	return Auxiliary.SynMixCheck(mg,sg,minc-1,maxc-1,syncard,smat,gc,mgchk)
6c4f953b61 2023-07-15  632: end
6c4f953b61 2023-07-15  633: function Auxiliary.SynMixCheck(mg,sg1,minc,maxc,syncard,smat,gc,mgchk)
6c4f953b61 2023-07-15  634: 	local tp=syncard:GetControler()
6c4f953b61 2023-07-15  635: 	local sg=Group.CreateGroup()
6c4f953b61 2023-07-15  636: 	if minc<=0 and Auxiliary.SynMixCheckGoal(tp,sg1,0,0,syncard,sg,smat,gc,mgchk) then return true end
6c4f953b61 2023-07-15  637: 	if maxc==0 then return false end
6c4f953b61 2023-07-15  638: 	return mg:IsExists(Auxiliary.SynMixCheckRecursive,1,nil,tp,sg,mg,0,minc,maxc,syncard,sg1,smat,gc,mgchk)
6c4f953b61 2023-07-15  639: end
6c4f953b61 2023-07-15  640: function Auxiliary.SynMixCheckRecursive(c,tp,sg,mg,ct,minc,maxc,syncard,sg1,smat,gc,mgchk)
6c4f953b61 2023-07-15  641: 	sg:AddCard(c)
6c4f953b61 2023-07-15  642: 	ct=ct+1
6c4f953b61 2023-07-15  643: 	local res=Auxiliary.SynMixCheckGoal(tp,sg,minc,ct,syncard,sg1,smat,gc,mgchk)
6c4f953b61 2023-07-15  644: 		or (ct<maxc and mg:IsExists(Auxiliary.SynMixCheckRecursive,1,sg,tp,sg,mg,ct,minc,maxc,syncard,sg1,smat,gc,mgchk))
6c4f953b61 2023-07-15  645: 	sg:RemoveCard(c)
6c4f953b61 2023-07-15  646: 	ct=ct-1
6c4f953b61 2023-07-15  647: 	return res
6c4f953b61 2023-07-15  648: end
6c4f953b61 2023-07-15  649: -- the material is in hand and don't has extra synchro material effect itself
6c4f953b61 2023-07-15  650: -- that mean some other tuner added it as material
6c4f953b61 2023-07-15  651: function Auxiliary.SynMixHandFilter(c,tp,syncard)
6c4f953b61 2023-07-15  652: 	if not c:IsLocation(LOCATION_HAND) then return false end
6c4f953b61 2023-07-15  653: 	local le={c:IsHasEffect(EFFECT_EXTRA_SYNCHRO_MATERIAL,tp)}
6c4f953b61 2023-07-15  654: 	for _,te in pairs(le) do
6c4f953b61 2023-07-15  655: 		local tf=te:GetValue()
6c4f953b61 2023-07-15  656: 		if Auxiliary.GetValueType(tf)=="function" then
6c4f953b61 2023-07-15  657: 			if tf(te,syncard) then return false end
6c4f953b61 2023-07-15  658: 		else
6c4f953b61 2023-07-15  659: 			if tf~=0 then return false end
6c4f953b61 2023-07-15  660: 		end
6c4f953b61 2023-07-15  661: 	end
6c4f953b61 2023-07-15  662: 	return true
6c4f953b61 2023-07-15  663: end
6c4f953b61 2023-07-15  664: function Auxiliary.SynMixCheckGoal(tp,sg,minc,ct,syncard,sg1,smat,gc,mgchk)
6c4f953b61 2023-07-15  665: 	if ct<minc then return false end
6c4f953b61 2023-07-15  666: 	local g=sg:Clone()
6c4f953b61 2023-07-15  667: 	g:Merge(sg1)
6c4f953b61 2023-07-15  668: 	if Duel.GetLocationCountFromEx(tp,tp,g,syncard)<=0 then return false end
6c4f953b61 2023-07-15  669: 	if gc and not gc(g) then return false end
6c4f953b61 2023-07-15  670: 	if smat and not g:IsContains(smat) then return false end
6c4f953b61 2023-07-15  671: 	if not Auxiliary.MustMaterialCheck(g,tp,EFFECT_MUST_BE_SMATERIAL) then return false end
6c4f953b61 2023-07-15  672: 	if not g:CheckWithSumEqual(Card.GetSynchroLevel,syncard:GetLevel(),g:GetCount(),g:GetCount(),syncard)
6c4f953b61 2023-07-15  673: 		and (not g:IsExists(Card.IsHasEffect,1,nil,89818984)
6c4f953b61 2023-07-15  674: 		or not g:CheckWithSumEqual(Auxiliary.GetSynchroLevelFlowerCardian,syncard:GetLevel(),g:GetCount(),g:GetCount(),syncard))
6c4f953b61 2023-07-15  675: 		then return false end
6c4f953b61 2023-07-15  676: 	local hg=g:Filter(Auxiliary.SynMixHandFilter,nil,tp,syncard)
6c4f953b61 2023-07-15  677: 	local hct=hg:GetCount()
6c4f953b61 2023-07-15  678: 	if hct>0 and not mgchk then
6c4f953b61 2023-07-15  679: 		local found=false
6c4f953b61 2023-07-15  680: 		for c in aux.Next(g) do
6c4f953b61 2023-07-15  681: 			local he,hf,hmin,hmax=c:GetHandSynchro()
6c4f953b61 2023-07-15  682: 			if he then
6c4f953b61 2023-07-15  683: 				found=true
6c4f953b61 2023-07-15  684: 				if hf and hg:IsExists(Auxiliary.SynLimitFilter,1,c,hf,he,syncard) then return false end
6c4f953b61 2023-07-15  685: 				if (hmin and hct<hmin) or (hmax and hct>hmax) then return false end
6c4f953b61 2023-07-15  686: 			end
6c4f953b61 2023-07-15  687: 		end
6c4f953b61 2023-07-15  688: 		if not found then return false end
6c4f953b61 2023-07-15  689: 	end
6c4f953b61 2023-07-15  690: 	for c in aux.Next(g) do
6c4f953b61 2023-07-15  691: 		local le,lf,lloc,lmin,lmax=c:GetTunerLimit()
6c4f953b61 2023-07-15  692: 		if le then
6c4f953b61 2023-07-15  693: 			local lct=g:GetCount()-1
6c4f953b61 2023-07-15  694: 			if lloc then
6c4f953b61 2023-07-15  695: 				local llct=g:FilterCount(Card.IsLocation,c,lloc)
6c4f953b61 2023-07-15  696: 				if llct~=lct then return false end
6c4f953b61 2023-07-15  697: 			end
6c4f953b61 2023-07-15  698: 			if lf and g:IsExists(Auxiliary.SynLimitFilter,1,c,lf,le,syncard) then return false end
6c4f953b61 2023-07-15  699: 			if (lmin and lct<lmin) or (lmax and lct>lmax) then return false end
6c4f953b61 2023-07-15  700: 		end
6c4f953b61 2023-07-15  701: 	end
6c4f953b61 2023-07-15  702: 	return true
6c4f953b61 2023-07-15  703: end
6c4f953b61 2023-07-15  704: --Checking Tune Magician
6c4f953b61 2023-07-15  705: function Auxiliary.TuneMagicianFilter(c,e)
6c4f953b61 2023-07-15  706: 	local f=e:GetValue()
6c4f953b61 2023-07-15  707: 	return f(e,c)
6c4f953b61 2023-07-15  708: end
6c4f953b61 2023-07-15  709: function Auxiliary.TuneMagicianCheckX(c,sg,ecode)
6c4f953b61 2023-07-15  710: 	local eset={c:IsHasEffect(ecode)}
6c4f953b61 2023-07-15  711: 	for _,te in pairs(eset) do
6c4f953b61 2023-07-15  712: 		if sg:IsExists(Auxiliary.TuneMagicianFilter,1,c,te) then return true end
6c4f953b61 2023-07-15  713: 	end
6c4f953b61 2023-07-15  714: 	return false
6c4f953b61 2023-07-15  715: end
6c4f953b61 2023-07-15  716: function Auxiliary.TuneMagicianCheckAdditionalX(ecode)
6c4f953b61 2023-07-15  717: 	return	function(g)
6c4f953b61 2023-07-15  718: 				return not g:IsExists(Auxiliary.TuneMagicianCheckX,1,nil,g,ecode)
6c4f953b61 2023-07-15  719: 			end
6c4f953b61 2023-07-15  720: end
6c4f953b61 2023-07-15  721: function Auxiliary.XyzAlterFilter(c,alterf,xyzc,e,tp,alterop)
6c4f953b61 2023-07-15  722: 	return alterf(c) and c:IsCanBeXyzMaterial(xyzc) and Duel.GetLocationCountFromEx(tp,tp,c,xyzc)>0
6c4f953b61 2023-07-15  723: 		and Auxiliary.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) and (not alterop or alterop(e,tp,0,c))
6c4f953b61 2023-07-15  724: end
6c4f953b61 2023-07-15  725: --Xyz monster, lv k*n
6c4f953b61 2023-07-15  726: function Auxiliary.AddXyzProcedure(c,f,lv,ct,alterf,alterdesc,maxct,alterop)
6c4f953b61 2023-07-15  727: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  728: 	e1:SetDescription(1165)
6c4f953b61 2023-07-15  729: 	e1:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15  730: 	e1:SetCode(EFFECT_SPSUMMON_PROC)
6c4f953b61 2023-07-15  731: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15  732: 	e1:SetRange(LOCATION_EXTRA)
6c4f953b61 2023-07-15  733: 	if not maxct then maxct=ct end
6c4f953b61 2023-07-15  734: 	if alterf then
6c4f953b61 2023-07-15  735: 		e1:SetCondition(Auxiliary.XyzConditionAlter(f,lv,ct,maxct,alterf,alterdesc,alterop))
6c4f953b61 2023-07-15  736: 		e1:SetTarget(Auxiliary.XyzTargetAlter(f,lv,ct,maxct,alterf,alterdesc,alterop))
6c4f953b61 2023-07-15  737: 		e1:SetOperation(Auxiliary.XyzOperationAlter(f,lv,ct,maxct,alterf,alterdesc,alterop))
6c4f953b61 2023-07-15  738: 	else
6c4f953b61 2023-07-15  739: 		e1:SetCondition(Auxiliary.XyzCondition(f,lv,ct,maxct))
6c4f953b61 2023-07-15  740: 		e1:SetTarget(Auxiliary.XyzTarget(f,lv,ct,maxct))
6c4f953b61 2023-07-15  741: 		e1:SetOperation(Auxiliary.XyzOperation(f,lv,ct,maxct))
6c4f953b61 2023-07-15  742: 	end
6c4f953b61 2023-07-15  743: 	e1:SetValue(SUMMON_TYPE_XYZ)
6c4f953b61 2023-07-15  744: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  745: end
6c4f953b61 2023-07-15  746: --Xyz Summon(normal)
6c4f953b61 2023-07-15  747: function Auxiliary.XyzCondition(f,lv,minc,maxc)
6c4f953b61 2023-07-15  748: 	--og: use special material
6c4f953b61 2023-07-15  749: 	return	function(e,c,og,min,max)
6c4f953b61 2023-07-15  750: 				if c==nil then return true end
6c4f953b61 2023-07-15  751: 				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
6c4f953b61 2023-07-15  752: 				local tp=c:GetControler()
6c4f953b61 2023-07-15  753: 				local minc=minc
6c4f953b61 2023-07-15  754: 				local maxc=maxc
6c4f953b61 2023-07-15  755: 				if min then
6c4f953b61 2023-07-15  756: 					if min>minc then minc=min end
6c4f953b61 2023-07-15  757: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15  758: 					if minc>maxc then return false end
6c4f953b61 2023-07-15  759: 				end
6c4f953b61 2023-07-15  760: 				return Duel.CheckXyzMaterial(c,f,lv,minc,maxc,og)
6c4f953b61 2023-07-15  761: 			end
6c4f953b61 2023-07-15  762: end
6c4f953b61 2023-07-15  763: function Auxiliary.XyzTarget(f,lv,minc,maxc)
6c4f953b61 2023-07-15  764: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk,c,og,min,max)
6c4f953b61 2023-07-15  765: 				if og and not min then
6c4f953b61 2023-07-15  766: 					return true
6c4f953b61 2023-07-15  767: 				end
6c4f953b61 2023-07-15  768: 				local minc=minc
6c4f953b61 2023-07-15  769: 				local maxc=maxc
6c4f953b61 2023-07-15  770: 				if min then
6c4f953b61 2023-07-15  771: 					if min>minc then minc=min end
6c4f953b61 2023-07-15  772: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15  773: 				end
6c4f953b61 2023-07-15  774: 				local g=Duel.SelectXyzMaterial(tp,c,f,lv,minc,maxc,og)
6c4f953b61 2023-07-15  775: 				if g then
6c4f953b61 2023-07-15  776: 					g:KeepAlive()
6c4f953b61 2023-07-15  777: 					e:SetLabelObject(g)
6c4f953b61 2023-07-15  778: 					return true
6c4f953b61 2023-07-15  779: 				else return false end
6c4f953b61 2023-07-15  780: 			end
6c4f953b61 2023-07-15  781: end
6c4f953b61 2023-07-15  782: function Auxiliary.XyzOperation(f,lv,minc,maxc)
6c4f953b61 2023-07-15  783: 	return	function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
6c4f953b61 2023-07-15  784: 				if og and not min then
6c4f953b61 2023-07-15  785: 					local sg=Group.CreateGroup()
6c4f953b61 2023-07-15  786: 					local tc=og:GetFirst()
6c4f953b61 2023-07-15  787: 					while tc do
6c4f953b61 2023-07-15  788: 						local sg1=tc:GetOverlayGroup()
6c4f953b61 2023-07-15  789: 						sg:Merge(sg1)
6c4f953b61 2023-07-15  790: 						tc=og:GetNext()
6c4f953b61 2023-07-15  791: 					end
6c4f953b61 2023-07-15  792: 					Duel.SendtoGrave(sg,REASON_RULE)
6c4f953b61 2023-07-15  793: 					c:SetMaterial(og)
6c4f953b61 2023-07-15  794: 					Duel.Overlay(c,og)
6c4f953b61 2023-07-15  795: 				else
6c4f953b61 2023-07-15  796: 					local mg=e:GetLabelObject()
6c4f953b61 2023-07-15  797: 					local sg=Group.CreateGroup()
6c4f953b61 2023-07-15  798: 					local tc=mg:GetFirst()
6c4f953b61 2023-07-15  799: 					while tc do
6c4f953b61 2023-07-15  800: 						local sg1=tc:GetOverlayGroup()
6c4f953b61 2023-07-15  801: 						sg:Merge(sg1)
6c4f953b61 2023-07-15  802: 						tc=mg:GetNext()
6c4f953b61 2023-07-15  803: 					end
6c4f953b61 2023-07-15  804: 					Duel.SendtoGrave(sg,REASON_RULE)
6c4f953b61 2023-07-15  805: 					c:SetMaterial(mg)
6c4f953b61 2023-07-15  806: 					Duel.Overlay(c,mg)
6c4f953b61 2023-07-15  807: 					mg:DeleteGroup()
6c4f953b61 2023-07-15  808: 				end
6c4f953b61 2023-07-15  809: 			end
6c4f953b61 2023-07-15  810: end
6c4f953b61 2023-07-15  811: --Xyz summon(alterf)
6c4f953b61 2023-07-15  812: function Auxiliary.XyzConditionAlter(f,lv,minc,maxc,alterf,alterdesc,alterop)
6c4f953b61 2023-07-15  813: 	return	function(e,c,og,min,max)
6c4f953b61 2023-07-15  814: 				if c==nil then return true end
6c4f953b61 2023-07-15  815: 				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
6c4f953b61 2023-07-15  816: 				local tp=c:GetControler()
6c4f953b61 2023-07-15  817: 				local mg=nil
6c4f953b61 2023-07-15  818: 				if og then
6c4f953b61 2023-07-15  819: 					mg=og
6c4f953b61 2023-07-15  820: 				else
6c4f953b61 2023-07-15  821: 					mg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
6c4f953b61 2023-07-15  822: 				end
6c4f953b61 2023-07-15  823: 				if (not min or min<=1) and mg:IsExists(Auxiliary.XyzAlterFilter,1,nil,alterf,c,e,tp,alterop) then
6c4f953b61 2023-07-15  824: 					return true
6c4f953b61 2023-07-15  825: 				end
6c4f953b61 2023-07-15  826: 				local minc=minc
6c4f953b61 2023-07-15  827: 				local maxc=maxc
6c4f953b61 2023-07-15  828: 				if min then
6c4f953b61 2023-07-15  829: 					if min>minc then minc=min end
6c4f953b61 2023-07-15  830: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15  831: 					if minc>maxc then return false end
6c4f953b61 2023-07-15  832: 				end
6c4f953b61 2023-07-15  833: 				return Duel.CheckXyzMaterial(c,f,lv,minc,maxc,og)
6c4f953b61 2023-07-15  834: 			end
6c4f953b61 2023-07-15  835: end
6c4f953b61 2023-07-15  836: function Auxiliary.XyzTargetAlter(f,lv,minc,maxc,alterf,alterdesc,alterop)
6c4f953b61 2023-07-15  837: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk,c,og,min,max)
6c4f953b61 2023-07-15  838: 				if og and not min then
6c4f953b61 2023-07-15  839: 					return true
6c4f953b61 2023-07-15  840: 				end
6c4f953b61 2023-07-15  841: 				local minc=minc
6c4f953b61 2023-07-15  842: 				local maxc=maxc
6c4f953b61 2023-07-15  843: 				if min then
6c4f953b61 2023-07-15  844: 					if min>minc then minc=min end
6c4f953b61 2023-07-15  845: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15  846: 				end
6c4f953b61 2023-07-15  847: 				local mg=nil
6c4f953b61 2023-07-15  848: 				if og then
6c4f953b61 2023-07-15  849: 					mg=og
6c4f953b61 2023-07-15  850: 				else
6c4f953b61 2023-07-15  851: 					mg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
6c4f953b61 2023-07-15  852: 				end
6c4f953b61 2023-07-15  853: 				local altg=mg:Filter(Auxiliary.XyzAlterFilter,nil,alterf,c,e,tp,alterop)
6c4f953b61 2023-07-15  854: 				local b1=Duel.CheckXyzMaterial(c,f,lv,minc,maxc,og)
6c4f953b61 2023-07-15  855: 				local b2=(not min or min<=1) and #altg>0
6c4f953b61 2023-07-15  856: 				local g=nil
6c4f953b61 2023-07-15  857: 				local cancel=Duel.IsSummonCancelable()
6c4f953b61 2023-07-15  858: 				if b2 and (not b1 or Duel.SelectYesNo(tp,alterdesc)) then
6c4f953b61 2023-07-15  859: 					e:SetLabel(1)
6c4f953b61 2023-07-15  860: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
6c4f953b61 2023-07-15  861: 					local tc=altg:SelectUnselect(nil,tp,false,cancel,1,1)
6c4f953b61 2023-07-15  862: 					if tc then
6c4f953b61 2023-07-15  863: 						g=Group.FromCards(tc)
6c4f953b61 2023-07-15  864: 						if alterop then alterop(e,tp,1,tc) end
6c4f953b61 2023-07-15  865: 					end
6c4f953b61 2023-07-15  866: 				else
6c4f953b61 2023-07-15  867: 					e:SetLabel(0)
6c4f953b61 2023-07-15  868: 					g=Duel.SelectXyzMaterial(tp,c,f,lv,minc,maxc,og)
6c4f953b61 2023-07-15  869: 				end
6c4f953b61 2023-07-15  870: 				if g then
6c4f953b61 2023-07-15  871: 					g:KeepAlive()
6c4f953b61 2023-07-15  872: 					e:SetLabelObject(g)
6c4f953b61 2023-07-15  873: 					return true
6c4f953b61 2023-07-15  874: 				else return false end
6c4f953b61 2023-07-15  875: 			end
6c4f953b61 2023-07-15  876: end
6c4f953b61 2023-07-15  877: function Auxiliary.XyzOperationAlter(f,lv,minc,maxc,alterf,alterdesc,alterop)
6c4f953b61 2023-07-15  878: 	return	function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
6c4f953b61 2023-07-15  879: 				if og and not min then
6c4f953b61 2023-07-15  880: 					local sg=Group.CreateGroup()
6c4f953b61 2023-07-15  881: 					local tc=og:GetFirst()
6c4f953b61 2023-07-15  882: 					while tc do
6c4f953b61 2023-07-15  883: 						local sg1=tc:GetOverlayGroup()
6c4f953b61 2023-07-15  884: 						sg:Merge(sg1)
6c4f953b61 2023-07-15  885: 						tc=og:GetNext()
6c4f953b61 2023-07-15  886: 					end
6c4f953b61 2023-07-15  887: 					Duel.SendtoGrave(sg,REASON_RULE)
6c4f953b61 2023-07-15  888: 					c:SetMaterial(og)
6c4f953b61 2023-07-15  889: 					Duel.Overlay(c,og)
6c4f953b61 2023-07-15  890: 				else
6c4f953b61 2023-07-15  891: 					local mg=e:GetLabelObject()
6c4f953b61 2023-07-15  892: 					if e:GetLabel()==1 then
6c4f953b61 2023-07-15  893: 						local mg2=mg:GetFirst():GetOverlayGroup()
6c4f953b61 2023-07-15  894: 						if mg2:GetCount()~=0 then
6c4f953b61 2023-07-15  895: 							Duel.Overlay(c,mg2)
6c4f953b61 2023-07-15  896: 						end
6c4f953b61 2023-07-15  897: 					else
6c4f953b61 2023-07-15  898: 						local sg=Group.CreateGroup()
6c4f953b61 2023-07-15  899: 						local tc=mg:GetFirst()
6c4f953b61 2023-07-15  900: 						while tc do
6c4f953b61 2023-07-15  901: 							local sg1=tc:GetOverlayGroup()
6c4f953b61 2023-07-15  902: 							sg:Merge(sg1)
6c4f953b61 2023-07-15  903: 							tc=mg:GetNext()
6c4f953b61 2023-07-15  904: 						end
6c4f953b61 2023-07-15  905: 						Duel.SendtoGrave(sg,REASON_RULE)
6c4f953b61 2023-07-15  906: 					end
6c4f953b61 2023-07-15  907: 					c:SetMaterial(mg)
6c4f953b61 2023-07-15  908: 					Duel.Overlay(c,mg)
6c4f953b61 2023-07-15  909: 					mg:DeleteGroup()
6c4f953b61 2023-07-15  910: 				end
6c4f953b61 2023-07-15  911: 			end
6c4f953b61 2023-07-15  912: end
6c4f953b61 2023-07-15  913: function Auxiliary.AddXyzProcedureLevelFree(c,f,gf,minc,maxc,alterf,alterdesc,alterop)
6c4f953b61 2023-07-15  914: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15  915: 	e1:SetDescription(1165)
6c4f953b61 2023-07-15  916: 	e1:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15  917: 	e1:SetCode(EFFECT_SPSUMMON_PROC)
6c4f953b61 2023-07-15  918: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15  919: 	e1:SetRange(LOCATION_EXTRA)
6c4f953b61 2023-07-15  920: 	if alterf then
6c4f953b61 2023-07-15  921: 		e1:SetCondition(Auxiliary.XyzLevelFreeConditionAlter(f,gf,minc,maxc,alterf,alterdesc,alterop))
6c4f953b61 2023-07-15  922: 		e1:SetTarget(Auxiliary.XyzLevelFreeTargetAlter(f,gf,minc,maxc,alterf,alterdesc,alterop))
6c4f953b61 2023-07-15  923: 		e1:SetOperation(Auxiliary.XyzLevelFreeOperationAlter(f,gf,minc,maxc,alterf,alterdesc,alterop))
6c4f953b61 2023-07-15  924: 	else
6c4f953b61 2023-07-15  925: 		e1:SetCondition(Auxiliary.XyzLevelFreeCondition(f,gf,minc,maxc))
6c4f953b61 2023-07-15  926: 		e1:SetTarget(Auxiliary.XyzLevelFreeTarget(f,gf,minc,maxc))
6c4f953b61 2023-07-15  927: 		e1:SetOperation(Auxiliary.XyzLevelFreeOperation(f,gf,minc,maxc))
6c4f953b61 2023-07-15  928: 	end
6c4f953b61 2023-07-15  929: 	e1:SetValue(SUMMON_TYPE_XYZ)
6c4f953b61 2023-07-15  930: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15  931: end
6c4f953b61 2023-07-15  932: --Xyz Summon(level free)
6c4f953b61 2023-07-15  933: function Auxiliary.XyzLevelFreeFilter(c,xyzc,f)
6c4f953b61 2023-07-15  934: 	return (not c:IsOnField() or c:IsFaceup()) and c:IsCanBeXyzMaterial(xyzc) and (not f or f(c,xyzc))
6c4f953b61 2023-07-15  935: end
6c4f953b61 2023-07-15  936: function Auxiliary.XyzLevelFreeGoal(g,tp,xyzc,gf)
6c4f953b61 2023-07-15  937: 	return (not gf or gf(g)) and Duel.GetLocationCountFromEx(tp,tp,g,xyzc)>0
6c4f953b61 2023-07-15  938: end
6c4f953b61 2023-07-15  939: function Auxiliary.XyzLevelFreeCondition(f,gf,minct,maxct)
6c4f953b61 2023-07-15  940: 	return	function(e,c,og,min,max)
6c4f953b61 2023-07-15  941: 				if c==nil then return true end
6c4f953b61 2023-07-15  942: 				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
6c4f953b61 2023-07-15  943: 				local tp=c:GetControler()
6c4f953b61 2023-07-15  944: 				local minc=minct
6c4f953b61 2023-07-15  945: 				local maxc=maxct
6c4f953b61 2023-07-15  946: 				if min then
6c4f953b61 2023-07-15  947: 					minc=math.max(minc,min)
6c4f953b61 2023-07-15  948: 					maxc=math.min(maxc,max)
6c4f953b61 2023-07-15  949: 				end
6c4f953b61 2023-07-15  950: 				if maxc<minc then return false end
6c4f953b61 2023-07-15  951: 				local mg=nil
6c4f953b61 2023-07-15  952: 				if og then
6c4f953b61 2023-07-15  953: 					mg=og:Filter(Auxiliary.XyzLevelFreeFilter,nil,c,f)
6c4f953b61 2023-07-15  954: 				else
6c4f953b61 2023-07-15  955: 					mg=Duel.GetMatchingGroup(Auxiliary.XyzLevelFreeFilter,tp,LOCATION_MZONE,0,nil,c,f)
6c4f953b61 2023-07-15  956: 				end
6c4f953b61 2023-07-15  957: 				local sg=Duel.GetMustMaterial(tp,EFFECT_MUST_BE_XMATERIAL)
6c4f953b61 2023-07-15  958: 				if sg:IsExists(Auxiliary.MustMaterialCounterFilter,1,nil,mg) then return false end
6c4f953b61 2023-07-15  959: 				Duel.SetSelectedCard(sg)
6c4f953b61 2023-07-15  960: 				Auxiliary.GCheckAdditional=Auxiliary.TuneMagicianCheckAdditionalX(EFFECT_TUNE_MAGICIAN_X)
6c4f953b61 2023-07-15  961: 				local res=mg:CheckSubGroup(Auxiliary.XyzLevelFreeGoal,minc,maxc,tp,c,gf)
6c4f953b61 2023-07-15  962: 				Auxiliary.GCheckAdditional=nil
6c4f953b61 2023-07-15  963: 				return res
6c4f953b61 2023-07-15  964: 			end
6c4f953b61 2023-07-15  965: end
6c4f953b61 2023-07-15  966: function Auxiliary.XyzLevelFreeTarget(f,gf,minct,maxct)
6c4f953b61 2023-07-15  967: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk,c,og,min,max)
6c4f953b61 2023-07-15  968: 				if og and not min then
6c4f953b61 2023-07-15  969: 					return true
6c4f953b61 2023-07-15  970: 				end
6c4f953b61 2023-07-15  971: 				local minc=minct
6c4f953b61 2023-07-15  972: 				local maxc=maxct
6c4f953b61 2023-07-15  973: 				if min then
6c4f953b61 2023-07-15  974: 					if min>minc then minc=min end
6c4f953b61 2023-07-15  975: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15  976: 				end
6c4f953b61 2023-07-15  977: 				local mg=nil
6c4f953b61 2023-07-15  978: 				if og then
6c4f953b61 2023-07-15  979: 					mg=og:Filter(Auxiliary.XyzLevelFreeFilter,nil,c,f)
6c4f953b61 2023-07-15  980: 				else
6c4f953b61 2023-07-15  981: 					mg=Duel.GetMatchingGroup(Auxiliary.XyzLevelFreeFilter,tp,LOCATION_MZONE,0,nil,c,f)
6c4f953b61 2023-07-15  982: 				end
6c4f953b61 2023-07-15  983: 				local sg=Duel.GetMustMaterial(tp,EFFECT_MUST_BE_XMATERIAL)
6c4f953b61 2023-07-15  984: 				Duel.SetSelectedCard(sg)
6c4f953b61 2023-07-15  985: 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
6c4f953b61 2023-07-15  986: 				local cancel=Duel.IsSummonCancelable()
6c4f953b61 2023-07-15  987: 				Auxiliary.GCheckAdditional=Auxiliary.TuneMagicianCheckAdditionalX(EFFECT_TUNE_MAGICIAN_X)
6c4f953b61 2023-07-15  988: 				local g=mg:SelectSubGroup(tp,Auxiliary.XyzLevelFreeGoal,cancel,minc,maxc,tp,c,gf)
6c4f953b61 2023-07-15  989: 				Auxiliary.GCheckAdditional=nil
6c4f953b61 2023-07-15  990: 				if g and g:GetCount()>0 then
6c4f953b61 2023-07-15  991: 					g:KeepAlive()
6c4f953b61 2023-07-15  992: 					e:SetLabelObject(g)
6c4f953b61 2023-07-15  993: 					return true
6c4f953b61 2023-07-15  994: 				else return false end
6c4f953b61 2023-07-15  995: 			end
6c4f953b61 2023-07-15  996: end
6c4f953b61 2023-07-15  997: function Auxiliary.XyzLevelFreeOperation(f,gf,minct,maxct)
6c4f953b61 2023-07-15  998: 	return	function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
6c4f953b61 2023-07-15  999: 				if og and not min then
6c4f953b61 2023-07-15 1000: 					local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 1001: 					local tc=og:GetFirst()
6c4f953b61 2023-07-15 1002: 					while tc do
6c4f953b61 2023-07-15 1003: 						local sg1=tc:GetOverlayGroup()
6c4f953b61 2023-07-15 1004: 						sg:Merge(sg1)
6c4f953b61 2023-07-15 1005: 						tc=og:GetNext()
6c4f953b61 2023-07-15 1006: 					end
6c4f953b61 2023-07-15 1007: 					Duel.SendtoGrave(sg,REASON_RULE)
6c4f953b61 2023-07-15 1008: 					c:SetMaterial(og)
6c4f953b61 2023-07-15 1009: 					Duel.Overlay(c,og)
6c4f953b61 2023-07-15 1010: 				else
6c4f953b61 2023-07-15 1011: 					local mg=e:GetLabelObject()
6c4f953b61 2023-07-15 1012: 					if e:GetLabel()==1 then
6c4f953b61 2023-07-15 1013: 						local mg2=mg:GetFirst():GetOverlayGroup()
6c4f953b61 2023-07-15 1014: 						if mg2:GetCount()~=0 then
6c4f953b61 2023-07-15 1015: 							Duel.Overlay(c,mg2)
6c4f953b61 2023-07-15 1016: 						end
6c4f953b61 2023-07-15 1017: 					else
6c4f953b61 2023-07-15 1018: 						local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 1019: 						local tc=mg:GetFirst()
6c4f953b61 2023-07-15 1020: 						while tc do
6c4f953b61 2023-07-15 1021: 							local sg1=tc:GetOverlayGroup()
6c4f953b61 2023-07-15 1022: 							sg:Merge(sg1)
6c4f953b61 2023-07-15 1023: 							tc=mg:GetNext()
6c4f953b61 2023-07-15 1024: 						end
6c4f953b61 2023-07-15 1025: 						Duel.SendtoGrave(sg,REASON_RULE)
6c4f953b61 2023-07-15 1026: 					end
6c4f953b61 2023-07-15 1027: 					c:SetMaterial(mg)
6c4f953b61 2023-07-15 1028: 					Duel.Overlay(c,mg)
6c4f953b61 2023-07-15 1029: 					mg:DeleteGroup()
6c4f953b61 2023-07-15 1030: 				end
6c4f953b61 2023-07-15 1031: 			end
6c4f953b61 2023-07-15 1032: end
6c4f953b61 2023-07-15 1033: --Xyz summon(level free&alterf)
6c4f953b61 2023-07-15 1034: function Auxiliary.XyzLevelFreeConditionAlter(f,gf,minct,maxct,alterf,alterdesc,alterop)
6c4f953b61 2023-07-15 1035: 	return	function(e,c,og,min,max)
6c4f953b61 2023-07-15 1036: 				if c==nil then return true end
6c4f953b61 2023-07-15 1037: 				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
6c4f953b61 2023-07-15 1038: 				local tp=c:GetControler()
6c4f953b61 2023-07-15 1039: 				local mg=nil
6c4f953b61 2023-07-15 1040: 				if og then
6c4f953b61 2023-07-15 1041: 					mg=og
6c4f953b61 2023-07-15 1042: 				else
6c4f953b61 2023-07-15 1043: 					mg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
6c4f953b61 2023-07-15 1044: 				end
6c4f953b61 2023-07-15 1045: 				local altg=mg:Filter(Auxiliary.XyzAlterFilter,nil,alterf,c,e,tp,alterop)
6c4f953b61 2023-07-15 1046: 				if (not min or min<=1) and altg:GetCount()>0 then
6c4f953b61 2023-07-15 1047: 					return true
6c4f953b61 2023-07-15 1048: 				end
6c4f953b61 2023-07-15 1049: 				local minc=minct
6c4f953b61 2023-07-15 1050: 				local maxc=maxct
6c4f953b61 2023-07-15 1051: 				if min then
6c4f953b61 2023-07-15 1052: 					if min>minc then minc=min end
6c4f953b61 2023-07-15 1053: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15 1054: 					if minc>maxc then return false end
6c4f953b61 2023-07-15 1055: 				end
6c4f953b61 2023-07-15 1056: 				mg=mg:Filter(Auxiliary.XyzLevelFreeFilter,nil,c,f)
6c4f953b61 2023-07-15 1057: 				local sg=Duel.GetMustMaterial(tp,EFFECT_MUST_BE_XMATERIAL)
6c4f953b61 2023-07-15 1058: 				if sg:IsExists(Auxiliary.MustMaterialCounterFilter,1,nil,mg) then return false end
6c4f953b61 2023-07-15 1059: 				Duel.SetSelectedCard(sg)
6c4f953b61 2023-07-15 1060: 				Auxiliary.GCheckAdditional=Auxiliary.TuneMagicianCheckAdditionalX(EFFECT_TUNE_MAGICIAN_X)
6c4f953b61 2023-07-15 1061: 				local res=mg:CheckSubGroup(Auxiliary.XyzLevelFreeGoal,minc,maxc,tp,c,gf)
6c4f953b61 2023-07-15 1062: 				Auxiliary.GCheckAdditional=nil
6c4f953b61 2023-07-15 1063: 				return res
6c4f953b61 2023-07-15 1064: 			end
6c4f953b61 2023-07-15 1065: end
6c4f953b61 2023-07-15 1066: function Auxiliary.XyzLevelFreeTargetAlter(f,gf,minct,maxct,alterf,alterdesc,alterop)
6c4f953b61 2023-07-15 1067: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk,c,og,min,max)
6c4f953b61 2023-07-15 1068: 				if og and not min then
6c4f953b61 2023-07-15 1069: 					return true
6c4f953b61 2023-07-15 1070: 				end
6c4f953b61 2023-07-15 1071: 				local minc=minct
6c4f953b61 2023-07-15 1072: 				local maxc=maxct
6c4f953b61 2023-07-15 1073: 				if min then
6c4f953b61 2023-07-15 1074: 					if min>minc then minc=min end
6c4f953b61 2023-07-15 1075: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15 1076: 				end
6c4f953b61 2023-07-15 1077: 				local mg=nil
6c4f953b61 2023-07-15 1078: 				if og then
6c4f953b61 2023-07-15 1079: 					mg=og
6c4f953b61 2023-07-15 1080: 				else
6c4f953b61 2023-07-15 1081: 					mg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
6c4f953b61 2023-07-15 1082: 				end
6c4f953b61 2023-07-15 1083: 				local sg=Duel.GetMustMaterial(tp,EFFECT_MUST_BE_XMATERIAL)
6c4f953b61 2023-07-15 1084: 				local altg=mg:Filter(Auxiliary.XyzAlterFilter,nil,alterf,c,e,tp,alterop)
6c4f953b61 2023-07-15 1085: 				local mg2=mg:Filter(Auxiliary.XyzLevelFreeFilter,nil,c,f)
6c4f953b61 2023-07-15 1086: 				Duel.SetSelectedCard(sg)
6c4f953b61 2023-07-15 1087: 				local b1=mg2:CheckSubGroup(Auxiliary.XyzLevelFreeGoal,minc,maxc,tp,c,gf)
6c4f953b61 2023-07-15 1088: 				local b2=(not min or min<=1) and #altg>0
6c4f953b61 2023-07-15 1089: 				local g=nil
6c4f953b61 2023-07-15 1090: 				local cancel=Duel.IsSummonCancelable()
6c4f953b61 2023-07-15 1091: 				if b2 and (not b1 or Duel.SelectYesNo(tp,alterdesc)) then
6c4f953b61 2023-07-15 1092: 					e:SetLabel(1)
6c4f953b61 2023-07-15 1093: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
6c4f953b61 2023-07-15 1094: 					local tc=altg:SelectUnselect(nil,tp,false,cancel,1,1)
6c4f953b61 2023-07-15 1095: 					if tc then
6c4f953b61 2023-07-15 1096: 						g=Group.FromCards(tc)
6c4f953b61 2023-07-15 1097: 						if alterop then alterop(e,tp,1,tc) end
6c4f953b61 2023-07-15 1098: 					end
6c4f953b61 2023-07-15 1099: 				else
6c4f953b61 2023-07-15 1100: 					e:SetLabel(0)
6c4f953b61 2023-07-15 1101: 					Duel.SetSelectedCard(sg)
6c4f953b61 2023-07-15 1102: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
6c4f953b61 2023-07-15 1103: 					Auxiliary.GCheckAdditional=Auxiliary.TuneMagicianCheckAdditionalX(EFFECT_TUNE_MAGICIAN_X)
6c4f953b61 2023-07-15 1104: 					g=mg2:SelectSubGroup(tp,Auxiliary.XyzLevelFreeGoal,cancel,minc,maxc,tp,c,gf)
6c4f953b61 2023-07-15 1105: 					Auxiliary.GCheckAdditional=nil
6c4f953b61 2023-07-15 1106: 				end
6c4f953b61 2023-07-15 1107: 				if g and g:GetCount()>0 then
6c4f953b61 2023-07-15 1108: 					g:KeepAlive()
6c4f953b61 2023-07-15 1109: 					e:SetLabelObject(g)
6c4f953b61 2023-07-15 1110: 					return true
6c4f953b61 2023-07-15 1111: 				else return false end
6c4f953b61 2023-07-15 1112: 			end
6c4f953b61 2023-07-15 1113: end
6c4f953b61 2023-07-15 1114: function Auxiliary.XyzLevelFreeOperationAlter(f,gf,minct,maxct,alterf,alterdesc,alterop)
6c4f953b61 2023-07-15 1115: 	return	function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
6c4f953b61 2023-07-15 1116: 				if og and not min then
6c4f953b61 2023-07-15 1117: 					local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 1118: 					local tc=og:GetFirst()
6c4f953b61 2023-07-15 1119: 					while tc do
6c4f953b61 2023-07-15 1120: 						local sg1=tc:GetOverlayGroup()
6c4f953b61 2023-07-15 1121: 						sg:Merge(sg1)
6c4f953b61 2023-07-15 1122: 						tc=og:GetNext()
6c4f953b61 2023-07-15 1123: 					end
6c4f953b61 2023-07-15 1124: 					Duel.SendtoGrave(sg,REASON_RULE)
6c4f953b61 2023-07-15 1125: 					c:SetMaterial(og)
6c4f953b61 2023-07-15 1126: 					Duel.Overlay(c,og)
6c4f953b61 2023-07-15 1127: 				else
6c4f953b61 2023-07-15 1128: 					local mg=e:GetLabelObject()
6c4f953b61 2023-07-15 1129: 					if e:GetLabel()==1 then
6c4f953b61 2023-07-15 1130: 						local mg2=mg:GetFirst():GetOverlayGroup()
6c4f953b61 2023-07-15 1131: 						if mg2:GetCount()~=0 then
6c4f953b61 2023-07-15 1132: 							Duel.Overlay(c,mg2)
6c4f953b61 2023-07-15 1133: 						end
6c4f953b61 2023-07-15 1134: 					else
6c4f953b61 2023-07-15 1135: 						local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 1136: 						local tc=mg:GetFirst()
6c4f953b61 2023-07-15 1137: 						while tc do
6c4f953b61 2023-07-15 1138: 							local sg1=tc:GetOverlayGroup()
6c4f953b61 2023-07-15 1139: 							sg:Merge(sg1)
6c4f953b61 2023-07-15 1140: 							tc=mg:GetNext()
6c4f953b61 2023-07-15 1141: 						end
6c4f953b61 2023-07-15 1142: 						Duel.SendtoGrave(sg,REASON_RULE)
6c4f953b61 2023-07-15 1143: 					end
6c4f953b61 2023-07-15 1144: 					c:SetMaterial(mg)
6c4f953b61 2023-07-15 1145: 					Duel.Overlay(c,mg)
6c4f953b61 2023-07-15 1146: 					mg:DeleteGroup()
6c4f953b61 2023-07-15 1147: 				end
6c4f953b61 2023-07-15 1148: 			end
6c4f953b61 2023-07-15 1149: end
6c4f953b61 2023-07-15 1150: --material: names in material list
6c4f953b61 2023-07-15 1151: --Fusion monster, mixed materials
6c4f953b61 2023-07-15 1152: function Auxiliary.AddFusionProcMix(c,sub,insf,...)
6c4f953b61 2023-07-15 1153: 	if c:IsStatus(STATUS_COPYING_EFFECT) then return end
6c4f953b61 2023-07-15 1154: 	local val={...}
6c4f953b61 2023-07-15 1155: 	local fun={}
6c4f953b61 2023-07-15 1156: 	local mat={}
6c4f953b61 2023-07-15 1157: 	for i=1,#val do
6c4f953b61 2023-07-15 1158: 		if type(val[i])=='function' then
6c4f953b61 2023-07-15 1159: 			fun[i]=function(c,fc,sub,mg,sg) return val[i](c,fc,sub,mg,sg) and not c:IsHasEffect(6205579) end
6c4f953b61 2023-07-15 1160: 		elseif type(val[i])=='table' then
6c4f953b61 2023-07-15 1161: 			fun[i]=function(c,fc,sub,mg,sg)
6c4f953b61 2023-07-15 1162: 					for _,fcode in ipairs(val[i]) do
6c4f953b61 2023-07-15 1163: 						if type(fcode)=='function' then
6c4f953b61 2023-07-15 1164: 							if fcode(c,fc,sub,mg,sg) and not c:IsHasEffect(6205579) then return true end
6c4f953b61 2023-07-15 1165: 						else
6c4f953b61 2023-07-15 1166: 							if c:IsFusionCode(fcode) or (sub and c:CheckFusionSubstitute(fc)) then return true end
6c4f953b61 2023-07-15 1167: 						end
6c4f953b61 2023-07-15 1168: 					end
6c4f953b61 2023-07-15 1169: 					return false
6c4f953b61 2023-07-15 1170: 			end
6c4f953b61 2023-07-15 1171: 			for _,fcode in ipairs(val[i]) do
6c4f953b61 2023-07-15 1172: 				if type(fcode)~='function' then mat[fcode]=true end
6c4f953b61 2023-07-15 1173: 			end
6c4f953b61 2023-07-15 1174: 		else
6c4f953b61 2023-07-15 1175: 			fun[i]=function(c,fc,sub) return c:IsFusionCode(val[i]) or (sub and c:CheckFusionSubstitute(fc)) end
6c4f953b61 2023-07-15 1176: 			mat[val[i]]=true
6c4f953b61 2023-07-15 1177: 		end
6c4f953b61 2023-07-15 1178: 	end
6c4f953b61 2023-07-15 1179: 	local mt=getmetatable(c)
6c4f953b61 2023-07-15 1180: 	if mt.material==nil then
6c4f953b61 2023-07-15 1181: 		mt.material=mat
6c4f953b61 2023-07-15 1182: 	end
6c4f953b61 2023-07-15 1183: 	if mt.material_count==nil then
6c4f953b61 2023-07-15 1184: 		mt.material_count={#fun,#fun}
6c4f953b61 2023-07-15 1185: 	end
6c4f953b61 2023-07-15 1186: 	for index,_ in pairs(mat) do
6c4f953b61 2023-07-15 1187: 		Auxiliary.AddCodeList(c,index)
6c4f953b61 2023-07-15 1188: 	end
6c4f953b61 2023-07-15 1189: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 1190: 	e1:SetType(EFFECT_TYPE_SINGLE)
6c4f953b61 2023-07-15 1191: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15 1192: 	e1:SetCode(EFFECT_FUSION_MATERIAL)
6c4f953b61 2023-07-15 1193: 	e1:SetCondition(Auxiliary.FConditionMix(insf,sub,table.unpack(fun)))
6c4f953b61 2023-07-15 1194: 	e1:SetOperation(Auxiliary.FOperationMix(insf,sub,table.unpack(fun)))
6c4f953b61 2023-07-15 1195: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 1196: end
6c4f953b61 2023-07-15 1197: function Auxiliary.FConditionMix(insf,sub,...)
6c4f953b61 2023-07-15 1198: 	--g:Material group(nil for Instant Fusion)
6c4f953b61 2023-07-15 1199: 	--gc:Material already used
6c4f953b61 2023-07-15 1200: 	--chkf: check field, default:PLAYER_NONE
6c4f953b61 2023-07-15 1201: 	--chkf&0x100: Not fusion summon
6c4f953b61 2023-07-15 1202: 	--chkf&0x200: Concat fusion
6c4f953b61 2023-07-15 1203: 	local funs={...}
6c4f953b61 2023-07-15 1204: 	return	function(e,g,gc,chkfnf)
6c4f953b61 2023-07-15 1205: 				if g==nil then return insf and Auxiliary.MustMaterialCheck(nil,e:GetHandlerPlayer(),EFFECT_MUST_BE_FMATERIAL) end
6c4f953b61 2023-07-15 1206: 				local c=e:GetHandler()
6c4f953b61 2023-07-15 1207: 				local tp=c:GetControler()
6c4f953b61 2023-07-15 1208: 				local notfusion=chkfnf&0x100>0
6c4f953b61 2023-07-15 1209: 				local concat_fusion=chkfnf&0x200>0
6c4f953b61 2023-07-15 1210: 				local sub=(sub or notfusion) and not concat_fusion
6c4f953b61 2023-07-15 1211: 				local mg=g:Filter(Auxiliary.FConditionFilterMix,c,c,sub,concat_fusion,table.unpack(funs))
6c4f953b61 2023-07-15 1212: 				if gc then
6c4f953b61 2023-07-15 1213: 					if not mg:IsContains(gc) then return false end
6c4f953b61 2023-07-15 1214: 					Duel.SetSelectedCard(Group.FromCards(gc))
6c4f953b61 2023-07-15 1215: 				end
6c4f953b61 2023-07-15 1216: 				return mg:CheckSubGroup(Auxiliary.FCheckMixGoal,#funs,#funs,tp,c,sub,chkfnf,table.unpack(funs))
6c4f953b61 2023-07-15 1217: 			end
6c4f953b61 2023-07-15 1218: end
6c4f953b61 2023-07-15 1219: function Auxiliary.FOperationMix(insf,sub,...)
6c4f953b61 2023-07-15 1220: 	local funs={...}
6c4f953b61 2023-07-15 1221: 	return	function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf)
6c4f953b61 2023-07-15 1222: 				local c=e:GetHandler()
6c4f953b61 2023-07-15 1223: 				local tp=c:GetControler()
6c4f953b61 2023-07-15 1224: 				local notfusion=chkfnf&0x100>0
6c4f953b61 2023-07-15 1225: 				local concat_fusion=chkfnf&0x200>0
6c4f953b61 2023-07-15 1226: 				local sub=(sub or notfusion) and not concat_fusion
6c4f953b61 2023-07-15 1227: 				local mg=eg:Filter(Auxiliary.FConditionFilterMix,c,c,sub,concat_fusion,table.unpack(funs))
6c4f953b61 2023-07-15 1228: 				if gc then Duel.SetSelectedCard(Group.FromCards(gc)) end
6c4f953b61 2023-07-15 1229: 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
6c4f953b61 2023-07-15 1230: 				local sg=mg:SelectSubGroup(tp,Auxiliary.FCheckMixGoal,false,#funs,#funs,tp,c,sub,chkfnf,table.unpack(funs))
6c4f953b61 2023-07-15 1231: 				Duel.SetFusionMaterial(sg)
6c4f953b61 2023-07-15 1232: 			end
6c4f953b61 2023-07-15 1233: end
6c4f953b61 2023-07-15 1234: function Auxiliary.FConditionFilterMix(c,fc,sub,concat_fusion,...)
6c4f953b61 2023-07-15 1235: 	local fusion_type=concat_fusion and SUMMON_TYPE_SPECIAL or SUMMON_TYPE_FUSION
6c4f953b61 2023-07-15 1236: 	if not c:IsCanBeFusionMaterial(fc,fusion_type) then return false end
6c4f953b61 2023-07-15 1237: 	for i,f in ipairs({...}) do
6c4f953b61 2023-07-15 1238: 		if f(c,fc,sub) then return true end
6c4f953b61 2023-07-15 1239: 	end
6c4f953b61 2023-07-15 1240: 	return false
6c4f953b61 2023-07-15 1241: end
6c4f953b61 2023-07-15 1242: function Auxiliary.FCheckMix(c,mg,sg,fc,sub,fun1,fun2,...)
6c4f953b61 2023-07-15 1243: 	if fun2 then
6c4f953b61 2023-07-15 1244: 		sg:AddCard(c)
6c4f953b61 2023-07-15 1245: 		local res=false
6c4f953b61 2023-07-15 1246: 		if fun1(c,fc,false,mg,sg) then
6c4f953b61 2023-07-15 1247: 			res=mg:IsExists(Auxiliary.FCheckMix,1,sg,mg,sg,fc,sub,fun2,...)
6c4f953b61 2023-07-15 1248: 		elseif sub and fun1(c,fc,true,mg,sg) then
6c4f953b61 2023-07-15 1249: 			res=mg:IsExists(Auxiliary.FCheckMix,1,sg,mg,sg,fc,false,fun2,...)
6c4f953b61 2023-07-15 1250: 		end
6c4f953b61 2023-07-15 1251: 		sg:RemoveCard(c)
6c4f953b61 2023-07-15 1252: 		return res
6c4f953b61 2023-07-15 1253: 	else
6c4f953b61 2023-07-15 1254: 		return fun1(c,fc,sub,mg,sg)
6c4f953b61 2023-07-15 1255: 	end
6c4f953b61 2023-07-15 1256: end
6c4f953b61 2023-07-15 1257: --if sg1 is subset of sg2 then not Auxiliary.FCheckAdditional(tp,sg1,fc) -> not Auxiliary.FCheckAdditional(tp,sg2,fc)
6c4f953b61 2023-07-15 1258: Auxiliary.FCheckAdditional=nil
6c4f953b61 2023-07-15 1259: Auxiliary.FGoalCheckAdditional=nil
6c4f953b61 2023-07-15 1260: function Auxiliary.FCheckMixGoal(sg,tp,fc,sub,chkfnf,...)
6c4f953b61 2023-07-15 1261: 	local chkf=chkfnf&0xff
6c4f953b61 2023-07-15 1262: 	local concat_fusion=chkfnf&0x200>0
6c4f953b61 2023-07-15 1263: 	if not concat_fusion and sg:IsExists(Auxiliary.TuneMagicianCheckX,1,nil,sg,EFFECT_TUNE_MAGICIAN_F) then return false end
6c4f953b61 2023-07-15 1264: 	if not Auxiliary.MustMaterialCheck(sg,tp,EFFECT_MUST_BE_FMATERIAL) then return false end
6c4f953b61 2023-07-15 1265: 	local g=Group.CreateGroup()
6c4f953b61 2023-07-15 1266: 	return sg:IsExists(Auxiliary.FCheckMix,1,nil,sg,g,fc,sub,...) and (chkf==PLAYER_NONE or Duel.GetLocationCountFromEx(tp,tp,sg,fc)>0)
6c4f953b61 2023-07-15 1267: 		and (not Auxiliary.FCheckAdditional or Auxiliary.FCheckAdditional(tp,sg,fc))
6c4f953b61 2023-07-15 1268: 		and (not Auxiliary.FGoalCheckAdditional or Auxiliary.FGoalCheckAdditional(tp,sg,fc))
6c4f953b61 2023-07-15 1269: end
6c4f953b61 2023-07-15 1270: --Fusion monster, mixed material * minc to maxc + material + ...
6c4f953b61 2023-07-15 1271: function Auxiliary.AddFusionProcMixRep(c,sub,insf,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1272: 	if c:IsStatus(STATUS_COPYING_EFFECT) then return end
6c4f953b61 2023-07-15 1273: 	local val={fun1,...}
6c4f953b61 2023-07-15 1274: 	local fun={}
6c4f953b61 2023-07-15 1275: 	local mat={}
6c4f953b61 2023-07-15 1276: 	for i=1,#val do
6c4f953b61 2023-07-15 1277: 		if type(val[i])=='function' then
6c4f953b61 2023-07-15 1278: 			fun[i]=function(c,fc,sub,mg,sg) return val[i](c,fc,sub,mg,sg) and not c:IsHasEffect(6205579) end
6c4f953b61 2023-07-15 1279: 		elseif type(val[i])=='table' then
6c4f953b61 2023-07-15 1280: 			fun[i]=function(c,fc,sub,mg,sg)
6c4f953b61 2023-07-15 1281: 					for _,fcode in ipairs(val[i]) do
6c4f953b61 2023-07-15 1282: 						if type(fcode)=='function' then
6c4f953b61 2023-07-15 1283: 							if fcode(c,fc,sub,mg,sg) and not c:IsHasEffect(6205579) then return true end
6c4f953b61 2023-07-15 1284: 						else
6c4f953b61 2023-07-15 1285: 							if c:IsFusionCode(fcode) or (sub and c:CheckFusionSubstitute(fc)) then return true end
6c4f953b61 2023-07-15 1286: 						end
6c4f953b61 2023-07-15 1287: 					end
6c4f953b61 2023-07-15 1288: 					return false
6c4f953b61 2023-07-15 1289: 			end
6c4f953b61 2023-07-15 1290: 			for _,fcode in ipairs(val[i]) do
6c4f953b61 2023-07-15 1291: 				if type(fcode)~='function' then mat[fcode]=true end
6c4f953b61 2023-07-15 1292: 			end
6c4f953b61 2023-07-15 1293: 		else
6c4f953b61 2023-07-15 1294: 			fun[i]=function(c,fc,sub) return c:IsFusionCode(val[i]) or (sub and c:CheckFusionSubstitute(fc)) end
6c4f953b61 2023-07-15 1295: 			mat[val[i]]=true
6c4f953b61 2023-07-15 1296: 		end
6c4f953b61 2023-07-15 1297: 	end
6c4f953b61 2023-07-15 1298: 	local mt=getmetatable(c)
6c4f953b61 2023-07-15 1299: 	if mt.material==nil then
6c4f953b61 2023-07-15 1300: 		mt.material=mat
6c4f953b61 2023-07-15 1301: 	end
6c4f953b61 2023-07-15 1302: 	if mt.material_count==nil then
6c4f953b61 2023-07-15 1303: 		mt.material_count={#fun+minc-1,#fun+maxc-1}
6c4f953b61 2023-07-15 1304: 	end
6c4f953b61 2023-07-15 1305: 	for index,_ in pairs(mat) do
6c4f953b61 2023-07-15 1306: 		Auxiliary.AddCodeList(c,index)
6c4f953b61 2023-07-15 1307: 	end
6c4f953b61 2023-07-15 1308: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 1309: 	e1:SetType(EFFECT_TYPE_SINGLE)
6c4f953b61 2023-07-15 1310: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15 1311: 	e1:SetCode(EFFECT_FUSION_MATERIAL)
6c4f953b61 2023-07-15 1312: 	e1:SetCondition(Auxiliary.FConditionMixRep(insf,sub,fun[1],minc,maxc,table.unpack(fun,2)))
6c4f953b61 2023-07-15 1313: 	e1:SetOperation(Auxiliary.FOperationMixRep(insf,sub,fun[1],minc,maxc,table.unpack(fun,2)))
6c4f953b61 2023-07-15 1314: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 1315: end
6c4f953b61 2023-07-15 1316: function Auxiliary.FConditionMixRep(insf,sub,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1317: 	local funs={...}
6c4f953b61 2023-07-15 1318: 	return	function(e,g,gc,chkfnf)
6c4f953b61 2023-07-15 1319: 				if g==nil then return insf and Auxiliary.MustMaterialCheck(nil,e:GetHandlerPlayer(),EFFECT_MUST_BE_FMATERIAL) end
6c4f953b61 2023-07-15 1320: 				local c=e:GetHandler()
6c4f953b61 2023-07-15 1321: 				local tp=c:GetControler()
6c4f953b61 2023-07-15 1322: 				local notfusion=chkfnf&0x100>0
6c4f953b61 2023-07-15 1323: 				local concat_fusion=chkfnf&0x200>0
6c4f953b61 2023-07-15 1324: 				local sub=(sub or notfusion) and not concat_fusion
6c4f953b61 2023-07-15 1325: 				local mg=g:Filter(Auxiliary.FConditionFilterMix,c,c,sub,concat_fusion,fun1,table.unpack(funs))
6c4f953b61 2023-07-15 1326: 				if gc then
6c4f953b61 2023-07-15 1327: 					if not mg:IsContains(gc) then return false end
6c4f953b61 2023-07-15 1328: 					local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 1329: 					return Auxiliary.FSelectMixRep(gc,tp,mg,sg,c,sub,chkfnf,fun1,minc,maxc,table.unpack(funs))
6c4f953b61 2023-07-15 1330: 				end
6c4f953b61 2023-07-15 1331: 				local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 1332: 				return mg:IsExists(Auxiliary.FSelectMixRep,1,nil,tp,mg,sg,c,sub,chkfnf,fun1,minc,maxc,table.unpack(funs))
6c4f953b61 2023-07-15 1333: 			end
6c4f953b61 2023-07-15 1334: end
6c4f953b61 2023-07-15 1335: function Auxiliary.FOperationMixRep(insf,sub,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1336: 	local funs={...}
6c4f953b61 2023-07-15 1337: 	return	function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf)
6c4f953b61 2023-07-15 1338: 				local c=e:GetHandler()
6c4f953b61 2023-07-15 1339: 				local tp=c:GetControler()
6c4f953b61 2023-07-15 1340: 				local notfusion=chkfnf&0x100>0
6c4f953b61 2023-07-15 1341: 				local concat_fusion=chkfnf&0x200>0
6c4f953b61 2023-07-15 1342: 				local sub=(sub or notfusion) and not concat_fusion
6c4f953b61 2023-07-15 1343: 				local mg=eg:Filter(Auxiliary.FConditionFilterMix,c,c,sub,concat_fusion,fun1,table.unpack(funs))
6c4f953b61 2023-07-15 1344: 				local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 1345: 				if gc then sg:AddCard(gc) end
6c4f953b61 2023-07-15 1346: 				while sg:GetCount()<maxc+#funs do
6c4f953b61 2023-07-15 1347: 					local cg=mg:Filter(Auxiliary.FSelectMixRep,sg,tp,mg,sg,c,sub,chkfnf,fun1,minc,maxc,table.unpack(funs))
6c4f953b61 2023-07-15 1348: 					if cg:GetCount()==0 then break end
6c4f953b61 2023-07-15 1349: 					local finish=Auxiliary.FCheckMixRepGoal(tp,sg,c,sub,chkfnf,fun1,minc,maxc,table.unpack(funs))
6c4f953b61 2023-07-15 1350: 					local cancel_group=sg:Clone()
6c4f953b61 2023-07-15 1351: 					if gc then cancel_group:RemoveCard(gc) end
6c4f953b61 2023-07-15 1352: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
6c4f953b61 2023-07-15 1353: 					local tc=cg:SelectUnselect(cancel_group,tp,finish,false,minc+#funs,maxc+#funs)
6c4f953b61 2023-07-15 1354: 					if not tc then break end
6c4f953b61 2023-07-15 1355: 					if sg:IsContains(tc) then
6c4f953b61 2023-07-15 1356: 						sg:RemoveCard(tc)
6c4f953b61 2023-07-15 1357: 					else
6c4f953b61 2023-07-15 1358: 						sg:AddCard(tc)
6c4f953b61 2023-07-15 1359: 					end
6c4f953b61 2023-07-15 1360: 				end
6c4f953b61 2023-07-15 1361: 				Duel.SetFusionMaterial(sg)
6c4f953b61 2023-07-15 1362: 			end
6c4f953b61 2023-07-15 1363: end
6c4f953b61 2023-07-15 1364: function Auxiliary.FCheckMixRep(sg,g,fc,sub,chkf,fun1,minc,maxc,fun2,...)
6c4f953b61 2023-07-15 1365: 	if fun2 then
6c4f953b61 2023-07-15 1366: 		return sg:IsExists(Auxiliary.FCheckMixRepFilter,1,g,sg,g,fc,sub,chkf,fun1,minc,maxc,fun2,...)
6c4f953b61 2023-07-15 1367: 	else
6c4f953b61 2023-07-15 1368: 		local ct1=sg:FilterCount(fun1,g,fc,sub,mg,sg)
6c4f953b61 2023-07-15 1369: 		local ct2=sg:FilterCount(fun1,g,fc,false,mg,sg)
6c4f953b61 2023-07-15 1370: 		return ct1==sg:GetCount()-g:GetCount() and ct1-ct2<=1
6c4f953b61 2023-07-15 1371: 	end
6c4f953b61 2023-07-15 1372: end
6c4f953b61 2023-07-15 1373: function Auxiliary.FCheckMixRepFilter(c,sg,g,fc,sub,chkf,fun1,minc,maxc,fun2,...)
6c4f953b61 2023-07-15 1374: 	if fun2(c,fc,sub,mg,sg) then
6c4f953b61 2023-07-15 1375: 		g:AddCard(c)
6c4f953b61 2023-07-15 1376: 		local sub=sub and fun2(c,fc,false,mg,sg)
6c4f953b61 2023-07-15 1377: 		local res=Auxiliary.FCheckMixRep(sg,g,fc,sub,chkf,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1378: 		g:RemoveCard(c)
6c4f953b61 2023-07-15 1379: 		return res
6c4f953b61 2023-07-15 1380: 	end
6c4f953b61 2023-07-15 1381: 	return false
6c4f953b61 2023-07-15 1382: end
6c4f953b61 2023-07-15 1383: function Auxiliary.FCheckMixRepGoalCheck(tp,sg,fc,chkfnf)
6c4f953b61 2023-07-15 1384: 	local concat_fusion=chkfnf&0x200>0
6c4f953b61 2023-07-15 1385: 	if not concat_fusion and sg:IsExists(Auxiliary.TuneMagicianCheckX,1,nil,sg,EFFECT_TUNE_MAGICIAN_F) then return false end
6c4f953b61 2023-07-15 1386: 	if not Auxiliary.MustMaterialCheck(sg,tp,EFFECT_MUST_BE_FMATERIAL) then return false end
6c4f953b61 2023-07-15 1387: 	if Auxiliary.FGoalCheckAdditional and not Auxiliary.FGoalCheckAdditional(tp,sg,fc) then return false end
6c4f953b61 2023-07-15 1388: 	return true
6c4f953b61 2023-07-15 1389: end
6c4f953b61 2023-07-15 1390: function Auxiliary.FCheckMixRepGoal(tp,sg,fc,sub,chkfnf,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1391: 	local chkf=chkfnf&0xff
6c4f953b61 2023-07-15 1392: 	if sg:GetCount()<minc+#{...} or sg:GetCount()>maxc+#{...} then return false end
6c4f953b61 2023-07-15 1393: 	if not (chkf==PLAYER_NONE or Duel.GetLocationCountFromEx(tp,tp,sg,fc)>0) then return false end
6c4f953b61 2023-07-15 1394: 	if Auxiliary.FCheckAdditional and not Auxiliary.FCheckAdditional(tp,sg,fc) then return false end
6c4f953b61 2023-07-15 1395: 	if not Auxiliary.FCheckMixRepGoalCheck(tp,sg,fc,chkfnf) then return false end
6c4f953b61 2023-07-15 1396: 	local g=Group.CreateGroup()
6c4f953b61 2023-07-15 1397: 	return Auxiliary.FCheckMixRep(sg,g,fc,sub,chkf,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1398: end
6c4f953b61 2023-07-15 1399: function Auxiliary.FCheckMixRepTemplate(c,cond,tp,mg,sg,g,fc,sub,chkfnf,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1400: 	for i,f in ipairs({...}) do
6c4f953b61 2023-07-15 1401: 		if f(c,fc,sub,mg,sg) then
6c4f953b61 2023-07-15 1402: 			g:AddCard(c)
6c4f953b61 2023-07-15 1403: 			local sub=sub and f(c,fc,false,mg,sg)
6c4f953b61 2023-07-15 1404: 			local t={...}
6c4f953b61 2023-07-15 1405: 			table.remove(t,i)
6c4f953b61 2023-07-15 1406: 			local res=cond(tp,mg,sg,g,fc,sub,chkfnf,fun1,minc,maxc,table.unpack(t))
6c4f953b61 2023-07-15 1407: 			g:RemoveCard(c)
6c4f953b61 2023-07-15 1408: 			if res then return true end
6c4f953b61 2023-07-15 1409: 		end
6c4f953b61 2023-07-15 1410: 	end
6c4f953b61 2023-07-15 1411: 	if maxc>0 then
6c4f953b61 2023-07-15 1412: 		if fun1(c,fc,sub,mg,sg) then
6c4f953b61 2023-07-15 1413: 			g:AddCard(c)
6c4f953b61 2023-07-15 1414: 			local sub=sub and fun1(c,fc,false,mg,sg)
6c4f953b61 2023-07-15 1415: 			local res=cond(tp,mg,sg,g,fc,sub,chkfnf,fun1,minc-1,maxc-1,...)
6c4f953b61 2023-07-15 1416: 			g:RemoveCard(c)
6c4f953b61 2023-07-15 1417: 			if res then return true end
6c4f953b61 2023-07-15 1418: 		end
6c4f953b61 2023-07-15 1419: 	end
6c4f953b61 2023-07-15 1420: 	return false
6c4f953b61 2023-07-15 1421: end
6c4f953b61 2023-07-15 1422: function Auxiliary.FCheckMixRepSelectedCond(tp,mg,sg,g,...)
6c4f953b61 2023-07-15 1423: 	if g:GetCount()<sg:GetCount() then
6c4f953b61 2023-07-15 1424: 		return sg:IsExists(Auxiliary.FCheckMixRepSelected,1,g,tp,mg,sg,g,...)
6c4f953b61 2023-07-15 1425: 	else
6c4f953b61 2023-07-15 1426: 		return Auxiliary.FCheckSelectMixRep(tp,mg,sg,g,...)
6c4f953b61 2023-07-15 1427: 	end
6c4f953b61 2023-07-15 1428: end
6c4f953b61 2023-07-15 1429: function Auxiliary.FCheckMixRepSelected(c,...)
6c4f953b61 2023-07-15 1430: 	return Auxiliary.FCheckMixRepTemplate(c,Auxiliary.FCheckMixRepSelectedCond,...)
6c4f953b61 2023-07-15 1431: end
6c4f953b61 2023-07-15 1432: function Auxiliary.FCheckSelectMixRep(tp,mg,sg,g,fc,sub,chkfnf,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1433: 	local chkf=chkfnf&0xff
6c4f953b61 2023-07-15 1434: 	if Auxiliary.FCheckAdditional and not Auxiliary.FCheckAdditional(tp,g,fc) then return false end
6c4f953b61 2023-07-15 1435: 	if chkf==PLAYER_NONE or Duel.GetLocationCountFromEx(tp,tp,g,fc)>0 then
6c4f953b61 2023-07-15 1436: 		if minc<=0 and #{...}==0 and Auxiliary.FCheckMixRepGoalCheck(tp,g,fc,chkfnf) then return true end
6c4f953b61 2023-07-15 1437: 		return mg:IsExists(Auxiliary.FCheckSelectMixRepAll,1,g,tp,mg,sg,g,fc,sub,chkfnf,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1438: 	else
6c4f953b61 2023-07-15 1439: 		return mg:IsExists(Auxiliary.FCheckSelectMixRepM,1,g,tp,mg,sg,g,fc,sub,chkfnf,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1440: 	end
6c4f953b61 2023-07-15 1441: end
6c4f953b61 2023-07-15 1442: function Auxiliary.FCheckSelectMixRepAll(c,tp,mg,sg,g,fc,sub,chkf,fun1,minc,maxc,fun2,...)
6c4f953b61 2023-07-15 1443: 	if fun2 then
6c4f953b61 2023-07-15 1444: 		if fun2(c,fc,sub,mg,sg) then
6c4f953b61 2023-07-15 1445: 			g:AddCard(c)
6c4f953b61 2023-07-15 1446: 			local sub=sub and fun2(c,fc,false,mg,sg)
6c4f953b61 2023-07-15 1447: 			local res=Auxiliary.FCheckSelectMixRep(tp,mg,sg,g,fc,sub,chkf,fun1,minc,maxc,...)
6c4f953b61 2023-07-15 1448: 			g:RemoveCard(c)
6c4f953b61 2023-07-15 1449: 			return res
6c4f953b61 2023-07-15 1450: 		end
6c4f953b61 2023-07-15 1451: 	elseif maxc>0 and fun1(c,fc,sub,mg,sg) then
6c4f953b61 2023-07-15 1452: 		g:AddCard(c)
6c4f953b61 2023-07-15 1453: 		local sub=sub and fun1(c,fc,false,mg,sg)
6c4f953b61 2023-07-15 1454: 		local res=Auxiliary.FCheckSelectMixRep(tp,mg,sg,g,fc,sub,chkf,fun1,minc-1,maxc-1)
6c4f953b61 2023-07-15 1455: 		g:RemoveCard(c)
6c4f953b61 2023-07-15 1456: 		return res
6c4f953b61 2023-07-15 1457: 	end
6c4f953b61 2023-07-15 1458: 	return false
6c4f953b61 2023-07-15 1459: end
6c4f953b61 2023-07-15 1460: function Auxiliary.FCheckSelectMixRepM(c,tp,...)
6c4f953b61 2023-07-15 1461: 	return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)
6c4f953b61 2023-07-15 1462: 		and Auxiliary.FCheckMixRepTemplate(c,Auxiliary.FCheckSelectMixRep,tp,...)
6c4f953b61 2023-07-15 1463: end
6c4f953b61 2023-07-15 1464: function Auxiliary.FSelectMixRep(c,tp,mg,sg,fc,sub,chkfnf,...)
6c4f953b61 2023-07-15 1465: 	sg:AddCard(c)
6c4f953b61 2023-07-15 1466: 	local res=false
6c4f953b61 2023-07-15 1467: 	if Auxiliary.FCheckAdditional and not Auxiliary.FCheckAdditional(tp,sg,fc) then
6c4f953b61 2023-07-15 1468: 		res=false
6c4f953b61 2023-07-15 1469: 	elseif Auxiliary.FCheckMixRepGoal(tp,sg,fc,sub,chkfnf,...) then
6c4f953b61 2023-07-15 1470: 		res=true
6c4f953b61 2023-07-15 1471: 	else
6c4f953b61 2023-07-15 1472: 		local g=Group.CreateGroup()
6c4f953b61 2023-07-15 1473: 		res=sg:IsExists(Auxiliary.FCheckMixRepSelected,1,nil,tp,mg,sg,g,fc,sub,chkfnf,...)
6c4f953b61 2023-07-15 1474: 	end
6c4f953b61 2023-07-15 1475: 	sg:RemoveCard(c)
6c4f953b61 2023-07-15 1476: 	return res
6c4f953b61 2023-07-15 1477: end
6c4f953b61 2023-07-15 1478: --Fusion monster, name + name
6c4f953b61 2023-07-15 1479: function Auxiliary.AddFusionProcCode2(c,code1,code2,sub,insf)
6c4f953b61 2023-07-15 1480: 	Auxiliary.AddFusionProcMix(c,sub,insf,code1,code2)
6c4f953b61 2023-07-15 1481: end
6c4f953b61 2023-07-15 1482: --Fusion monster, name + name + name
6c4f953b61 2023-07-15 1483: function Auxiliary.AddFusionProcCode3(c,code1,code2,code3,sub,insf)
6c4f953b61 2023-07-15 1484: 	Auxiliary.AddFusionProcMix(c,sub,insf,code1,code2,code3)
6c4f953b61 2023-07-15 1485: end
6c4f953b61 2023-07-15 1486: --Fusion monster, name + name + name + name
6c4f953b61 2023-07-15 1487: function Auxiliary.AddFusionProcCode4(c,code1,code2,code3,code4,sub,insf)
6c4f953b61 2023-07-15 1488: 	Auxiliary.AddFusionProcMix(c,sub,insf,code1,code2,code3,code4)
6c4f953b61 2023-07-15 1489: end
6c4f953b61 2023-07-15 1490: --Fusion monster, name * n
6c4f953b61 2023-07-15 1491: function Auxiliary.AddFusionProcCodeRep(c,code1,cc,sub,insf)
6c4f953b61 2023-07-15 1492: 	local code={}
6c4f953b61 2023-07-15 1493: 	for i=1,cc do
6c4f953b61 2023-07-15 1494: 		code[i]=code1
6c4f953b61 2023-07-15 1495: 	end
6c4f953b61 2023-07-15 1496: 	Auxiliary.AddFusionProcMix(c,sub,insf,table.unpack(code))
6c4f953b61 2023-07-15 1497: end
6c4f953b61 2023-07-15 1498: --Fusion monster, name * minc to maxc
6c4f953b61 2023-07-15 1499: function Auxiliary.AddFusionProcCodeRep2(c,code1,minc,maxc,sub,insf)
6c4f953b61 2023-07-15 1500: 	Auxiliary.AddFusionProcMixRep(c,sub,insf,code1,minc,maxc)
6c4f953b61 2023-07-15 1501: end
6c4f953b61 2023-07-15 1502: --Fusion monster, name + condition * n
6c4f953b61 2023-07-15 1503: function Auxiliary.AddFusionProcCodeFun(c,code1,f,cc,sub,insf)
6c4f953b61 2023-07-15 1504: 	local fun={}
6c4f953b61 2023-07-15 1505: 	for i=1,cc do
6c4f953b61 2023-07-15 1506: 		fun[i]=f
6c4f953b61 2023-07-15 1507: 	end
6c4f953b61 2023-07-15 1508: 	Auxiliary.AddFusionProcMix(c,sub,insf,code1,table.unpack(fun))
6c4f953b61 2023-07-15 1509: end
6c4f953b61 2023-07-15 1510: --Fusion monster, condition + condition
6c4f953b61 2023-07-15 1511: function Auxiliary.AddFusionProcFun2(c,f1,f2,insf)
6c4f953b61 2023-07-15 1512: 	Auxiliary.AddFusionProcMix(c,false,insf,f1,f2)
6c4f953b61 2023-07-15 1513: end
6c4f953b61 2023-07-15 1514: --Fusion monster, condition * n
6c4f953b61 2023-07-15 1515: function Auxiliary.AddFusionProcFunRep(c,f,cc,insf)
6c4f953b61 2023-07-15 1516: 	local fun={}
6c4f953b61 2023-07-15 1517: 	for i=1,cc do
6c4f953b61 2023-07-15 1518: 		fun[i]=f
6c4f953b61 2023-07-15 1519: 	end
6c4f953b61 2023-07-15 1520: 	Auxiliary.AddFusionProcMix(c,false,insf,table.unpack(fun))
6c4f953b61 2023-07-15 1521: end
6c4f953b61 2023-07-15 1522: --Fusion monster, condition * minc to maxc
6c4f953b61 2023-07-15 1523: function Auxiliary.AddFusionProcFunRep2(c,f,minc,maxc,insf)
6c4f953b61 2023-07-15 1524: 	Auxiliary.AddFusionProcMixRep(c,false,insf,f,minc,maxc)
6c4f953b61 2023-07-15 1525: end
6c4f953b61 2023-07-15 1526: --Fusion monster, condition1 + condition2 * n
6c4f953b61 2023-07-15 1527: function Auxiliary.AddFusionProcFunFun(c,f1,f2,cc,insf)
6c4f953b61 2023-07-15 1528: 	local fun={}
6c4f953b61 2023-07-15 1529: 	for i=1,cc do
6c4f953b61 2023-07-15 1530: 		fun[i]=f2
6c4f953b61 2023-07-15 1531: 	end
6c4f953b61 2023-07-15 1532: 	Auxiliary.AddFusionProcMix(c,false,insf,f1,table.unpack(fun))
6c4f953b61 2023-07-15 1533: end
6c4f953b61 2023-07-15 1534: --Fusion monster, condition1 + condition2 * minc to maxc
6c4f953b61 2023-07-15 1535: function Auxiliary.AddFusionProcFunFunRep(c,f1,f2,minc,maxc,insf)
6c4f953b61 2023-07-15 1536: 	Auxiliary.AddFusionProcMixRep(c,false,insf,f2,minc,maxc,f1)
6c4f953b61 2023-07-15 1537: end
6c4f953b61 2023-07-15 1538: --Fusion monster, name + condition * minc to maxc
6c4f953b61 2023-07-15 1539: function Auxiliary.AddFusionProcCodeFunRep(c,code1,f,minc,maxc,sub,insf)
6c4f953b61 2023-07-15 1540: 	Auxiliary.AddFusionProcMixRep(c,sub,insf,f,minc,maxc,code1)
6c4f953b61 2023-07-15 1541: end
6c4f953b61 2023-07-15 1542: --Fusion monster, name + name + condition * minc to maxc
6c4f953b61 2023-07-15 1543: function Auxiliary.AddFusionProcCode2FunRep(c,code1,code2,f,minc,maxc,sub,insf)
6c4f953b61 2023-07-15 1544: 	Auxiliary.AddFusionProcMixRep(c,sub,insf,f,minc,maxc,code1,code2)
6c4f953b61 2023-07-15 1545: end
6c4f953b61 2023-07-15 1546: --Fusion monster, Shaddoll materials
6c4f953b61 2023-07-15 1547: function Auxiliary.AddFusionProcShaddoll(c,attr)
6c4f953b61 2023-07-15 1548: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 1549: 	e1:SetType(EFFECT_TYPE_SINGLE)
6c4f953b61 2023-07-15 1550: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15 1551: 	e1:SetCode(EFFECT_FUSION_MATERIAL)
6c4f953b61 2023-07-15 1552: 	e1:SetCondition(Auxiliary.FShaddollCondition(attr))
6c4f953b61 2023-07-15 1553: 	e1:SetOperation(Auxiliary.FShaddollOperation(attr))
6c4f953b61 2023-07-15 1554: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 1555: end
6c4f953b61 2023-07-15 1556: function Auxiliary.FShaddollFilter(c,fc,attr)
6c4f953b61 2023-07-15 1557: 	return (Auxiliary.FShaddollFilter1(c) or Auxiliary.FShaddollFilter2(c,attr)) and c:IsCanBeFusionMaterial(fc) and not c:IsHasEffect(6205579)
6c4f953b61 2023-07-15 1558: end
6c4f953b61 2023-07-15 1559: function Auxiliary.FShaddollExFilter(c,fc,attr,fe)
6c4f953b61 2023-07-15 1560: 	return c:IsFaceup() and not c:IsImmuneToEffect(fe) and Auxiliary.FShaddollFilter(c,fc,attr)
6c4f953b61 2023-07-15 1561: end
6c4f953b61 2023-07-15 1562: function Auxiliary.FShaddollFilter1(c)
6c4f953b61 2023-07-15 1563: 	return c:IsFusionSetCard(0x9d)
6c4f953b61 2023-07-15 1564: end
6c4f953b61 2023-07-15 1565: function Auxiliary.FShaddollFilter2(c,attr)
6c4f953b61 2023-07-15 1566: 	return c:IsFusionAttribute(attr) or c:IsHasEffect(4904633)
6c4f953b61 2023-07-15 1567: end
6c4f953b61 2023-07-15 1568: function Auxiliary.FShaddollSpFilter1(c,fc,tp,mg,exg,attr,chkf)
6c4f953b61 2023-07-15 1569: 	return mg:IsExists(Auxiliary.FShaddollSpFilter2,1,c,fc,tp,c,attr,chkf)
6c4f953b61 2023-07-15 1570: 		or (exg and exg:IsExists(Auxiliary.FShaddollSpFilter2,1,c,fc,tp,c,attr,chkf))
6c4f953b61 2023-07-15 1571: end
6c4f953b61 2023-07-15 1572: function Auxiliary.FShaddollSpFilter2(c,fc,tp,mc,attr,chkf)
6c4f953b61 2023-07-15 1573: 	local sg=Group.FromCards(c,mc)
6c4f953b61 2023-07-15 1574: 	if sg:IsExists(Auxiliary.TuneMagicianCheckX,1,nil,sg,EFFECT_TUNE_MAGICIAN_F) then return false end
6c4f953b61 2023-07-15 1575: 	if not Auxiliary.MustMaterialCheck(sg,tp,EFFECT_MUST_BE_FMATERIAL) then return false end
6c4f953b61 2023-07-15 1576: 	if Auxiliary.FCheckAdditional and not Auxiliary.FCheckAdditional(tp,sg,fc)
6c4f953b61 2023-07-15 1577: 		or Auxiliary.FGoalCheckAdditional and not Auxiliary.FGoalCheckAdditional(tp,sg,fc) then return false end
6c4f953b61 2023-07-15 1578: 	return ((Auxiliary.FShaddollFilter1(c) and Auxiliary.FShaddollFilter2(mc,attr))
6c4f953b61 2023-07-15 1579: 		or (Auxiliary.FShaddollFilter2(c,attr) and Auxiliary.FShaddollFilter1(mc)))
6c4f953b61 2023-07-15 1580: 		and (chkf==PLAYER_NONE or Duel.GetLocationCountFromEx(tp,tp,sg,fc)>0)
6c4f953b61 2023-07-15 1581: end
6c4f953b61 2023-07-15 1582: function Auxiliary.FShaddollCondition(attr)
6c4f953b61 2023-07-15 1583: 	return 	function(e,g,gc,chkf)
6c4f953b61 2023-07-15 1584: 				if g==nil then return Auxiliary.MustMaterialCheck(nil,e:GetHandlerPlayer(),EFFECT_MUST_BE_FMATERIAL) end
6c4f953b61 2023-07-15 1585: 				local c=e:GetHandler()
6c4f953b61 2023-07-15 1586: 				local mg=g:Filter(Auxiliary.FShaddollFilter,nil,c,attr)
6c4f953b61 2023-07-15 1587: 				local tp=e:GetHandlerPlayer()
6c4f953b61 2023-07-15 1588: 				local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
6c4f953b61 2023-07-15 1589: 				local exg=nil
6c4f953b61 2023-07-15 1590: 				if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then
6c4f953b61 2023-07-15 1591: 					local fe=fc:IsHasEffect(81788994)
6c4f953b61 2023-07-15 1592: 					exg=Duel.GetMatchingGroup(Auxiliary.FShaddollExFilter,tp,0,LOCATION_MZONE,mg,c,attr,fe)
6c4f953b61 2023-07-15 1593: 				end
6c4f953b61 2023-07-15 1594: 				if gc then
6c4f953b61 2023-07-15 1595: 					if not mg:IsContains(gc) then return false end
6c4f953b61 2023-07-15 1596: 					return Auxiliary.FShaddollSpFilter1(gc,c,tp,mg,exg,attr,chkf)
6c4f953b61 2023-07-15 1597: 				end
6c4f953b61 2023-07-15 1598: 				return mg:IsExists(Auxiliary.FShaddollSpFilter1,1,nil,c,tp,mg,exg,attr,chkf)
6c4f953b61 2023-07-15 1599: 			end
6c4f953b61 2023-07-15 1600: end
6c4f953b61 2023-07-15 1601: function Auxiliary.FShaddollOperation(attr)
6c4f953b61 2023-07-15 1602: 	return	function(e,tp,eg,ep,ev,re,r,rp,gc,chkf)
6c4f953b61 2023-07-15 1603: 				local c=e:GetHandler()
6c4f953b61 2023-07-15 1604: 				local mg=eg:Filter(Auxiliary.FShaddollFilter,nil,c,attr)
6c4f953b61 2023-07-15 1605: 				local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
6c4f953b61 2023-07-15 1606: 				local exg=nil
6c4f953b61 2023-07-15 1607: 				if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then
6c4f953b61 2023-07-15 1608: 					local fe=fc:IsHasEffect(81788994)
6c4f953b61 2023-07-15 1609: 					exg=Duel.GetMatchingGroup(Auxiliary.FShaddollExFilter,tp,0,LOCATION_MZONE,mg,c,attr,fe)
6c4f953b61 2023-07-15 1610: 				end
6c4f953b61 2023-07-15 1611: 				local g=nil
6c4f953b61 2023-07-15 1612: 				if gc then
6c4f953b61 2023-07-15 1613: 					g=Group.FromCards(gc)
6c4f953b61 2023-07-15 1614: 					mg:RemoveCard(gc)
6c4f953b61 2023-07-15 1615: 				else
6c4f953b61 2023-07-15 1616: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
6c4f953b61 2023-07-15 1617: 					g=mg:FilterSelect(tp,Auxiliary.FShaddollSpFilter1,1,1,nil,c,tp,mg,exg,attr,chkf)
6c4f953b61 2023-07-15 1618: 					mg:Sub(g)
6c4f953b61 2023-07-15 1619: 				end
6c4f953b61 2023-07-15 1620: 				if exg and exg:IsExists(Auxiliary.FShaddollSpFilter2,1,nil,c,tp,g:GetFirst(),attr,chkf)
6c4f953b61 2023-07-15 1621: 					and (mg:GetCount()==0 or (exg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0)))) then
6c4f953b61 2023-07-15 1622: 					fc:RemoveCounter(tp,0x16,3,REASON_EFFECT)
6c4f953b61 2023-07-15 1623: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
6c4f953b61 2023-07-15 1624: 					local sg=exg:FilterSelect(tp,Auxiliary.FShaddollSpFilter2,1,1,nil,c,tp,g:GetFirst(),attr,chkf)
6c4f953b61 2023-07-15 1625: 					g:Merge(sg)
6c4f953b61 2023-07-15 1626: 				else
6c4f953b61 2023-07-15 1627: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
6c4f953b61 2023-07-15 1628: 					local sg=mg:FilterSelect(tp,Auxiliary.FShaddollSpFilter2,1,1,nil,c,tp,g:GetFirst(),attr,chkf)
6c4f953b61 2023-07-15 1629: 					g:Merge(sg)
6c4f953b61 2023-07-15 1630: 				end
6c4f953b61 2023-07-15 1631: 				Duel.SetFusionMaterial(g)
6c4f953b61 2023-07-15 1632: 			end
6c4f953b61 2023-07-15 1633: end
6c4f953b61 2023-07-15 1634: function Auxiliary.AddContactFusionProcedure(c,filter,self_location,opponent_location,mat_operation,...)
6c4f953b61 2023-07-15 1635: 	local self_location=self_location or 0
6c4f953b61 2023-07-15 1636: 	local opponent_location=opponent_location or 0
6c4f953b61 2023-07-15 1637: 	local operation_params={...}
6c4f953b61 2023-07-15 1638: 	local e2=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 1639: 	e2:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15 1640: 	e2:SetCode(EFFECT_SPSUMMON_PROC)
6c4f953b61 2023-07-15 1641: 	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15 1642: 	e2:SetRange(LOCATION_EXTRA)
6c4f953b61 2023-07-15 1643: 	e2:SetCondition(Auxiliary.ContactFusionCondition(filter,self_location,opponent_location))
6c4f953b61 2023-07-15 1644: 	e2:SetOperation(Auxiliary.ContactFusionOperation(filter,self_location,opponent_location,mat_operation,operation_params))
6c4f953b61 2023-07-15 1645: 	c:RegisterEffect(e2)
6c4f953b61 2023-07-15 1646: 	return e2
6c4f953b61 2023-07-15 1647: end
6c4f953b61 2023-07-15 1648: function Auxiliary.ContactFusionMaterialFilter(c,fc,filter)
6c4f953b61 2023-07-15 1649: 	return c:IsCanBeFusionMaterial(fc,SUMMON_TYPE_SPECIAL) and (not filter or filter(c,fc))
6c4f953b61 2023-07-15 1650: end
6c4f953b61 2023-07-15 1651: function Auxiliary.ContactFusionCondition(filter,self_location,opponent_location)
6c4f953b61 2023-07-15 1652: 	return	function(e,c)
6c4f953b61 2023-07-15 1653: 				if c==nil then return true end
6c4f953b61 2023-07-15 1654: 				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
6c4f953b61 2023-07-15 1655: 				local tp=c:GetControler()
6c4f953b61 2023-07-15 1656: 				local mg=Duel.GetMatchingGroup(Auxiliary.ContactFusionMaterialFilter,tp,self_location,opponent_location,c,c,filter)
6c4f953b61 2023-07-15 1657: 				return c:CheckFusionMaterial(mg,nil,tp|0x200)
6c4f953b61 2023-07-15 1658: 			end
6c4f953b61 2023-07-15 1659: end
6c4f953b61 2023-07-15 1660: function Auxiliary.ContactFusionOperation(filter,self_location,opponent_location,mat_operation,operation_params)
6c4f953b61 2023-07-15 1661: 	return	function(e,tp,eg,ep,ev,re,r,rp,c)
6c4f953b61 2023-07-15 1662: 				local mg=Duel.GetMatchingGroup(Auxiliary.ContactFusionMaterialFilter,tp,self_location,opponent_location,c,c,filter)
6c4f953b61 2023-07-15 1663: 				local g=Duel.SelectFusionMaterial(tp,c,mg,nil,tp|0x200)
6c4f953b61 2023-07-15 1664: 				c:SetMaterial(g)
6c4f953b61 2023-07-15 1665: 				mat_operation(g,table.unpack(operation_params))
6c4f953b61 2023-07-15 1666: 			end
6c4f953b61 2023-07-15 1667: end
6c4f953b61 2023-07-15 1668: function Auxiliary.AddRitualProcUltimate(c,filter,level_function,greater_or_equal,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1669: 	summon_location=summon_location or LOCATION_HAND
6c4f953b61 2023-07-15 1670: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 1671: 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
6c4f953b61 2023-07-15 1672: 	e1:SetType(EFFECT_TYPE_ACTIVATE)
6c4f953b61 2023-07-15 1673: 	e1:SetCode(EVENT_FREE_CHAIN)
6c4f953b61 2023-07-15 1674: 	e1:SetTarget(Auxiliary.RitualUltimateTarget(filter,level_function,greater_or_equal,summon_location,grave_filter,mat_filter,extra_target))
6c4f953b61 2023-07-15 1675: 	e1:SetOperation(Auxiliary.RitualUltimateOperation(filter,level_function,greater_or_equal,summon_location,grave_filter,mat_filter,extra_operation))
6c4f953b61 2023-07-15 1676: 	if not pause then
6c4f953b61 2023-07-15 1677: 		c:RegisterEffect(e1)
6c4f953b61 2023-07-15 1678: 	end
6c4f953b61 2023-07-15 1679: 	return e1
6c4f953b61 2023-07-15 1680: end
6c4f953b61 2023-07-15 1681: function Auxiliary.RitualCheckGreater(g,c,lv)
6c4f953b61 2023-07-15 1682: 	Duel.SetSelectedCard(g)
6c4f953b61 2023-07-15 1683: 	return g:CheckWithSumGreater(Card.GetRitualLevel,lv,c)
6c4f953b61 2023-07-15 1684: end
6c4f953b61 2023-07-15 1685: function Auxiliary.RitualCheckEqual(g,c,lv)
6c4f953b61 2023-07-15 1686: 	return g:CheckWithSumEqual(Card.GetRitualLevel,lv,#g,#g,c)
6c4f953b61 2023-07-15 1687: end
6c4f953b61 2023-07-15 1688: Auxiliary.RCheckAdditional=nil
6c4f953b61 2023-07-15 1689: function Auxiliary.RitualCheck(g,tp,c,lv,greater_or_equal)
6c4f953b61 2023-07-15 1690: 	return Auxiliary["RitualCheck"..greater_or_equal](g,c,lv) and Duel.GetMZoneCount(tp,g,tp)>0 and (not c.mat_group_check or c.mat_group_check(g,tp))
6c4f953b61 2023-07-15 1691: 		and (not Auxiliary.RCheckAdditional or Auxiliary.RCheckAdditional(tp,g,c))
6c4f953b61 2023-07-15 1692: end
6c4f953b61 2023-07-15 1693: function Auxiliary.RitualCheckAdditionalLevel(c,rc)
6c4f953b61 2023-07-15 1694: 	local raw_level=c:GetRitualLevel(rc)
6c4f953b61 2023-07-15 1695: 	local lv1=raw_level&0xffff
6c4f953b61 2023-07-15 1696: 	local lv2=raw_level>>16
6c4f953b61 2023-07-15 1697: 	if lv2>0 then
6c4f953b61 2023-07-15 1698: 		return math.min(lv1,lv2)
6c4f953b61 2023-07-15 1699: 	else
6c4f953b61 2023-07-15 1700: 		return lv1
6c4f953b61 2023-07-15 1701: 	end
6c4f953b61 2023-07-15 1702: end
6c4f953b61 2023-07-15 1703: Auxiliary.RGCheckAdditional=nil
6c4f953b61 2023-07-15 1704: function Auxiliary.RitualCheckAdditional(c,lv,greater_or_equal)
6c4f953b61 2023-07-15 1705: 	if greater_or_equal=="Equal" then
6c4f953b61 2023-07-15 1706: 		return	function(g)
6c4f953b61 2023-07-15 1707: 					return (not Auxiliary.RGCheckAdditional or Auxiliary.RGCheckAdditional(g)) and g:GetSum(Auxiliary.RitualCheckAdditionalLevel,c)<=lv
6c4f953b61 2023-07-15 1708: 				end
6c4f953b61 2023-07-15 1709: 	else
6c4f953b61 2023-07-15 1710: 		return	function(g,ec)
6c4f953b61 2023-07-15 1711: 					if ec then
6c4f953b61 2023-07-15 1712: 						return (not Auxiliary.RGCheckAdditional or Auxiliary.RGCheckAdditional(g,ec)) and g:GetSum(Auxiliary.RitualCheckAdditionalLevel,c)-Auxiliary.RitualCheckAdditionalLevel(ec,c)<=lv
6c4f953b61 2023-07-15 1713: 					else
6c4f953b61 2023-07-15 1714: 						return not Auxiliary.RGCheckAdditional or Auxiliary.RGCheckAdditional(g)
6c4f953b61 2023-07-15 1715: 					end
6c4f953b61 2023-07-15 1716: 				end
6c4f953b61 2023-07-15 1717: 	end
6c4f953b61 2023-07-15 1718: end
6c4f953b61 2023-07-15 1719: function Auxiliary.RitualUltimateFilter(c,filter,e,tp,m1,m2,level_function,greater_or_equal,chk)
6c4f953b61 2023-07-15 1720: 	if bit.band(c:GetType(),0x81)~=0x81 or (filter and not filter(c,e,tp,chk)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end
6c4f953b61 2023-07-15 1721: 	local mg=m1:Filter(Card.IsCanBeRitualMaterial,c,c)
6c4f953b61 2023-07-15 1722: 	if m2 then
6c4f953b61 2023-07-15 1723: 		mg:Merge(m2)
6c4f953b61 2023-07-15 1724: 	end
6c4f953b61 2023-07-15 1725: 	if c.mat_filter then
6c4f953b61 2023-07-15 1726: 		mg=mg:Filter(c.mat_filter,c,tp)
6c4f953b61 2023-07-15 1727: 	else
6c4f953b61 2023-07-15 1728: 		mg:RemoveCard(c)
6c4f953b61 2023-07-15 1729: 	end
6c4f953b61 2023-07-15 1730: 	local lv=level_function(c)
6c4f953b61 2023-07-15 1731: 	Auxiliary.GCheckAdditional=Auxiliary.RitualCheckAdditional(c,lv,greater_or_equal)
6c4f953b61 2023-07-15 1732: 	local res=mg:CheckSubGroup(Auxiliary.RitualCheck,1,lv,tp,c,lv,greater_or_equal)
6c4f953b61 2023-07-15 1733: 	Auxiliary.GCheckAdditional=nil
6c4f953b61 2023-07-15 1734: 	return res
6c4f953b61 2023-07-15 1735: end
6c4f953b61 2023-07-15 1736: function Auxiliary.RitualExtraFilter(c,f)
6c4f953b61 2023-07-15 1737: 	return c:GetLevel()>0 and f(c) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
6c4f953b61 2023-07-15 1738: end
6c4f953b61 2023-07-15 1739: function Auxiliary.RitualUltimateTarget(filter,level_function,greater_or_equal,summon_location,grave_filter,mat_filter,extra_target)
6c4f953b61 2023-07-15 1740: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15 1741: 				if chk==0 then
6c4f953b61 2023-07-15 1742: 					local mg=Duel.GetRitualMaterial(tp)
6c4f953b61 2023-07-15 1743: 					if mat_filter then mg=mg:Filter(mat_filter,nil,e,tp,true) end
6c4f953b61 2023-07-15 1744: 					local exg=nil
6c4f953b61 2023-07-15 1745: 					if grave_filter then
6c4f953b61 2023-07-15 1746: 						exg=Duel.GetMatchingGroup(Auxiliary.RitualExtraFilter,tp,LOCATION_GRAVE,0,nil,grave_filter)
6c4f953b61 2023-07-15 1747: 					end
6c4f953b61 2023-07-15 1748: 					return Duel.IsExistingMatchingCard(Auxiliary.RitualUltimateFilter,tp,summon_location,0,1,nil,filter,e,tp,mg,exg,level_function,greater_or_equal,true)
6c4f953b61 2023-07-15 1749: 				end
6c4f953b61 2023-07-15 1750: 				Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,summon_location)
6c4f953b61 2023-07-15 1751: 				if grave_filter then
6c4f953b61 2023-07-15 1752: 					Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,LOCATION_GRAVE)
6c4f953b61 2023-07-15 1753: 				end
6c4f953b61 2023-07-15 1754: 				if extra_target then
6c4f953b61 2023-07-15 1755: 					extra_target(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 1756: 				end
6c4f953b61 2023-07-15 1757: 			end
6c4f953b61 2023-07-15 1758: end
6c4f953b61 2023-07-15 1759: function Auxiliary.RitualUltimateOperation(filter,level_function,greater_or_equal,summon_location,grave_filter,mat_filter,extra_operation)
6c4f953b61 2023-07-15 1760: 	return	function(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 1761: 				::RitualUltimateSelectStart::
6c4f953b61 2023-07-15 1762: 				local mg=Duel.GetRitualMaterial(tp)
6c4f953b61 2023-07-15 1763: 				if mat_filter then mg=mg:Filter(mat_filter,nil,e,tp) end
6c4f953b61 2023-07-15 1764: 				local exg=nil
6c4f953b61 2023-07-15 1765: 				if grave_filter then
6c4f953b61 2023-07-15 1766: 					exg=Duel.GetMatchingGroup(Auxiliary.RitualExtraFilter,tp,LOCATION_GRAVE,0,nil,grave_filter)
6c4f953b61 2023-07-15 1767: 				end
6c4f953b61 2023-07-15 1768: 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
6c4f953b61 2023-07-15 1769: 				local tg=Duel.SelectMatchingCard(tp,Auxiliary.NecroValleyFilter(Auxiliary.RitualUltimateFilter),tp,summon_location,0,1,1,nil,filter,e,tp,mg,exg,level_function,greater_or_equal)
6c4f953b61 2023-07-15 1770: 				local tc=tg:GetFirst()
6c4f953b61 2023-07-15 1771: 				local mat
6c4f953b61 2023-07-15 1772: 				if tc then
6c4f953b61 2023-07-15 1773: 					mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
6c4f953b61 2023-07-15 1774: 					if exg then
6c4f953b61 2023-07-15 1775: 						mg:Merge(exg)
6c4f953b61 2023-07-15 1776: 					end
6c4f953b61 2023-07-15 1777: 					if tc.mat_filter then
6c4f953b61 2023-07-15 1778: 						mg=mg:Filter(tc.mat_filter,tc,tp)
6c4f953b61 2023-07-15 1779: 					else
6c4f953b61 2023-07-15 1780: 						mg:RemoveCard(tc)
6c4f953b61 2023-07-15 1781: 					end
6c4f953b61 2023-07-15 1782: 					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
6c4f953b61 2023-07-15 1783: 					local lv=level_function(tc)
6c4f953b61 2023-07-15 1784: 					Auxiliary.GCheckAdditional=Auxiliary.RitualCheckAdditional(tc,lv,greater_or_equal)
6c4f953b61 2023-07-15 1785: 					mat=mg:SelectSubGroup(tp,Auxiliary.RitualCheck,true,1,lv,tp,tc,lv,greater_or_equal)
6c4f953b61 2023-07-15 1786: 					Auxiliary.GCheckAdditional=nil
6c4f953b61 2023-07-15 1787: 					if not mat then goto RitualUltimateSelectStart end
6c4f953b61 2023-07-15 1788: 					tc:SetMaterial(mat)
6c4f953b61 2023-07-15 1789: 					Duel.ReleaseRitualMaterial(mat)
6c4f953b61 2023-07-15 1790: 					Duel.BreakEffect()
6c4f953b61 2023-07-15 1791: 					Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
6c4f953b61 2023-07-15 1792: 					tc:CompleteProcedure()
6c4f953b61 2023-07-15 1793: 				end
6c4f953b61 2023-07-15 1794: 				if extra_operation then
6c4f953b61 2023-07-15 1795: 					extra_operation(e,tp,eg,ep,ev,re,r,rp,tc,mat)
6c4f953b61 2023-07-15 1796: 				end
6c4f953b61 2023-07-15 1797: 			end
6c4f953b61 2023-07-15 1798: end
6c4f953b61 2023-07-15 1799: --Ritual Summon, geq fixed lv
6c4f953b61 2023-07-15 1800: function Auxiliary.AddRitualProcGreater(c,filter,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1801: 	return Auxiliary.AddRitualProcUltimate(c,filter,Card.GetOriginalLevel,"Greater",summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1802: end
6c4f953b61 2023-07-15 1803: function Auxiliary.AddRitualProcGreaterCode(c,code1,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1804: 	Auxiliary.AddCodeList(c,code1)
6c4f953b61 2023-07-15 1805: 	return Auxiliary.AddRitualProcGreater(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1),summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1806: end
6c4f953b61 2023-07-15 1807: --Ritual Summon, equal to fixed lv
6c4f953b61 2023-07-15 1808: function Auxiliary.AddRitualProcEqual(c,filter,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1809: 	return Auxiliary.AddRitualProcUltimate(c,filter,Card.GetOriginalLevel,"Equal",summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1810: end
6c4f953b61 2023-07-15 1811: function Auxiliary.AddRitualProcEqualCode(c,code1,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1812: 	Auxiliary.AddCodeList(c,code1)
6c4f953b61 2023-07-15 1813: 	return Auxiliary.AddRitualProcEqual(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1),summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1814: end
6c4f953b61 2023-07-15 1815: --Ritual Summon, equal to monster lv
6c4f953b61 2023-07-15 1816: function Auxiliary.AddRitualProcEqual2(c,filter,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1817: 	return Auxiliary.AddRitualProcUltimate(c,filter,Card.GetLevel,"Equal",summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1818: end
6c4f953b61 2023-07-15 1819: function Auxiliary.AddRitualProcEqual2Code(c,code1,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1820: 	Auxiliary.AddCodeList(c,code1)
6c4f953b61 2023-07-15 1821: 	return Auxiliary.AddRitualProcEqual2(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1),summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1822: end
6c4f953b61 2023-07-15 1823: function Auxiliary.AddRitualProcEqual2Code2(c,code1,code2,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1824: 	Auxiliary.AddCodeList(c,code1,code2)
6c4f953b61 2023-07-15 1825: 	return Auxiliary.AddRitualProcEqual2(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1,code2),summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1826: end
6c4f953b61 2023-07-15 1827: --Ritual Summon, geq monster lv
6c4f953b61 2023-07-15 1828: function Auxiliary.AddRitualProcGreater2(c,filter,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1829: 	return Auxiliary.AddRitualProcUltimate(c,filter,Card.GetLevel,"Greater",summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1830: end
6c4f953b61 2023-07-15 1831: function Auxiliary.AddRitualProcGreater2Code(c,code1,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1832: 	Auxiliary.AddCodeList(c,code1)
6c4f953b61 2023-07-15 1833: 	return Auxiliary.AddRitualProcGreater2(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1),summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1834: end
6c4f953b61 2023-07-15 1835: function Auxiliary.AddRitualProcGreater2Code2(c,code1,code2,summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1836: 	Auxiliary.AddCodeList(c,code1,code2)
6c4f953b61 2023-07-15 1837: 	return Auxiliary.AddRitualProcGreater2(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1,code2),summon_location,grave_filter,mat_filter,pause,extra_operation,extra_target)
6c4f953b61 2023-07-15 1838: end
6c4f953b61 2023-07-15 1839: --add procedure to Pendulum monster, also allows registeration of activation effect
6c4f953b61 2023-07-15 1840: function Auxiliary.EnablePendulumAttribute(c,reg)
6c4f953b61 2023-07-15 1841: 	if not Auxiliary.PendulumChecklist then
6c4f953b61 2023-07-15 1842: 		Auxiliary.PendulumChecklist=0
6c4f953b61 2023-07-15 1843: 		local ge1=Effect.GlobalEffect()
6c4f953b61 2023-07-15 1844: 		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
6c4f953b61 2023-07-15 1845: 		ge1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
6c4f953b61 2023-07-15 1846: 		ge1:SetOperation(Auxiliary.PendulumReset)
6c4f953b61 2023-07-15 1847: 		Duel.RegisterEffect(ge1,0)
6c4f953b61 2023-07-15 1848: 	end
6c4f953b61 2023-07-15 1849: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 1850: 	e1:SetDescription(1163)
6c4f953b61 2023-07-15 1851: 	e1:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15 1852: 	e1:SetCode(EFFECT_SPSUMMON_PROC_G)
6c4f953b61 2023-07-15 1853: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15 1854: 	e1:SetRange(LOCATION_PZONE)
6c4f953b61 2023-07-15 1855: 	e1:SetCondition(Auxiliary.PendCondition())
6c4f953b61 2023-07-15 1856: 	e1:SetOperation(Auxiliary.PendOperation())
6c4f953b61 2023-07-15 1857: 	e1:SetValue(SUMMON_TYPE_PENDULUM)
6c4f953b61 2023-07-15 1858: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 1859: 	--register by default
6c4f953b61 2023-07-15 1860: 	if reg==nil or reg then
6c4f953b61 2023-07-15 1861: 		local e2=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 1862: 		e2:SetDescription(1160)
6c4f953b61 2023-07-15 1863: 		e2:SetType(EFFECT_TYPE_ACTIVATE)
6c4f953b61 2023-07-15 1864: 		e2:SetCode(EVENT_FREE_CHAIN)
6c4f953b61 2023-07-15 1865: 		e2:SetRange(LOCATION_HAND)
6c4f953b61 2023-07-15 1866: 		c:RegisterEffect(e2)
6c4f953b61 2023-07-15 1867: 	end
6c4f953b61 2023-07-15 1868: end
6c4f953b61 2023-07-15 1869: function Auxiliary.PendulumReset(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 1870: 	Auxiliary.PendulumChecklist=0
6c4f953b61 2023-07-15 1871: end
6c4f953b61 2023-07-15 1872: function Auxiliary.PConditionExtraFilterSpecific(c,e,tp,lscale,rscale,te)
6c4f953b61 2023-07-15 1873: 	if not te then return true end
6c4f953b61 2023-07-15 1874: 	local f=te:GetValue()
6c4f953b61 2023-07-15 1875: 	return not f or f(te,c,e,tp,lscale,rscale)
6c4f953b61 2023-07-15 1876: end
6c4f953b61 2023-07-15 1877: function Auxiliary.PConditionExtraFilter(c,e,tp,lscale,rscale,eset)
6c4f953b61 2023-07-15 1878: 	for _,te in ipairs(eset) do
6c4f953b61 2023-07-15 1879: 		if Auxiliary.PConditionExtraFilterSpecific(c,e,tp,lscale,rscale,te) then return true end
6c4f953b61 2023-07-15 1880: 	end
6c4f953b61 2023-07-15 1881: 	return false
6c4f953b61 2023-07-15 1882: end
6c4f953b61 2023-07-15 1883: function Auxiliary.PConditionFilter(c,e,tp,lscale,rscale,eset)
6c4f953b61 2023-07-15 1884: 	local lv=0
6c4f953b61 2023-07-15 1885: 	if c.pendulum_level then
6c4f953b61 2023-07-15 1886: 		lv=c.pendulum_level
6c4f953b61 2023-07-15 1887: 	else
6c4f953b61 2023-07-15 1888: 		lv=c:GetLevel()
6c4f953b61 2023-07-15 1889: 	end
6c4f953b61 2023-07-15 1890: 	local bool=Auxiliary.PendulumSummonableBool(c)
6c4f953b61 2023-07-15 1891: 	return (c:IsLocation(LOCATION_HAND) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM)))
6c4f953b61 2023-07-15 1892: 		and lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
6c4f953b61 2023-07-15 1893: 		and not c:IsForbidden()
6c4f953b61 2023-07-15 1894: 		and (Auxiliary.PendulumChecklist&(0x1<<tp)==0 or Auxiliary.PConditionExtraFilter(c,e,tp,lscale,rscale,eset))
6c4f953b61 2023-07-15 1895: end
6c4f953b61 2023-07-15 1896: function Auxiliary.PendCondition()
6c4f953b61 2023-07-15 1897: 	return	function(e,c,og)
6c4f953b61 2023-07-15 1898: 				if c==nil then return true end
6c4f953b61 2023-07-15 1899: 				local tp=c:GetControler()
6c4f953b61 2023-07-15 1900: 				local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
6c4f953b61 2023-07-15 1901: 				if Auxiliary.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 then return false end
6c4f953b61 2023-07-15 1902: 				local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
6c4f953b61 2023-07-15 1903: 				if rpz==nil or c==rpz then return false end
6c4f953b61 2023-07-15 1904: 				local lscale=c:GetLeftScale()
6c4f953b61 2023-07-15 1905: 				local rscale=rpz:GetRightScale()
6c4f953b61 2023-07-15 1906: 				if lscale>rscale then lscale,rscale=rscale,lscale end
6c4f953b61 2023-07-15 1907: 				local loc=0
6c4f953b61 2023-07-15 1908: 				if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND end
6c4f953b61 2023-07-15 1909: 				if Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)>0 then loc=loc+LOCATION_EXTRA end
6c4f953b61 2023-07-15 1910: 				if loc==0 then return false end
6c4f953b61 2023-07-15 1911: 				local g=nil
6c4f953b61 2023-07-15 1912: 				if og then
6c4f953b61 2023-07-15 1913: 					g=og:Filter(Card.IsLocation,nil,loc)
6c4f953b61 2023-07-15 1914: 				else
6c4f953b61 2023-07-15 1915: 					g=Duel.GetFieldGroup(tp,loc,0)
6c4f953b61 2023-07-15 1916: 				end
6c4f953b61 2023-07-15 1917: 				return g:IsExists(Auxiliary.PConditionFilter,1,nil,e,tp,lscale,rscale,eset)
6c4f953b61 2023-07-15 1918: 			end
6c4f953b61 2023-07-15 1919: end
6c4f953b61 2023-07-15 1920: function Auxiliary.PendOperationCheck(ft1,ft2,ft)
6c4f953b61 2023-07-15 1921: 	return	function(g)
6c4f953b61 2023-07-15 1922: 				local exg=g:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
6c4f953b61 2023-07-15 1923: 				local mg=g-exg
6c4f953b61 2023-07-15 1924: 				return #g<=ft and #exg<=ft2 and #mg<=ft1
6c4f953b61 2023-07-15 1925: 			end
6c4f953b61 2023-07-15 1926: end
6c4f953b61 2023-07-15 1927: function Auxiliary.PendOperation()
6c4f953b61 2023-07-15 1928: 	return	function(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
6c4f953b61 2023-07-15 1929: 				local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
6c4f953b61 2023-07-15 1930: 				local lscale=c:GetLeftScale()
6c4f953b61 2023-07-15 1931: 				local rscale=rpz:GetRightScale()
6c4f953b61 2023-07-15 1932: 				if lscale>rscale then lscale,rscale=rscale,lscale end
6c4f953b61 2023-07-15 1933: 				local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
6c4f953b61 2023-07-15 1934: 				local tg=nil
6c4f953b61 2023-07-15 1935: 				local loc=0
6c4f953b61 2023-07-15 1936: 				local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
6c4f953b61 2023-07-15 1937: 				local ft2=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)
6c4f953b61 2023-07-15 1938: 				local ft=Duel.GetUsableMZoneCount(tp)
6c4f953b61 2023-07-15 1939: 				local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
6c4f953b61 2023-07-15 1940: 				if ect and ect<ft2 then ft2=ect end
6c4f953b61 2023-07-15 1941: 				if Duel.IsPlayerAffectedByEffect(tp,59822133) then
6c4f953b61 2023-07-15 1942: 					if ft1>0 then ft1=1 end
6c4f953b61 2023-07-15 1943: 					if ft2>0 then ft2=1 end
6c4f953b61 2023-07-15 1944: 					ft=1
6c4f953b61 2023-07-15 1945: 				end
6c4f953b61 2023-07-15 1946: 				if ft1>0 then loc=loc|LOCATION_HAND end
6c4f953b61 2023-07-15 1947: 				if ft2>0 then loc=loc|LOCATION_EXTRA end
6c4f953b61 2023-07-15 1948: 				if og then
6c4f953b61 2023-07-15 1949: 					tg=og:Filter(Card.IsLocation,nil,loc):Filter(Auxiliary.PConditionFilter,nil,e,tp,lscale,rscale,eset)
6c4f953b61 2023-07-15 1950: 				else
6c4f953b61 2023-07-15 1951: 					tg=Duel.GetMatchingGroup(Auxiliary.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale,eset)
6c4f953b61 2023-07-15 1952: 				end
6c4f953b61 2023-07-15 1953: 				local ce=nil
6c4f953b61 2023-07-15 1954: 				local b1=Auxiliary.PendulumChecklist&(0x1<<tp)==0
6c4f953b61 2023-07-15 1955: 				local b2=#eset>0
6c4f953b61 2023-07-15 1956: 				if b1 and b2 then
6c4f953b61 2023-07-15 1957: 					local options={1163}
6c4f953b61 2023-07-15 1958: 					for _,te in ipairs(eset) do
6c4f953b61 2023-07-15 1959: 						table.insert(options,te:GetDescription())
6c4f953b61 2023-07-15 1960: 					end
6c4f953b61 2023-07-15 1961: 					local op=Duel.SelectOption(tp,table.unpack(options))
6c4f953b61 2023-07-15 1962: 					if op>0 then
6c4f953b61 2023-07-15 1963: 						ce=eset[op]
6c4f953b61 2023-07-15 1964: 					end
6c4f953b61 2023-07-15 1965: 				elseif b2 and not b1 then
6c4f953b61 2023-07-15 1966: 					local options={}
6c4f953b61 2023-07-15 1967: 					for _,te in ipairs(eset) do
6c4f953b61 2023-07-15 1968: 						table.insert(options,te:GetDescription())
6c4f953b61 2023-07-15 1969: 					end
6c4f953b61 2023-07-15 1970: 					local op=Duel.SelectOption(tp,table.unpack(options))
6c4f953b61 2023-07-15 1971: 					ce=eset[op+1]
6c4f953b61 2023-07-15 1972: 				end
6c4f953b61 2023-07-15 1973: 				if ce then
6c4f953b61 2023-07-15 1974: 					tg=tg:Filter(Auxiliary.PConditionExtraFilterSpecific,nil,e,tp,lscale,rscale,ce)
6c4f953b61 2023-07-15 1975: 				end
6c4f953b61 2023-07-15 1976: 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
6c4f953b61 2023-07-15 1977: 				Auxiliary.GCheckAdditional=Auxiliary.PendOperationCheck(ft1,ft2,ft)
6c4f953b61 2023-07-15 1978: 				local g=tg:SelectSubGroup(tp,aux.TRUE,true,1,math.min(#tg,ft))
6c4f953b61 2023-07-15 1979: 				Auxiliary.GCheckAdditional=nil
6c4f953b61 2023-07-15 1980: 				if not g then return end
6c4f953b61 2023-07-15 1981: 				if ce then
6c4f953b61 2023-07-15 1982: 					Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
6c4f953b61 2023-07-15 1983: 					ce:UseCountLimit(tp)
6c4f953b61 2023-07-15 1984: 				else
6c4f953b61 2023-07-15 1985: 					Auxiliary.PendulumChecklist=Auxiliary.PendulumChecklist|(0x1<<tp)
6c4f953b61 2023-07-15 1986: 				end
6c4f953b61 2023-07-15 1987: 				sg:Merge(g)
6c4f953b61 2023-07-15 1988: 				Duel.HintSelection(Group.FromCards(c))
6c4f953b61 2023-07-15 1989: 				Duel.HintSelection(Group.FromCards(rpz))
6c4f953b61 2023-07-15 1990: 			end
6c4f953b61 2023-07-15 1991: end
6c4f953b61 2023-07-15 1992: --enable revive limit for monsters that are also pendulum sumonable from certain locations (Odd-Eyes Revolution Dragon)
6c4f953b61 2023-07-15 1993: function Auxiliary.EnableReviveLimitPendulumSummonable(c, loc)
6c4f953b61 2023-07-15 1994: 	if c:IsStatus(STATUS_COPYING_EFFECT) then return end
6c4f953b61 2023-07-15 1995: 	c:EnableReviveLimit()
6c4f953b61 2023-07-15 1996: 	local mt=getmetatable(c)
6c4f953b61 2023-07-15 1997: 	if loc==nil then loc=0xff end
6c4f953b61 2023-07-15 1998: 	mt.psummonable_location=loc
6c4f953b61 2023-07-15 1999: 	--complete procedure on pendulum summon success
6c4f953b61 2023-07-15 2000: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 2001: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15 2002: 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
6c4f953b61 2023-07-15 2003: 	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
6c4f953b61 2023-07-15 2004: 	e1:SetOperation(Auxiliary.PSSCompleteProcedure)
6c4f953b61 2023-07-15 2005: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 2006: end
6c4f953b61 2023-07-15 2007: function Auxiliary.PendulumSummonableBool(c)
6c4f953b61 2023-07-15 2008: 	return c.psummonable_location~=nil and c:GetLocation()&c.psummonable_location>0
6c4f953b61 2023-07-15 2009: end
6c4f953b61 2023-07-15 2010: function Auxiliary.PSSCompleteProcedure(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2011: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2012: 	if c:IsSummonType(SUMMON_TYPE_PENDULUM) then
6c4f953b61 2023-07-15 2013: 		c:CompleteProcedure()
6c4f953b61 2023-07-15 2014: 	end
6c4f953b61 2023-07-15 2015: end
6c4f953b61 2023-07-15 2016: --Link Summon
6c4f953b61 2023-07-15 2017: function Auxiliary.AddLinkProcedure(c,f,min,max,gf)
6c4f953b61 2023-07-15 2018: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 2019: 	e1:SetDescription(1166)
6c4f953b61 2023-07-15 2020: 	e1:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15 2021: 	e1:SetCode(EFFECT_SPSUMMON_PROC)
6c4f953b61 2023-07-15 2022: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
6c4f953b61 2023-07-15 2023: 	e1:SetRange(LOCATION_EXTRA)
6c4f953b61 2023-07-15 2024: 	if max==nil then max=c:GetLink() end
6c4f953b61 2023-07-15 2025: 	e1:SetCondition(Auxiliary.LinkCondition(f,min,max,gf))
6c4f953b61 2023-07-15 2026: 	e1:SetTarget(Auxiliary.LinkTarget(f,min,max,gf))
6c4f953b61 2023-07-15 2027: 	e1:SetOperation(Auxiliary.LinkOperation(f,min,max,gf))
6c4f953b61 2023-07-15 2028: 	e1:SetValue(SUMMON_TYPE_LINK)
6c4f953b61 2023-07-15 2029: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 2030: 	return e1
6c4f953b61 2023-07-15 2031: end
6c4f953b61 2023-07-15 2032: function Auxiliary.LConditionFilter(c,f,lc,e)
6c4f953b61 2023-07-15 2033: 	return (c:IsFaceup() or not c:IsOnField() or e:IsHasProperty(EFFECT_FLAG_SET_AVAILABLE))
6c4f953b61 2023-07-15 2034: 		and c:IsCanBeLinkMaterial(lc) and (not f or f(c))
6c4f953b61 2023-07-15 2035: end
6c4f953b61 2023-07-15 2036: function Auxiliary.LExtraFilter(c,f,lc,tp)
6c4f953b61 2023-07-15 2037: 	if c:IsOnField() and c:IsFacedown() then return false end
6c4f953b61 2023-07-15 2038: 	if not c:IsCanBeLinkMaterial(lc) or f and not f(c) then return false end
6c4f953b61 2023-07-15 2039: 	local le={c:IsHasEffect(EFFECT_EXTRA_LINK_MATERIAL,tp)}
6c4f953b61 2023-07-15 2040: 	for _,te in pairs(le) do
6c4f953b61 2023-07-15 2041: 		local tf=te:GetValue()
6c4f953b61 2023-07-15 2042: 		local related,valid=tf(te,lc,nil,c,tp)
6c4f953b61 2023-07-15 2043: 		if related then return true end
6c4f953b61 2023-07-15 2044: 	end
6c4f953b61 2023-07-15 2045: 	return false
6c4f953b61 2023-07-15 2046: end
6c4f953b61 2023-07-15 2047: function Auxiliary.GetLinkCount(c)
6c4f953b61 2023-07-15 2048: 	if c:IsType(TYPE_LINK) and c:GetLink()>1 then
6c4f953b61 2023-07-15 2049: 		return 1+0x10000*c:GetLink()
6c4f953b61 2023-07-15 2050: 	else return 1 end
6c4f953b61 2023-07-15 2051: end
6c4f953b61 2023-07-15 2052: function Auxiliary.GetLinkMaterials(tp,f,lc,e)
6c4f953b61 2023-07-15 2053: 	local mg=Duel.GetMatchingGroup(Auxiliary.LConditionFilter,tp,LOCATION_MZONE,0,nil,f,lc,e)
6c4f953b61 2023-07-15 2054: 	local mg2=Duel.GetMatchingGroup(Auxiliary.LExtraFilter,tp,LOCATION_HAND+LOCATION_SZONE,LOCATION_ONFIELD,nil,f,lc,tp)
6c4f953b61 2023-07-15 2055: 	if mg2:GetCount()>0 then mg:Merge(mg2) end
6c4f953b61 2023-07-15 2056: 	return mg
6c4f953b61 2023-07-15 2057: end
6c4f953b61 2023-07-15 2058: function Auxiliary.LCheckOtherMaterial(c,mg,lc,tp)
6c4f953b61 2023-07-15 2059: 	local le={c:IsHasEffect(EFFECT_EXTRA_LINK_MATERIAL,tp)}
6c4f953b61 2023-07-15 2060: 	local res1=false
6c4f953b61 2023-07-15 2061: 	local res2=true
6c4f953b61 2023-07-15 2062: 	for _,te in pairs(le) do
6c4f953b61 2023-07-15 2063: 		local f=te:GetValue()
6c4f953b61 2023-07-15 2064: 		local related,valid=f(te,lc,mg,c,tp)
6c4f953b61 2023-07-15 2065: 		if related then res2=false end
6c4f953b61 2023-07-15 2066: 		if related and valid then res1=true end
6c4f953b61 2023-07-15 2067: 	end
6c4f953b61 2023-07-15 2068: 	return res1 or res2
6c4f953b61 2023-07-15 2069: end
6c4f953b61 2023-07-15 2070: function Auxiliary.LUncompatibilityFilter(c,sg,lc,tp)
6c4f953b61 2023-07-15 2071: 	local mg=sg:Filter(aux.TRUE,c)
6c4f953b61 2023-07-15 2072: 	return not Auxiliary.LCheckOtherMaterial(c,mg,lc,tp)
6c4f953b61 2023-07-15 2073: end
6c4f953b61 2023-07-15 2074: function Auxiliary.LCheckGoal(sg,tp,lc,gf,lmat)
6c4f953b61 2023-07-15 2075: 	return sg:CheckWithSumEqual(Auxiliary.GetLinkCount,lc:GetLink(),#sg,#sg)
6c4f953b61 2023-07-15 2076: 		and Duel.GetLocationCountFromEx(tp,tp,sg,lc)>0 and (not gf or gf(sg,lc,tp))
6c4f953b61 2023-07-15 2077: 		and not sg:IsExists(Auxiliary.LUncompatibilityFilter,1,nil,sg,lc,tp)
6c4f953b61 2023-07-15 2078: 		and (not lmat or sg:IsContains(lmat))
6c4f953b61 2023-07-15 2079: end
6c4f953b61 2023-07-15 2080: function Auxiliary.LExtraMaterialCount(mg,lc,tp)
6c4f953b61 2023-07-15 2081: 	for tc in aux.Next(mg) do
6c4f953b61 2023-07-15 2082: 		local le={tc:IsHasEffect(EFFECT_EXTRA_LINK_MATERIAL,tp)}
6c4f953b61 2023-07-15 2083: 		for _,te in pairs(le) do
6c4f953b61 2023-07-15 2084: 			local sg=mg:Filter(aux.TRUE,tc)
6c4f953b61 2023-07-15 2085: 			local f=te:GetValue()
6c4f953b61 2023-07-15 2086: 			local related,valid=f(te,lc,sg,tc,tp)
6c4f953b61 2023-07-15 2087: 			if related and valid then
6c4f953b61 2023-07-15 2088: 				te:UseCountLimit(tp)
6c4f953b61 2023-07-15 2089: 			end
6c4f953b61 2023-07-15 2090: 		end
6c4f953b61 2023-07-15 2091: 	end
6c4f953b61 2023-07-15 2092: end
6c4f953b61 2023-07-15 2093: function Auxiliary.LinkCondition(f,minc,maxc,gf)
6c4f953b61 2023-07-15 2094: 	return	function(e,c,og,lmat,min,max)
6c4f953b61 2023-07-15 2095: 				if c==nil then return true end
6c4f953b61 2023-07-15 2096: 				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
6c4f953b61 2023-07-15 2097: 				local minc=minc
6c4f953b61 2023-07-15 2098: 				local maxc=maxc
6c4f953b61 2023-07-15 2099: 				if min then
6c4f953b61 2023-07-15 2100: 					if min>minc then minc=min end
6c4f953b61 2023-07-15 2101: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15 2102: 					if minc>maxc then return false end
6c4f953b61 2023-07-15 2103: 				end
6c4f953b61 2023-07-15 2104: 				local tp=c:GetControler()
6c4f953b61 2023-07-15 2105: 				local mg=nil
6c4f953b61 2023-07-15 2106: 				if og then
6c4f953b61 2023-07-15 2107: 					mg=og:Filter(Auxiliary.LConditionFilter,nil,f,c,e)
6c4f953b61 2023-07-15 2108: 				else
6c4f953b61 2023-07-15 2109: 					mg=Auxiliary.GetLinkMaterials(tp,f,c,e)
6c4f953b61 2023-07-15 2110: 				end
6c4f953b61 2023-07-15 2111: 				if lmat~=nil then
6c4f953b61 2023-07-15 2112: 					if not Auxiliary.LConditionFilter(lmat,f,c,e) then return false end
6c4f953b61 2023-07-15 2113: 					mg:AddCard(lmat)
6c4f953b61 2023-07-15 2114: 				end
6c4f953b61 2023-07-15 2115: 				local fg=Duel.GetMustMaterial(tp,EFFECT_MUST_BE_LMATERIAL)
6c4f953b61 2023-07-15 2116: 				if fg:IsExists(Auxiliary.MustMaterialCounterFilter,1,nil,mg) then return false end
6c4f953b61 2023-07-15 2117: 				Duel.SetSelectedCard(fg)
6c4f953b61 2023-07-15 2118: 				return mg:CheckSubGroup(Auxiliary.LCheckGoal,minc,maxc,tp,c,gf,lmat)
6c4f953b61 2023-07-15 2119: 			end
6c4f953b61 2023-07-15 2120: end
6c4f953b61 2023-07-15 2121: function Auxiliary.LinkTarget(f,minc,maxc,gf)
6c4f953b61 2023-07-15 2122: 	return	function(e,tp,eg,ep,ev,re,r,rp,chk,c,og,lmat,min,max)
6c4f953b61 2023-07-15 2123: 				local minc=minc
6c4f953b61 2023-07-15 2124: 				local maxc=maxc
6c4f953b61 2023-07-15 2125: 				if min then
6c4f953b61 2023-07-15 2126: 					if min>minc then minc=min end
6c4f953b61 2023-07-15 2127: 					if max<maxc then maxc=max end
6c4f953b61 2023-07-15 2128: 					if minc>maxc then return false end
6c4f953b61 2023-07-15 2129: 				end
6c4f953b61 2023-07-15 2130: 				local mg=nil
6c4f953b61 2023-07-15 2131: 				if og then
6c4f953b61 2023-07-15 2132: 					mg=og:Filter(Auxiliary.LConditionFilter,nil,f,c,e)
6c4f953b61 2023-07-15 2133: 				else
6c4f953b61 2023-07-15 2134: 					mg=Auxiliary.GetLinkMaterials(tp,f,c,e)
6c4f953b61 2023-07-15 2135: 				end
6c4f953b61 2023-07-15 2136: 				if lmat~=nil then
6c4f953b61 2023-07-15 2137: 					if not Auxiliary.LConditionFilter(lmat,f,c,e) then return false end
6c4f953b61 2023-07-15 2138: 					mg:AddCard(lmat)
6c4f953b61 2023-07-15 2139: 				end
6c4f953b61 2023-07-15 2140: 				local fg=Duel.GetMustMaterial(tp,EFFECT_MUST_BE_LMATERIAL)
6c4f953b61 2023-07-15 2141: 				Duel.SetSelectedCard(fg)
6c4f953b61 2023-07-15 2142: 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LMATERIAL)
6c4f953b61 2023-07-15 2143: 				local cancel=Duel.IsSummonCancelable()
6c4f953b61 2023-07-15 2144: 				local sg=mg:SelectSubGroup(tp,Auxiliary.LCheckGoal,cancel,minc,maxc,tp,c,gf,lmat)
6c4f953b61 2023-07-15 2145: 				if sg then
6c4f953b61 2023-07-15 2146: 					sg:KeepAlive()
6c4f953b61 2023-07-15 2147: 					e:SetLabelObject(sg)
6c4f953b61 2023-07-15 2148: 					return true
6c4f953b61 2023-07-15 2149: 				else return false end
6c4f953b61 2023-07-15 2150: 			end
6c4f953b61 2023-07-15 2151: end
6c4f953b61 2023-07-15 2152: function Auxiliary.LinkOperation(f,minc,maxc,gf)
6c4f953b61 2023-07-15 2153: 	return	function(e,tp,eg,ep,ev,re,r,rp,c,og,lmat,min,max)
6c4f953b61 2023-07-15 2154: 				local g=e:GetLabelObject()
6c4f953b61 2023-07-15 2155: 				c:SetMaterial(g)
6c4f953b61 2023-07-15 2156: 				Auxiliary.LExtraMaterialCount(g,c,tp)
6c4f953b61 2023-07-15 2157: 				Duel.SendtoGrave(g,REASON_MATERIAL+REASON_LINK)
6c4f953b61 2023-07-15 2158: 				g:DeleteGroup()
6c4f953b61 2023-07-15 2159: 			end
6c4f953b61 2023-07-15 2160: end
6c4f953b61 2023-07-15 2161: function Auxiliary.EnableExtraDeckSummonCountLimit()
6c4f953b61 2023-07-15 2162: 	if Auxiliary.ExtraDeckSummonCountLimit~=nil then return end
6c4f953b61 2023-07-15 2163: 	Auxiliary.ExtraDeckSummonCountLimit={}
6c4f953b61 2023-07-15 2164: 	Auxiliary.ExtraDeckSummonCountLimit[0]=1
6c4f953b61 2023-07-15 2165: 	Auxiliary.ExtraDeckSummonCountLimit[1]=1
6c4f953b61 2023-07-15 2166: 	local ge1=Effect.GlobalEffect()
6c4f953b61 2023-07-15 2167: 	ge1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15 2168: 	ge1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
6c4f953b61 2023-07-15 2169: 	ge1:SetOperation(Auxiliary.ExtraDeckSummonCountLimitReset)
6c4f953b61 2023-07-15 2170: 	Duel.RegisterEffect(ge1,0)
6c4f953b61 2023-07-15 2171: end
6c4f953b61 2023-07-15 2172: function Auxiliary.ExtraDeckSummonCountLimitReset()
6c4f953b61 2023-07-15 2173: 	Auxiliary.ExtraDeckSummonCountLimit[0]=1
6c4f953b61 2023-07-15 2174: 	Auxiliary.ExtraDeckSummonCountLimit[1]=1
6c4f953b61 2023-07-15 2175: end
6c4f953b61 2023-07-15 2176: --Fusion Monster is unnecessary to use this
6c4f953b61 2023-07-15 2177: function Auxiliary.AddMaterialCodeList(c,...)
6c4f953b61 2023-07-15 2178: 	if c:IsStatus(STATUS_COPYING_EFFECT) then return end
6c4f953b61 2023-07-15 2179: 	local mat={}
6c4f953b61 2023-07-15 2180: 	for _,code in ipairs{...} do
6c4f953b61 2023-07-15 2181: 		mat[code]=true
6c4f953b61 2023-07-15 2182: 	end
6c4f953b61 2023-07-15 2183: 	if c.material==nil then
6c4f953b61 2023-07-15 2184: 		local mt=getmetatable(c)
6c4f953b61 2023-07-15 2185: 		mt.material=mat
6c4f953b61 2023-07-15 2186: 	end
6c4f953b61 2023-07-15 2187: 	for index,_ in pairs(mat) do
6c4f953b61 2023-07-15 2188: 		Auxiliary.AddCodeList(c,index)
6c4f953b61 2023-07-15 2189: 	end
6c4f953b61 2023-07-15 2190: end
6c4f953b61 2023-07-15 2191: function Auxiliary.IsMaterialListCode(c,code)
6c4f953b61 2023-07-15 2192: 	return c.material and c.material[code]
6c4f953b61 2023-07-15 2193: end
6c4f953b61 2023-07-15 2194: function Auxiliary.IsMaterialListSetCard(c,setcode)
6c4f953b61 2023-07-15 2195: 	if not c.material_setcode then return false end
6c4f953b61 2023-07-15 2196: 	if type(c.material_setcode)=='table' then
6c4f953b61 2023-07-15 2197: 		for i,scode in ipairs(c.material_setcode) do
6c4f953b61 2023-07-15 2198: 			if setcode&0xfff==scode&0xfff and setcode&scode==setcode then return true end
6c4f953b61 2023-07-15 2199: 		end
6c4f953b61 2023-07-15 2200: 	else
6c4f953b61 2023-07-15 2201: 		return setcode&0xfff==c.material_setcode&0xfff and setcode&c.material_setcode==setcode
6c4f953b61 2023-07-15 2202: 	end
6c4f953b61 2023-07-15 2203: 	return false
6c4f953b61 2023-07-15 2204: end
6c4f953b61 2023-07-15 2205: function Auxiliary.IsMaterialListType(c,type)
6c4f953b61 2023-07-15 2206: 	return c.material_type and type&c.material_type==type
6c4f953b61 2023-07-15 2207: end
6c4f953b61 2023-07-15 2208: function Auxiliary.GetMaterialListCount(c)
6c4f953b61 2023-07-15 2209: 	if not c.material_count then return 0,0 end
6c4f953b61 2023-07-15 2210: 	return c.material_count[1],c.material_count[2]
6c4f953b61 2023-07-15 2211: end
6c4f953b61 2023-07-15 2212: function Auxiliary.AddCodeList(c,...)
6c4f953b61 2023-07-15 2213: 	if c:IsStatus(STATUS_COPYING_EFFECT) then return end
6c4f953b61 2023-07-15 2214: 	if c.card_code_list==nil then
6c4f953b61 2023-07-15 2215: 		local mt=getmetatable(c)
6c4f953b61 2023-07-15 2216: 		mt.card_code_list={}
6c4f953b61 2023-07-15 2217: 		for _,code in ipairs{...} do
6c4f953b61 2023-07-15 2218: 			mt.card_code_list[code]=true
6c4f953b61 2023-07-15 2219: 		end
6c4f953b61 2023-07-15 2220: 	else
6c4f953b61 2023-07-15 2221: 		for _,code in ipairs{...} do
6c4f953b61 2023-07-15 2222: 			c.card_code_list[code]=true
6c4f953b61 2023-07-15 2223: 		end
6c4f953b61 2023-07-15 2224: 	end
6c4f953b61 2023-07-15 2225: end
6c4f953b61 2023-07-15 2226: function Auxiliary.IsCodeListed(c,code)
6c4f953b61 2023-07-15 2227: 	return c.card_code_list and c.card_code_list[code]
6c4f953b61 2023-07-15 2228: end
6c4f953b61 2023-07-15 2229: function Auxiliary.AddSetNameMonsterList(c,...)
6c4f953b61 2023-07-15 2230: 	if c:IsStatus(STATUS_COPYING_EFFECT) then return end
6c4f953b61 2023-07-15 2231: 	if c.setcode_monster_list==nil then
6c4f953b61 2023-07-15 2232: 		local mt=getmetatable(c)
6c4f953b61 2023-07-15 2233: 		mt.setcode_monster_list={}
6c4f953b61 2023-07-15 2234: 		for i,scode in ipairs{...} do
6c4f953b61 2023-07-15 2235: 			mt.setcode_monster_list[i]=scode
6c4f953b61 2023-07-15 2236: 		end
6c4f953b61 2023-07-15 2237: 	else
6c4f953b61 2023-07-15 2238: 		for i,scode in ipairs{...} do
6c4f953b61 2023-07-15 2239: 			c.setcode_monster_list[i]=scode
6c4f953b61 2023-07-15 2240: 		end
6c4f953b61 2023-07-15 2241: 	end
6c4f953b61 2023-07-15 2242: end
6c4f953b61 2023-07-15 2243: function Auxiliary.IsSetNameMonsterListed(c,setcode)
6c4f953b61 2023-07-15 2244: 	if not c.setcode_monster_list then return false end
6c4f953b61 2023-07-15 2245: 	for i,scode in ipairs(c.setcode_monster_list) do
6c4f953b61 2023-07-15 2246: 		if setcode&0xfff==scode&0xfff and setcode&scode==setcode then return true end
6c4f953b61 2023-07-15 2247: 	end
6c4f953b61 2023-07-15 2248: 	return false
6c4f953b61 2023-07-15 2249: end
6c4f953b61 2023-07-15 2250: function Auxiliary.IsCounterAdded(c,counter)
6c4f953b61 2023-07-15 2251: 	if not c.counter_add_list then return false end
6c4f953b61 2023-07-15 2252: 	for i,ccounter in ipairs(c.counter_add_list) do
6c4f953b61 2023-07-15 2253: 		if counter==ccounter then return true end
6c4f953b61 2023-07-15 2254: 	end
6c4f953b61 2023-07-15 2255: 	return false
6c4f953b61 2023-07-15 2256: end
6c4f953b61 2023-07-15 2257: function Auxiliary.IsTypeInText(c,type)
6c4f953b61 2023-07-15 2258: 	return c.has_text_type and type&c.has_text_type==type
6c4f953b61 2023-07-15 2259: end
6c4f953b61 2023-07-15 2260: function Auxiliary.GetAttributeCount(g)
6c4f953b61 2023-07-15 2261: 	if #g==0 then return 0 end
6c4f953b61 2023-07-15 2262: 	local att=0
6c4f953b61 2023-07-15 2263: 	for tc in Auxiliary.Next(g) do
6c4f953b61 2023-07-15 2264: 		att=att|tc:GetAttribute()
6c4f953b61 2023-07-15 2265: 	end
6c4f953b61 2023-07-15 2266: 	local ct=0
6c4f953b61 2023-07-15 2267: 	while att~=0 do
6c4f953b61 2023-07-15 2268: 		if att&0x1~=0 then ct=ct+1 end
6c4f953b61 2023-07-15 2269: 		att=att>>1
6c4f953b61 2023-07-15 2270: 	end
6c4f953b61 2023-07-15 2271: 	return ct
6c4f953b61 2023-07-15 2272: end
6c4f953b61 2023-07-15 2273: function Auxiliary.IsInGroup(c,g)
6c4f953b61 2023-07-15 2274: 	return g:IsContains(c)
6c4f953b61 2023-07-15 2275: end
6c4f953b61 2023-07-15 2276: --return the column of card c (from the viewpoint of p)
6c4f953b61 2023-07-15 2277: function Auxiliary.GetColumn(c,p)
6c4f953b61 2023-07-15 2278: 	local seq=c:GetSequence()
6c4f953b61 2023-07-15 2279: 	if c:IsLocation(LOCATION_MZONE) then
6c4f953b61 2023-07-15 2280: 		if seq==5 then
6c4f953b61 2023-07-15 2281: 			seq=1
6c4f953b61 2023-07-15 2282: 		elseif seq==6 then
6c4f953b61 2023-07-15 2283: 			seq=3
6c4f953b61 2023-07-15 2284: 		end
6c4f953b61 2023-07-15 2285: 	elseif c:IsLocation(LOCATION_SZONE) then
6c4f953b61 2023-07-15 2286: 		if seq>4 then
6c4f953b61 2023-07-15 2287: 			return nil
6c4f953b61 2023-07-15 2288: 		end
6c4f953b61 2023-07-15 2289: 	else
6c4f953b61 2023-07-15 2290: 		return nil
6c4f953b61 2023-07-15 2291: 	end
6c4f953b61 2023-07-15 2292: 	if c:IsControler(p or 0) then
6c4f953b61 2023-07-15 2293: 		return seq
6c4f953b61 2023-07-15 2294: 	else
6c4f953b61 2023-07-15 2295: 		return 4-seq
6c4f953b61 2023-07-15 2296: 	end
6c4f953b61 2023-07-15 2297: end
6c4f953b61 2023-07-15 2298: --return the column of monster zone seq (from the viewpoint of controller)
6c4f953b61 2023-07-15 2299: function Auxiliary.MZoneSequence(seq)
6c4f953b61 2023-07-15 2300: 	if seq==5 then return 1 end
6c4f953b61 2023-07-15 2301: 	if seq==6 then return 3 end
6c4f953b61 2023-07-15 2302: 	return seq
6c4f953b61 2023-07-15 2303: end
6c4f953b61 2023-07-15 2304: --return the column of spell/trap zone seq (from the viewpoint of controller)
6c4f953b61 2023-07-15 2305: function Auxiliary.SZoneSequence(seq)
6c4f953b61 2023-07-15 2306: 	if seq>4 then return nil end
6c4f953b61 2023-07-15 2307: 	return seq
6c4f953b61 2023-07-15 2308: end
6c4f953b61 2023-07-15 2309: --generate the value function of EFFECT_CHANGE_BATTLE_DAMAGE on monsters
6c4f953b61 2023-07-15 2310: function Auxiliary.ChangeBattleDamage(player,value)
6c4f953b61 2023-07-15 2311: 	return	function(e,damp)
6c4f953b61 2023-07-15 2312: 				if player==0 then
6c4f953b61 2023-07-15 2313: 					if e:GetOwnerPlayer()==damp then
6c4f953b61 2023-07-15 2314: 						return value
6c4f953b61 2023-07-15 2315: 					else
6c4f953b61 2023-07-15 2316: 						return -1
6c4f953b61 2023-07-15 2317: 					end
6c4f953b61 2023-07-15 2318: 				elseif player==1 then
6c4f953b61 2023-07-15 2319: 					if e:GetOwnerPlayer()==1-damp then
6c4f953b61 2023-07-15 2320: 						return value
6c4f953b61 2023-07-15 2321: 					else
6c4f953b61 2023-07-15 2322: 						return -1
6c4f953b61 2023-07-15 2323: 					end
6c4f953b61 2023-07-15 2324: 				end
6c4f953b61 2023-07-15 2325: 			end
6c4f953b61 2023-07-15 2326: end
6c4f953b61 2023-07-15 2327: --filter for "negate the effects of a face-up monster" (無限泡影/Infinite Impermanence)
6c4f953b61 2023-07-15 2328: function Auxiliary.NegateMonsterFilter(c)
6c4f953b61 2023-07-15 2329: 	return c:IsFaceup() and not c:IsDisabled() and (c:IsType(TYPE_EFFECT) or c:GetOriginalType()&TYPE_EFFECT~=0)
6c4f953b61 2023-07-15 2330: end
6c4f953b61 2023-07-15 2331: --filter for "negate the effects of an Effect Monster" (エフェクト・ヴェーラー/Effect Veiler)
6c4f953b61 2023-07-15 2332: function Auxiliary.NegateEffectMonsterFilter(c)
6c4f953b61 2023-07-15 2333: 	return c:IsFaceup() and not c:IsDisabled() and c:IsType(TYPE_EFFECT)
6c4f953b61 2023-07-15 2334: end
6c4f953b61 2023-07-15 2335: --filter for "negate the effects of a face-up card"
6c4f953b61 2023-07-15 2336: function Auxiliary.NegateAnyFilter(c)
6c4f953b61 2023-07-15 2337: 	if c:IsType(TYPE_TRAPMONSTER) then
6c4f953b61 2023-07-15 2338: 		return c:IsFaceup()
6c4f953b61 2023-07-15 2339: 	elseif c:IsType(TYPE_SPELL+TYPE_TRAP) then
6c4f953b61 2023-07-15 2340: 		return c:IsFaceup() and not c:IsDisabled()
6c4f953b61 2023-07-15 2341: 	else
6c4f953b61 2023-07-15 2342: 		return aux.NegateMonsterFilter(c)
6c4f953b61 2023-07-15 2343: 	end
6c4f953b61 2023-07-15 2344: end
6c4f953b61 2023-07-15 2345: --alias for compatibility
6c4f953b61 2023-07-15 2346: Auxiliary.disfilter1=Auxiliary.NegateAnyFilter
6c4f953b61 2023-07-15 2347: --condition of EVENT_BATTLE_DESTROYING
6c4f953b61 2023-07-15 2348: function Auxiliary.bdcon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2349: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2350: 	return c:IsRelateToBattle()
6c4f953b61 2023-07-15 2351: end
6c4f953b61 2023-07-15 2352: --condition of EVENT_BATTLE_DESTROYING + opponent monster
6c4f953b61 2023-07-15 2353: function Auxiliary.bdocon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2354: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2355: 	return c:IsRelateToBattle() and c:IsStatus(STATUS_OPPO_BATTLE)
6c4f953b61 2023-07-15 2356: end
6c4f953b61 2023-07-15 2357: --condition of EVENT_BATTLE_DESTROYING + to_grave
6c4f953b61 2023-07-15 2358: function Auxiliary.bdgcon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2359: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2360: 	local bc=c:GetBattleTarget()
6c4f953b61 2023-07-15 2361: 	return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER)
6c4f953b61 2023-07-15 2362: end
6c4f953b61 2023-07-15 2363: --condition of EVENT_BATTLE_DESTROYING + opponent monster + to_grave
6c4f953b61 2023-07-15 2364: function Auxiliary.bdogcon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2365: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2366: 	local bc=c:GetBattleTarget()
6c4f953b61 2023-07-15 2367: 	return c:IsRelateToBattle() and c:IsStatus(STATUS_OPPO_BATTLE) and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER)
6c4f953b61 2023-07-15 2368: end
6c4f953b61 2023-07-15 2369: --condition of EVENT_DAMAGE_STEP_END + this monster is releate to battle
6c4f953b61 2023-07-15 2370: function Auxiliary.dsercon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2371: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2372: 	return c:IsRelateToBattle() or c:IsStatus(STATUS_BATTLE_DESTROYED)
6c4f953b61 2023-07-15 2373: end
6c4f953b61 2023-07-15 2374: --condition of EVENT_TO_GRAVE + destroyed by opponent
6c4f953b61 2023-07-15 2375: function Auxiliary.dogcon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2376: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2377: 	return c:IsPreviousControler(tp) and c:IsReason(REASON_DESTROY) and rp==1-tp
6c4f953b61 2023-07-15 2378: end
6c4f953b61 2023-07-15 2379: --condition of EVENT_TO_GRAVE + destroyed by opponent + from field
6c4f953b61 2023-07-15 2380: function Auxiliary.dogfcon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2381: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2382: 	return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousControler(tp)
6c4f953b61 2023-07-15 2383: 		and c:IsReason(REASON_DESTROY) and rp==1-tp
6c4f953b61 2023-07-15 2384: end
6c4f953b61 2023-07-15 2385: --condition of "except the turn this card was sent to the Graveyard"
6c4f953b61 2023-07-15 2386: function Auxiliary.exccon(e)
6c4f953b61 2023-07-15 2387: 	return Duel.GetTurnCount()~=e:GetHandler():GetTurnID() or e:GetHandler():IsReason(REASON_RETURN)
6c4f953b61 2023-07-15 2388: end
6c4f953b61 2023-07-15 2389: --condition of checking battle phase availability
6c4f953b61 2023-07-15 2390: function Auxiliary.bpcon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2391: 	return Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
6c4f953b61 2023-07-15 2392: end
6c4f953b61 2023-07-15 2393: --condition of free chain effects changing ATK/DEF
6c4f953b61 2023-07-15 2394: function Auxiliary.dscon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2395: 	return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated()
6c4f953b61 2023-07-15 2396: end
6c4f953b61 2023-07-15 2397: --flag effect for spell counter
6c4f953b61 2023-07-15 2398: function Auxiliary.chainreg(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2399: 	if e:GetHandler():GetFlagEffect(1)==0 then
6c4f953b61 2023-07-15 2400: 		e:GetHandler():RegisterFlagEffect(1,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_CHAIN,0,1)
6c4f953b61 2023-07-15 2401: 	end
6c4f953b61 2023-07-15 2402: end
6c4f953b61 2023-07-15 2403: --default filter for EFFECT_CANNOT_BE_BATTLE_TARGET
6c4f953b61 2023-07-15 2404: function Auxiliary.imval1(e,c)
6c4f953b61 2023-07-15 2405: 	return not c:IsImmuneToEffect(e)
6c4f953b61 2023-07-15 2406: end
6c4f953b61 2023-07-15 2407: --filter for EFFECT_INDESTRUCTABLE_EFFECT + self
6c4f953b61 2023-07-15 2408: function Auxiliary.indsval(e,re,rp)
6c4f953b61 2023-07-15 2409: 	return rp==e:GetHandlerPlayer()
6c4f953b61 2023-07-15 2410: end
6c4f953b61 2023-07-15 2411: --filter for EFFECT_INDESTRUCTABLE_EFFECT + opponent
6c4f953b61 2023-07-15 2412: function Auxiliary.indoval(e,re,rp)
6c4f953b61 2023-07-15 2413: 	return rp==1-e:GetHandlerPlayer()
6c4f953b61 2023-07-15 2414: end
6c4f953b61 2023-07-15 2415: --filter for EFFECT_CANNOT_BE_EFFECT_TARGET + self
6c4f953b61 2023-07-15 2416: function Auxiliary.tgsval(e,re,rp)
6c4f953b61 2023-07-15 2417: 	return rp==e:GetHandlerPlayer()
6c4f953b61 2023-07-15 2418: end
6c4f953b61 2023-07-15 2419: --filter for EFFECT_CANNOT_BE_EFFECT_TARGET + opponent
6c4f953b61 2023-07-15 2420: function Auxiliary.tgoval(e,re,rp)
6c4f953b61 2023-07-15 2421: 	return rp==1-e:GetHandlerPlayer()
6c4f953b61 2023-07-15 2422: end
6c4f953b61 2023-07-15 2423: --filter for non-zero ATK
6c4f953b61 2023-07-15 2424: function Auxiliary.nzatk(c)
6c4f953b61 2023-07-15 2425: 	return c:IsFaceup() and c:GetAttack()>0
6c4f953b61 2023-07-15 2426: end
6c4f953b61 2023-07-15 2427: --filter for non-zero DEF
6c4f953b61 2023-07-15 2428: function Auxiliary.nzdef(c)
6c4f953b61 2023-07-15 2429: 	return c:IsFaceup() and c:GetDefense()>0
6c4f953b61 2023-07-15 2430: end
6c4f953b61 2023-07-15 2431: --flag effect for summon/sp_summon turn
6c4f953b61 2023-07-15 2432: function Auxiliary.sumreg(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2433: 	local tc=eg:GetFirst()
6c4f953b61 2023-07-15 2434: 	local code=e:GetLabel()
6c4f953b61 2023-07-15 2435: 	while tc do
6c4f953b61 2023-07-15 2436: 		if tc:GetOriginalCode()==code then
6c4f953b61 2023-07-15 2437: 			tc:RegisterFlagEffect(code,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1)
6c4f953b61 2023-07-15 2438: 		end
6c4f953b61 2023-07-15 2439: 		tc=eg:GetNext()
6c4f953b61 2023-07-15 2440: 	end
6c4f953b61 2023-07-15 2441: end
6c4f953b61 2023-07-15 2442: --for EVENT_BE_MATERIAL effect releated to the summoned monster
6c4f953b61 2023-07-15 2443: function Auxiliary.CreateMaterialReasonCardRelation(c,te)
6c4f953b61 2023-07-15 2444: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 2445: 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
6c4f953b61 2023-07-15 2446: 	e1:SetCode(EVENT_BE_MATERIAL)
6c4f953b61 2023-07-15 2447: 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
6c4f953b61 2023-07-15 2448: 	e1:SetOperation(Auxiliary.MaterialReasonCardReg)
6c4f953b61 2023-07-15 2449: 	e1:SetLabelObject(te)
6c4f953b61 2023-07-15 2450: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 2451: end
6c4f953b61 2023-07-15 2452: function Auxiliary.MaterialReasonCardReg(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2453: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2454: 	local te=e:GetLabelObject()
6c4f953b61 2023-07-15 2455: 	c:GetReasonCard():CreateEffectRelation(te)
6c4f953b61 2023-07-15 2456: end
6c4f953b61 2023-07-15 2457: --sp_summon condition for fusion monster
6c4f953b61 2023-07-15 2458: function Auxiliary.fuslimit(e,se,sp,st)
6c4f953b61 2023-07-15 2459: 	return st&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
6c4f953b61 2023-07-15 2460: end
6c4f953b61 2023-07-15 2461: --sp_summon condition for ritual monster
6c4f953b61 2023-07-15 2462: function Auxiliary.ritlimit(e,se,sp,st)
6c4f953b61 2023-07-15 2463: 	return st&SUMMON_TYPE_RITUAL==SUMMON_TYPE_RITUAL
6c4f953b61 2023-07-15 2464: end
6c4f953b61 2023-07-15 2465: --sp_summon condition for synchro monster
6c4f953b61 2023-07-15 2466: function Auxiliary.synlimit(e,se,sp,st)
6c4f953b61 2023-07-15 2467: 	return st&SUMMON_TYPE_SYNCHRO==SUMMON_TYPE_SYNCHRO
6c4f953b61 2023-07-15 2468: end
6c4f953b61 2023-07-15 2469: --sp_summon condition for xyz monster
6c4f953b61 2023-07-15 2470: function Auxiliary.xyzlimit(e,se,sp,st)
6c4f953b61 2023-07-15 2471: 	return st&SUMMON_TYPE_XYZ==SUMMON_TYPE_XYZ
6c4f953b61 2023-07-15 2472: end
6c4f953b61 2023-07-15 2473: --sp_summon condition for pendulum monster
6c4f953b61 2023-07-15 2474: function Auxiliary.penlimit(e,se,sp,st)
6c4f953b61 2023-07-15 2475: 	return st&SUMMON_TYPE_PENDULUM==SUMMON_TYPE_PENDULUM
6c4f953b61 2023-07-15 2476: end
6c4f953b61 2023-07-15 2477: --sp_summon condition for link monster
6c4f953b61 2023-07-15 2478: function Auxiliary.linklimit(e,se,sp,st)
6c4f953b61 2023-07-15 2479: 	return st&SUMMON_TYPE_LINK==SUMMON_TYPE_LINK
6c4f953b61 2023-07-15 2480: end
6c4f953b61 2023-07-15 2481: --effects inflicting damage to tp
6c4f953b61 2023-07-15 2482: function Auxiliary.damcon1(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2483: 	local e1=Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_DAMAGE)
6c4f953b61 2023-07-15 2484: 	local e2=Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_RECOVER)
6c4f953b61 2023-07-15 2485: 	local rd=e1 and not e2
6c4f953b61 2023-07-15 2486: 	local rr=not e1 and e2
6c4f953b61 2023-07-15 2487: 	local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE)
6c4f953b61 2023-07-15 2488: 	if ex and (cp==tp or cp==PLAYER_ALL) and not rd and not Duel.IsPlayerAffectedByEffect(tp,EFFECT_NO_EFFECT_DAMAGE) then
6c4f953b61 2023-07-15 2489: 		return true
6c4f953b61 2023-07-15 2490: 	end
6c4f953b61 2023-07-15 2491: 	ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER)
6c4f953b61 2023-07-15 2492: 	return ex and (cp==tp or cp==PLAYER_ALL) and rr and not Duel.IsPlayerAffectedByEffect(tp,EFFECT_NO_EFFECT_DAMAGE)
6c4f953b61 2023-07-15 2493: end
6c4f953b61 2023-07-15 2494: --filter for the immune effect of qli monsters
6c4f953b61 2023-07-15 2495: function Auxiliary.qlifilter(e,te)
6c4f953b61 2023-07-15 2496: 	if te:IsActiveType(TYPE_MONSTER) and te:IsActivated() then
6c4f953b61 2023-07-15 2497: 		local lv=e:GetHandler():GetLevel()
6c4f953b61 2023-07-15 2498: 		local ec=te:GetOwner()
6c4f953b61 2023-07-15 2499: 		if ec:IsType(TYPE_LINK) then
6c4f953b61 2023-07-15 2500: 			return false
6c4f953b61 2023-07-15 2501: 		elseif ec:IsType(TYPE_XYZ) then
6c4f953b61 2023-07-15 2502: 			return ec:GetOriginalRank()<lv
6c4f953b61 2023-07-15 2503: 		else
6c4f953b61 2023-07-15 2504: 			return ec:GetOriginalLevel()<lv
6c4f953b61 2023-07-15 2505: 		end
6c4f953b61 2023-07-15 2506: 	else
6c4f953b61 2023-07-15 2507: 		return false
6c4f953b61 2023-07-15 2508: 	end
6c4f953b61 2023-07-15 2509: end
6c4f953b61 2023-07-15 2510: --sp_summon condition for gladiator beast monsters
6c4f953b61 2023-07-15 2511: function Auxiliary.gbspcon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2512: 	local st=e:GetHandler():GetSummonType()
6c4f953b61 2023-07-15 2513: 	return st&SUMMON_VALUE_GLADIATOR>0
6c4f953b61 2023-07-15 2514: end
6c4f953b61 2023-07-15 2515: --sp_summon condition for evolsaur monsters
6c4f953b61 2023-07-15 2516: function Auxiliary.evospcon(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2517: 	local st=e:GetHandler():GetSummonType()
6c4f953b61 2023-07-15 2518: 	return st&SUMMON_VALUE_EVOLTILE>0
6c4f953b61 2023-07-15 2519: end
6c4f953b61 2023-07-15 2520: --filter for necro_valley test
6c4f953b61 2023-07-15 2521: function Auxiliary.NecroValleyFilter(f)
6c4f953b61 2023-07-15 2522: 	return	function(target,...)
6c4f953b61 2023-07-15 2523: 				return (not f or f(target,...)) and not target:IsHasEffect(EFFECT_NECRO_VALLEY)
6c4f953b61 2023-07-15 2524: 			end
6c4f953b61 2023-07-15 2525: end
6c4f953b61 2023-07-15 2526: --Necrovalley test for effect with not certain target or not certain action
6c4f953b61 2023-07-15 2527: function Auxiliary.NecroValleyNegateCheck(v)
6c4f953b61 2023-07-15 2528: 	if not Duel.IsChainDisablable(0) then return false end
6c4f953b61 2023-07-15 2529: 	local g=Group.CreateGroup()
6c4f953b61 2023-07-15 2530: 	if Auxiliary.GetValueType(v)=="Card" then g:AddCard(v) end
6c4f953b61 2023-07-15 2531: 	if Auxiliary.GetValueType(v)=="Group" then g:Merge(v) end
6c4f953b61 2023-07-15 2532: 	if g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then
6c4f953b61 2023-07-15 2533: 		Duel.NegateEffect(0)
6c4f953b61 2023-07-15 2534: 		return true
6c4f953b61 2023-07-15 2535: 	end
6c4f953b61 2023-07-15 2536: 	return false
6c4f953b61 2023-07-15 2537: end
6c4f953b61 2023-07-15 2538: --Ursarctic common summon from hand effect
6c4f953b61 2023-07-15 2539: function Auxiliary.AddUrsarcticSpSummonEffect(c)
6c4f953b61 2023-07-15 2540: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 2541: 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
6c4f953b61 2023-07-15 2542: 	e1:SetType(EFFECT_TYPE_QUICK_O)
6c4f953b61 2023-07-15 2543: 	e1:SetCode(EVENT_FREE_CHAIN)
6c4f953b61 2023-07-15 2544: 	e1:SetRange(LOCATION_HAND)
6c4f953b61 2023-07-15 2545: 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
6c4f953b61 2023-07-15 2546: 	e1:SetCondition(Auxiliary.UrsarcticSpSummonCondition)
6c4f953b61 2023-07-15 2547: 	e1:SetCost(Auxiliary.UrsarcticSpSummonCost)
6c4f953b61 2023-07-15 2548: 	e1:SetTarget(Auxiliary.UrsarcticSpSummonTarget)
6c4f953b61 2023-07-15 2549: 	e1:SetOperation(Auxiliary.UrsarcticSpSummonOperation)
6c4f953b61 2023-07-15 2550: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 2551: 	return e1
6c4f953b61 2023-07-15 2552: end
6c4f953b61 2023-07-15 2553: function Auxiliary.UrsarcticSpSummonCondition(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2554: 	return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
6c4f953b61 2023-07-15 2555: end
6c4f953b61 2023-07-15 2556: function Auxiliary.UrsarcticReleaseFilter(c)
6c4f953b61 2023-07-15 2557: 	return c:IsLevelAbove(7) and c:IsLocation(LOCATION_HAND)
6c4f953b61 2023-07-15 2558: end
6c4f953b61 2023-07-15 2559: function Auxiliary.UrsarcticExCostFilter(c,tp)
6c4f953b61 2023-07-15 2560: 	return c:IsAbleToRemoveAsCost() and (c:IsHasEffect(16471775,tp) or c:IsHasEffect(89264428,tp))
6c4f953b61 2023-07-15 2561: end
6c4f953b61 2023-07-15 2562: function Auxiliary.UrsarcticSpSummonCost(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15 2563: 	local g1=Duel.GetReleaseGroup(tp,true):Filter(Auxiliary.UrsarcticReleaseFilter,e:GetHandler())
6c4f953b61 2023-07-15 2564: 	local g2=Duel.GetMatchingGroup(Auxiliary.UrsarcticExCostFilter,tp,LOCATION_GRAVE,0,nil,tp)
6c4f953b61 2023-07-15 2565: 	g1:Merge(g2)
6c4f953b61 2023-07-15 2566: 	if chk==0 then return g1:GetCount()>0 end
6c4f953b61 2023-07-15 2567: 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
6c4f953b61 2023-07-15 2568: 	local tc=g1:Select(tp,1,1,nil):GetFirst()
6c4f953b61 2023-07-15 2569: 	local te=tc:IsHasEffect(16471775,tp) or tc:IsHasEffect(89264428,tp)
6c4f953b61 2023-07-15 2570: 	if te then
6c4f953b61 2023-07-15 2571: 		te:UseCountLimit(tp)
6c4f953b61 2023-07-15 2572: 		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
6c4f953b61 2023-07-15 2573: 	else
6c4f953b61 2023-07-15 2574: 		Duel.Release(tc,REASON_COST)
6c4f953b61 2023-07-15 2575: 	end
6c4f953b61 2023-07-15 2576: end
6c4f953b61 2023-07-15 2577: function Auxiliary.UrsarcticSpSummonTarget(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15 2578: 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
6c4f953b61 2023-07-15 2579: 		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
6c4f953b61 2023-07-15 2580: 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
6c4f953b61 2023-07-15 2581: end
6c4f953b61 2023-07-15 2582: function Auxiliary.UrsarcticSpSummonOperation(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2583: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2584: 	if c:IsRelateToEffect(e) then
6c4f953b61 2023-07-15 2585: 		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
6c4f953b61 2023-07-15 2586: 	end
6c4f953b61 2023-07-15 2587: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 2588: 	e1:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15 2589: 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
6c4f953b61 2023-07-15 2590: 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
6c4f953b61 2023-07-15 2591: 	e1:SetTargetRange(1,0)
6c4f953b61 2023-07-15 2592: 	e1:SetTarget(Auxiliary.UrsarcticSpSummonLimit)
6c4f953b61 2023-07-15 2593: 	e1:SetReset(RESET_PHASE+PHASE_END)
6c4f953b61 2023-07-15 2594: 	Duel.RegisterEffect(e1,tp)
6c4f953b61 2023-07-15 2595: end
6c4f953b61 2023-07-15 2596: function Auxiliary.UrsarcticSpSummonLimit(e,c)
6c4f953b61 2023-07-15 2597: 	return c:IsLevel(0)
6c4f953b61 2023-07-15 2598: end
6c4f953b61 2023-07-15 2599: --Drytron common summon effect
6c4f953b61 2023-07-15 2600: function Auxiliary.AddDrytronSpSummonEffect(c,func)
6c4f953b61 2023-07-15 2601: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 2602: 	e1:SetType(EFFECT_TYPE_IGNITION)
6c4f953b61 2023-07-15 2603: 	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
6c4f953b61 2023-07-15 2604: 	e1:SetCost(Auxiliary.DrytronSpSummonCost)
6c4f953b61 2023-07-15 2605: 	e1:SetTarget(Auxiliary.DrytronSpSummonTarget)
6c4f953b61 2023-07-15 2606: 	e1:SetOperation(Auxiliary.DrytronSpSummonOperation(func))
6c4f953b61 2023-07-15 2607: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 2608: 	Duel.AddCustomActivityCounter(97148796,ACTIVITY_SPSUMMON,Auxiliary.DrytronCounterFilter)
6c4f953b61 2023-07-15 2609: 	return e1
6c4f953b61 2023-07-15 2610: end
6c4f953b61 2023-07-15 2611: function Auxiliary.DrytronCounterFilter(c)
6c4f953b61 2023-07-15 2612: 	return not c:IsSummonableCard()
6c4f953b61 2023-07-15 2613: end
6c4f953b61 2023-07-15 2614: function Auxiliary.DrytronCostFilter(c,tp)
6c4f953b61 2023-07-15 2615: 	return (c:IsSetCard(0x154) or c:IsType(TYPE_RITUAL)) and c:IsType(TYPE_MONSTER) and Duel.GetMZoneCount(tp,c)>0
6c4f953b61 2023-07-15 2616: 		and (c:IsControler(tp) or c:IsFaceup())
6c4f953b61 2023-07-15 2617: end
6c4f953b61 2023-07-15 2618: function Auxiliary.DrytronExtraCostFilter(c,tp)
6c4f953b61 2023-07-15 2619: 	return c:IsAbleToRemove() and c:IsHasEffect(89771220,tp)
6c4f953b61 2023-07-15 2620: end
6c4f953b61 2023-07-15 2621: function Auxiliary.DrytronSpSummonCost(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15 2622: 	e:SetLabel(100)
6c4f953b61 2023-07-15 2623: 	local g1=Duel.GetReleaseGroup(tp,true):Filter(Auxiliary.DrytronCostFilter,e:GetHandler(),tp)
6c4f953b61 2023-07-15 2624: 	local g2=Duel.GetMatchingGroup(Auxiliary.DrytronExtraCostFilter,tp,LOCATION_GRAVE,0,nil,tp)
6c4f953b61 2023-07-15 2625: 	g1:Merge(g2)
6c4f953b61 2023-07-15 2626: 	if chk==0 then return #g1>0 and Duel.GetCustomActivityCount(97148796,tp,ACTIVITY_SPSUMMON)==0 end
6c4f953b61 2023-07-15 2627: 	local e1=Effect.CreateEffect(e:GetHandler())
6c4f953b61 2023-07-15 2628: 	e1:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15 2629: 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
6c4f953b61 2023-07-15 2630: 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
6c4f953b61 2023-07-15 2631: 	e1:SetTargetRange(1,0)
6c4f953b61 2023-07-15 2632: 	e1:SetTarget(Auxiliary.DrytronSpSummonLimit)
6c4f953b61 2023-07-15 2633: 	e1:SetReset(RESET_PHASE+PHASE_END)
6c4f953b61 2023-07-15 2634: 	Duel.RegisterEffect(e1,tp)
6c4f953b61 2023-07-15 2635: 	--cant special summon summonable card check
6c4f953b61 2023-07-15 2636: 	local e2=Effect.CreateEffect(e:GetHandler())
6c4f953b61 2023-07-15 2637: 	e2:SetType(EFFECT_TYPE_FIELD)
6c4f953b61 2023-07-15 2638: 	e2:SetCode(97148796)
6c4f953b61 2023-07-15 2639: 	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
6c4f953b61 2023-07-15 2640: 	e2:SetTargetRange(1,0)
6c4f953b61 2023-07-15 2641: 	e2:SetReset(RESET_PHASE+PHASE_END)
6c4f953b61 2023-07-15 2642: 	Duel.RegisterEffect(e2,tp)
6c4f953b61 2023-07-15 2643: 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
6c4f953b61 2023-07-15 2644: 	local rg=g1:Select(tp,1,1,nil)
6c4f953b61 2023-07-15 2645: 	local tc=rg:GetFirst()
6c4f953b61 2023-07-15 2646: 	local te=tc:IsHasEffect(89771220,tp)
6c4f953b61 2023-07-15 2647: 	if te then
6c4f953b61 2023-07-15 2648: 		te:UseCountLimit(tp)
6c4f953b61 2023-07-15 2649: 		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
6c4f953b61 2023-07-15 2650: 	else
6c4f953b61 2023-07-15 2651: 		Auxiliary.UseExtraReleaseCount(rg,tp)
6c4f953b61 2023-07-15 2652: 		Duel.Release(tc,REASON_COST)
6c4f953b61 2023-07-15 2653: 	end
6c4f953b61 2023-07-15 2654: end
6c4f953b61 2023-07-15 2655: function Auxiliary.DrytronSpSummonLimit(e,c,sump,sumtype,sumpos,targetp,se)
6c4f953b61 2023-07-15 2656: 	return c:IsSummonableCard()
6c4f953b61 2023-07-15 2657: end
6c4f953b61 2023-07-15 2658: function Auxiliary.DrytronSpSummonTarget(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15 2659: 	local res=e:GetLabel()==100 or Duel.GetLocationCount(tp,LOCATION_MZONE)>0
6c4f953b61 2023-07-15 2660: 	if chk==0 then
6c4f953b61 2023-07-15 2661: 		e:SetLabel(0)
6c4f953b61 2023-07-15 2662: 		return res and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
6c4f953b61 2023-07-15 2663: 	end
6c4f953b61 2023-07-15 2664: 	e:SetLabel(0)
6c4f953b61 2023-07-15 2665: 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
6c4f953b61 2023-07-15 2666: end
6c4f953b61 2023-07-15 2667: function Auxiliary.DrytronSpSummonOperation(func)
6c4f953b61 2023-07-15 2668: 	return function(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 2669: 		local c=e:GetHandler()
6c4f953b61 2023-07-15 2670: 		if not c:IsRelateToEffect(e) then return end
6c4f953b61 2023-07-15 2671: 		if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then func(e,tp) end
6c4f953b61 2023-07-15 2672: 	end
6c4f953b61 2023-07-15 2673: end
6c4f953b61 2023-07-15 2674: --additional destroy effect for the Labrynth field
6c4f953b61 2023-07-15 2675: function Auxiliary.LabrynthDestroyOp(e,tp,res)
6c4f953b61 2023-07-15 2676: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2677: 	local chk=not c:IsStatus(STATUS_ACT_FROM_HAND) and c:IsSetCard(0x117e) and c:GetType()==TYPE_TRAP and e:IsHasType(EFFECT_TYPE_ACTIVATE)
6c4f953b61 2023-07-15 2678: 	local exc=nil
6c4f953b61 2023-07-15 2679: 	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
6c4f953b61 2023-07-15 2680: 	local te=Duel.IsPlayerAffectedByEffect(tp,33407125)
6c4f953b61 2023-07-15 2681: 	if chk and te
6c4f953b61 2023-07-15 2682: 		and Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,exc)
6c4f953b61 2023-07-15 2683: 		and Duel.SelectYesNo(tp,aux.Stringid(33407125,0)) then
6c4f953b61 2023-07-15 2684: 		if res>0 then Duel.BreakEffect() end
6c4f953b61 2023-07-15 2685: 		Duel.Hint(HINT_CARD,0,33407125)
6c4f953b61 2023-07-15 2686: 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
6c4f953b61 2023-07-15 2687: 		local dg=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,exc)
6c4f953b61 2023-07-15 2688: 		Duel.HintSelection(dg)
6c4f953b61 2023-07-15 2689: 		Duel.Destroy(dg,REASON_EFFECT)
6c4f953b61 2023-07-15 2690: 		te:UseCountLimit(tp)
6c4f953b61 2023-07-15 2691: 	end
6c4f953b61 2023-07-15 2692: end
6c4f953b61 2023-07-15 2693: --shortcut for Gizmek cards
6c4f953b61 2023-07-15 2694: function Auxiliary.AtkEqualsDef(c)
6c4f953b61 2023-07-15 2695: 	if not c:IsType(TYPE_MONSTER) or c:IsType(TYPE_LINK) then return false end
6c4f953b61 2023-07-15 2696: 	if c:GetAttack()~=c:GetDefense() then return false end
6c4f953b61 2023-07-15 2697: 	return c:IsLocation(LOCATION_MZONE) or c:GetTextAttack()>=0 and c:GetTextDefense()>=0
6c4f953b61 2023-07-15 2698: end
6c4f953b61 2023-07-15 2699: --shortcut for self-banish costs
6c4f953b61 2023-07-15 2700: function Auxiliary.bfgcost(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15 2701: 	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
6c4f953b61 2023-07-15 2702: 	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
6c4f953b61 2023-07-15 2703: end
6c4f953b61 2023-07-15 2704: --check for cards with different names
6c4f953b61 2023-07-15 2705: function Auxiliary.dncheck(g)
6c4f953b61 2023-07-15 2706: 	return g:GetClassCount(Card.GetCode)==#g
6c4f953b61 2023-07-15 2707: end
6c4f953b61 2023-07-15 2708: --check for cards with different levels
6c4f953b61 2023-07-15 2709: function Auxiliary.dlvcheck(g)
6c4f953b61 2023-07-15 2710: 	return g:GetClassCount(Card.GetLevel)==#g
6c4f953b61 2023-07-15 2711: end
6c4f953b61 2023-07-15 2712: --check for cards with different ranks
6c4f953b61 2023-07-15 2713: function Auxiliary.drkcheck(g)
6c4f953b61 2023-07-15 2714: 	return g:GetClassCount(Card.GetRank)==#g
6c4f953b61 2023-07-15 2715: end
6c4f953b61 2023-07-15 2716: --check for cards with different links
6c4f953b61 2023-07-15 2717: function Auxiliary.dlkcheck(g)
6c4f953b61 2023-07-15 2718: 	return g:GetClassCount(Card.GetLink)==#g
6c4f953b61 2023-07-15 2719: end
6c4f953b61 2023-07-15 2720: --check for cards with different attributes
6c4f953b61 2023-07-15 2721: function Auxiliary.dabcheck(g)
6c4f953b61 2023-07-15 2722: 	return g:GetClassCount(Card.GetAttribute)==#g
6c4f953b61 2023-07-15 2723: end
6c4f953b61 2023-07-15 2724: --check for cards with different races
6c4f953b61 2023-07-15 2725: function Auxiliary.drccheck(g)
6c4f953b61 2023-07-15 2726: 	return g:GetClassCount(Card.GetRace)==#g
6c4f953b61 2023-07-15 2727: end
6c4f953b61 2023-07-15 2728: --check for group with 2 cards, each card match f with a1/a2 as argument
6c4f953b61 2023-07-15 2729: function Auxiliary.gfcheck(g,f,a1,a2)
6c4f953b61 2023-07-15 2730: 	if #g~=2 then return false end
6c4f953b61 2023-07-15 2731: 	local c1=g:GetFirst()
6c4f953b61 2023-07-15 2732: 	local c2=g:GetNext()
6c4f953b61 2023-07-15 2733: 	return f(c1,a1) and f(c2,a2) or f(c2,a1) and f(c1,a2)
6c4f953b61 2023-07-15 2734: end
6c4f953b61 2023-07-15 2735: --check for group with 2 cards, each card match f1 with a1, f2 with a2 as argument
6c4f953b61 2023-07-15 2736: function Auxiliary.gffcheck(g,f1,a1,f2,a2)
6c4f953b61 2023-07-15 2737: 	if #g~=2 then return false end
6c4f953b61 2023-07-15 2738: 	local c1=g:GetFirst()
6c4f953b61 2023-07-15 2739: 	local c2=g:GetNext()
6c4f953b61 2023-07-15 2740: 	return f1(c1,a1) and f2(c2,a2) or f1(c2,a1) and f2(c1,a2)
6c4f953b61 2023-07-15 2741: end
6c4f953b61 2023-07-15 2742: function Auxiliary.mzctcheck(g,tp)
6c4f953b61 2023-07-15 2743: 	return Duel.GetMZoneCount(tp,g)>0
6c4f953b61 2023-07-15 2744: end
6c4f953b61 2023-07-15 2745: function Auxiliary.mzctcheckrel(g,tp)
6c4f953b61 2023-07-15 2746: 	return Duel.GetMZoneCount(tp,g)>0 and Duel.CheckReleaseGroup(tp,Auxiliary.IsInGroup,#g,nil,g)
6c4f953b61 2023-07-15 2747: end
6c4f953b61 2023-07-15 2748: --used for "except this card"
6c4f953b61 2023-07-15 2749: function Auxiliary.ExceptThisCard(e)
6c4f953b61 2023-07-15 2750: 	local c=e:GetHandler()
6c4f953b61 2023-07-15 2751: 	if c:IsRelateToChain() then return c else return nil end
6c4f953b61 2023-07-15 2752: end
6c4f953b61 2023-07-15 2753: --used for multi-linked zone(zone linked by two or more link monsters)
6c4f953b61 2023-07-15 2754: function Auxiliary.GetMultiLinkedZone(tp)
6c4f953b61 2023-07-15 2755: 	local f=function(c)
6c4f953b61 2023-07-15 2756: 		return c:IsFaceup() and c:IsType(TYPE_LINK)
6c4f953b61 2023-07-15 2757: 	end
6c4f953b61 2023-07-15 2758: 	local lg=Duel.GetMatchingGroup(f,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
6c4f953b61 2023-07-15 2759: 	local multi_linked_zone=0
6c4f953b61 2023-07-15 2760: 	local single_linked_zone=0
6c4f953b61 2023-07-15 2761: 	for tc in aux.Next(lg) do
6c4f953b61 2023-07-15 2762: 		local zone=tc:GetLinkedZone(tp)&0x7f
6c4f953b61 2023-07-15 2763: 		multi_linked_zone=single_linked_zone&zone|multi_linked_zone
6c4f953b61 2023-07-15 2764: 		single_linked_zone=single_linked_zone~zone
6c4f953b61 2023-07-15 2765: 	end
6c4f953b61 2023-07-15 2766: 	return multi_linked_zone
6c4f953b61 2023-07-15 2767: end
6c4f953b61 2023-07-15 2768: Auxiliary.SubGroupCaptured=nil
6c4f953b61 2023-07-15 2769: Auxiliary.GCheckAdditional=nil
6c4f953b61 2023-07-15 2770: function Auxiliary.CheckGroupRecursive(c,sg,g,f,min,max,ext_params)
6c4f953b61 2023-07-15 2771: 	sg:AddCard(c)
6c4f953b61 2023-07-15 2772: 	if Auxiliary.GCheckAdditional and not Auxiliary.GCheckAdditional(sg,c,g,f,min,max,ext_params) then
6c4f953b61 2023-07-15 2773: 		sg:RemoveCard(c)
6c4f953b61 2023-07-15 2774: 		return false
6c4f953b61 2023-07-15 2775: 	end
6c4f953b61 2023-07-15 2776: 	local res=(#sg>=min and #sg<=max and f(sg,table.unpack(ext_params)))
6c4f953b61 2023-07-15 2777: 		or (#sg<max and g:IsExists(Auxiliary.CheckGroupRecursive,1,sg,sg,g,f,min,max,ext_params))
6c4f953b61 2023-07-15 2778: 	sg:RemoveCard(c)
6c4f953b61 2023-07-15 2779: 	return res
6c4f953b61 2023-07-15 2780: end
6c4f953b61 2023-07-15 2781: function Auxiliary.CheckGroupRecursiveCapture(c,sg,g,f,min,max,ext_params)
6c4f953b61 2023-07-15 2782: 	sg:AddCard(c)
6c4f953b61 2023-07-15 2783: 	if Auxiliary.GCheckAdditional and not Auxiliary.GCheckAdditional(sg,c,g,f,min,max,ext_params) then
6c4f953b61 2023-07-15 2784: 		sg:RemoveCard(c)
6c4f953b61 2023-07-15 2785: 		return false
6c4f953b61 2023-07-15 2786: 	end
6c4f953b61 2023-07-15 2787: 	local res=#sg>=min and #sg<=max and f(sg,table.unpack(ext_params))
6c4f953b61 2023-07-15 2788: 	if res then
6c4f953b61 2023-07-15 2789: 		Auxiliary.SubGroupCaptured:Clear()
6c4f953b61 2023-07-15 2790: 		Auxiliary.SubGroupCaptured:Merge(sg)
6c4f953b61 2023-07-15 2791: 	else
6c4f953b61 2023-07-15 2792: 		res=#sg<max and g:IsExists(Auxiliary.CheckGroupRecursiveCapture,1,sg,sg,g,f,min,max,ext_params)
6c4f953b61 2023-07-15 2793: 	end
6c4f953b61 2023-07-15 2794: 	sg:RemoveCard(c)
6c4f953b61 2023-07-15 2795: 	return res
6c4f953b61 2023-07-15 2796: end
6c4f953b61 2023-07-15 2797: function Group.CheckSubGroup(g,f,min,max,...)
6c4f953b61 2023-07-15 2798: 	local min=min or 1
6c4f953b61 2023-07-15 2799: 	local max=max or #g
6c4f953b61 2023-07-15 2800: 	if min>max then return false end
6c4f953b61 2023-07-15 2801: 	local ext_params={...}
6c4f953b61 2023-07-15 2802: 	local sg=Duel.GrabSelectedCard()
6c4f953b61 2023-07-15 2803: 	if #sg>max or #(g+sg)<min then return false end
6c4f953b61 2023-07-15 2804: 	if #sg==max and (not f(sg,...) or Auxiliary.GCheckAdditional and not Auxiliary.GCheckAdditional(sg,nil,g,f,min,max,ext_params)) then return false end
6c4f953b61 2023-07-15 2805: 	if #sg>=min and #sg<=max and f(sg,...) and (not Auxiliary.GCheckAdditional or Auxiliary.GCheckAdditional(sg,nil,g,f,min,max,ext_params)) then return true end
6c4f953b61 2023-07-15 2806: 	local eg=g:Clone()
6c4f953b61 2023-07-15 2807: 	for c in aux.Next(g-sg) do
6c4f953b61 2023-07-15 2808: 		if Auxiliary.CheckGroupRecursive(c,sg,eg,f,min,max,ext_params) then return true end
6c4f953b61 2023-07-15 2809: 		eg:RemoveCard(c)
6c4f953b61 2023-07-15 2810: 	end
6c4f953b61 2023-07-15 2811: 	return false
6c4f953b61 2023-07-15 2812: end
6c4f953b61 2023-07-15 2813: function Group.SelectSubGroup(g,tp,f,cancelable,min,max,...)
6c4f953b61 2023-07-15 2814: 	Auxiliary.SubGroupCaptured=Group.CreateGroup()
6c4f953b61 2023-07-15 2815: 	local min=min or 1
6c4f953b61 2023-07-15 2816: 	local max=max or #g
6c4f953b61 2023-07-15 2817: 	local ext_params={...}
6c4f953b61 2023-07-15 2818: 	local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 2819: 	local fg=Duel.GrabSelectedCard()
6c4f953b61 2023-07-15 2820: 	if #fg>max or min>max or #(g+fg)<min then return nil end
6c4f953b61 2023-07-15 2821: 	for tc in aux.Next(fg) do
6c4f953b61 2023-07-15 2822: 		fg:SelectUnselect(sg,tp,false,false,min,max)
6c4f953b61 2023-07-15 2823: 	end
6c4f953b61 2023-07-15 2824: 	sg:Merge(fg)
6c4f953b61 2023-07-15 2825: 	local finish=(#sg>=min and #sg<=max and f(sg,...))
6c4f953b61 2023-07-15 2826: 	while #sg<max do
6c4f953b61 2023-07-15 2827: 		local cg=Group.CreateGroup()
6c4f953b61 2023-07-15 2828: 		local eg=g:Clone()
6c4f953b61 2023-07-15 2829: 		for c in aux.Next(g-sg) do
6c4f953b61 2023-07-15 2830: 			if not cg:IsContains(c) then
6c4f953b61 2023-07-15 2831: 				if Auxiliary.CheckGroupRecursiveCapture(c,sg,eg,f,min,max,ext_params) then
6c4f953b61 2023-07-15 2832: 					cg:Merge(Auxiliary.SubGroupCaptured)
6c4f953b61 2023-07-15 2833: 				else
6c4f953b61 2023-07-15 2834: 					eg:RemoveCard(c)
6c4f953b61 2023-07-15 2835: 				end
6c4f953b61 2023-07-15 2836: 			end
6c4f953b61 2023-07-15 2837: 		end
6c4f953b61 2023-07-15 2838: 		cg:Sub(sg)
6c4f953b61 2023-07-15 2839: 		finish=(#sg>=min and #sg<=max and f(sg,...))
6c4f953b61 2023-07-15 2840: 		if #cg==0 then break end
6c4f953b61 2023-07-15 2841: 		local cancel=not finish and cancelable
6c4f953b61 2023-07-15 2842: 		local tc=cg:SelectUnselect(sg,tp,finish,cancel,min,max)
6c4f953b61 2023-07-15 2843: 		if not tc then break end
6c4f953b61 2023-07-15 2844: 		if not fg:IsContains(tc) then
6c4f953b61 2023-07-15 2845: 			if not sg:IsContains(tc) then
6c4f953b61 2023-07-15 2846: 				sg:AddCard(tc)
6c4f953b61 2023-07-15 2847: 				if #sg==max then finish=true end
6c4f953b61 2023-07-15 2848: 			else
6c4f953b61 2023-07-15 2849: 				sg:RemoveCard(tc)
6c4f953b61 2023-07-15 2850: 			end
6c4f953b61 2023-07-15 2851: 		elseif cancelable then
6c4f953b61 2023-07-15 2852: 			return nil
6c4f953b61 2023-07-15 2853: 		end
6c4f953b61 2023-07-15 2854: 	end
6c4f953b61 2023-07-15 2855: 	if finish then
6c4f953b61 2023-07-15 2856: 		return sg
6c4f953b61 2023-07-15 2857: 	else
6c4f953b61 2023-07-15 2858: 		return nil
6c4f953b61 2023-07-15 2859: 	end
6c4f953b61 2023-07-15 2860: end
6c4f953b61 2023-07-15 2861: function Auxiliary.CreateChecks(f,list)
6c4f953b61 2023-07-15 2862: 	local checks={}
6c4f953b61 2023-07-15 2863: 	for i=1,#list do
6c4f953b61 2023-07-15 2864: 		checks[i]=function(c) return f(c,list[i]) end
6c4f953b61 2023-07-15 2865: 	end
6c4f953b61 2023-07-15 2866: 	return checks
6c4f953b61 2023-07-15 2867: end
6c4f953b61 2023-07-15 2868: function Auxiliary.CheckGroupRecursiveEach(c,sg,g,f,checks,ext_params)
6c4f953b61 2023-07-15 2869: 	if not checks[1+#sg](c) then
6c4f953b61 2023-07-15 2870: 		return false
6c4f953b61 2023-07-15 2871: 	end
6c4f953b61 2023-07-15 2872: 	sg:AddCard(c)
6c4f953b61 2023-07-15 2873: 	if Auxiliary.GCheckAdditional and not Auxiliary.GCheckAdditional(sg,c,g,f,min,max,ext_params) then
6c4f953b61 2023-07-15 2874: 		sg:RemoveCard(c)
6c4f953b61 2023-07-15 2875: 		return false
6c4f953b61 2023-07-15 2876: 	end
6c4f953b61 2023-07-15 2877: 	local res
6c4f953b61 2023-07-15 2878: 	if #sg==#checks then
6c4f953b61 2023-07-15 2879: 		res=f(sg,table.unpack(ext_params))
6c4f953b61 2023-07-15 2880: 	else
6c4f953b61 2023-07-15 2881: 		res=g:IsExists(Auxiliary.CheckGroupRecursiveEach,1,sg,sg,g,f,checks,ext_params)
6c4f953b61 2023-07-15 2882: 	end
6c4f953b61 2023-07-15 2883: 	sg:RemoveCard(c)
6c4f953b61 2023-07-15 2884: 	return res
6c4f953b61 2023-07-15 2885: end
6c4f953b61 2023-07-15 2886: function Group.CheckSubGroupEach(g,checks,f,...)
6c4f953b61 2023-07-15 2887: 	if f==nil then f=Auxiliary.TRUE end
6c4f953b61 2023-07-15 2888: 	if #g<#checks then return false end
6c4f953b61 2023-07-15 2889: 	local ext_params={...}
6c4f953b61 2023-07-15 2890: 	local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 2891: 	return g:IsExists(Auxiliary.CheckGroupRecursiveEach,1,sg,sg,g,f,checks,ext_params)
6c4f953b61 2023-07-15 2892: end
6c4f953b61 2023-07-15 2893: function Group.SelectSubGroupEach(g,tp,checks,cancelable,f,...)
6c4f953b61 2023-07-15 2894: 	if cancelable==nil then cancelable=false end
6c4f953b61 2023-07-15 2895: 	if f==nil then f=Auxiliary.TRUE end
6c4f953b61 2023-07-15 2896: 	local ct=#checks
6c4f953b61 2023-07-15 2897: 	local ext_params={...}
6c4f953b61 2023-07-15 2898: 	local sg=Group.CreateGroup()
6c4f953b61 2023-07-15 2899: 	local finish=false
6c4f953b61 2023-07-15 2900: 	while #sg<ct do
6c4f953b61 2023-07-15 2901: 		local cg=g:Filter(Auxiliary.CheckGroupRecursiveEach,sg,sg,g,f,checks,ext_params)
6c4f953b61 2023-07-15 2902: 		if #cg==0 then break end
6c4f953b61 2023-07-15 2903: 		local tc=cg:SelectUnselect(sg,tp,false,cancelable,ct,ct)
6c4f953b61 2023-07-15 2904: 		if not tc then break end
6c4f953b61 2023-07-15 2905: 		if not sg:IsContains(tc) then
6c4f953b61 2023-07-15 2906: 			sg:AddCard(tc)
6c4f953b61 2023-07-15 2907: 			if #sg==ct then finish=true end
6c4f953b61 2023-07-15 2908: 		else
6c4f953b61 2023-07-15 2909: 			sg:Clear()
6c4f953b61 2023-07-15 2910: 		end
6c4f953b61 2023-07-15 2911: 	end
6c4f953b61 2023-07-15 2912: 	if finish then
6c4f953b61 2023-07-15 2913: 		return sg
6c4f953b61 2023-07-15 2914: 	else
6c4f953b61 2023-07-15 2915: 		return nil
6c4f953b61 2023-07-15 2916: 	end
6c4f953b61 2023-07-15 2917: end
6c4f953b61 2023-07-15 2918: --condition of "negate activation and banish"
6c4f953b61 2023-07-15 2919: function Auxiliary.nbcon(tp,re)
6c4f953b61 2023-07-15 2920: 	local rc=re:GetHandler()
6c4f953b61 2023-07-15 2921: 	return Duel.IsPlayerCanRemove(tp)
6c4f953b61 2023-07-15 2922: 		and (not rc:IsRelateToEffect(re) or rc:IsAbleToRemove())
6c4f953b61 2023-07-15 2923: end
6c4f953b61 2023-07-15 2924: function Auxiliary.nbtg(e,tp,eg,ep,ev,re,r,rp,chk)
6c4f953b61 2023-07-15 2925: 	if chk==0 then return aux.nbcon(tp,re) end
6c4f953b61 2023-07-15 2926: 	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
6c4f953b61 2023-07-15 2927: 	if re:GetHandler():IsRelateToEffect(re) then
6c4f953b61 2023-07-15 2928: 		Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
6c4f953b61 2023-07-15 2929: 	end
6c4f953b61 2023-07-15 2930: 	if re:GetActivateLocation()==LOCATION_GRAVE then
6c4f953b61 2023-07-15 2931: 		e:SetCategory(e:GetCategory()|CATEGORY_GRAVE_ACTION)
6c4f953b61 2023-07-15 2932: 	else
6c4f953b61 2023-07-15 2933: 		e:SetCategory(e:GetCategory()&~CATEGORY_GRAVE_ACTION)
6c4f953b61 2023-07-15 2934: 	end
6c4f953b61 2023-07-15 2935: end
6c4f953b61 2023-07-15 2936: --condition of "negate activation and return to deck"
6c4f953b61 2023-07-15 2937: function Auxiliary.ndcon(tp,re)
6c4f953b61 2023-07-15 2938: 	local rc=re:GetHandler()
6c4f953b61 2023-07-15 2939: 	return re:IsHasType(EFFECT_TYPE_ACTIVATE) or not rc:IsRelateToEffect(re) or rc:IsAbleToDeck()
6c4f953b61 2023-07-15 2940: end
6c4f953b61 2023-07-15 2941: --send to deck of contact fusion
6c4f953b61 2023-07-15 2942: function Auxiliary.tdcfop(c)
6c4f953b61 2023-07-15 2943: 	return	function(g)
6c4f953b61 2023-07-15 2944: 				local cg=g:Filter(Card.IsFacedown,nil)
6c4f953b61 2023-07-15 2945: 				if cg:GetCount()>0 then
6c4f953b61 2023-07-15 2946: 					Duel.ConfirmCards(1-c:GetControler(),cg)
6c4f953b61 2023-07-15 2947: 				end
6c4f953b61 2023-07-15 2948: 				Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_COST)
6c4f953b61 2023-07-15 2949: 			end
6c4f953b61 2023-07-15 2950: end
6c4f953b61 2023-07-15 2951: --return the global index of the zone in (p,loc,seq)
6c4f953b61 2023-07-15 2952: function Auxiliary.SequenceToGlobal(p,loc,seq)
6c4f953b61 2023-07-15 2953: 	if p~=0 and p~=1 then
6c4f953b61 2023-07-15 2954: 		return 0
6c4f953b61 2023-07-15 2955: 	end
6c4f953b61 2023-07-15 2956: 	if loc==LOCATION_MZONE then
6c4f953b61 2023-07-15 2957: 		if seq<=6 then
6c4f953b61 2023-07-15 2958: 			return 0x0001<<(16*p+seq)
6c4f953b61 2023-07-15 2959: 		else
6c4f953b61 2023-07-15 2960: 			return 0
6c4f953b61 2023-07-15 2961: 		end
6c4f953b61 2023-07-15 2962: 	elseif loc == LOCATION_SZONE then
6c4f953b61 2023-07-15 2963: 		if seq<=4 then
6c4f953b61 2023-07-15 2964: 			return 0x0100<<(16*p+seq)
6c4f953b61 2023-07-15 2965: 		else
6c4f953b61 2023-07-15 2966: 			return 0
6c4f953b61 2023-07-15 2967: 		end
6c4f953b61 2023-07-15 2968: 	else
6c4f953b61 2023-07-15 2969: 		return 0
6c4f953b61 2023-07-15 2970: 	end
6c4f953b61 2023-07-15 2971: end
6c4f953b61 2023-07-15 2972: --use the count limit of Lair of Darkness if the tributes are not selected by Duel.SelectReleaseGroup
6c4f953b61 2023-07-15 2973: function Auxiliary.UseExtraReleaseCount(g,tp)
6c4f953b61 2023-07-15 2974: 	local eg=g:Filter(Auxiliary.ExtraReleaseFilter,nil,tp)
6c4f953b61 2023-07-15 2975: 	for ec in Auxiliary.Next(eg) do
6c4f953b61 2023-07-15 2976: 		local te=ec:IsHasEffect(EFFECT_EXTRA_RELEASE_NONSUM,tp)
6c4f953b61 2023-07-15 2977: 		if te then te:UseCountLimit(tp) end
6c4f953b61 2023-07-15 2978: 	end
6c4f953b61 2023-07-15 2979: end
6c4f953b61 2023-07-15 2980: function Auxiliary.ExtraReleaseFilter(c,tp)
6c4f953b61 2023-07-15 2981: 	return c:IsControler(1-tp) and c:IsHasEffect(EFFECT_EXTRA_RELEASE_NONSUM,tp)
6c4f953b61 2023-07-15 2982: end
6c4f953b61 2023-07-15 2983: function Auxiliary.IsSpecialSummonedByEffect(e)
6c4f953b61 2023-07-15 2984: 	return not ((e:GetCode()==EFFECT_SPSUMMON_PROC or e:GetCode()==EFFECT_SPSUMMON_PROC_G) and e:GetProperty()&(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)==(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE))
6c4f953b61 2023-07-15 2985: end
6c4f953b61 2023-07-15 2986: --
6c4f953b61 2023-07-15 2987: function Auxiliary.GetCappedLevel(c)
6c4f953b61 2023-07-15 2988: 	local lv=c:GetLevel()
6c4f953b61 2023-07-15 2989: 	if lv>MAX_PARAMETER then
6c4f953b61 2023-07-15 2990: 		return MAX_PARAMETER
6c4f953b61 2023-07-15 2991: 	else
6c4f953b61 2023-07-15 2992: 		return lv
6c4f953b61 2023-07-15 2993: 	end
6c4f953b61 2023-07-15 2994: end
6c4f953b61 2023-07-15 2995: --
6c4f953b61 2023-07-15 2996: function Auxiliary.GetCappedAttack(c)
6c4f953b61 2023-07-15 2997: 	local x=c:GetAttack()
6c4f953b61 2023-07-15 2998: 	if x>MAX_PARAMETER then
6c4f953b61 2023-07-15 2999: 		return MAX_PARAMETER
6c4f953b61 2023-07-15 3000: 	else
6c4f953b61 2023-07-15 3001: 		return x
6c4f953b61 2023-07-15 3002: 	end
6c4f953b61 2023-07-15 3003: end
6c4f953b61 2023-07-15 3004: --when this card is sent to grave, record the reason effect
6c4f953b61 2023-07-15 3005: --to check whether the reason effect do something simultaneously
6c4f953b61 2023-07-15 3006: --so the "while this card is in your GY" condition isn't met
6c4f953b61 2023-07-15 3007: function Auxiliary.AddThisCardInGraveAlreadyCheck(c)
6c4f953b61 2023-07-15 3008: 	local e1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 3009: 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
6c4f953b61 2023-07-15 3010: 	e1:SetCode(EVENT_TO_GRAVE)
6c4f953b61 2023-07-15 3011: 	e1:SetCondition(Auxiliary.ThisCardInGraveAlreadyCheckReg)
6c4f953b61 2023-07-15 3012: 	c:RegisterEffect(e1)
6c4f953b61 2023-07-15 3013: 	return e1
6c4f953b61 2023-07-15 3014: end
6c4f953b61 2023-07-15 3015: function Auxiliary.ThisCardInGraveAlreadyCheckReg(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 3016: 	--condition of continous effect will be checked before other effects
6c4f953b61 2023-07-15 3017: 	if re==nil then return false end
6c4f953b61 2023-07-15 3018: 	if e:GetLabelObject()~=nil then return false end
6c4f953b61 2023-07-15 3019: 	if (r&REASON_EFFECT)>0 then
6c4f953b61 2023-07-15 3020: 		e:SetLabelObject(re)
6c4f953b61 2023-07-15 3021: 		local e1=Effect.CreateEffect(e:GetHandler())
6c4f953b61 2023-07-15 3022: 		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
6c4f953b61 2023-07-15 3023: 		e1:SetCode(EVENT_CHAIN_END)
6c4f953b61 2023-07-15 3024: 		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
6c4f953b61 2023-07-15 3025: 		e1:SetOperation(Auxiliary.ThisCardInGraveAlreadyReset1)
6c4f953b61 2023-07-15 3026: 		e1:SetLabelObject(e)
6c4f953b61 2023-07-15 3027: 		Duel.RegisterEffect(e1,tp)
6c4f953b61 2023-07-15 3028: 		local e2=e1:Clone()
6c4f953b61 2023-07-15 3029: 		e2:SetCode(EVENT_BREAK_EFFECT)
6c4f953b61 2023-07-15 3030: 		e2:SetOperation(Auxiliary.ThisCardInGraveAlreadyReset2)
6c4f953b61 2023-07-15 3031: 		e2:SetReset(RESET_CHAIN)
6c4f953b61 2023-07-15 3032: 		e2:SetLabelObject(e1)
6c4f953b61 2023-07-15 3033: 		Duel.RegisterEffect(e2,tp)
6c4f953b61 2023-07-15 3034: 	elseif (r&REASON_MATERIAL)>0 or not re:IsActivated() and (r&REASON_COST)>0 then
6c4f953b61 2023-07-15 3035: 		e:SetLabelObject(re)
6c4f953b61 2023-07-15 3036: 		local reset_event=EVENT_SPSUMMON
6c4f953b61 2023-07-15 3037: 		if re:GetCode()~=EFFECT_SPSUMMON_PROC then reset_event=EVENT_SUMMON end
6c4f953b61 2023-07-15 3038: 		local e1=Effect.CreateEffect(e:GetHandler())
6c4f953b61 2023-07-15 3039: 		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
6c4f953b61 2023-07-15 3040: 		e1:SetCode(reset_event)
6c4f953b61 2023-07-15 3041: 		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
6c4f953b61 2023-07-15 3042: 		e1:SetOperation(Auxiliary.ThisCardInGraveAlreadyReset1)
6c4f953b61 2023-07-15 3043: 		e1:SetLabelObject(e)
6c4f953b61 2023-07-15 3044: 		Duel.RegisterEffect(e1,tp)
6c4f953b61 2023-07-15 3045: 	end
6c4f953b61 2023-07-15 3046: 	return false
6c4f953b61 2023-07-15 3047: end
6c4f953b61 2023-07-15 3048: function Auxiliary.ThisCardInGraveAlreadyReset1(e)
6c4f953b61 2023-07-15 3049: 	--this will run after EVENT_SPSUMMON_SUCCESS
6c4f953b61 2023-07-15 3050: 	e:GetLabelObject():SetLabelObject(nil)
6c4f953b61 2023-07-15 3051: 	e:Reset()
6c4f953b61 2023-07-15 3052: end
6c4f953b61 2023-07-15 3053: function Auxiliary.ThisCardInGraveAlreadyReset2(e)
6c4f953b61 2023-07-15 3054: 	local e1=e:GetLabelObject()
6c4f953b61 2023-07-15 3055: 	e1:GetLabelObject():SetLabelObject(nil)
6c4f953b61 2023-07-15 3056: 	e1:Reset()
6c4f953b61 2023-07-15 3057: 	e:Reset()
6c4f953b61 2023-07-15 3058: end
6c4f953b61 2023-07-15 3059: --Player p place g on the top of Deck in any order
6c4f953b61 2023-07-15 3060: function Auxiliary.PlaceCardsOnDeckTop(p,g,reason)
6c4f953b61 2023-07-15 3061: 	if reason==nil then reason=REASON_EFFECT end
6c4f953b61 2023-07-15 3062: 	Duel.SendtoDeck(g,nil,SEQ_DECKTOP,reason)
6c4f953b61 2023-07-15 3063: 	local rg=Duel.GetOperatedGroup()
6c4f953b61 2023-07-15 3064: 	local og=rg:Filter(Card.IsLocation,nil,LOCATION_DECK)
6c4f953b61 2023-07-15 3065: 	local ct1=og:FilterCount(Card.IsControler,nil,p)
6c4f953b61 2023-07-15 3066: 	local ct2=og:FilterCount(Card.IsControler,nil,1-p)
6c4f953b61 2023-07-15 3067: 	if ct1>1 then
6c4f953b61 2023-07-15 3068: 		Duel.SortDecktop(p,p,ct1)
6c4f953b61 2023-07-15 3069: 	end
6c4f953b61 2023-07-15 3070: 	if ct2>1 then
6c4f953b61 2023-07-15 3071: 		Duel.SortDecktop(p,1-p,ct2)
6c4f953b61 2023-07-15 3072: 	end
6c4f953b61 2023-07-15 3073: 	return #rg
6c4f953b61 2023-07-15 3074: end
6c4f953b61 2023-07-15 3075: --Player p place g on the bottom of Deck in any order
6c4f953b61 2023-07-15 3076: function Auxiliary.PlaceCardsOnDeckBottom(p,g,reason)
6c4f953b61 2023-07-15 3077: 	if reason==nil then reason=REASON_EFFECT end
6c4f953b61 2023-07-15 3078: 	Duel.SendtoDeck(g,nil,SEQ_DECKTOP,reason)
6c4f953b61 2023-07-15 3079: 	local rg=Duel.GetOperatedGroup()
6c4f953b61 2023-07-15 3080: 	local og=rg:Filter(Card.IsLocation,nil,LOCATION_DECK)
6c4f953b61 2023-07-15 3081: 	local ct1=og:FilterCount(Card.IsControler,nil,p)
6c4f953b61 2023-07-15 3082: 	local ct2=og:FilterCount(Card.IsControler,nil,1-p)
6c4f953b61 2023-07-15 3083: 	if ct1>0 then
6c4f953b61 2023-07-15 3084: 		if ct1>1 then
6c4f953b61 2023-07-15 3085: 			Duel.SortDecktop(p,p,ct1)
6c4f953b61 2023-07-15 3086: 		end
6c4f953b61 2023-07-15 3087: 		for i=1,ct1 do
6c4f953b61 2023-07-15 3088: 			local tc=Duel.GetDecktopGroup(p,1):GetFirst()
6c4f953b61 2023-07-15 3089: 			Duel.MoveSequence(tc,SEQ_DECKBOTTOM)
6c4f953b61 2023-07-15 3090: 		end
6c4f953b61 2023-07-15 3091: 	end
6c4f953b61 2023-07-15 3092: 	if ct2>0 then
6c4f953b61 2023-07-15 3093: 		if ct2>1 then
6c4f953b61 2023-07-15 3094: 			Duel.SortDecktop(p,1-p,ct2)
6c4f953b61 2023-07-15 3095: 		end
6c4f953b61 2023-07-15 3096: 		for i=1,ct2 do
6c4f953b61 2023-07-15 3097: 			local tc=Duel.GetDecktopGroup(1-p,1):GetFirst()
6c4f953b61 2023-07-15 3098: 			Duel.MoveSequence(tc,SEQ_DECKBOTTOM)
6c4f953b61 2023-07-15 3099: 		end
6c4f953b61 2023-07-15 3100: 	end
6c4f953b61 2023-07-15 3101: 	return #rg
6c4f953b61 2023-07-15 3102: end
6c4f953b61 2023-07-15 3103: --The event is triggered multiple times in a chain
6c4f953b61 2023-07-15 3104: --but only 1 event with EVENT_CUSTOM+code will be triggered at EVENT_CHAIN_END, or immediately if not in chain
6c4f953b61 2023-07-15 3105: --NOTE: re,r,rp,ep,ev of that custom event ARE NOT releated to the real event that trigger this custom event
6c4f953b61 2023-07-15 3106: function Auxiliary.RegisterMergedDelayedEvent(c,code,event,g)
6c4f953b61 2023-07-15 3107: 	local mt=getmetatable(c)
6c4f953b61 2023-07-15 3108: 	if mt[event]==true then return end
6c4f953b61 2023-07-15 3109: 	mt[event]=true
6c4f953b61 2023-07-15 3110: 	if not g then g=Group.CreateGroup() end
6c4f953b61 2023-07-15 3111: 	g:KeepAlive()
6c4f953b61 2023-07-15 3112: 	local ge1=Effect.CreateEffect(c)
6c4f953b61 2023-07-15 3113: 	ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
6c4f953b61 2023-07-15 3114: 	ge1:SetCode(event)
6c4f953b61 2023-07-15 3115: 	ge1:SetLabel(code)
6c4f953b61 2023-07-15 3116: 	ge1:SetLabelObject(g)
6c4f953b61 2023-07-15 3117: 	ge1:SetOperation(Auxiliary.MergedDelayEventCheck1)
6c4f953b61 2023-07-15 3118: 	Duel.RegisterEffect(ge1,0)
6c4f953b61 2023-07-15 3119: 	local ge2=ge1:Clone()
6c4f953b61 2023-07-15 3120: 	ge2:SetCode(EVENT_CHAIN_END)
6c4f953b61 2023-07-15 3121: 	ge2:SetOperation(Auxiliary.MergedDelayEventCheck2)
6c4f953b61 2023-07-15 3122: 	Duel.RegisterEffect(ge2,0)
6c4f953b61 2023-07-15 3123: end
6c4f953b61 2023-07-15 3124: function Auxiliary.MergedDelayEventCheck1(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 3125: 	local g=e:GetLabelObject()
6c4f953b61 2023-07-15 3126: 	g:Merge(eg)
6c4f953b61 2023-07-15 3127: 	if Duel.GetCurrentChain()==0 and not Duel.CheckEvent(EVENT_CHAIN_END) then
6c4f953b61 2023-07-15 3128: 		local _eg=g:Clone()
6c4f953b61 2023-07-15 3129: 		Duel.RaiseEvent(_eg,EVENT_CUSTOM+e:GetLabel(),re,r,rp,ep,ev)
6c4f953b61 2023-07-15 3130: 		g:Clear()
6c4f953b61 2023-07-15 3131: 	end
6c4f953b61 2023-07-15 3132: end
6c4f953b61 2023-07-15 3133: function Auxiliary.MergedDelayEventCheck2(e,tp,eg,ep,ev,re,r,rp)
6c4f953b61 2023-07-15 3134: 	local g=e:GetLabelObject()
6c4f953b61 2023-07-15 3135: 	if #g>0 then
6c4f953b61 2023-07-15 3136: 		local _eg=g:Clone()
6c4f953b61 2023-07-15 3137: 		Duel.RaiseEvent(_eg,EVENT_CUSTOM+e:GetLabel(),re,r,rp,ep,ev)
6c4f953b61 2023-07-15 3138: 		g:Clear()
6c4f953b61 2023-07-15 3139: 	end
6c4f953b61 2023-07-15 3140: end