Commit d967bd86 authored by mercury233's avatar mercury233

update scripts

parent c44c71ac
...@@ -51,7 +51,7 @@ function c101003000.gyop(e,tp,eg,ep,ev,re,r,rp) ...@@ -51,7 +51,7 @@ function c101003000.gyop(e,tp,eg,ep,ev,re,r,rp)
if pg:GetCount()==0 then return end if pg:GetCount()==0 then return end
local g=Group.CreateGroup() local g=Group.CreateGroup()
for pc in aux.Next(pg) do for pc in aux.Next(pg) do
g:Merge(Duel.GetMatchingGroup(c101003000.gyfilter,tp,0,LOCATION_MZONE,nil,pc:GetColumnZone())) g:Merge(Duel.GetMatchingGroup(c101003000.gyfilter,tp,0,LOCATION_MZONE,nil,pc:GetColumnGroup()))
end end
Duel.SendtoGrave(g,REASON_EFFECT) Duel.SendtoGrave(g,REASON_EFFECT)
end end
--Kuro-Obi Karate Spirit
--Scripted by Eerie Code & mercury233
function c101003081.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--spirit return
aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP)
--to hand
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetRange(LOCATION_PZONE)
e1:SetCondition(c101003081.thcon)
e1:SetTarget(c101003081.thtg)
e1:SetOperation(c101003081.thop)
c:RegisterEffect(e1)
--gy
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOGRAVE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetTarget(c101003081.gytg)
e2:SetOperation(c101003081.gyop)
c:RegisterEffect(e2)
end
function c101003081.thcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(Card.IsSummonType,1,nil,SUMMON_TYPE_PENDULUM)
end
function c101003081.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
end
function c101003081.thop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
Duel.SendtoHand(c,nil,REASON_EFFECT)
end
function c101003081.tgfilter(c,tp)
return Duel.IsExistingMatchingCard(c101003081.gyfilter,tp,0,LOCATION_SZONE,1,nil,c:GetColumnGroup())
end
function c101003081.gyfilter(c,g)
return g:IsContains(c)
end
function c101003081.gytg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c101003081.tgfilter,tp,LOCATION_PZONE,0,1,nil,tp) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,0,1-tp,LOCATION_SZONE)
end
function c101003081.gyop(e,tp,eg,ep,ev,re,r,rp)
local pg=Duel.GetMatchingGroup(c101003081.tgfilter,tp,LOCATION_PZONE,0,nil,tp)
if pg:GetCount()==0 then return end
local g=Group.CreateGroup()
for pc in aux.Next(pg) do
g:Merge(Duel.GetMatchingGroup(c101003081.gyfilter,tp,0,LOCATION_SZONE,nil,pc:GetColumnGroup()))
end
Duel.SendtoGrave(g,REASON_EFFECT)
end
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