Commit 56cf65e6 authored by Tachibana's avatar Tachibana

ndyd

parent a5c25c38
...@@ -50,10 +50,23 @@ function cm.cptg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -50,10 +50,23 @@ function cm.cptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
end end
function cm.cpop(e,tp,eg,ep,ev,re,r,rp) function cm.cpop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not Duel.IsExistingMatchingCard(nil,tp,LOCATION_PZONE,0,1,e:GetHandler()) then return end if not Duel.IsExistingMatchingCard(nil,tp,LOCATION_PZONE,0,1,e:GetHandler()) then return end
local tt=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,e:GetHandler()) local tt=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,e:GetHandler())
local code=tt:GetOriginalCode() local cp={}
e:GetHandler():CopyEffect(code,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1) local temp=Card.RegisterEffect
Card.RegisterEffect=function(tc,e,f)
if (e:GetRange()&LOCATION_PZONE)>0 and not e:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) then
table.insert(cp,e:Clone())
end
return temp(tc,e,f)
end
Duel.CreateToken(tp,tt:GetOriginalCode())
for i,v in ipairs(cp) do
temp(c,v)
v:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
end
Card.RegisterEffect=temp
end end
function cm.chainfilter(re,tp,cid) function cm.chainfilter(re,tp,cid)
return not re:IsHasType(EFFECT_TYPE_ACTIVATE) return not re:IsHasType(EFFECT_TYPE_ACTIVATE)
......
...@@ -23,7 +23,7 @@ function cm.rpcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -23,7 +23,7 @@ function cm.rpcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
end end
function cm.rpfilter(c,e,tp) function cm.rpfilter(c,e,tp)
return c:IsSetCard(0x7f6) and (not c:IsForbidden() return c:IsSetCard(0x7f6) and c:IsType(TYPE_PENDULUM) and (not c:IsForbidden()
or (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))) or (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
end end
function cm.rptg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.rptg(e,tp,eg,ep,ev,re,r,rp,chk)
......
...@@ -54,7 +54,7 @@ function c53701009.rmop(e,tp,eg,ep,ev,re,r,rp) ...@@ -54,7 +54,7 @@ function c53701009.rmop(e,tp,eg,ep,ev,re,r,rp)
local ag=Duel.GetMatchingGroup(c53701009.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) local ag=Duel.GetMatchingGroup(c53701009.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
ag:Sub(lg) ag:Sub(lg)
if ag:GetCount()==0 then return end if ag:GetCount()==0 then return end
Duel.SendtoGrave(ag,REASON_EFFECT) Duel.Destroy(ag,REASON_EFFECT)
end end
function c53701009.value(e,c) function c53701009.value(e,c)
return Duel.GetMatchingGroupCount(Card.IsType,c:GetControler(),0,LOCATION_GRAVE,nil,TYPE_MONSTER)*200 return Duel.GetMatchingGroupCount(Card.IsType,c:GetControler(),0,LOCATION_GRAVE,nil,TYPE_MONSTER)*200
......
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