Skip to content

Y
ygopro-222DIY-cards
Commit cb67a2a6 authored by TanakaKotoha's avatar TanakaKotoha
Browse files
Options

sjb

parent 51b90cb7
Hide whitespace changes
Inline Side-by-side
Showing with 9 additions and 7 deletions
expansions/script/c16105022.lua
View file @ cb67a2a6
...@@ -4,6 +4,7 @@ local cm=_G["c"..m] ...@@ -4,6 +4,7 @@ local cm=_G["c"..m]
function cm.initial_effect(c) function cm.initial_effect(c)
--S summon --S summon
c:EnableReviveLimit() c:EnableReviveLimit()
aux.EnablePendulumAttribute(c,false)
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xcc3),aux.NonTuner(cm.synfilter),1) aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xcc3),aux.NonTuner(cm.synfilter),1)
-----P EFFECT -----P EFFECT
--imm --imm
...@@ -107,14 +108,14 @@ function cm.tdfilter(c) ...@@ -107,14 +108,14 @@ function cm.tdfilter(c)
return c:IsLevel(10) and c:IsAbleToHand() and c:IsFaceup() return c:IsLevel(10) and c:IsAbleToHand() and c:IsFaceup()
end end
function cm.spptarget(e,tp,eg,ep,ev,re,r,rp,chk) function cm.spptarget(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tdilter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and 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)
Duel.SetOperationInfo(0,CATEGORY_TODECK,0,0,tp,LOCATION_GRAVE) Duel.SetOperationInfo(0,CATEGORY_TODECK,0,0,tp,LOCATION_GRAVE)
end end
function cm.sppop(e,tp,eg,ep,ev,re,r,rp) function cm.sppop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local num=Duel.GetMatchingGroupCount(nil,tp,0,LOCATION_MZONE,nil) local num=Duel.GetMatchingGroupCount(nil,tp,0,LOCATION_MZONE,nil)
if not (c:IsRelateToEffect(e) and Duel.IsExistingMatchingCard(cm.tdilter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)) then return end if not (c:IsRelateToEffect(e) and Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local tc=Duel.SelectMatchingCard(tp,cm.tdfiter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,num,nil) local tc=Duel.SelectMatchingCard(tp,cm.tdfiter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,num,nil)
if tc:GetCount()>0 then if tc:GetCount()>0 then
......
expansions/script/c16105024.lua
View file @ cb67a2a6
...@@ -4,6 +4,7 @@ local cm=_G["c"..m] ...@@ -4,6 +4,7 @@ local cm=_G["c"..m]
function cm.initial_effect(c) function cm.initial_effect(c)
--S summon --S summon
c:EnableReviveLimit() c:EnableReviveLimit()
aux.EnablePendulumAttribute(c,false)
aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xcc3),4,true) aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xcc3),4,true)
-----P EFFECT -----P EFFECT
--imm --imm
...@@ -87,7 +88,7 @@ function cm.tdfilter(c) ...@@ -87,7 +88,7 @@ function cm.tdfilter(c)
return c:IsSetCard(0xcc3) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden() return c:IsSetCard(0xcc3) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
end end
function cm.spptarget(e,tp,eg,ep,ev,re,r,rp,chk) function cm.spptarget(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tdilter,tp,LOCATION_DECK,0,1,nil) and (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1)) and e:GetHandler():IsAbleToExtra() end if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_DECK,0,1,nil) and (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1)) and e:GetHandler():IsAbleToExtra() end
Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,tp,0) Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,tp,0)
end end
function cm.sppop(e,tp,eg,ep,ev,re,r,rp) function cm.sppop(e,tp,eg,ep,ev,re,r,rp)
...@@ -225,6 +226,5 @@ function cm.topop(e,tp,eg,ep,ev,re,r,rp) ...@@ -225,6 +226,5 @@ function cm.topop(e,tp,eg,ep,ev,re,r,rp)
if num~=g1:GetCount() then return false end if num~=g1:GetCount() then return false end
if Duel.SendtoHand(g1,nil,REASON_EFFECT)==num then if Duel.SendtoHand(g1,nil,REASON_EFFECT)==num then
Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_PZONE,POS_FACEUP,true) Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
e:GetHandler():SetStatus(STATUS_EFFECT_ENABLED,true)
end end
end end
\ No newline at end of file
expansions/script/c16105028.lua
View file @ cb67a2a6
...@@ -4,6 +4,7 @@ local cm=_G["c"..m] ...@@ -4,6 +4,7 @@ local cm=_G["c"..m]
function cm.initial_effect(c) function cm.initial_effect(c)
--S summon --S summon
c:EnableReviveLimit() c:EnableReviveLimit()
aux.EnablePendulumAttribute(c,false)
aux.AddXyzProcedureLevelFree(c,cm.mfilter,nil,3,3) aux.AddXyzProcedureLevelFree(c,cm.mfilter,nil,3,3)
-----P EFFECT -----P EFFECT
--imm --imm
...@@ -90,7 +91,7 @@ function cm.tdfilter(c,e,tp) ...@@ -90,7 +91,7 @@ function cm.tdfilter(c,e,tp)
return c:IsSetCard(0xcc3) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsType(TYPE_MONSTER) return c:IsSetCard(0xcc3) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsType(TYPE_MONSTER)
end end
function cm.spptarget(e,tp,eg,ep,ev,re,r,rp,chk) function cm.spptarget(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tdilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) and e:GetHandler():IsAbleToExtra() end if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) and e:GetHandler():IsAbleToExtra() end
Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,tp,0) Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,tp,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,0,1,tp,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,0,1,tp,0)
end end
...@@ -211,12 +212,12 @@ function cm.toptarget(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -211,12 +212,12 @@ function cm.toptarget(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
end end
function cm.topop(e,tp,eg,ep,ev,re,r,rp) function cm.topop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_PZONE,0,1,nil) or not e:GetHandler():IsFaceup() or not e:GetHandler():IsRelateToEffect(e) then return false end if not Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_PZONE,0,1,nil) or not e:GetHandler():IsFaceup() or not e:GetHandler():IsRelateToEffect(e) then return false end
local num=Duel.GetFieldGroupCount(tp,LOCATION_PZONE,0) local num=Duel.GetFieldGroupCount(tp,LOCATION_PZONE,0)
local g1=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_PZONE,0,nil) local g1=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_PZONE,0,nil)
if num~=g1:GetCount() then return false end if num~=g1:GetCount() then return false end
if Duel.SendtoHand(g1,nil,REASON_EFFECT)==num then if Duel.SendtoHand(g1,nil,REASON_EFFECT)==num then
Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_PZONE,POS_FACEUP,true) Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
e:GetHandler():SetStatus(STATUS_EFFECT_ENABLED,true)
end 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