Skip to content

Y
ygopro
Commit a7b24c19 authored by VanillaSalt's avatar VanillaSalt
Browse files
Options

Merge pull request #798 from salix5/patch 

fix
parents 51020f36 abda25c3
Hide whitespace changes
Inline Side-by-side
Showing with 39 additions and 21 deletions
script/c16404809.lua
View file @ a7b24c19
...@@ -32,6 +32,7 @@ function c16404809.cost(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -32,6 +32,7 @@ function c16404809.cost(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function c16404809.target(e,tp,eg,ep,ev,re,r,rp,chk) function c16404809.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=5 end if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=5 end
e:GetHandler():ResetNegateEffect(25789292,97268402)
end end
function c16404809.filter(c) function c16404809.filter(c)
return c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP) return c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP)
......
script/c51543904.lua
View file @ a7b24c19
...@@ -32,12 +32,17 @@ c51543904.xyz_number=99 ...@@ -32,12 +32,17 @@ c51543904.xyz_number=99
function c51543904.cfilter(c) function c51543904.cfilter(c)
return c:IsSetCard(0x95) and c:IsType(TYPE_SPELL) and c:IsDiscardable() return c:IsSetCard(0x95) and c:IsType(TYPE_SPELL) and c:IsDiscardable()
end end
function c51543904.cfilter2(c)
return c:GetFlagEffect(51543904)
end
function c51543904.ovfilter(c) function c51543904.ovfilter(c)
return c:IsFaceup() and c:IsSetCard(0x7f) return c:IsFaceup() and c:IsSetCard(0x7f)
and Duel.IsExistingMatchingCard(c51543904.cfilter,c:GetControler(),LOCATION_HAND,0,1,nil) and (Duel.IsExistingMatchingCard(c51543904.cfilter,c:GetControler(),LOCATION_HAND,0,1,nil)
or Duel.IsExistingMatchingCard(c51543904.cfilter2,c:GetControler(),LOCATION_EXTRA,0,1,nil))
end end
function c51543904.xyzop(c,tp) function c51543904.xyzop(e,tp)
Duel.DiscardHand(tp,c51543904.cfilter,1,1,REASON_COST+REASON_DISCARD) Duel.DiscardHand(tp,c51543904.cfilter,1,1,REASON_COST+REASON_DISCARD)
e:GetHandler():RegisterFlagEffect(51543904,RESET_EVENT+0x7ff0000,0,1)
end end
function c51543904.filter(c,e,tp) function c51543904.filter(c,e,tp)
return c:IsSetCard(0x48) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x48) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
......
script/c83755611.lua
View file @ a7b24c19
...@@ -3,36 +3,48 @@ function c83755611.initial_effect(c) ...@@ -3,36 +3,48 @@ function c83755611.initial_effect(c)
--synchro summon --synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_PHANTOMDRAGON),1) aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_PHANTOMDRAGON),1)
c:EnableReviveLimit() c:EnableReviveLimit()
--todeck --mat check
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(83755611,0)) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCategory(CATEGORY_TODECK) e1:SetCode(EFFECT_MATERIAL_CHECK)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetValue(c83755611.matcheck)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCondition(c83755611.tdcon)
e1:SetTarget(c83755611.tdtg)
e1:SetOperation(c83755611.tdop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--destroy --todeck
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(83755611,1)) e2:SetDescription(aux.Stringid(83755611,0))
e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) e2:SetCategory(CATEGORY_TODECK)
e2:SetType(EFFECT_TYPE_IGNITION) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetRange(LOCATION_MZONE) e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1) e2:SetCondition(c83755611.tdcon)
e2:SetTarget(c83755611.destg) e2:SetTarget(c83755611.tdtg)
e2:SetOperation(c83755611.desop) e2:SetOperation(c83755611.tdop)
e2:SetLabelObject(e1)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(83755611,1))
e3:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1)
e3:SetTarget(c83755611.destg)
e3:SetOperation(c83755611.desop)
c:RegisterEffect(e3)
end
function c83755611.matcheck(e,c)
local ct=c:GetMaterial():Filter(Card.IsRace,nil,RACE_PHANTOMDRAGON):GetClassCount(Card.GetOriginalAttribute)
e:SetLabel(ct)
end end
function c83755611.tdcon(e,tp,eg,ep,ev,re,r,rp) function c83755611.tdcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO
end end
function c83755611.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c83755611.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsAbleToDeck() end if chkc then return chkc:IsOnField() and chkc:IsAbleToDeck() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end local ct=e:GetLabelObject():GetLabel()
local ct=e:GetHandler():GetMaterial():Filter(Card.IsSetCard,nil,0x9e):GetClassCount(Card.GetOriginalAttribute) if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and ct>0 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil) local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
......
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