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