Commit 0798500f authored by 聖園ミカ's avatar 聖園ミカ 🐟

7

parent c37258b0
Pipeline #31625 passed with stages
in 36 minutes and 18 seconds
...@@ -16,21 +16,13 @@ function c75600167.initial_effect(c) ...@@ -16,21 +16,13 @@ function c75600167.initial_effect(c)
e3:SetRange(LOCATION_FZONE) e3:SetRange(LOCATION_FZONE)
e3:SetOperation(c75600167.chainop) e3:SetOperation(c75600167.chainop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
if not c75600167.global_check then local e0=Effect.CreateEffect(c)
c75600167.global_check=true e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
c75600167[0]=nil e0:SetCode(EVENT_PAY_LPCOST)
local ge1=Effect.CreateEffect(c) e0:SetRange(LOCATION_FZONE)
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
ge1:SetCode(EVENT_PAY_LPCOST) e0:SetOperation(c75600167.regop)
ge1:SetOperation(c75600167.checkop) c:RegisterEffect(e0)
Duel.RegisterEffect(ge1,0)
end
end
function c75600167.checkop(e,tp,eg,ep,ev,re,r,rp)
local cid=Duel.GetCurrentChain()
if cid>0 then
c75600167[0]=Duel.GetChainInfo(cid,CHAININFO_CHAIN_ID)
end
end end
function c75600167.target(e,tp,eg,ep,ev,re,r,rp,chk) function c75600167.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
...@@ -54,8 +46,15 @@ function c75600167.activate(e,tp,eg,ep,ev,re,r,rp) ...@@ -54,8 +46,15 @@ function c75600167.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.ConfirmCards(1-tp,sg) Duel.ConfirmCards(1-tp,sg)
end end
end end
function c75600167.regop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if ep==tp and re:IsActivated() then
c:RegisterFlagEffect(75600167,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_CHAIN,0,1)
end
end
function c75600167.chainop(e,tp,eg,ep,ev,re,r,rp) function c75600167.chainop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)==c75600167[0] and ep==tp then if ep==tp and e:GetHandler():GetFlagEffect(75600167)>0 then
if Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(75600167,0)) and Duel.CheckLPCost(tp,500) then if Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(75600167,0)) and Duel.CheckLPCost(tp,500) then
Duel.PayLPCost(tp,500) Duel.PayLPCost(tp,500)
Duel.SetChainLimit(c75600167.chainlm) Duel.SetChainLimit(c75600167.chainlm)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment