Skip to content

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

fix+removal

parent 9214ba80
Hide whitespace changes
Inline Side-by-side
Showing with 25 additions and 1600 deletions
expansions/lflist.conf
View file @ ba2d1cdf
......@@ -806,6 +806,8 @@
30015045 0
30015080 0
30015100 0
#220731
14000454 0
#220724
20220646 0
20220647 0
......@@ -1570,7 +1572,6 @@
7409803 1
#211121
19000 0
60000119 1
65010089 0
65010096 0
65010097 0
......@@ -1826,8 +1827,6 @@
130006006 0
79029379 0
77770020 0
60000108 1
60000108 1
#210606
31409108 1
31407011 0
......
expansions/no81.cdb
View file @ ba2d1cdf
No preview for this file type
expansions/script/c11451631.lua
View file @ ba2d1cdf
......@@ -180,6 +180,10 @@ function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
end
function cm.negop(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateActivation(ev)
Duel.SetChainLimit(function(e,p1,p2)
local con=e:GetCondition()
return not con or con(e,p1,eg,ep,ev,re,r,rp)
end)
Duel.RaiseEvent(e:GetHandler(),11451676,e,0,tp,tp,Duel.GetCurrentChain())
e:Reset()
end
......
expansions/script/c15000066.lua
View file @ ba2d1cdf
......@@ -89,7 +89,7 @@ function c15000066.actop(e,tp,eg,ep,ev,re,r,rp)
end
end
function c15000066.chainlm(e,rp,tp)
return tp==rp and not e:IsActiveType(TYPE_TRAP)
return not (tp~=rp and e:IsActiveType(TYPE_TRAP))
end
function c15000066.p3con(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetMatchingGroupCount(c15000066.pfilter,e:GetHandlerPlayer(),LOCATION_PZONE,LOCATION_PZONE,nil)>=3
......
expansions/script/c33310101.lua
View file @ ba2d1cdf
......@@ -9,6 +9,7 @@ function cm.initial_effect(c)
c:RegisterEffect(e1)
--copy
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,0))
e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DECKDES)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
......@@ -20,6 +21,7 @@ function cm.initial_effect(c)
c:RegisterEffect(e2)
--disable
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(m,1))
e3:SetCategory(CATEGORY_DISABLE)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
......@@ -32,12 +34,14 @@ function cm.initial_effect(c)
c:RegisterEffect(e3)
--skip
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(m,2))
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_SZONE)
e4:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e4:SetCondition(cm.skipcon)
e4:SetTarget(cm.skiptg)
e4:SetOperation(cm.skipop)
c:RegisterEffect(e4)
end
......@@ -47,6 +51,7 @@ function cm.copyfilter(c,e,tp)
end
function cm.copytg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.copyfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
end
function cm.copyop(e,tp,eg,ep,ev,re,r,rp)
......@@ -65,6 +70,7 @@ function cm.discon(e,tp,eg,ep,ev,re,r,rp)
end
function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.disop(e,tp,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
......@@ -104,7 +110,12 @@ function cm.cfilter(c)
return c:IsFaceup() and _G["c"..c:GetCode()].rssetcode and _G["c"..c:GetCode()].rssetcode=="Cochrot"
end
function cm.skipcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
return Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.IsAbleToEnterBP()
and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function cm.skiptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.skipop(e,tp,eg,ep,ev,re,r,rp)
local p=Duel.GetTurnPlayer()
......
expansions/script/c33310103.lua
View file @ ba2d1cdf
......@@ -63,6 +63,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
......
expansions/script/c33400708.lua
View file @ ba2d1cdf
......@@ -178,7 +178,8 @@ function cm.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
end
function cm.desop2(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:GetCode()~=tc:GetOriginalCode() and tc:IsAbleToRemove() and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
if not tc:IsRelateToEffect(e) then return end
if tc:GetCode()~=tc:GetOriginalCode() and tc:IsAbleToRemove() and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
else
Duel.Destroy(tc,REASON_EFFECT)
......
expansions/script/c60000101.lua deleted 100644 → 0
View file @ 9214ba80
--向全体机凯种致以最崇高的敬意
function c60000101.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DRAW)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,60000101+EFFECT_COUNT_CODE_OATH)
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.costfilter(c)
return c:IsSetCard(0x36a0) and c:IsAbleToGraveAsCost()
end
function c60000101.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000101.costfilter,tp,LOCATION_HAND,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c60000101.costfilter,tp,LOCATION_HAND,0,1,1,nil)
Duel.SendtoGrave(g,REASON_COST)
end
function c60000101.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(2)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
end
function c60000101.activate(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT)
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,0x56a9) 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 @ 9214ba80
--休比·多拉
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(0x56a9) 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 @ 9214ba80
--伪典·焉龙啸
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:SetCondition(c60000103.accon)
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.ahcon(e)
local tp=e:GetHandlerPlayer()
return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler())
end
function c60000103.cfilter(c)
return true
end
function c60000103.accon(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsExistingMatchingCard(c60000103.cfilter,tp,LOCATION_MZONE,0,1,nil)
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,0x56a9) 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,0x56a9))
e1:SetValue(0x56a3)
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,0x56a3))
e1:SetValue(0x56a9)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
end
expansions/script/c60000104.lua deleted 100644 → 0
View file @ 9214ba80
--伪 典 ·天 击
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:SetCondition(c60000104.accon)
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.cfilter(c)
return c:IsFacedown() or not c:IsSetCard(0x56a9)
end
--场 上 有 可 以 成 为 对 象 的 卡 且 不 满 足 以 上 条 件
function c60000104.accon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,g) and not Duel.IsExistingMatchingCard(c60000104.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
end
--取 对 象 并 确 定 效 果 类 型 ,询 问 连 锁
function c60000104.actg(e,tp,eg,ep,ev,re,r,rp,chk)
if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsAbleToRemove() end
if chk==0 then return true end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
--效 果 处 理
function c60000104.acop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
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,0x56a9) 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,0x56a9))
e1:SetValue(0x56a5)
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,0x56a5))
e1:SetValue(0x56a9)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
end
expansions/script/c60000105.lua deleted 100644 → 0
View file @ 9214ba80
--伪典·天移
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(0x56a9)
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(0xa6a1) or c:IsSetCard(0xa6a2)) and c:IsAbleToHand() and not c:IsCode(60000105)
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,0x56a9)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 @ 9214ba80
--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(0xa6a1) or c:IsSetCard(0xa6a2) or (c:IsType(TYPE_MONSTER) and c:IsSetCard(0x56a9))))
end
function c60000106.spgckfil(g,e,tp)
return Duel.GetLocationCountFromEx(tp,tp,g,nil)
end
function c60000106.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local g=Duel.GetMatchingGroup(c60000106.sprfilter,tp,LOCATION_ONFIELD,0,nil)
return g:CheckSubGroup(c60000106.spgckfil,5,5,e,tp)
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:SelectSubGroup(tp,c60000106.spgckfil,false,5,5,e,tp)
c:SetMaterial(g1)
Duel.Overlay(c,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(0x36a0)
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 @ 9214ba80
--伪典·森空摄
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:SetCondition(c60000108.accon)
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.cfilter(c)
return c:IsFacedown() or not c:IsSetCard(0x56a9)
end
--场 上 有 可 以 成 为 对 象 的 卡 且 不 满 足 以 上 条 件
function c60000108.accon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,g) and not Duel.IsExistingMatchingCard(c60000108.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
end
--取 对 象 并 确 定 效 果 类 型 ,询 问 连 锁
function c60000108.actg(e,tp,eg,ep,ev,re,r,rp,chk)
if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:GetControler()~=tp and chkc:IsControlerCanBeChanged() end
if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) 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 c=e:GetHandler()
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,0x56a9) 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,0x56a9))
e1:SetValue(0x56a6)
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,0x56a6))
e1:SetValue(0x56a9)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
end
expansions/script/c60000112.lua deleted 100644 → 0
View file @ 9214ba80
--种族之棋·象 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(0x56a9) 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(0x56a9)
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(0x66a0) 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,0x56a9) 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 @ 9214ba80
--爱因兹希
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,0x56a9) 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 @ 9214ba80
--伊米露·爱因
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,0x56a9)
end
function c60000116.ckfil(c)
return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x56a9)
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)
local code=tc:GetCode()
if code and Duel.GetDecktopGroup(tp,1):GetFirst():IsCode(code) 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(c60000116.ckfil,nil)
local tc1=g1:GetFirst()
while tc1 do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
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=g1: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 @ 9214ba80
--距离同步完成剩余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_ATKCHANGE)
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(0x56a9) and c:IsType(TYPE_MONSTER) 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,0x56a9) then return true end
end
--「 No Game No Life」 怪 兽
function c60000117.filter1(c)
return c:IsFaceup() and c:IsSetCard(0x36a0)
end
-- 场 上 有 所 述 怪 兽
function c60000117.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000117.filter1,tp,LOCATION_MZONE,0,1,nil) end
end
-- 可 以 被 效 果 影 响 的「 No Game No Life」 怪 兽
function c60000117.filter2(c,e)
return c:IsFaceup() and c:IsSetCard(0x36a0) and not c:IsImmuneToEffect(e)
end
-- 自 己 怪 兽 区 域 有 所 述 怪 兽 ,加 攻
function c60000117.spop(e,tp,eg,ep,ev,re,r,rp)
local sg=Duel.GetMatchingGroup(c60000117.filter2,tp,LOCATION_MZONE,0,nil,e)
local c=e:GetHandler()
local tc=sg:GetFirst()
while tc do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e1:SetValue(1000)
tc:RegisterEffect(e1)
tc=sg:GetNext()
end
end
expansions/script/c60000118.lua deleted 100644 → 0
View file @ 9214ba80
--休比·多拉 相位移动
function c60000118.initial_effect(c)
c:EnableReviveLimit()
--SpecialSummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e1:SetCountLimit(1,60000118)
e1:SetCost(c60000118.spcost)
e1:SetTarget(c60000118.sptg)
e1:SetOperation(c60000118.spop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--negate
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60000118,1))
e2:SetCategory(CATEGORY_NEGATE)
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:SetCountLimit(1,10000118)
e2:SetCondition(c60000118.discon)
e2:SetCost(c60000118.discost)
e2:SetTarget(c60000118.distg)
e2:SetOperation(c60000118.disop)
c:RegisterEffect(e2)
end
function c60000118.ckfil(c)
return c:IsFacedown() or not c:IsSetCard(0x56a9) and Duel.GetMZoneCount(tp,c)>0
end
function c60000118.rlfil(c)
return c:IsReleasable() and c:IsSetCard(0x56a9) and Duel.GetMZoneCount(tp,c)>0
end
function c60000118.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local g=Duel.GetRitualMaterial(tp)
local b1=g:CheckWithSumEqual(Card.GetLevel,8,1,99)
local b2=not Duel.IsExistingMatchingCard(c60000118.ckfil,tp,LOCATION_MZONE,0,1,nil) and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)~=0 and Duel.IsExistingMatchingCard(c60000118.rlfil,tp,LOCATION_DECK,0,1,nil)
if chk==0 then return b1 or b2 end
if b1 and b2 and Duel.SelectYesNo(tp,aux.Stringid(60000118,0)) then
e:SetLabel(0)
elseif b2 then
e:SetLabel(0)
else
e:SetLabel(1)
end
end
function c60000118.ckfil(c,e,tp)
return c:GetSummonPlayer()==1-tp
end
function c60000118.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) and eg:IsExists(c60000118.ckfil,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,tp,LOCATION_HAND+LOCATION_GRAVE)
end
function c60000118.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local op=e:GetLabel()
local g=Duel.GetRitualMaterial(tp)
if c:IsRelateToEffect(e) then
if op==0 then
if g:CheckWithSumEqual(Card.GetLevel,8,1,99) then
local rg=g:SelectWithSumEqual(tp,Card.GetLevel,8,1,99)
c:SetMaterial(rg)
Duel.ReleaseRitualMaterial(rg)
Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP)
else
if Duel.IsExistingMatchingCard(c60000118.rlfil,tp,LOCATION_DECK,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
local rg=Duel.SelectMatchingCard(tp,c60000118.rlfil,tp,LOCATION_DECK,0,1,1,nil)
c:SetMaterial(rg)
Duel.ReleaseRitualMaterial(rg)
Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP)
end
end
end
end
function c60000118.discon(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
end
function c60000118.ctfil(c)
return (c:GetType()==TYPE_SPELL or c:IsType(TYPE_QUICKPLAY)) and c:IsSetCard(0x56a9) and c:IsAbleToGraveAsCost()
end
function c60000118.discost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000118.ctfil,tp,LOCATION_DECK,0,1,nil) end
local tc=Duel.SelectMatchingCard(tp,c60000118.ctfil,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
Duel.SendtoGrave(tc,REASON_EFFECT)
if tc:CheckActivateEffect(true,true,false)~=nil and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) and Duel.SelectEffectYesNo(tp,tc) then
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST,nil)
local te,ceg,cep,cev,cre,cr,crp=tc:CheckActivateEffect(false,true,true)
e:SetProperty(te:GetProperty())
local tg=te:GetTarget()
if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
te:SetLabelObject(e:GetLabelObject())
local op=te:GetOperation()
if op then op(e,tp,eg,ep,ev,re,r,rp) end
end
end
function c60000118.distg(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)
end
function c60000118.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateActivation(ev)
end
expansions/script/c60000119.lua deleted 100644 → 0
View file @ 9214ba80
--游 戏 人 生
function c60000119.initial_effect(c)
--
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_PHASE_START+PHASE_STANDBY)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND+LOCATION_DECK)
e1:SetCountLimit(1,60000119+EFFECT_COUNT_CODE_DUEL)
e1:SetCondition(c60000119.recon)
e1:SetOperation(c60000119.reop)
c:RegisterEffect(e1)
--sigle
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CANNOT_TO_GRAVE)
c:RegisterEffect(e3)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CANNOT_TO_DECK)
c:RegisterEffect(e3)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CANNOT_TO_HAND)
c:RegisterEffect(e3)
end
function c60000119.recon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsSetCard,tp,LOCATION_DECK,0,nil,0x36a0)
return g:GetClassCount(Card.GetCode)>=10 and Duel.GetFieldGroupCount(tp,LOCATION_EXTRA,0)<=0
end
function c60000119.gcheck(g)
return g:GetClassCount(Card.GetCode)==g:GetCount()
end
function c60000119.reop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Remove(c,POS_FACEUP,REASON_RULE)
Duel.Hint(HINT_MESSAGE,0,aux.Stringid(60000119,0))
Duel.RegisterFlagEffect(tp,60000119,0,0,0)
local g=Duel.GetMatchingGroup(Card.IsSetCard,tp,LOCATION_DECK,0,nil,0x36a0)
local sg=g:SelectSubGroup(tp,c60000119.gcheck,false,1,10)
Duel.ConfirmCards(1-tp,sg)
if c:IsPreviousLocation(LOCATION_HAND) then
Duel.Draw(tp,1,REASON_RULE)
end
end
expansions/script/c60000120.lua deleted 100644 → 0
View file @ 9214ba80
--侬娜·杰尔
function c60000120.initial_effect(c)
--atk up
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_ATKCHANGE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,60000120)
e1:SetTarget(c60000120.aptg)
e1:SetOperation(c60000120.apop)
c:RegisterEffect(e1)
--Tograve
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60000120,0))
e2:SetCategory(CATEGORY_TOGRAVE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_TO_DECK)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,10000120)
e2:SetTarget(c60000120.tgtg)
e2:SetOperation(c60000120.tgop)
c:RegisterEffect(e2)
end
function c60000120.aptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
end
function c60000120.apop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsSetCard,tp,LOCATION_MZONE,0,nil,0x36a0)
if g:GetCount()>0 then
local tc=g:GetFirst()
while tc do
--
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(500)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
tc=g:GetNext()
end
end
end
function c60000120.tgfilter(c)
return c:IsLevel(1) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsAbleToGrave()
end
function c60000120.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000120.tgfilter,tp,LOCATION_DECK,0,1,nil) and e:GetHandler():IsPreviousLocation(LOCATION_GRAVE) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
end
function c60000120.tgop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c60000120.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
end
end
expansions/script/c60000121.lua deleted 100644 → 0
View file @ 9214ba80
--里克·多拉
function c60000121.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000121,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e1:SetCountLimit(1,60000121)
e1:SetCondition(c60000121.spcon)
e1:SetTarget(c60000121.sptg)
e1:SetOperation(c60000121.spop)
c:RegisterEffect(e1)
--...
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60000121,0))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_TO_DECK)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,10000121)
e2:SetTarget(c60000121.tetg)
e2:SetOperation(c60000121.teop)
c:RegisterEffect(e2)
end
function c60000121.cfilter(c)
return c:IsCode(60000102) or (c:IsAttribute(ATTRIBUTE_EARTH) and c:IsLevel(1))
end
function c60000121.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c60000121.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c60000121.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) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c60000121.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
function c60000121.tetg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsPreviousLocation(LOCATION_GRAVE) end
end
function c60000121.teop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.CreateToken(tp,60000124)
Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
end
expansions/script/c60000122.lua deleted 100644 → 0
View file @ 9214ba80
--克洛妮·多拉
function c60000122.initial_effect(c)
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000122,0))
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,60000122)
e1:SetTarget(c60000122.thtg)
e1:SetOperation(c60000122.thop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--...
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60000122,0))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_TO_DECK)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1,10000122)
e2:SetTarget(c60000122.sptg)
e2:SetOperation(c60000122.spop)
c:RegisterEffect(e2)
end
function c60000122.thfilter(c)
return c:IsLevel(1) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsAbleToHand()
end
function c60000122.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000122.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
end
function c60000122.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c60000122.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c60000122.spfilter2(c,e,tp)
return c:IsSetCard(0x36a0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c60000122.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c60000122.spfilter2(chkc,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c60000122.spfilter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
local g=Duel.SelectTarget(tp,c60000122.spfilter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c60000122.spop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
expansions/script/c60000123.lua deleted 100644 → 0
View file @ 9214ba80
--休比·多拉 日常
function c60000123.initial_effect(c)
--
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_ATKCHANGE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,60000123)
e1:SetTarget(c60000123.tetg)
e1:SetOperation(c60000123.teop)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetCode(EFFECT_CHANGE_LEVEL)
e2:SetCondition(c60000123.lvcon)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(4)
c:RegisterEffect(e2)
end
function c60000123.tetg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
end
function c60000123.teop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.CreateToken(tp,60000125)
Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
end
function c60000123.ckfil(c)
return not c:IsCode(60000123) and c:IsLevel(1) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup()
end
function c60000123.lvcon(e)
local tp=e:GetHandlerPlayer()
return Duel.IsExistingMatchingCard(c60000123.ckfil,tp,LOCATION_MZONE,0,1,nil)
end
expansions/script/c60000124.lua deleted 100644 → 0
View file @ 9214ba80
--休瓦尔扎
function c60000124.initial_effect(c)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,c60000124.matfilter,2,2)
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000124,0))
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,60000124)
e1:SetTarget(c60000124.thtg)
e1:SetOperation(c60000124.thop)
c:RegisterEffect(e1)
--atk up
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
e2:SetTargetRange(LOCATION_MZONE,0)
e2:SetCondition(c60000124.apcon)
e2:SetValue(c60000124.apval)
c:RegisterEffect(e2)
--indes
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetRange(LOCATION_MZONE)
e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e3:SetCondition(c60000124.incon)
e3:SetValue(1)
c:RegisterEffect(e3)
end
function c60000124.matfilter(c)
return (c:IsLevel(1) and c:IsAttribute(ATTRIBUTE_EARTH)) or c:IsSetCard(0x56a9)
end
function c60000124.thfilter(c)
return c:IsSetCard(0x36a0) and c:IsAbleToHand()
end
function c60000124.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000124.thfilter,tp,LOCATION_GRAVE,0,1,nil) and Duel.GetFlagEffect(tp,60000119)~=0 and e:GetHandler():IsSummonType(SUMMON_TYPE_LINK) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
end
function c60000124.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c60000124.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c60000124.apcon(e)
local tp=e:GetHandlerPlayer()
return Duel.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,60000124)>=3 and Duel.GetFlagEffect(tp,60000119)~=0
end
function c60000124.apval(e)
local tp=e:GetHandlerPlayer()
return Duel.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,60000124)*1000
end
function c60000124.incon(e)
local tp=e:GetHandlerPlayer()
return Duel.GetFlagEffect(tp,60000119)~=0
end
expansions/script/c60000125.lua deleted 100644 → 0
View file @ 9214ba80
--里克＆休比
function c60000125.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x36a0),aux.NonTuner(nil),1,1)
c:EnableReviveLimit()
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60000125,0))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,60000125)
e1:SetTarget(c60000125.thtg)
e1:SetOperation(c60000125.thop)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,10000125)
e2:SetTarget(c60000125.lstg)
e2:SetOperation(c60000125.lsop)
c:RegisterEffect(e2)
--indes
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetRange(LOCATION_MZONE)
e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e3:SetCondition(c60000125.incon)
e3:SetValue(1)
c:RegisterEffect(e3)
end
function c60000125.thfilter(c)
return c:IsSetCard(0x36a0) and c:IsAbleToHand()
end
function c60000125.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60000125.thfilter,tp,LOCATION_DECK,0,1,nil) and Duel.GetFlagEffect(tp,60000119)~=0 and e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c60000125.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c60000125.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 c60000125.lstg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,60000125)>=3 and Duel.GetFlagEffect(tp,60000119)~=0 end
end
function c60000125.lsop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local x=Duel.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,60000125)
local lp=Duel.GetLP(1-tp)
Duel.SetLP(1-tp,lp-x*1000)
end
function c60000125.incon(e)
local tp=e:GetHandlerPlayer()
return Duel.GetFlagEffect(tp,60000119)~=0
end
expansions/script/c71400068.lua
View file @ ba2d1cdf
......@@ -29,7 +29,7 @@ function c71400068.initial_effect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_LEAVE_FIELD)
e2:SetRange(LOCATION_HAND)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,71400068)
e2:SetCondition(c71400068.con2)
e2:SetTarget(c71400068.tg2)
......
expansions/strings.conf
View file @ ba2d1cdf
......@@ -48,6 +48,8 @@
!setname 0xa460 键★LB令（K.E.Y L.B.O）
!setname 0xc460 键★等（K.E.Y Etc.）
!counter 0x1460 光玉（Light Orb）
#少年 714 0x710-0x71f Sonic_714
!setname 0x714 异梦
!setname 0x3714 异梦境
......@@ -662,27 +664,6 @@
!setname 0x638 The Four Cardinal Virtues 四元德
#竹子 MerlinTC
!setname 0x6b02 空中连接
!setname 0x36a0 No Game No Life
!setname 0x56a0 神灵种
!setname 0x56a1 幻想种
!setname 0x56a2 精灵种
!setname 0x56a3 龙精种
!setname 0x56a4 巨人种
!setname 0x56a5 天翼种
!setname 0x56a6 森精种
!setname 0x56a7 地精种
!setname 0x56a8 妖精种
!setname 0x56a9 机凯种
!setname 0x56aa 妖魔种
!setname 0x56ab 吸血种
!setname 0x56ac 月咏种
!setname 0x56ad 兽人种
!setname 0x56ae 海栖种
!setname 0x56af 人类种
!setname 0x66a0 种族之棋
!setname 0xa6a1 伪典
!setname 0xa6a2 真典
!setname 0x621 灵代
!setname 0x622 钢铁律命
!setname 0x623 TUB
......
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