攻略
Combo
考据
好物分享
卡图故事
支缓
盘点整理
Duel Links
--アルカナフォースEX-THE LIGHT RULER function c5861892.initial_effect(c) c:EnableReviveLimit() --spsummon proc local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) e1:SetRange(LOCATION_HAND) e1:SetCondition(c5861892.spcon) e1:SetOperation(c5861892.spop) c:RegisterEffect(e1) --cannot special summon local e2=Effect.CreateEffect(c) e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_SPSUMMON_CONDITION) c:RegisterEffect(e2) --coin local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(5861892,0)) e3:SetCategory(CATEGORY_COIN) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e3:SetCode(EVENT_SPSUMMON_SUCCESS) e3:SetTarget(c5861892.cointg) e3:SetOperation(c5861892.coinop) c:RegisterEffect(e3) end c5861892.toss_coin=true function c5861892.spfilter(c) return c:IsAbleToGraveAsCost() end function c5861892.mzfilter(c) return c:GetSequence()<5 end function c5861892.spcon(e,c) if c==nil then return true end local tp=c:GetControler() local mg=Duel.GetMatchingGroup(c5861892.spfilter,tp,LOCATION_MZONE,0,nil) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) local ct=-ft+1 return ft>-3 and mg:GetCount()>2 and (ft>0 or mg:IsExists(c5861892.mzfilter,ct,nil)) end function c5861892.spop(e,tp,eg,ep,ev,re,r,rp,c) local mg=Duel.GetMatchingGroup(c5861892.spfilter,tp,LOCATION_MZONE,0,nil) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) local ct=-ft+1 local g=nil if ft>0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) g=mg:Select(tp,3,3,nil) elseif ft>-2 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) g=mg:FilterSelect(tp,c5861892.mzfilter,ct,ct,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) local g2=mg:Select(tp,3-ct,3-ct,g) g:Merge(g2) else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) g=mg:FilterSelect(tp,c5861892.mzfilter,3,3,nil) end Duel.SendtoGrave(g,REASON_COST) end function c5861892.cointg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) end function c5861892.coinop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) or c:IsFacedown() then return end local res=0 if c:IsHasEffect(73206827) then res=1-Duel.SelectOption(tp,60,61) else res=Duel.TossCoin(tp,1) end c5861892.arcanareg(c,res) end function c5861892.arcanareg(c,coin) --coin effect local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(5861892,1)) e1:SetCategory(CATEGORY_TOHAND) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetCode(EVENT_BATTLE_DESTROYING) e1:SetCondition(c5861892.thcon) e1:SetTarget(c5861892.thtg) e1:SetOperation(c5861892.thop) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) -- local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(5861892,2)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) e2:SetType(EFFECT_TYPE_QUICK_F) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) e2:SetCondition(c5861892.negcon) e2:SetTarget(c5861892.negtg) e2:SetOperation(c5861892.negop) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) c:RegisterFlagEffect(36690018,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,coin,63-coin) end function c5861892.thcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() return c:GetFlagEffectLabel(36690018)==1 and c:IsRelateToBattle() and c:GetBattleTarget():IsLocation(LOCATION_GRAVE) end function c5861892.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and chkc:IsAbleToHand() end if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_GRAVE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_GRAVE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) end function c5861892.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,tc) end end function c5861892.negcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) if not g or not g:IsContains(c) then return false end return c:GetFlagEffectLabel(36690018)==0 and (re:IsHasType(EFFECT_TYPE_ACTIVATE) or re:IsActiveType(TYPE_MONSTER)) end function c5861892.negtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() if chk==0 then return c:GetFlagEffect(5861892)==0 end if c:IsHasEffect(EFFECT_REVERSE_UPDATE) then c:RegisterFlagEffect(5861892,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) if re:GetHandler():IsRelateToEffect(re) and re:GetHandler():IsDestructable() then Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) end end function c5861892.negop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsFaceup() or c:GetAttack()<1000 or not c:IsRelateToEffect(e) or Duel.GetCurrentChain()~=ev+1 then return end if Duel.NegateActivation(ev) then if re:GetHandler():IsRelateToEffect(re) then Duel.Destroy(re:GetHandler(),REASON_EFFECT) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) e1:SetReset(RESET_EVENT+0x1ff0000) e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetValue(-1000) c:RegisterEffect(e1) end end