Skip to content

no81cards
no81cards
Commit 8b56ca1f authored by Nemo Ma's avatar Nemo Ma
Browse files
Options

fix+remove 竹子

parent cb411859
Hide whitespace changes
Inline Side-by-side
Showing with 28 additions and 2419 deletions
expansions/lflist.conf
View file @ 8b56ca1f
......@@ -367,6 +367,11 @@
30002065 0
30010000 0
30012000 0
#210627
33711601 0
10150030 1
33711501 1
60152611 1
#210620
14010150 0
64800043 0
......
expansions/no81.cdb
View file @ 8b56ca1f
No preview for this file type
expansions/script/c33400411.lua
View file @ 8b56ca1f
......@@ -24,7 +24,6 @@ function c33400411.initial_effect(c)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1)
e2:SetTarget(c33400411.matg)
e2:SetOperation(c33400411.maop)
......@@ -158,7 +157,7 @@ function c33400411.op3(e,tp,eg,ep,ev,re,r,rp)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(c33400411.eqlimit)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
tc:RegisterEffect(e1)
end
end
end
......@@ -177,7 +176,7 @@ function c33400411.cfilter1(c)
return c:IsSetCard(0x341)
end
function c33400411.matg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingTarget(c33400411.cfilter1,tp,LOCATION_GRAVE,0,1,nil) end
if chk==0 then return Duel.IsExistingMatchingCard(c33400411.cfilter1,tp,LOCATION_GRAVE,0,1,nil) end
end
function c33400411.maop(e,tp,eg,ep,ev,re,r,rp)
if not Duel.IsExistingTarget(c33400411.cfilter1,tp,LOCATION_GRAVE,0,1,nil) then return false end
......
expansions/script/c60000001.lua deleted 100644 → 0
View file @ cb411859
--不知名的竹子
function c60000001.initial_effect(c)
--disable
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000001,0))
e1:SetCategory(CATEGORY_DISABLE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c60000001.condition)
e1:SetCost(c60000001.cost)
e1:SetTarget(c60000001.target)
e1:SetOperation(c60000001.operation)
c:RegisterEffect(e1)
end
function c60000001.condition(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c60000001.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
end
function c60000001.filter(c)
return c:IsFaceup() and not c:IsDisabled() and c:IsType(TYPE_EFFECT)
end
function c60000001.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c60000001.filter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c60000001.filter,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectTarget(tp,c60000001.filter,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
end
function c60000001.operation(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_TO_HAND)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,1)
e1:SetTarget(aux.TargetBoolFunction(Card.IsLocation,LOCATION_DECK))
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_DRAW)
e2:SetReset(RESET_PHASE+PHASE_END)
e2:SetTargetRange(1,1)
Duel.RegisterEffect(e2,tp)
end
expansions/script/c60000002.lua deleted 100644 → 0
View file @ cb411859
--圣印坏兽 宇宙泰坦
function c60000002.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),6)
c:EnableReviveLimit()
--extra material
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
e1:SetRange(LOCATION_EXTRA)
e1:SetTargetRange(0,LOCATION_MZONE)
e1:SetValue(c60000002.matval)
c:RegisterEffect(e1)
end
function c60000002.matval(e,lc,mg,c,tp)
if e:GetHandler()~=lc then return false,nil end
return true,not mg or not mg:IsExists(Card.IsControler,100,nil,1-tp)
end
expansions/script/c60000003.lua deleted 100644 → 0
View file @ cb411859
--共和使 莉莉安·罗伊斯
local m=60000003
local cm=_G["c"..m]
function cm.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2)
c:EnableReviveLimit()
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000003,0))
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_MZONE)
e1:SetCost(c60000003.cost)
c:RegisterEffect(e1)
end
function c60000003.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,1000) end
Duel.PayLPCost(tp,1000)
end
expansions/script/c60000004.lua deleted 100644 → 0
View file @ cb411859
--不知名的墨竹
function c60000004.initial_effect(c)
--Inactivate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000004,0))
e1:SetCategory(CATEGORY_DISABLE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c60000004.discon)
e1:SetCost(c60000004.discost)
e1:SetTarget(c60000004.distg)
e1:SetOperation(c60000004.operation)
c:RegisterEffect(e1)
end
function c60000004.discon(e,tp,eg,ep,ev,re,r,rp)
local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
return ep~=tp and Duel.IsChainDisablable(ev) and loc==LOCATION_GRAVE
end
function c60000004.discost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
end
function c60000004.distg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return not re:GetHandler():IsStatus(STATUS_DISABLED) end
Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
end
function c60000004.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetTargetRange(0,1)
e1:SetValue(c60000004.aclimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
Duel.RegisterFlagEffect(tp,60000004,RESET_PHASE+PHASE_END,0,0)
end
expansions/script/c60000007.lua deleted 100644 → 0
View file @ cb411859
--电子界索引人
function c60000007.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,nil,3,2)
c:EnableReviveLimit()
--to grave
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000007,1))
e1:SetCategory(CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e1:SetCountLimit(1)
e1:SetCost(c60000007.tgcost)
e1:SetTarget(c60000007.tgtg)
e1:SetOperation(c60000007.tgop)
c:RegisterEffect(e1)
end
function c60000007.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
end
function c60000007.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():GetFlagEffect(60000007)==0
and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
end
function c60000007.tgop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c60000007.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
end
end
function c60000007.tgfilter(c)
return c:IsRace(RACE_CYBERSE) and c:IsAbleToGrave()
end
\ No newline at end of file
expansions/script/c60000101.lua deleted 100644 → 0
View file @ cb411859
--向全体机凯种致以最崇高的敬意
function c60000101.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCost(c60000101.cost)
e1:SetTarget(c60000101.target)
e1:SetOperation(c60000101.activate)
c:RegisterEffect(e1)
--Destroy
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,60000101)
e2:SetCost(c60000101.descost)
e2:SetTarget(c60000101.destg)
e2:SetOperation(c60000101.desop)
c:RegisterEffect(e2)
end
function c60000101.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
function c60000101.tgfilter(c)
return c:IsSetCard(0x6a19) and c:IsAbleToGrave()
end
function c60000101.target(e,tp,eg,ep,ev,re,r,rp,chk)
local g=Duel.GetMatchingGroup(c60000101.tgfilter,tp,LOCATION_DECK,0,nil)
if chk==0 then return g:GetCount()>0 end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),tp,LOCATION_DECK)
end
function c60000101.activate(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c60000101.tgfilter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
if Duel.IsExistingMatchingCard(c60000101.thfil,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(60000101,0)) then
sg=Duel.SelectMatchingCard(tp,c60000101.thfil,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
Duel.SendtoHand(sg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
end
end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetTargetRange(1,0)
e1:SetTarget(c60000101.splimit)
Duel.RegisterEffect(e1,tp)
end
function c60000101.splimit(e,c,sump,sumtype,sumpos,targetp,se)
return not c:IsSetCard(0x6a19)
end
function c60000101.descost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)
Duel.ConfirmCards(1-tp,g)
if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x6a19) then
e:SetLabel(1)
end
end
function c60000101.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,0)
end
function c60000101.desop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if e:GetLabel()==1 then
dg=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
Duel.Destroy(dg,REASON_EFFECT)
end
end
expansions/script/c60000102.lua deleted 100644 → 0
View file @ cb411859
--休比·多拉
function c60000102.initial_effect(c)
--to hand
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1,60000102)
e1:SetTarget(c60000102.thtg)
e1:SetOperation(c60000102.thop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,10000102)
e3:SetTarget(c60000102.sptg)
e3:SetOperation(c60000102.spop)
c:RegisterEffect(e3)
end
function c60000102.thfilter(c)
return c:IsAbleToHand() and (c:IsSetCard(0x6a19) or (c:IsAttribute(ATTRIBUTE_EARTH) and c:IsLevel(1)))
end
function c60000102.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000102.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c60000102.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c60000102.thfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c60000102.spfilter(c,e,tp)
return (c:IsAttribute(ATTRIBUTE_EARTH) and c:IsLevel(1)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c60000102.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingMatchingCard(c60000102.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,code) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
end
function c60000102.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c60000102.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
Duel.BreakEffect()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_ADD_TYPE)
e1:SetValue(TYPE_TUNER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
end
end
expansions/script/c60000103.lua deleted 100644 → 0
View file @ cb411859
--伪典·焉龙啸
function c60000103.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c60000103.actg)
e1:SetOperation(c60000103.acop)
c:RegisterEffect(e1)
--act in hand
--咕咕掉了
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_GRAVE)
e3:SetCountLimit(1,00000103)
e3:SetTarget(c60000103.xxtg)
e3:SetOperation(c60000103.xxop)
c:RegisterEffect(e3)
end
function c60000103.actg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_MZONE,1,nil) end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) and Duel.GetTurnPlayer()~=tp then
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,0,0,0,0)
Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,nil,Duel.GetMatchingGroupCount(nil,tp,0,LOCATION_MZONE,nil),0,0)
end
function c60000103.acop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
local tc=g:GetFirst()
while tc do
local ct=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(ct*-1000)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
tc=g:GetNext()
end
local dg=Duel.GetMatchingGroup(Card.IsAttack,tp,LOCATION_MZONE,LOCATION_MZONE,nil,0)
Duel.Destroy(dg,REASON_EFFECT)
end
function c60000103.xxtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.ConfirmCards(1-tp,Duel.GetFieldGroup(tp,LOCATION_DECK,0))
if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x6a19) then
e:SetLabel(1)
end
end
function c60000103.xxop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if e:GetLabel()==1 then
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetCode(EFFECT_CHANGE_TYPE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
c:RegisterEffect(e1)
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000103,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_ADD_SETCODE)
e1:SetRange(LOCATION_SZONE)
e1:SetTargetRange(LOCATION_ONFIELD+LOCATION_OVERLAY+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x6a19))
e1:SetValue(0x6a13)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000103,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_ADD_SETCODE)
e1:SetRange(LOCATION_SZONE)
e1:SetTargetRange(LOCATION_ONFIELD+LOCATION_OVERLAY+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x6a13))
e1:SetValue(0x6a19)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
end
expansions/script/c60000104.lua deleted 100644 → 0
View file @ cb411859
--伪典·天击
function c60000104.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c60000104.actg)
e1:SetOperation(c60000104.acop)
c:RegisterEffect(e1)
--act in hand
--咕咕掉了
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_GRAVE)
e3:SetCountLimit(1,00000104)
e3:SetTarget(c60000104.xxtg)
e3:SetOperation(c60000104.xxop)
c:RegisterEffect(e3)
end
function c60000104.actg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_ONFIELD)
end
function c60000104.acop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local sg=g:Select(tp,1,1,nil)
Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
end
function c60000104.xxtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.ConfirmCards(1-tp,Duel.GetFieldGroup(tp,LOCATION_DECK,0))
if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x6a19) then
e:SetLabel(1)
end
end
function c60000104.xxop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if e:GetLabel()==1 then
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetCode(EFFECT_CHANGE_TYPE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
c:RegisterEffect(e1)
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000104,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_ADD_SETCODE)
e1:SetRange(LOCATION_SZONE)
e1:SetTargetRange(LOCATION_ONFIELD+LOCATION_OVERLAY+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x6a19))
e1:SetValue(0x6a15)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000104,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_ADD_SETCODE)
e1:SetRange(LOCATION_SZONE)
e1:SetTargetRange(LOCATION_ONFIELD+LOCATION_OVERLAY+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x6a15))
e1:SetValue(0x6a19)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
end
expansions/script/c60000105.lua deleted 100644 → 0
View file @ cb411859
--伪典·天移
function c60000105.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_CONTROL)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCondition(c60000105.accon)
e1:SetTarget(c60000105.actg)
e1:SetOperation(c60000105.acop)
c:RegisterEffect(e1)
--act in hand
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
e2:SetCondition(c60000105.ahcon)
e2:SetCountLimit(1,60000105)
c:RegisterEffect(e2)
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_GRAVE)
e3:SetCountLimit(1,00000105)
e3:SetTarget(c60000105.xxtg)
e3:SetOperation(c60000105.xxop)
c:RegisterEffect(e3)
end
function c60000105.ahcon(e)
local tp=e:GetHandlerPlayer()
return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler())
end
function c60000105.cfilter(c)
return c:IsFacedown() or not c:IsSetCard(0x6a19)
end
function c60000105.accon(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsExistingMatchingCard(c60000105.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c60000105.actg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingTarget(nil,tp,0,LOCATION_MZONE,1,nil) end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) and Duel.GetTurnPlayer()~=tp then
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
local g1=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
local g2=Duel.SelectTarget(tp,nil,tp,0,LOCATION_MZONE,1,1,nil)
g1:Merge(g2)
Duel.SetTargetCard(g1)
end
function c60000105.acop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local tc=g:GetFirst()
while tc do
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000105,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e2)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
tc:RegisterEffect(e2)
tc=g:GetNext()
end
end
function c60000105.thfil1(c)
return (c:IsSetCard(0x6a31) or c:IsSetCard(0x6a32)) and c:IsAbleToHand()
end
function c60000105.xxtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000105.thfil1,tp,LOCATION_GRAVE,0,1,nil) end
Duel.ConfirmCards(1-tp,Duel.GetFieldGroup(tp,LOCATION_DECK,0))
if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x6a19)then
e:SetLabel(1)
end
end
function c60000105.xxop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if e:GetLabel()==1 and Duel.IsExistingMatchingCard(c60000105.thfil1,tp,LOCATION_GRAVE,0,1,nil) then
sg=Duel.SelectMatchingCard(tp,c60000105.thfil1,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.SendtoHand(sg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
end
end
expansions/script/c60000106.lua deleted 100644 → 0
View file @ cb411859
--Org.0000真典·杀星者
function c60000106.initial_effect(c)
--xyz summon
c:EnableReviveLimit()
--
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_EXTRA)
e1:SetValue(SUMMON_TYPE_XYZ)
e1:SetCondition(c60000106.sprcon)
e1:SetOperation(c60000106.sprop)
c:RegisterEffect(e1)
--to hand
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCost(c60000106.thcost)
e2:SetTarget(c60000106.thtg)
e2:SetOperation(c60000106.thop)
c:RegisterEffect(e2)
--actlimit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_ACTIVATE)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(0,1)
e2:SetValue(1)
e2:SetCondition(c60000106.actcon)
c:RegisterEffect(e2)
--actlimit
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_CHAINING)
e3:SetRange(LOCATION_MZONE)
e3:SetCondition(c60000106.actcon1)
e3:SetOperation(c60000106.actop)
c:RegisterEffect(e3)
end
function c60000106.sprfilter(c,tp,g,sc)
local lv=c:GetLevel()
return c:IsFaceup() and (lv==9 or (c:IsSetCard(0x6a31) or c:IsSetCard(0x6a32) or (c:IsType(TYPE_MONSTER) and c:IsSetCard(0x6a19)))) and (Duel.GetLocationCountFromEx(tp,tp,c)>0 or Duel.GetMZoneCount(tp,c)>0)
end
function c60000106.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsExistingMatchingCard(c60000106.sprfilter,tp,LOCATION_ONFIELD,0,5,nil)
end
function c60000106.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.GetMatchingGroup(c60000106.sprfilter,tp,LOCATION_ONFIELD,0,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local g1=g:Select(tp,5,5,nil)
e:GetHandler():SetMaterial(g1)
Duel.Overlay(e:GetHandler(),g1)
end
function c60000106.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
end
function c60000106.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,1-tp,LOCATION_ONFIELD)
end
function c60000106.ckfil(c)
return not c:IsSetCard(0x6a00)
end
function c60000106.thop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,nil)
if g:GetCount()<=0 then return end
local sg=g:Select(tp,1,1,nil)
Duel.SendtoHand(sg,nil,REASON_EFFECT)
if not c:GetOverlayGroup():IsExists(c60000106.ckfil,1,nil) then
Duel.BreakEffect()
--
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(1000)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e1)
end
end
function c60000106.actcon(e)
local ph=Duel.GetCurrentPhase()
return (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) and not e:GetHandler():GetOverlayGroup():IsExists(c60000106.ckfil,1,nil)
end
function c60000106.actcon1(e,tp,eg,ep,ev,re,r,rp)
return re:GetHandler()==e:GetHandler() and not e:GetHandler():GetOverlayGroup():IsExists(c60000106.ckfil,1,nil)
end
function c60000106.actop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,60000106)
Duel.SetChainLimit(c60000106.chainlm)
end
function c60000106.chainlm(e,rp,tp)
return tp==rp
end
expansions/script/c60000108.lua deleted 100644 → 0
View file @ cb411859
--伪典·森空摄
function c60000108.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_CONTROL)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c60000108.actg)
e1:SetOperation(c60000108.acop)
c:RegisterEffect(e1)
--act in hand
--咕咕掉了
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_GRAVE)
e3:SetCountLimit(1,00000108)
e3:SetTarget(c60000108.xxtg)
e3:SetOperation(c60000108.xxop)
c:RegisterEffect(e3)
end
function c60000108.actg(e,tp,eg,ep,ev,re,r,rp,chk)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end
if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) and Duel.GetTurnPlayer()~=tp then
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
end
function c60000108.acop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.GetControl(tc,tp,PHASE_END,1)
end
end
function c60000108.xxtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.ConfirmCards(1-tp,Duel.GetFieldGroup(tp,LOCATION_DECK,0))
if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x6a19) then
e:SetLabel(1)
end
end
function c60000108.xxop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if e:GetLabel()==1 then
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetCode(EFFECT_CHANGE_TYPE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
c:RegisterEffect(e1)
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000108,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_ADD_SETCODE)
e1:SetRange(LOCATION_SZONE)
e1:SetTargetRange(LOCATION_ONFIELD+LOCATION_OVERLAY+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x6a19))
e1:SetValue(0x6a16)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000108,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_ADD_SETCODE)
e1:SetRange(LOCATION_SZONE)
e1:SetTargetRange(LOCATION_ONFIELD+LOCATION_OVERLAY+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x6a16))
e1:SetValue(0x6a19)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
end
expansions/script/c60000112.lua deleted 100644 → 0
View file @ cb411859
--种族之棋·象 Ex-Machina
function c60000112.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c60000112.target)
e1:SetOperation(c60000112.activate)
c:RegisterEffect(e1)
--effect gain
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60000112,0))
e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_CHAINING)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e2:SetRange(LOCATION_MZONE)
e2:SetCondition(c60000112.negcon)
e2:SetCost(c60000112.negcost)
e2:SetTarget(c60000112.negtg)
e2:SetOperation(c60000112.negop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e3:SetRange(LOCATION_SZONE)
e3:SetTargetRange(LOCATION_MZONE,0)
e3:SetTarget(c60000112.eftg)
e3:SetLabelObject(e2)
c:RegisterEffect(e3)
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_GRAVE)
e3:SetCountLimit(1,00000112)
e3:SetTarget(c60000112.xxtg)
e3:SetOperation(c60000112.xxop)
c:RegisterEffect(e3)
end
function c60000112.thfilter(c)
return c:IsSetCard(0x6a19) and c:IsAbleToHand() and not c:IsCode(60000112)
end
function c60000112.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000112.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function c60000112.activate(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c60000112.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=g:Select(tp,1,1,nil)
Duel.SendtoHand(sg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
end
end
function c60000112.eftg(e,c)
return c:IsSetCard(0x6a19)
end
function c60000112.negcon(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and rp==1-tp
end
function c60000112.cfilter(c)
return c:IsSetCard(0x6a20) and c:IsReleasable() and not c:IsStatus(STATUS_BATTLE_DESTROYED)
end
function c60000112.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000112.cfilter,tp,LOCATION_ONFIELD,0,1,nil) end
local g=Duel.SelectMatchingCard(tp,c60000112.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c60000112.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
end
end
function c60000112.negop(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re)then
Duel.SendtoDeck(eg,nil,2,REASON_EFFECT)
end
end
function c60000112.xxtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.ConfirmCards(1-tp,Duel.GetFieldGroup(tp,LOCATION_DECK,0))
if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x6a19) then
e:SetLabel(1)
end
end
function c60000112.xxop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if e:GetLabel()==1 then
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
end
end
expansions/script/c60000113.lua deleted 100644 → 0
View file @ cb411859
--爱因兹希
function c60000113.initial_effect(c)
--SpecialSummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_GRAVE)
e1:SetCountLimit(1,60000113)
e1:SetCost(c60000113.spcost)
e1:SetTarget(c60000113.sptg)
e1:SetOperation(c60000113.spop)
c:RegisterEffect(e1)
end
function c60000113.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)
Duel.ConfirmCards(1-tp,g)
if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x6a19) then
e:SetLabel(1)
end
end
function c60000113.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_MZONE,0,1,nil,0x6a19) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c60000113.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if e:GetLabel()==1 and c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c60000116.lua deleted 100644 → 0
View file @ cb411859
--伊米露·爱因
function c60000116.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,99,c60000116.lcheck)
c:EnableReviveLimit()
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000116,0))
e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,60000116)
e1:SetTarget(c60000116.actg)
e1:SetOperation(c60000116.acop)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60000116,1))
e2:SetCategory(CATEGORY_REMOVE)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,10000116)
e2:SetTarget(c60000116.rmtg)
e2:SetOperation(c60000116.rmop)
c:RegisterEffect(e2)
end
function c60000116.lcheck(g)
return g:IsExists(Card.IsLinkSetCard,1,nil,0x6a19)
end
function c60000116.actg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingTarget(c60000116.ckfil,tp,LOCATION_GRAVE,0,1,nil) end
Duel.SelectTarget(tp,c60000116.ckfil,tp,LOCATION_GRAVE,0,1,1,nil)
end
function c60000116.acop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
Duel.SendtoDeck(tc,tp,2,REASON_EFFECT)
Duel.ShuffleDeck(tp)
if Duel.GetDecktopGroup(tp,1):GetFirst():IsCode(tc:GetCode()) then
Duel.Draw(tp,1,REASON_EFFECT)
--negate
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetCondition(c60000116.negcon)
e2:SetOperation(c60000116.negop)
Duel.RegisterEffect(e2,tp)
else
Duel.Draw(tp,1,REASON_EFFECT)
tc1=Duel.SelectMatchingCard(tp,Card.IsCode,tp,LOCATION_DECK,0,1,1,nil,tc:GetCode())
Duel.Remove(tc1,POS_FACEUP,REASON_EFFECT)
end
end
function c60000116.negcon(e,tp,eg,ep,ev,re,r,rp)
return re:IsActiveType(TYPE_MONSTER)
end
function c60000116.negop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,60000116)
local rc=re:GetHandler()
if Duel.SelectEffectYesNo(tp,e:GetHandler()) then
Duel.NegateEffect(ev)
e:Reset()
end
end
function c60000116.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
Duel.SetOperationInfo(0,CATEGORY_REMOVE,Duel.GetFieldGroup(tp,LOCATION_DECK,0),Duel.GetFieldGroupCount(tp,LOCATION_DECK,0),tp,LOCATION_DECK)
end
function c60000116.rmop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
g:KeepAlive()
--
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetCountLimit(1)
e1:SetLabelObject(g)
e1:SetOperation(c60000116.tdop)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local g1=g:Filter(Card.IsSetCard,nil,0x6a19)
g:Sub(g1)
local tc1=g:GetFirst()
while tc1 do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e1:SetTarget(c60000116.distg)
e1:SetLabelObject(tc1)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetCondition(c60000116.discon)
e2:SetOperation(c60000116.disop)
e2:SetLabelObject(tc1)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
tc1=g:GetNext()
end
end
function c60000116.tdop(e,tp,eg,ep,ev,re,r,rp)
local g=e:GetLabelObject()
Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
end
function c60000116.distg(e,c)
local tc=e:GetLabelObject()
return c:IsOriginalCodeRule(tc:GetOriginalCodeRule())
end
function c60000116.discon(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
return re:GetHandler():IsOriginalCodeRule(tc:GetOriginalCodeRule())
end
function c60000116.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateEffect(ev)
end
expansions/script/c60000117.lua deleted 100644 → 0
View file @ cb411859
--距离同步完成剩余251秒
function c60000117.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c60000117.target)
e1:SetOperation(c60000117.activate)
c:RegisterEffect(e1)
--SpecialSummon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,60000117)
e2:SetCost(c60000117.spcost)
e2:SetTarget(c60000117.sptg)
e2:SetOperation(c60000117.spop)
c:RegisterEffect(e2)
end
function c60000117.filter(c)
return c:IsSetCard(0x6a19) and c:IsAbleToHand()
end
function c60000117.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000117.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c60000117.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c60000117.filter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c60000117.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)
Duel.ConfirmCards(1-tp,g)
if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x6a19) then
e:SetLabel(1)
end
end
function c60000117.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c60000117.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if e:GetLabel()==1 then
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT)
end
end
expansions/script/c60001001.lua deleted 100644 → 0
View file @ cb411859
--星十二兽 天鼠
function c60001001.initial_effect(c)
--tograve送墓
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60001001,1))
e1:SetCategory(CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1,90001001)
e1:SetTarget(c60001001.tgtg)
e1:SetOperation(c60001001.tgop)
c:RegisterEffect(e1)
--tohand进墓检索
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60001001,1))
e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetCountLimit(1,60001001)
e2:SetCondition(c60001001.thcon)
e2:SetTarget(c60001001.thtg)
e2:SetOperation(c60001001.thop)
c:RegisterEffect(e2)
local e3=e1:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3)
end
function c60001001.tgfilter(c)
return c:IsSetCard(0xf1) and c:IsAbleToGrave()
end
function c60001001.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60001001.tgfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
end
function c60001001.tgop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c60001001.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
end
end
function c60001001.thcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
end
function c60001001.thfilter(c)
return c:IsSetCard(0xf1) and c:IsAbleToHand()
end
function c60001001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60001001.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c60001001.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c60001001.thfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
expansions/script/c60001002.lua deleted 100644 → 0
View file @ cb411859
--星十二兽的降临
function c60001002.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMING_END_PHASE)
e1:SetCondition(c60001002.condition)
e1:SetTarget(c60001002.target)
e1:SetOperation(c60001002.activate)
c:RegisterEffect(e1)
end
function c60001002.cfilter(c)
return c:GetSequence()<5
end
function c60001002.condition(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsExistingMatchingCard(c60001002.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c60001002.ssfilter(c)
return c:IsSetCard(0xf1) and c:IsAbleToGrave()
end
function c60001002.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c60001002.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c60001002.activate(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c60001002.ssfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c60001003.lua deleted 100644 → 0
View file @ cb411859
--空中连接 立空者
function c60001003.initial_effect(c)
--回路连接！
aux.AddLinkProcedure(c,nil,2,2,c60001003.lcheck)
c:EnableReviveLimit()
--攻击力上升
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c60001003.atkval)
c:RegisterEffect(e1)
--支付生命值
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1)
e3:SetOperation(c60001003.mtop)
c:RegisterEffect(e3)
end
function c60001003.mtop(e,tp,eg,ep,ev,re,r,rp)
if Duel.CheckLPCost(tp,600) then
Duel.PayLPCost(tp,600)
else
Duel.Destroy(e:GetHandler(),REASON_COST)
end
end
function c60001003.atkval(e,c)
return c:GetLinkedGroupCount()*1000
end
\ No newline at end of file
expansions/script/c60001004.lua deleted 100644 → 0
View file @ cb411859
--空中连接 观空者
function c60001004.initial_effect(c)
--回路连接！
aux.AddLinkProcedure(c,nil,2,2,c60001004.lcheck)
c:EnableReviveLimit()
--攻击力上升
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c60001004.atkval)
c:RegisterEffect(e1)
--支付生命值
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1)
e3:SetOperation(c60001004.mtop)
c:RegisterEffect(e3)
end
function c60001004.mtop(e,tp,eg,ep,ev,re,r,rp)
if Duel.CheckLPCost(tp,600) then
Duel.PayLPCost(tp,600)
else
Duel.Destroy(e:GetHandler(),REASON_COST)
end
end
function c60001004.atkval(e,c)
return c:GetLinkedGroupCount()*1000
end
\ No newline at end of file
expansions/script/c60001005.lua deleted 100644 → 0
View file @ cb411859
--空中连接 破空者
function c60001005.initial_effect(c)
--回路连接！
aux.AddLinkProcedure(c,nil,2,99,c60001005.lcheck)
c:EnableReviveLimit()
--攻击力上升
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c60001005.atkval)
c:RegisterEffect(e1)
--上抗性
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(LOCATION_MZONE,0)
e2:SetTarget(c60001005.indtg)
e2:SetValue(1)
c:RegisterEffect(e2)
--支付生命值
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1)
e3:SetOperation(c60001005.mtop)
c:RegisterEffect(e3)
end
function c60001005.mtop(e,tp,eg,ep,ev,re,r,rp)
if Duel.CheckLPCost(tp,1200) then
Duel.PayLPCost(tp,1200)
else
Duel.Destroy(e:GetHandler(),REASON_COST)
end
end
function c60001005.atkval(e,c)
return c:GetLinkedGroupCount()*1000
end
function c60001005.indtg(e,c)
return c:GetMutualLinkedGroupCount()>0
end
\ No newline at end of file
expansions/script/c60001006.lua deleted 100644 → 0
View file @ cb411859
--空中连接 凝空者
function c60001006.initial_effect(c)
--回路连接！
aux.AddLinkProcedure(c,nil,2,99,c60001006.lcheck)
c:EnableReviveLimit()
--攻击力上升
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c60001006.atkval)
c:RegisterEffect(e1)
--上抗性
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(LOCATION_MZONE,0)
e2:SetTarget(c60001006.indtg)
e2:SetValue(1)
c:RegisterEffect(e2)
--支付生命值
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1)
e3:SetOperation(c60001006.mtop)
c:RegisterEffect(e3)
end
function c60001006.mtop(e,tp,eg,ep,ev,re,r,rp)
if Duel.CheckLPCost(tp,1200) then
Duel.PayLPCost(tp,1200)
else
Duel.Destroy(e:GetHandler(),REASON_COST)
end
end
function c60001006.atkval(e,c)
return c:GetLinkedGroupCount()*1000
end
function c60001006.indtg(e,c)
return c:GetMutualLinkedGroupCount()>0
end
\ No newline at end of file
expansions/script/c60001007.lua deleted 100644 → 0
View file @ cb411859
--空中连接 环空者
function c60001007.initial_effect(c)
--回路连接！
aux.AddLinkProcedure(c,nil,2,99,c60001007.lcheck)
c:EnableReviveLimit()
--攻击力上升
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c60001007.atkval)
c:RegisterEffect(e1)
end
function c60001007.atkval(e,c)
return c:GetLinkedGroupCount()*1000
end
\ No newline at end of file
expansions/script/c60001008.lua deleted 100644 → 0
View file @ cb411859
--空中连接 侍空者
function c60001008.initial_effect(c)
--回路连接！
aux.AddLinkProcedure(c,nil,2,99,c60001008.lcheck)
c:EnableReviveLimit()
--攻击力上升
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c60001008.atkval)
c:RegisterEffect(e1)
end
function c60001008.atkval(e,c)
return c:GetLinkedGroupCount()*1000
end
\ No newline at end of file
expansions/script/c60001010.lua deleted 100644 → 0
View file @ cb411859
--リンクロス
function c60001010.initial_effect(c)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,c60001010.mfilter,1)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60001010,0))
e1:SetCategory(CATEGORY_TOKEN+CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(1,60001010)
e1:SetCondition(c60001010.tkcon)
e1:SetTarget(c60001010.tktg)
e1:SetOperation(c60001010.tkop)
c:RegisterEffect(e1)
end
function c60001010.mfilter(c)
return c:IsLinkType(TYPE_LINK) and c:GetLink()>=2
end
function c60001010.tkcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
end
function c60001010.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
local mg=e:GetHandler():GetMaterial()
if mg:GetCount()~=1 then return false end
if chk==0 then return mg:IsExists(Card.IsType,1,nil,TYPE_LINK) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,48068379,0,TYPES_TOKEN_MONSTER,0,0,1,RACE_CYBERSE,ATTRIBUTE_LIGHT) end
e:SetLabel(mg:GetFirst():GetLink())
Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
end
function c60001010.tkop(e,tp,eg,ep,ev,re,r,rp)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local ct=e:GetLabel()
if ft>0 and ct>0 and Duel.IsPlayerCanSpecialSummonMonster(tp,48068379,0,TYPES_TOKEN_MONSTER,0,0,1,RACE_CYBERSE,ATTRIBUTE_LIGHT) then
local count=math.min(ft,ct)
if Duel.IsPlayerAffectedByEffect(tp,59822133) then count=1 end
if count>1 then
local num={}
local i=1
while i<=count do
num[i]=i
i=i+1
end
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(60001010,1))
count=Duel.AnnounceNumber(tp,table.unpack(num))
end
repeat
local token=Duel.CreateToken(tp,85243785)
Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
count=0
until count==0
Duel.SpecialSummonComplete()
end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetTargetRange(0xff,0xff)
e1:SetTarget(aux.TargetBoolFunction(Card.IsCode,48068379))
e1:SetValue(c60001010.lklimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function c60001010.lklimit(e,c)
if not c then return false end
return c:IsControler(e:GetHandlerPlayer())
end
expansions/script/c60002001.lua deleted 100644 → 0
View file @ cb411859
--是一只路过的竹子
function c60002001.initial_effect(c)
--to hand
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,60002001)
e1:SetCost(c60002001.thcost)
e1:SetTarget(c60002001.thtg)
e1:SetOperation(c60002001.thop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--to hand and to deck
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_TOHAND+CATEGORY_TODECK)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,00002001)
e3:SetCost(c60002001.ttcost)
e3:SetTarget(c60002001.tttg)
e3:SetOperation(c60002001.ttop)
c:RegisterEffect(e3)
end
function c60002001.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SelectOption(tp,aux.Stringid(60002001,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002001,0))
end
function c60002001.thfil(c)
return c:IsSetCard(0x623) and c:IsAbleToHand()
end
function c60002001.spfil(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCode(98818516)
end
function c60002001.cfilter(c)
return c:IsFacedown() or not c:IsRace(RACE_PLANT)
end
function c60002001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
local b1=Duel.IsExistingMatchingCard(c60002001.thfil,tp,LOCATION_DECK,0,1,nil)
local b2=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 and not Duel.IsExistingMatchingCard(c60002001.cfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(c60002001.spfil,tp,LOCATION_DECK,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
if chk==0 then return b1 or b2 end
e:SetLabel(0)
if b1 and b2 then
if Duel.SelectYesNo(tp,aux.Stringid(60002001,1)) then
e:SetLabel(1)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
elseif b1 then
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
elseif b2 then
e:SetLabel(1)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
end
function c60002001.thop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local op=e:GetLabel()
if op==0 then
local g=Duel.GetMatchingGroup(c60002001.thfil,tp,LOCATION_DECK,0,nil)
if g:GetCount()<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=g:Select(tp,1,1,nil)
Duel.SendtoHand(sg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
else
local g=Duel.GetMatchingGroup(c60002001.spfil,tp,LOCATION_DECK,0,nil,e,tp)
if g:GetCount()<=0 or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
end
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetTargetRange(1,0)
e2:SetTarget(c60002001.splimit)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
end
function c60002001.splimit(e,c)
return not c:IsAttribute(ATTRIBUTE_EARTH)
end
function c60002001.ttcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SelectOption(tp,aux.Stringid(60002001,2))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002001,2))
end
function c60002001.tttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c60002001.ttop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_DECK,0,nil)
if g:GetCount()<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=g:Select(tp,1,1,nil)
Duel.SendtoHand(sg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
Duel.BreakEffect()
if sg:GetFirst():IsSetCard(0x623) and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,sg:GetFirst()) and Duel.SelectYesNo(tp,aux.Stringid(60002001,3)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local dg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,1,sg:GetFirst())
Duel.SendtoDeck(dg,tp,2,REASON_EFFECT)
else
Duel.SendtoDeck(sg,tp,2,REASON_EFFECT)
end
end
expansions/script/c60002002.lua deleted 100644 → 0
View file @ cb411859
--喜欢恰糕点的竹子
function c60002002.initial_effect(c)
--Recover
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_RECOVER)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c60002002.rccon)
e1:SetCost(c60002002.rccost)
e1:SetTarget(c60002002.rctg)
e1:SetOperation(c60002002.rcop)
c:RegisterEffect(e1)
--to hand and to deck
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND+CATEGORY_TODECK)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_GRAVE)
e2:SetCost(c60002002.ttcost)
e2:SetTarget(c60002002.tttg)
e2:SetOperation(c60002002.ttop)
c:RegisterEffect(e2)
end
function c60002002.cfilter1(c)
return not c:IsRace(RACE_PLANT) and not c:IsRace(RACE_BEAST)
end
function c60002002.rccon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 and not Duel.IsExistingMatchingCard(Card.IsFacedown,tp,LOCATION_MZONE,0,1,nil) and not Duel.IsExistingMatchingCard(c60002002.cfilter1,tp,LOCATION_MZONE,0,1,nil)
end
function c60002002.rccost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
Duel.SelectOption(tp,aux.Stringid(60002002,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002002,0))
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
end
function c60002002.rctg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(6230130)
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,6230130)
end
function c60002002.rcop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Recover(p,d,REASON_EFFECT)
Duel.BreakEffect()
Duel.SetLP(tp,Duel.GetLP(tp)-6298763)
end
function c60002002.ctfil(c)
return c:IsAbleToRemoveAsCost() and c:IsCode(98818516)
end
function c60002002.ttcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(c60002002.ctfil,tp,LOCATION_GRAVE,0,1,nil) end
Duel.SelectOption(tp,aux.Stringid(60002002,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002002,0))
local g=Duel.SelectMatchingCard(tp,c60002002.ctfil,tp,LOCATION_GRAVE,0,1,1,nil)
g:AddCard(e:GetHandler())
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c60002002.thfil(c)
return c:IsAbleToHand() and c:IsType(TYPE_SPELL) and c:IsSetCard(0x623)
end
function c60002002.tttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60002002.thfil,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c60002002.ttop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c60002002.thfil,tp,LOCATION_DECK,0,nil)
if g:GetCount()<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=g:Select(tp,1,1,nil)
Duel.SendtoHand(sg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
Duel.BreakEffect()
local dg=Duel.SelectMatchingCard(Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,nil)
Duel.SendtoDeck(dg,tp,2,REASON_EFFECT)
end
expansions/script/c60002003.lua deleted 100644 → 0
View file @ cb411859
--有一点害羞的竹子
function c60002003.initial_effect(c)
--SpecialSummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_BE_MATERIAL)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,60002003)
e1:SetCondition(c60002003.spcon)
e1:SetCost(c60002003.spcost)
e1:SetTarget(c60002003.sptg)
e1:SetOperation(c60002003.spop)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60002003,1))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,10002003)
e2:SetCondition(c60002003.sccon)
e2:SetCost(c60002003.sccost)
e2:SetTarget(c60002003.sctarg)
e2:SetOperation(c60002003.scop)
c:RegisterEffect(e2)
--link summon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60002003,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,60002003)
e1:SetCondition(c60002003.lkcon)
e1:SetTarget(c60002003.lktg)
e1:SetOperation(c60002003.lkop)
c:RegisterEffect(e1)
end
function c60002003.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsLocation(LOCATION_GRAVE) and r==REASON_LINK
end
function c60002003.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SelectOption(tp,aux.Stringid(60002003,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002003,0))
end
function c60002003.spfil(c,e,tp)
return c:IsSetCard(0x623) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
end
function c60002003.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c60002003.spfil,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c60002003.xspfil(c,e,tp)
return c:IsCode(98818516) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c60002003.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c60002003.spfil,tp,LOCATION_DECK,0,nil,e,tp)
if g:GetCount()<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
Duel.SpecialSummon(sg,0,tp,1-tp,false,false,POS_FACEUP)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.BreakEffect()
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 and not Duel.IsExistingMatchingCard(Card.IsFacedown,tp,LOCATION_MZONE,0,1,nil) and not Duel.IsExistingMatchingCard(c60002003.cfilter1,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(c60002003.xspfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(60002003,2)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local dg=Duel.SelectMatchingCard(tp,c60002003.xspfil,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SpecialSummon(dg,0,tp,tp,false,false,POS_FACEUP)
end
end
function c60002003.sccon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2)
end
function c60002003.sccost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SelectOption(tp,aux.Stringid(60002003,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002003,0))
end
function c60002003.syrfil(c,e,tp)
return c:IsSynchroSummonable(e:GetHandler()) and c:IsAttribute(ATTRIBUTE_EARTH)
end
function c60002003.sctarg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.IsExistingMatchingCard(c60002003.syrfil,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c60002003.scop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsControler(1-tp) or not c:IsRelateToEffect(e) or c:IsFacedown() then return end
local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
Duel.SynchroSummon(tp,sg:GetFirst(),c)
end
end
function c60002003.lkcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2)
end
function c60002003.lkfil(c,e,tp)
return c:IsLinkSummonable(nil,e:GetHandler()) and c:IsAttribute(ATTRIBUTE_EARTH)
end
function c60002003.lktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60002003.lkfil,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c60002003.lkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsControler(1-tp) or not c:IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c60002003.lkfil,tp,LOCATION_EXTRA,0,nil,e,tp)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
Duel.LinkSummon(tp,sg:GetFirst(),nil,c)
end
end
expansions/script/c60002004.lua deleted 100644 → 0
View file @ cb411859
--爱吃小竹子的熊猫
function c60002004.initial_effect(c)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,c60002004.matfilter,1,1)
--code
aux.EnableChangeCode(c,98818516,LOCATION_MZONE+LOCATION_GRAVE)
--SpecialSummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,60002004)
e1:SetCost(c60002004.spcost)
e1:SetTarget(c60002004.sptg)
e1:SetOperation(c60002004.spop)
--immunity
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60303245,0))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetTarget(c60002004.immtg)
e2:SetOperation(c60002004.immop)
c:RegisterEffect(e2)
end
function c60002004.matfilter(c)
return c:IsCode(98818516) and not c:IsType(TYPE_LINK)
end
function c60002004.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SelectOption(tp,aux.Stringid(60002004,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002004,0))
end
function c60002004.spfil(c,e,tp)
return c:IsCode(98818516) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c60002004.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60002004.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
end
function c60002004.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetTargetRange(1,0)
e2:SetTarget(c60002004.splimit)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
local g=Duel.GetMatchingGroup(c60002004.spfil,tp,LOCATION_GRAVE,0,nil,e,tp)
if g:GetCount()<=0 or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
end
function c60002004.splimit(e,c)
return not c:IsAttribute(ATTRIBUTE_EARTH)
end
function c60002004.immtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK) and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,0,1,1,nil)
end
function c60002004.immop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e1:SetValue(aux.indoval)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(300)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e2)
end
end
expansions/script/c60002005.lua deleted 100644 → 0
View file @ cb411859
--竹子 临冰的决意
function c60002005.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3,99,c60002005.lcheck)
c:EnableReviveLimit()
--immuse
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetCondition(c60002005.econ)
e1:SetValue(c60002005.efilter)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,60002005)
e2:SetCost(c60002005.cncost)
e2:SetTarget(c60002005.cntg)
e2:SetOperation(c60002005.cnop)
c:RegisterEffect(e2)
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,10002005)
e3:SetCost(c60002005.cxcost)
e3:SetTarget(c60002005.cxtg)
e3:SetOperation(c60002005.cxop)
c:RegisterEffect(e3)
end
function c60002005.lcheck(g)
return g:IsExists(Card.IsLinkRace,1,nil,RACE_PLANT)
end
function c60002005.econ(e)
return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
end
function c60002005.efilter(e,re)
return e:GetHandlerPlayer()~=re:GetOwnerPlayer()
end
function c60002005.cncost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SelectOption(tp,aux.Stringid(60002005,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002005,0))
end
function c60002005.cntg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
end
function c60002005.cnop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
--
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetTargetRange(1,1)
e1:SetValue(c60002005.actfilter)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function c60002005.actfilter(e,c)
return not c:IsLevelAbove(1)
end
function c60002005.cxcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SelectOption(tp,aux.Stringid(60002005,1))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002005,1))
end
function c60002005.cxtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingTarget(Card.IsLevelAbove,tp,LOCATION_MZONE,0,1,nil,1) and Duel.IsExistingTarget(Card.IsLevelAbove,tp,0,LOCATION_MZONE,1,nil,1) end
local tc1=Duel.SelectTarget(tp,Card.IsLevelAbove,tp,LOCATION_MZONE,0,1,1,nil,1)
local tc2=Duel.SelectTarget(tp,Card.IsLevelAbove,tp,0,LOCATION_MZONE,1,1,nil,1)
local g=Group.FromCards(tc1,tc2)
Duel.SetTargetCard(g)
end
function c60002005.cxop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local tc=g:GetFirst()
while tc do
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetCondition(c60002005.discon)
e2:SetOperation(c60002005.disop)
e2:SetLabelObject(tc)
Duel.RegisterEffect(e2,tp)
tc=g:GetNext()
end
end
function c60002005.discon(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
return re:GetHandler():IsCode(tc:GetOriginalCodeRule())
end
function c60002005.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,60002005)
Duel.ChangeChainOperation(ev,c60002005.repop)
end
function c60002005.repop(e,tp,eg,ep,ev,re,r,rp)
end
expansions/script/c60002006.lua deleted 100644 → 0
View file @ cb411859
--竹子 无声的画卷
function c60002006.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,60002007+EFFECT_COUNT_CODE_OATH)
c:RegisterEffect(e1)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetRange(LOCATION_SZONE)
e1:SetCountLimit(1)
e1:SetCost(c60002006.accost)
e1:SetTarget(c60002006.actg)
e1:SetOperation(c60002006.acop)
c:RegisterEffect(e1)
--SpecialSummon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_GRAVE)
e2:SetCost(c60002006.spcost)
e2:SetTarget(c60002006.sptg)
e2:SetOperation(c60002006.spop)
c:RegisterEffect(e2)
end
function c60002006.tgfil(c)
return c:IsCode(98818516) and c:IsAbleToGrave()
end
function c60002006.accost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SelectOption(tp,aux.Stringid(60002006,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002006,0))
end
function c60002006.actg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingTarget(Card.IsSetCard,tp,LOCATION_MZONE,0,1,nil,0x623) and Duel.IsExistingMatchingCard(c60002006.thfil,tp,LOCATION_DECK,0,1,nil) end
local tc=Duel.SelectTarget(tp,Card.IsSetCard,tp,LOCATION_MZONE,0,1,1,nil,0x623)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
end
function c60002006.thfil(c,code)
return c:IsAbleToHand() and c:IsSetCard(0x623) and not c:IsCode(code)
end
function c60002006.acop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
local g=Duel.GetMatchingGroup(c60002006.tgfil,tp,LOCATION_DECK,0,1,nil)
if g:GetCount()<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local sg=g:Select(tp,1,1,nil)
Duel.SendtoGrave(sg,REASON_EFFECT)
local code=sg:GetFirst():GetCode()
if Duel.IsExistingMatchingCard(c60002006.thfil,tp,LOCATION_DECK,0,1,nil,code) and Duel.SelectYesNo(tp,aux.Stringid(60002006,2)) then
local dg=Duel.SelectMatchingCard(tp,c60002006.thfil,tp,LOCATION_DECK,0,1,1,nil,code)
Duel.SendtoHand(dg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,dg)
end
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetTargetRange(1,0)
e2:SetTarget(c60002006.splimit)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
end
function c60002006.splimit(e,c)
return not c:IsAttribute(ATTRIBUTE_EARTH)
end
function c60002006.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
Duel.SelectOption(tp,aux.Stringid(60002006,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002006,0))
Duel.SendtoDeck(e:GetHandler(),nil,REASON_COST)
end
function c60002006.spfil(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCode(98818516)
end
function c60002006.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60002006.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
end
function c60002006.spop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c60002006.spfil,tp,LOCATION_GRAVE,0,nil,e,tp)
if g:GetCount()<=0 or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
if Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
sg:GetFirst():RegisterEffect(e1)
end
end
expansions/script/c60002007.lua deleted 100644 → 0
View file @ cb411859
--竹子 画上句号
function c60002007.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,60002007+EFFECT_COUNT_CODE_OATH)
c:RegisterEffect(e1)
--SpecialSummon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60002007,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_SZONE)
e1:SetCost(c60002007.spcost)
e1:SetTarget(c60002007.sptg)
e1:SetOperation(c60002007.spop)
c:RegisterEffect(e1)
--SpecialSummon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_GRAVE)
e2:SetCost(c60002007.spcost1)
e2:SetTarget(c60002007.sptg1)
e2:SetOperation(c60002007.spop1)
c:RegisterEffect(e2)
end
function c60002007.spcost(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.SelectOption(tp,aux.Stringid(60002007,0))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002007,0))
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST,nil)
end
function c60002007.spfilter(c,e,tp)
return c:IsSetCard(0xa903) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c60002007.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c60002007.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c60002007.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c60002007.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetTargetRange(1,0)
e2:SetTarget(c60002007.splimit)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
end
function c60002007.splimit(e,c)
return not c:IsAttribute(ATTRIBUTE_EARTH)
end
function c60002007.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
Duel.SelectOption(tp,aux.Stringid(60002007,1))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002007,1))
Duel.SendtoDeck(e:GetHandler(),nil,REASON_COST)
end
function c60002007.spfil1(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0x623)
end
function c60002007.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60002007.spfil1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
end
function c60002007.spop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c60002007.spfil1,tp,LOCATION_GRAVE,0,nil,e,tp)
if g:GetCount()<=0 or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
if Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) then
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60002007,2))
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_BE_MATERIAL)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY+EFFECT_FLAG_CLIENT_HINT)
e1:SetCondition(c60002007.thcon)
e1:SetTarget(c60002007.thtg)
e1:SetOperation(c60002007.thop)
tc:RegisterEffect(e1)
end
end
function c60002007.thfil(c)
return c:IsSetCard(0x623) and c:IsAbleToHand()
end
function c60002007.thcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsLocation(LOCATION_GRAVE) and r==REASON_LINK
end
function c60002007.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60002007.thfil,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,tp,LOCATION_DECK)
end
function c60002007.thop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c60002007.thfil,tp,LOCATION_DECK,0,nil)
if g:GetCount()<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=g:Select(tp,1,1,nil)
Duel.SendtoHand(sg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
end
expansions/script/c60002008.lua deleted 100644 → 0
View file @ cb411859
--正展露本我的竹子
function c60002008.initial_effect(c)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,c60002008.matfilter,2,2)
--th
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(1,60002008)
e1:SetTarget(c60002008.thtg)
e1:SetOperation(c60002008.thop)
c:RegisterEffect(e1)
--SpecialSummon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,60002008)
e2:SetCost(c60002008.spcost)
e2:SetTarget(c60002008.sptg)
e2:SetOperation(c60002008.spop)
c:RegisterEffect(e2)
end
function c60002008.matfilter(c)
return c:IsLinkRace(RACE_PLANT) or c:IsLinkRace(RACE_CYBERSE)
end
function c60002008.thfil(c)
return c:IsAbleToHand() and c:IsSetCard(0xa9e1)
end
function c60002008.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60002008.thfil,tp,LOCATION_DECK,0,1,nil) and e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,tp,LOCATION_DECK)
end
function c60002008.thop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c60002008.thfil,tp,LOCATION_DECK,0,nil)
if g:GetCount()<=0 then return end
local tc=g:Select(tp,1,1,nil):GetFirst()
Duel.SendtoHand(tc,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
if (tc:IsSummonable(true,nil) or tc:IsMSetable(true,nil)) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(60002008,2)) then
local s1=tc:IsSummonable(true,nil)
local s2=tc:IsMSetable(true,nil)
if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then
Duel.Summon(tp,tc,true,nil)
else
Duel.MSet(tp,tc,true,nil)
end
end
local fid=e:GetHandler():GetFieldID()
tc:RegisterFlagEffect(60002008,RESET_EVENT+RESETS_STANDARD,0,1,fid)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetCountLimit(1)
e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetLabel(fid)
e1:SetLabelObject(tc)
e1:SetCondition(c60002008.descon)
e1:SetOperation(c60002008.desop)
Duel.RegisterEffect(e1,tp)
end
function c60002008.descon(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
if tc:GetFlagEffectLabel(60002008)~=e:GetLabel() then
e:Reset()
return false
else return true end
end
function c60002008.desop(e,tp,eg,ep,ev,re,r,rp)
Duel.SendtoHand(e:GetLabelObject(),nil,REASON_EFFECT)
end
function c60002008.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SelectOption(tp,aux.Stringid(60002008,1))
Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(60002008,1))
end
function c60002008.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>1
and Duel.IsPlayerCanSpecialSummonMonster(tp,28062326,0,0x4011,800,500,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE,tp) end
Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0)
end
function c60002008.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetTargetRange(1,0)
e2:SetTarget(c60002008.splimit)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
if Duel.GetLocationCount(1-tp,LOCATION_MZONE)<2 then return end
if not Duel.IsPlayerCanSpecialSummonMonster(tp,28062326,0,0x4011,800,500,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP,tp) then return end
for i=1,2 do
local token=Duel.CreateToken(tp,28062326)
Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
end
Duel.SpecialSummonComplete()
end
function c60002008.splimit(e,c)
return not c:IsAttribute(ATTRIBUTE_EARTH)
end
expansions/strings.conf
View file @ 8b56ca1f
......@@ -273,6 +273,7 @@
!setname 0x5951 虹彩偶像
!setname 0x6951 创生
!setname 0x9951 月神
!setname 0xa951 千恋
!counter 0x1951 星辉指示物
#篁楠 10 0x200-0x20f
......@@ -534,10 +535,15 @@
!setname 0x9f38 RK
!setname 0xf3a Silreticenty(缄默城)
!setname 0xf3b Deobra(恶虺)
!setname 0x5f3c Divicale(神之鳞)
!counter 0xf3 陨星指示物
!counter 0x1f35 龙鳞指示物
#地狱犬 314&907
#地狱犬 SEINE 314&907
!victory 0x60 「时计塔」效果胜利
!setname 0x5311 时计塔 時計（とけい）塔（とう）
!setname 0x6311 异界兽
!setname 0x9311 死棱黑镜
!setname 0xc311 本我 本我（イト）
!setname 0x3312 隐喻 メタフォル
!setname 0x5312 炎龙机 炎（えん）龍（りゅう）機（き）
......@@ -569,13 +575,16 @@
!counter 0xca13 鲨鱼指示物
!setname 0x7fa 假面骑士
#洛基卡奥斯 670489248 107 0xa00-0xa0f
#洛基卡奥斯 Dr.Chaos 670489248 107 0xa00-0xa0f
!setname 0x3a01 姬绊连结
!setname 0x3a02 夏日连结
!setname 0x3a03 美食连结
!setname 0x3a05 墨丘利连结
!setname 0xb02 寂日谈
!setname 0x7c3 传承之物
!setname 0x7ca 旧世迷庙
!setname 0x7cb 孽驱
!setname 0x7cc 刹那芳华
!setname 0xf1a3 奇术师
!setname 0x3911 炼金兽
!setname 0x415c 迷乱妖姊
......@@ -687,24 +696,6 @@
!setname 0x637 Lumen Sages 流明贤者
!setname 0x638 The Four Cardinal Virtues 四元德
#???
!setname 0x926 机巧人偶|非「机巧」 マシンドール
!setname 0x1925 人偶使 人形使い
!setname 0x1927 机巧魔术|非「机巧」
!setname 0x930 舰队装姬 Kantai Collection
!setname 0x940 深瞳明星 EyeDrops
!setname 0x941 折纸
!setname 0xc7ca 旧世迷庙
!setname 0xc7cb 孽驱
!counter 0x1f35 龙鳞指示物
!setname 0x5f3c Divicale(神之鳞)
!counter 0xf3 陨星指示物
!setname 0x6311 异界兽
!setname 0x9311 死棱黑镜
!setname 0x7cc 刹那芳华
!setname 0x623 TUB
#竹子
!setname 0x6b02 空中连接
!setname 0x6a00 No Game No Life
......@@ -726,4 +717,13 @@
!setname 0x6a1f 人类种
!setname 0x6a20 种族之棋
!setname 0x6a31 伪典
!setname 0x6a32 真典
\ No newline at end of file
!setname 0x6a32 真典
!setname 0x623 TUB
#???
!setname 0x926 机巧人偶|非「机巧」 マシンドール
!setname 0x1925 人偶使 人形使い
!setname 0x1927 机巧魔术|非「机巧」
!setname 0x930 舰队装姬 Kantai Collection
!setname 0x940 深瞳明星 EyeDrops
!setname 0x941 折纸
\ 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