Commit f03a275c authored by 聖園ミカ's avatar 聖園ミカ 🐟

vme50

parent ca84b19f
...@@ -49,6 +49,13 @@ function Sr_skyland.speffect(c,code) ...@@ -49,6 +49,13 @@ function Sr_skyland.speffect(c,code)
e2:SetRange(LOCATION_GRAVE) e2:SetRange(LOCATION_GRAVE)
e2:SetProperty(EFFECT_FLAG_DELAY) e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,code+300) e2:SetCountLimit(1,code+300)
if code==12066010 then
e2:SetCondition(Sr_skyland.spcon1)
elseif code==12066011 then
e2:SetCondition(Sr_skyland.spcon2)
elseif code==12066012 then
e2:SetCondition(Sr_skyland.spcon3)
end
e2:SetCondition(c.spcon) e2:SetCondition(c.spcon)
e2:SetTarget(Sr_skyland.sptg) e2:SetTarget(Sr_skyland.sptg)
e2:SetOperation(Sr_skyland.spop) e2:SetOperation(Sr_skyland.spop)
...@@ -75,6 +82,24 @@ function Sr_skyland.spellop(e,tp,eg,ep,ev,re,r,rp) ...@@ -75,6 +82,24 @@ function Sr_skyland.spellop(e,tp,eg,ep,ev,re,r,rp)
Duel.SendtoHand(tc,nil,REASON_EFFECT) Duel.SendtoHand(tc,nil,REASON_EFFECT)
end end
end end
function Sr_skyland.conffil1(c,tp)
return c:GetSummonPlayer()==tp and c:IsPreviousLocation(LOCATION_EXTRA) and c:IsRank(1)
end
function Sr_skyland.spcon1(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(Sr_skyland.conffil1,1,nil,tp)
end
function Sr_skyland.conffil2(c,tp)
return c:GetSummonPlayer()==tp and c:IsPreviousLocation(LOCATION_EXTRA) and c:IsLevel(1)
end
function Sr_skyland.spcon2(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(Sr_skyland.conffil2,1,nil,tp)
end
function Sr_skyland.conffil3(c,tp)
return c:GetSummonPlayer()==tp and c:IsPreviousLocation(LOCATION_EXTRA) and c:IsLink(1)
end
function Sr_skyland.spcon3(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(Sr_skyland.conffil3,1,nil,tp)
end
function Sr_skyland.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function Sr_skyland.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
...@@ -111,7 +136,7 @@ function Sr_skyland.commoneffect_spop(e,tp,eg,ep,ev,re,r,rp,c) ...@@ -111,7 +136,7 @@ function Sr_skyland.commoneffect_spop(e,tp,eg,ep,ev,re,r,rp,c)
if Duel.IsExistingMatchingCard(Sr_skyland.commoneffect_filter,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(Sr_skyland.exfilter,tp,LOCATION_MZONE,0,1,nil) then if Duel.IsExistingMatchingCard(Sr_skyland.commoneffect_filter,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(Sr_skyland.exfilter,tp,LOCATION_MZONE,0,1,nil) then
if Duel.SelectYesNo(tp,aux.Stringid(12066012,2)) then if Duel.SelectYesNo(tp,aux.Stringid(12066012,2)) then
local g=Duel.GetMatchingGroup(Sr_skyland.exfilter,tp,LOCATION_MZONE,0,nil) local g=Duel.GetMatchingGroup(Sr_skyland.exfilter,tp,LOCATION_MZONE,0,nil)
if #g>1 then if #g>0 then
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(12066012,3)) Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(12066012,3))
local tg=g:Select(tp,1,1,nil) local tg=g:Select(tp,1,1,nil)
tg:GetFirst():RemoveOverlayCard(tp,1,1,REASON_COST) tg:GetFirst():RemoveOverlayCard(tp,1,1,REASON_COST)
...@@ -131,7 +156,7 @@ function Sr_skyland.commoneffect_spop(e,tp,eg,ep,ev,re,r,rp,c) ...@@ -131,7 +156,7 @@ function Sr_skyland.commoneffect_spop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD) Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
elseif Duel.IsExistingMatchingCard(Sr_skyland.exfilter,tp,LOCATION_MZONE,0,1,nil) then elseif Duel.IsExistingMatchingCard(Sr_skyland.exfilter,tp,LOCATION_MZONE,0,1,nil) then
local g=Duel.GetMatchingGroup(Sr_skyland.exfilter,tp,LOCATION_MZONE,0,nil) local g=Duel.GetMatchingGroup(Sr_skyland.exfilter,tp,LOCATION_MZONE,0,nil)
if #g>1 then if #g>0 then
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(12066012,3)) Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(12066012,3))
local tg=g:Select(tp,1,1,nil) local tg=g:Select(tp,1,1,nil)
tg:GetFirst():RemoveOverlayCard(tp,1,1,REASON_COST) tg:GetFirst():RemoveOverlayCard(tp,1,1,REASON_COST)
......
...@@ -12,8 +12,8 @@ function c67200294.initial_effect(c) ...@@ -12,8 +12,8 @@ function c67200294.initial_effect(c)
c:RegisterEffect(e1) c:RegisterEffect(e1)
end end
function c67200294.cost(e,tp,eg,ep,ev,re,r,rp,chk) function c67200294.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,Card.IsSetCard,1,nil,0x674) end if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x674) end
local sg=Duel.SelectReleaseGroup(REASON_COST,tp,Card.IsSetCard,1,1,nil,0x674) local sg=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x674)
Duel.Release(sg,REASON_COST) Duel.Release(sg,REASON_COST)
end end
function c67200294.thfilter(c) function c67200294.thfilter(c)
......
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