Commit 655857be authored by fallenstardust's avatar fallenstardust
parent 3824a6bf
Pipeline #24034 passed with stages
in 47 seconds
--ゴブリン降下部隊
local s,id,o=GetID() local s,id,o=GetID()
function s.initial_effect(c) function s.initial_effect(c)
--disable --disable
...@@ -8,6 +9,7 @@ function s.initial_effect(c) ...@@ -8,6 +9,7 @@ function s.initial_effect(c)
e1:SetCode(EVENT_SPSUMMON_SUCCESS) e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1,id) e1:SetCountLimit(1,id)
e1:SetLabelObject(e0)
e1:SetCondition(s.discon) e1:SetCondition(s.discon)
e1:SetTarget(s.distg) e1:SetTarget(s.distg)
e1:SetOperation(s.disop) e1:SetOperation(s.disop)
...@@ -27,7 +29,7 @@ function s.initial_effect(c) ...@@ -27,7 +29,7 @@ function s.initial_effect(c)
e2:SetOperation(s.thop) e2:SetOperation(s.thop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
--disable --disable
function s.disfilter(c) function s.disfilter(c)
return c:IsType(TYPE_EFFECT) and not c:IsDisabled() return c:IsType(TYPE_EFFECT) and not c:IsDisabled()
...@@ -45,7 +47,7 @@ function s.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) ...@@ -45,7 +47,7 @@ function s.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
end end
function s.disop(e,tp,eg,ep,ev,re,r,rp) function s.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if not c:IsRelateToEffect(e) or c:IsDefensePos() or not c:IsCanChangePosition() then return end if not c:IsRelateToEffect(e) or c:IsDefensePos() then return end
Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,0,0) Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,0,0)
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
if c:IsFaceup() and c:IsDefensePos() and c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) if c:IsFaceup() and c:IsDefensePos() and c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e)
...@@ -70,4 +72,26 @@ function s.disop(e,tp,eg,ep,ev,re,r,rp) ...@@ -70,4 +72,26 @@ function s.disop(e,tp,eg,ep,ev,re,r,rp)
e2:SetCondition(s.recon) e2:SetCondition(s.recon)
e2:SetOperation(s.reop) e2:SetOperation(s.reop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end
function s.rcon(e)
return e:GetOwner():IsHasCardTarget(e:GetHandler())
end
--to hand
function s.thcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(Card.IsControler,1,nil,1-tp)
end
function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsAbleToHand() end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
end
function s.thop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then Duel.SendtoHand(c,nil,REASON_EFFECT) end
end end
\ No newline at end of file
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