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