Commit 343c27d3 authored by oilloillo's avatar oilloillo

cant say anything

parent ff5479d5
Pipeline #8435 passed with stage
in 44 seconds
--丰收与成熟的象征 --丰收与成熟的象征
function c999303.initial_effect(c) function c999303.initial_effect(c)
--syn summon --syn summon
aux.AddSynchroProcedure(c,nil,aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_PLANT),1),1) aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_PLANT),1)
c:EnableReviveLimit() c:EnableReviveLimit()
-- sp -- sp
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(999303,0)) e1:SetDescription(aux.Stringid(999303,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION) e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1) e1:SetCountLimit(1)
e1:SetLabel(0) e1:SetLabel(0)
e1:SetTarget(c999303.sptg) e1:SetTarget(c999303.sptg)
e1:SetOperation(c999303.spop) e1:SetOperation(c999303.spop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--Cost Change --Cost Change
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD) e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_LPCOST_CHANGE) e3:SetCode(EFFECT_LPCOST_CHANGE)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(1,0) e3:SetTargetRange(1,0)
e3:SetValue(c999303.costchange) e3:SetValue(c999303.costchange)
c:RegisterEffect(e3) c:RegisterEffect(e3)
--mat check --mat check
local e4=Effect.CreateEffect(c) local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE) e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_MATERIAL_CHECK) e4:SetCode(EFFECT_MATERIAL_CHECK)
e4:SetValue(c999303.valcheck) e4:SetValue(c999303.valcheck)
c:RegisterEffect(e4) c:RegisterEffect(e4)
e4:SetLabelObject(e1) e4:SetLabelObject(e1)
--synchro success --synchro success
local e5=Effect.CreateEffect(c) local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e5:SetCode(EVENT_SPSUMMON_SUCCESS) e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetCondition(c999303.regcon) e5:SetCondition(c999303.regcon)
e5:SetOperation(c999303.regop) e5:SetOperation(c999303.regop)
c:RegisterEffect(e5) c:RegisterEffect(e5)
e5:SetLabelObject(e4) e5:SetLabelObject(e4)
local e6=Effect.CreateEffect(c) local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e6:SetCode(EVENT_LEAVE_FIELD) e6:SetCode(EVENT_LEAVE_FIELD)
e6:SetOperation(c999303.checkop) e6:SetOperation(c999303.checkop)
c:RegisterEffect(e6) c:RegisterEffect(e6)
end end
c999303.DescSetName=0xa2 c999303.DescSetName=0xa2
function c999303.filter(c) function c999303.filter(c)
return c:IsRace(RACE_PLANT) return c:IsRace(RACE_PLANT)
end end
function c999303.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c999303.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local count = e:GetLabel() local count = e:GetLabel()
if chk==0 then return count>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=count if chk==0 then return count>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=count
and Duel.IsPlayerCanSpecialSummonMonster(tp,999300,0,0x4011,0,0,2,RACE_PLANT,ATTRIBUTE_EARTH) end and Duel.IsPlayerCanSpecialSummonMonster(tp,999300,0,0x4011,0,0,2,RACE_PLANT,ATTRIBUTE_EARTH) end
Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,count,0,0) Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,count,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,count,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,count,0,0)
end end
function c999303.spop(e,tp,eg,ep,ev,re,r,rp) function c999303.spop(e,tp,eg,ep,ev,re,r,rp)
local count = e:GetLabel() local count = e:GetLabel()
if count>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=count if count>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=count
and Duel.IsPlayerCanSpecialSummonMonster(tp,999300,0,0x4011,0,0,2,RACE_PLANT,ATTRIBUTE_EARTH) then and Duel.IsPlayerCanSpecialSummonMonster(tp,999300,0,0x4011,0,0,2,RACE_PLANT,ATTRIBUTE_EARTH) then
for i=1,count do for i=1,count do
local token=Duel.CreateToken(tp,999300) local token=Duel.CreateToken(tp,999300)
Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
end end
Duel.SpecialSummonComplete() Duel.SpecialSummonComplete()
end end
end end
function c999303.costchange(e,re,rp,val) function c999303.costchange(e,re,rp,val)
if re then if re then
local c=re:GetHandler() local c=re:GetHandler()
if not c then return val end if not c then return val end
local code=c:GetOriginalCode() local code=c:GetOriginalCode()
local mt=_G["c" .. code] local mt=_G["c" .. code]
if code ~= 999311 and mt and mt.DescSetName == 0xa2 then return 0 end if code ~= 999311 and mt and mt.DescSetName == 0xa2 then return 0 end
end end
return val return val
end end
function c999303.valcheck(e, c) function c999303.valcheck(e, c)
e:SetLabel(0) e:SetLabel(0)
local g = c:GetMaterial() local g = c:GetMaterial()
local count = 0 local count = 0
local tc = g:GetFirst() local tc = g:GetFirst()
while tc do while tc do
if tc:GetOriginalCode() == 999301 then if tc:GetOriginalCode() == 999301 then
e:SetLabel(e:GetLabel()+1) e:SetLabel(e:GetLabel()+1)
elseif tc:GetOriginalCode() == 999302 then elseif tc:GetOriginalCode() == 999302 then
e:SetLabel(e:GetLabel()+2) e:SetLabel(e:GetLabel()+2)
end end
if tc:IsRace(RACE_PLANT) and not tc:IsType(TYPE_TUNER) then count = count + 1 end if tc:IsRace(RACE_PLANT) and not tc:IsType(TYPE_TUNER) then count = count + 1 end
tc = g:GetNext() tc = g:GetNext()
end end
e:GetLabelObject():SetLabel(count) e:GetLabelObject():SetLabel(count)
end end
function c999303.regcon(e,tp,eg,ep,ev,re,r,rp) function c999303.regcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType() == SUMMON_TYPE_SYNCHRO return e:GetHandler():GetSummonType() == SUMMON_TYPE_SYNCHRO
and e:GetLabelObject():GetLabel() ~= 0 and e:GetLabelObject():GetLabel() ~= 0
end end
function c999303.regop(e,tp,eg,ep,ev,re,r,rp) function c999303.regop(e,tp,eg,ep,ev,re,r,rp)
local att = e:GetLabelObject():GetLabel() local att = e:GetLabelObject():GetLabel()
local c = e:GetHandler() local c = e:GetHandler()
if bit.band(att, 1) ~= 0 then if bit.band(att, 1) ~= 0 then
c:CopyEffect(999301, RESET_EVENT+0x1fe0000, 1) c:CopyEffect(999301, RESET_EVENT+0x1fe0000, 1)
end end
if bit.band(att, 2) ~= 0 then if bit.band(att, 2) ~= 0 then
c:CopyEffect(999302, RESET_EVENT+0x1fe0000, 1) c:CopyEffect(999302, RESET_EVENT+0x1fe0000, 1)
end end
e:SetLabel(0) e:SetLabel(0)
end end
function c999303.checkop(e,tp,eg,ep,ev,re,r,rp) function c999303.checkop(e,tp,eg,ep,ev,re,r,rp)
e:GetHandler():SetMaterial(Group.CreateGroup()) e:GetHandler():SetMaterial(Group.CreateGroup())
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