Commit 7d6f2d8d authored by 花桃白音's avatar 花桃白音

delete 751cards & fix 042cards scripts

parent a0b2af0b
No preview for this file type
...@@ -31,10 +31,10 @@ function c4270003.filter(c,tp) ...@@ -31,10 +31,10 @@ function c4270003.filter(c,tp)
return c:IsCode(4270009) and c:IsFaceup() return c:IsCode(4270009) and c:IsFaceup()
end end
function c4270003.condition0(e,tp,eg,ep,ev,re,r,rp) function c4270003.condition0(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingTarget(c4270003.filter,tp,LOCATION_REMOVED,0,1,nil) return not Duel.IsExistingMatchingCard(c4270003.filter,tp,LOCATION_REMOVED,0,1,nil)
end end
function c4270003.condition1(e,tp,eg,ep,ev,re,r,rp) function c4270003.condition1(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsExistingTarget(c4270003.filter,tp,LOCATION_REMOVED,0,1,nil) return Duel.IsExistingMatchingCard(c4270003.filter,tp,LOCATION_REMOVED,0,1,nil)
end end
function c4270003.cfilter(c,tp) function c4270003.cfilter(c,tp)
return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
...@@ -60,7 +60,7 @@ function c4270003.target(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -60,7 +60,7 @@ function c4270003.target(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function c4270003.operation(e,tp,eg,ep,ev,re,r,rp) function c4270003.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) then if c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) and c:IsLocation(LOCATION_HAND) then
local tg1=Duel.GetDecktopGroup(tp,2) local tg1=Duel.GetDecktopGroup(tp,2)
local tg2=Duel.GetDecktopGroup(1-tp,2) local tg2=Duel.GetDecktopGroup(1-tp,2)
if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 and tg1 and tg2 and tg1:FilterCount(Card.IsAbleToRemove,nil)==2 and tg2:FilterCount(Card.IsAbleToRemove,nil)==2 then if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 and tg1 and tg2 and tg1:FilterCount(Card.IsAbleToRemove,nil)==2 and tg2:FilterCount(Card.IsAbleToRemove,nil)==2 then
......
...@@ -75,7 +75,7 @@ function c4270010.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -75,7 +75,7 @@ function c4270010.operation(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c4270010.filter2(c) function c4270010.filter2(c)
return c:IsAbleToDeck() and c:IsFaceup() and not c:IsCode(4270010) return c:IsAbleToDeck() and c:IsFaceup() and c:IsSetCard(0xa28) and not c:IsCode(4270010)
end end
function c4270010.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c4270010.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingMatchingCard(c4270010.filter2,tp,LOCATION_REMOVED,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c4270010.filter2,tp,LOCATION_REMOVED,0,1,nil) end
......
...@@ -26,7 +26,7 @@ function c4270012.initial_effect(c) ...@@ -26,7 +26,7 @@ function c4270012.initial_effect(c)
e2:SetTargetRange(0xfe,0xff) e2:SetTargetRange(0xfe,0xff)
e2:SetValue(LOCATION_REMOVED) e2:SetValue(LOCATION_REMOVED)
e2:SetTarget(function(e,c) e2:SetTarget(function(e,c)
return c:GetOwner()==e:GetHandlerPlayer() return c:GetOwner()==e:GetHandlerPlayer() and not c:IsLocation(0x80) and not c:IsType(TYPE_SPELL+TYPE_TRAP)
end) end)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--control --control
......
...@@ -92,8 +92,8 @@ function s.seqop(e,tp,eg,ep,ev,re,r,rp) ...@@ -92,8 +92,8 @@ function s.seqop(e,tp,eg,ep,ev,re,r,rp)
local tc=c:GetFirstCardTarget() local tc=c:GetFirstCardTarget()
if tc and tc:IsLocation(LOCATION_MZONE) then if tc and tc:IsLocation(LOCATION_MZONE) then
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_EQUIP) e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_UPDATE_LEVEL) e3:SetCode(EFFECT_CHANGE_LEVEL)
e3:SetValue(10) e3:SetValue(10)
e3:SetReset(RESET_EVENT+RESETS_STANDARD) e3:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e3) tc:RegisterEffect(e3)
......
--械龙机骨架
function c75121652.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:SetCountLimit(1,75121652+EFFECT_COUNT_CODE_OATH)
e1:SetTarget(c75121652.target)
e1:SetOperation(c75121652.activate)
c:RegisterEffect(e1)
end
function c75121652.filter(c)
return c:IsSetCard(0x276) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c75121652.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75121652.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c75121652.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c75121652.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
\ No newline at end of file
--械龙机·强袭
function c75122544.initial_effect(c)
c:EnableReviveLimit()
--fusion material
aux.AddFusionProcFunFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0x276),aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),2,63,true)
--battle
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e2:SetValue(1)
c:RegisterEffect(e2)
--attack up
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetCategory(EFFECT_FLAG_SINGLE_RANGE)
e3:SetRange(LOCATION_MZONE)
e3:SetCost(c75122544.cost)
e3:SetOperation(c75122544.operation)
c:RegisterEffect(e3)
--spsummon success
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetOperation(c75122544.sucop)
c:RegisterEffect(e4)
end
c75122544.material_setcode=0x186
function c75122544.sucop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
e1:SetValue(c:GetMaterialCount()-1)
c:RegisterEffect(e1)
end
function c75122544.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75122544.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.DiscardHand(tp,c75122544.cfilter,1,1,REASON_COST+REASON_DISCARD,e:GetHandler())
end
function c75122544.cfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsDiscardable() and c:IsSetCard(0x276)
end
function c75122544.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsFaceup() and c:IsRelateToEffect(e) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(600)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e1)
end
end
\ No newline at end of file
--械龙机
function c75122916.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c75122916.spcon)
c:RegisterEffect(e1)
--to hand
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(75125434,0))
e2:SetCategory(CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetCountLimit(1)
e2:SetTarget(c75122916.target)
e2:SetOperation(c75122916.operation)
c:RegisterEffect(e2)
--to hand2
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_GRAVE)
e3:SetCost(c75122916.cost)
e3:SetOperation(c75122916.operation)
c:RegisterEffect(e3)
end
function c75122916.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75122916.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c75122916.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c75122916.cfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() and c:IsSetCard(0x276)
end
function c75122916.operation(e,tp,eg,ep,ev,re,r,rp)
if e:GetHandler():IsRelateToEffect(e) then
Duel.SendtoHand(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
end
end
function c75122916.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75122916.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
local g=Duel.GetMatchingGroup(c75122916.cfilter,tp,LOCATION_GRAVE,0,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
g:KeepAlive()
e:SetLabelObject(g)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
end
function c75122916.spcon(e,c)
if c==nil then return true end
return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)==0
and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
end
--械钟龙
function c75123615.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75123615,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1,75123615)
e1:SetTarget(c75123615.target)
e1:SetOperation(c75123615.operation)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
end
function c75123615.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,75123616,0,TYPES_TOKEN_MONSTER,0,0,4,RACE_MACHINE,ATTRIBUTE_LIGHT) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0)
Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,tp,0)
end
function c75123615.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() and not c:IsImmuneToEffect(e) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetValue(math.ceil(c:GetAttack()/2))
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
if not c:IsHasEffect(EFFECT_REVERSE_UPDATE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,75123616,0,TYPES_TOKEN_MONSTER,0,0,4,RACE_MACHINE,ATTRIBUTE_LIGHT) then
local token=Duel.CreateToken(tp,75123616)
Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CHANGE_LEVEL)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(4)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
end
end
--械钟衍生物
function c75123616.initial_effect(c)
end
--械龙铠
function c75124521.initial_effect(c)
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),4,2)
c:EnableReviveLimit()
--material
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetTarget(c75124521.target)
e2:SetOperation(c75124521.operation)
c:RegisterEffect(e2)
end
function c75124521.filter(c)
return c:IsPosition(POS_FACEUP_ATTACK) and c:IsCanOverlay() and c:IsRace(RACE_MACHINE)
end
function c75124521.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75124521.filter(chkc) and chkc~=e:GetHandler() end
if chk==0 then return e:GetHandler():IsType(TYPE_XYZ)
and Duel.IsExistingTarget(c75124521.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
Duel.SelectTarget(tp,c75124521.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
end
function c75124521.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
local og=tc:GetOverlayGroup()
if og:GetCount()>0 then
Duel.SendtoGrave(og,REASON_RULE)
end
Duel.Overlay(c,Group.FromCards(tc))
end
end
\ No newline at end of file
--械龙铠·DDOS数据流
function c75124532.initial_effect(c)
--code
aux.EnableChangeCode(c,75124533,LOCATION_MZONE+LOCATION_GRAVE)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c75124532.hspcon)
e1:SetOperation(c75124532.hspop)
c:RegisterEffect(e1)
--atk down
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(75124532,1))
e2:SetCategory(CATEGORY_ATKCHANGE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetCountLimit(1,75124532100)
e2:SetTarget(c75124532.atktg)
e2:SetOperation(c75124532.atkop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3)
--to hand2
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_DESTROY)
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetRange(LOCATION_MZONE)
e4:SetCountLimit(1,75124532200)
e4:SetCost(c75124532.cost)
e4:SetCondition(c75124532.con)
e4:SetTarget(c75124532.target)
e4:SetOperation(c75124532.operation)
c:RegisterEffect(e4)
end
function c75124532.con(e,c)
return Duel.IsExistingMatchingCard(c75124532.filter,e:GetHandler():GetControler(),0,LOCATION_MZONE,1,e:GetHandler())
end
function c75124532.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75124532.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c75124532.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c75124532.cfilter(c)
return c:IsCode(75124533)
end
function c75124532.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAttackBelow(2400) end
if chk==0 then return true end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,c75124532.filter,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
end
function c75124532.filter(c)
return c:IsAttackBelow(2400)
end
function c75124532.operation(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) then
Duel.Destroy(tc,REASON_EFFECT)
end
end
function c75124532.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,0)
end
function c75124532.atkop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsFaceup() and tc:IsRelateToEffect(e) then
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetValue(-600)
tc:RegisterEffect(e2)
end
end
function c75124532.spfilter(c,tp)
return c:IsCode(75124533)
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c75124532.hspcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.CheckReleaseGroup(tp,c75124532.spfilter,1,nil,tp)
end
function c75124532.hspop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.SelectReleaseGroup(tp,c75124532.spfilter,1,1,nil,tp)
Duel.Release(g,REASON_COST)
end
\ No newline at end of file
--械龙铠·数据流
function c75124533.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c75124533.spcon)
c:RegisterEffect(e1)
--search
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(75124533,0))
e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e2:SetCountLimit(1,75124533)
e2:SetTarget(c75124533.thtg)
e2:SetOperation(c75124533.thop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3)
end
function c75124533.spcon(e,c)
if c==nil then return true end
return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0
and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
end
function c75124533.thfilter(c)
return c:IsSetCard(0x3276) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
end
function c75124533.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75124533.thfilter,tp,LOCATION_DECK,0,1,nil) and Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0)~=1 end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c75124533.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c75124533.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 c75124534.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:SetCountLimit(1,75124534+EFFECT_COUNT_CODE_OATH)
e1:SetCost(c75124534.negreg)
e1:SetTarget(c75124534.target)
e1:SetOperation(c75124534.activate)
c:RegisterEffect(e1)
end
function c75124534.negreg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then return end
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_CHAIN_NEGATED)
e1:SetLabelObject(e)
e1:SetOperation(c75124534.negcheck)
e1:SetReset(RESET_CHAIN)
Duel.RegisterEffect(e1,tp)
end
function c75124534.negcheck(e,tp,eg,ep,ev,re,r,rp)
local te=e:GetLabelObject()
local de,dp=Duel.GetChainInfo(ev,CHAININFO_DISABLE_REASON,CHAININFO_DISABLE_PLAYER)
if rp==tp and de and dp==1-tp and re==te then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_CHAIN_END)
e1:SetOperation(c75124534.negevent)
e1:SetLabelObject(te)
Duel.RegisterEffect(e1,tp)
end
end
function c75124534.negevent(e,tp,eg,ep,ev,re,r,rp)
local te=e:GetLabelObject()
Duel.RaiseEvent(te:GetHandler(),EVENT_CUSTOM+75124534,te,0,tp,tp,0)
e:Reset()
end
function c75124534.filter(c)
return ((c:IsSetCard(0x3276) and c:IsType(TYPE_MONSTER)) or (c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_CYBERSE) and not c:IsSummonableCard()))
and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c75124534.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingMatchingCard(c75124534.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c75124534.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c75124534.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
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetTarget(c75124534.splimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function c75124534.splimit(e,c)
return not c:IsSetCard(0x3276)
end
\ No newline at end of file
--械龙铠·多线程数据流
function c75124535.initial_effect(c)
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_CYBERSE),aux.FilterBoolFunction(Card.IsCode,75124533),1,1);
aux.AddMaterialCodeList(c,75124533)
c:EnableReviveLimit();
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(75124535,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCost(c75124535.spcost)
e2:SetTarget(c75124535.sptg)
e2:SetOperation(c75124535.spop)
c:RegisterEffect(e2)
--tohand
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(75124535,1))
e3:SetCategory(CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e3:SetTarget(c75124535.thtg)
e3:SetOperation(c75124535.thop)
c:RegisterEffect(e3)
end
function c75124535.thfilter(c)
return c:IsFaceup() and c:IsSetCard(0x3276) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
end
function c75124535.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c75124535.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c75124535.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,c75124535.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function c75124535.thop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
end
end
function c75124535.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsReleasable() end
Duel.Release(e:GetHandler(),REASON_COST)
end
function c75124535.filter(c,e,tp)
return c:IsSetCard(0x3276) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c75124535.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingMatchingCard(c75124535.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c75124535.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c75124535.filter,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
end
\ No newline at end of file
--械龙铠·
function c75124536.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124536,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1,75124536100)
e1:SetTarget(c75124536.sptg)
e1:SetOperation(c75124536.spop)
c:RegisterEffect(e1)
local e0=e1:Clone()
e0:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e0)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCountLimit(1,75124536200)
e2:SetCondition(c75124536.spcon)
c:RegisterEffect(e2)
end
function c75124536.spfilter2(c)
return c:IsFaceup() and c:IsCode(75124533)
end
function c75124536.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c75124536.spfilter2,tp,LOCATION_MZONE,0,1,nil)
end
function c75124536.spfilter(c,e,tp)
return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and
c:IsSetCard(0x3276)
end
function c75124536.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c75124536.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
end
function c75124536.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,c75124536.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)
end
end
\ No newline at end of file
--械龙铠数据乱码
function c75124537.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,75124537)
e1:SetCost(c75124537.cost)
e1:SetTarget(c75124537.target)
e1:SetOperation(c75124537.activate)
c:RegisterEffect(e1)
end
function c75124537.costfilter(c,e,tp)
return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
and Duel.IsExistingMatchingCard(c75124537.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,c,e,tp)
end
function c75124537.filter(c,e,tp)
return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and
c:IsRace(RACE_CYBERSE) and c:IsSetCard(0x3276)
end
function c75124537.cost(e,tp,eg,ep,ev,re,r,rp,chk)
e:SetLabel(1)
return true
end
function c75124537.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end
if e:GetLabel()~=0 then
e:SetLabel(0)
return Duel.IsExistingMatchingCard(c75124537.costfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
else
return Duel.IsExistingMatchingCard(c75124537.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp)
end
end
if e:GetLabel()~=0 then
e:SetLabel(0)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c75124537.costfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
Duel.SendtoGrave(g,REASON_COST)
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
end
function c75124537.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,c75124537.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
--械龙铠数据重载
function c75124538.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124538,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,75124538)
e1:SetTarget(c75124538.target)
e1:SetOperation(c75124538.activate)
c:RegisterEffect(e1)
--destroy
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,75124538)
e2:SetCost(aux.bfgcost)
e2:SetTarget(c75124538.sptg)
e2:SetOperation(c75124538.spop)
c:RegisterEffect(e2)
end
function c75124538.filter(c,e,tp)
return c:IsSetCard(0x3276) and c:IsRace(RACE_CYBERSE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c75124538.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c75124538.filter(chkc,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c75124538.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c75124538.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c75124538.activate(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
function c75124538.spfilter(c,e,tp)
return c:IsSetCard(0x3276) and c:IsType(TYPE_TUNER) and not c:IsCode(75124533) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelBelow(4)
end
function c75124538.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c75124538.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
end
function c75124538.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,aux.NecroValleyFilter(c75124538.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
--械龙铠·数据海泳者
function c75124539.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124539,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e1:SetCountLimit(1,75124539)
e1:SetCost(c75124539.spcost)
e1:SetTarget(c75124539.sptg)
e1:SetOperation(c75124539.spop)
c:RegisterEffect(e1)
--tohand
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(75124539,1))
e3:SetCategory(CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e3:SetTarget(c75124539.thtg)
e3:SetOperation(c75124539.thop)
c:RegisterEffect(e3)
end
function c75124539.thfilter(c)
return c:IsFaceup() and c:IsSetCard(0x3276) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
end
function c75124539.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c75124539.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c75124539.thfilter,tp,LOCATION_REMOVED,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,c75124539.thfilter,tp,LOCATION_REMOVED,0,1,1,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function c75124539.thop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
end
end
function c75124539.rfilter(c,tp)
return c:IsSetCard(0x3276) and (c:IsControler(tp) or c:IsFaceup())
end
function c75124539.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local rg=Duel.GetReleaseGroup(tp):Filter(c75124539.rfilter,nil,tp)
if chk==0 then return rg:CheckSubGroup(aux.mzctcheckrel,1,1,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local g=rg:SelectSubGroup(tp,aux.mzctcheckrel,false,1,1,tp)
aux.UseExtraReleaseCount(g,tp)
Duel.Release(g,REASON_COST)
end
function c75124539.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c75124539.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
\ No newline at end of file
--械龙铠·数据海重炮龙
function c75124540.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCode2(c,75124533,75124539,true,true)
--negate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124540,0))
e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetCost(c75124540.cost)
e1:SetCondition(c75124540.condition)
e1:SetTarget(c75124540.target)
e1:SetOperation(c75124540.operation)
c:RegisterEffect(e1)
--tohand
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(75124540,1))
e4:SetCategory(CATEGORY_TOHAND)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_TO_GRAVE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e4:SetTarget(c75124540.thtg)
e4:SetOperation(c75124540.thop)
c:RegisterEffect(e4)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(75124540,1))
e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetCost(c75124540.descost)
e3:SetTarget(c75124540.destg)
e3:SetOperation(c75124540.desop)
c:RegisterEffect(e3)
end
function c75124540.thfilter(c)
return c:IsFaceup() and c:IsSetCard(0x3276) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
end
function c75124540.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c75124540.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c75124540.thfilter,tp,LOCATION_REMOVED,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,c75124540.thfilter,tp,LOCATION_REMOVED,0,1,1,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function c75124540.thop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
end
end
function c75124540.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75124540.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c75124540.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c75124540.cfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() and c:IsSetCard(0x3276)
end
function c75124540.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=re:GetHandler()
return re:IsActiveType(TYPE_MONSTER) and rc~=c and not c:IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
end
function c75124540.target(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_DESTROY,eg,1,0,0)
end
end
function c75124540.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=re:GetHandler()
if Duel.NegateActivation(ev) and rc:IsRelateToEffect(re) and Duel.Destroy(rc,REASON_EFFECT)~=0 and rc:GetBaseAttack()>=0
and c:IsRelateToEffect(e) and c:IsFaceup() then
end
end
function c75124540.descost(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.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
function c75124540.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
end
function c75124540.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsControler(1-tp) then
Duel.Destroy(tc,REASON_EFFECT)
end
end
--械龙铠·辉凤铠
function c75124541.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,c75124541.spsmfilter,2)
c:EnableReviveLimit()
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124541,1))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(1,75124541)
e1:SetTarget(c75124541.sptgq)
e1:SetOperation(c75124541.spopq)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_BATTLE_DESTROYED)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,EFFECT_COUNT_CODE_DUEL)
e2:SetCondition(c75124541.spcon)
e2:SetTarget(c75124541.sptg)
e2:SetOperation(c75124541.spop)
c:RegisterEffect(e2)
--cannot link material
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
e3:SetValue(c75124541.lmlimit)
c:RegisterEffect(e3)
end
function c75124541.lmlimit(e)
local c=e:GetHandler()
return c:IsSummonType(SUMMON_TYPE_LINK) and c:GetTurnID()==Duel.GetTurnCount()
end
function c75124541.spsmfilter(c)
return c:IsLinkRace(RACE_CYBERSE) and c:IsSetCard(0x3276)
end
function c75124541.filter(c,e,tp)
return c:IsCode(75124542) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c75124541.sptgq(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingMatchingCard(c75124541.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c75124541.spopq(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c75124541.filter,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
end
function c75124541.spcfilter(c,tp)
return c:IsSummonType(SUMMON_TYPE_NORMAL) and c:IsPreviousControler(tp)
end
function c75124541.spcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c75124541.spcfilter,1,nil,tp)
end
function c75124541.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c75124541.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
\ No newline at end of file
--械龙铠·传说的数据核
function c75124542.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,75124542)
e1:SetCost(c75124542.spcost)
e1:SetTarget(c75124542.sptg)
e1:SetOperation(c75124542.spop)
c:RegisterEffect(e1)
end
function c75124542.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsReleasable() end
Duel.Release(e:GetHandler(),REASON_COST)
end
function c75124542.spfilter(c,e,tp)
return c:IsSetCard(0x3276) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c75124542.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingMatchingCard(c75124542.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c75124542.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,c75124542.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
end
\ No newline at end of file
--械龙铠·
function c75124543.initial_effect(c)
aux.AddFusionProcCodeFunRep(c,75124533,c75124543.fufilter,1,999,true,true)
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e0:SetValue(1)
c:RegisterEffect(e0)
--negate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(45037489,0))
e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e1:SetCode(EVENT_CHAINING)
e1:SetCondition(c75124543.discon)
e1:SetTarget(c75124543.distg)
e1:SetOperation(c75124543.disop)
c:RegisterEffect(e1)
--attribute
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_ADD_ATTRIBUTE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(ATTRIBUTE_LIGHT)
c:RegisterEffect(e2)
--race
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_ADD_RACE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(RACE_FAIRY)
c:RegisterEffect(e3)
end
function c75124543.fufilter(c)
return c:IsRace(RACE_CYBERSE) and c:IsAttribute(ATTRIBUTE_WIND)
end
function c75124543.discon(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
end
function c75124543.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)
if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
end
end
function c75124543.disop(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Destroy(eg,REASON_EFFECT)
end
end
--械龙铠·数据流障壁
function c75124544.initial_effect(c)
aux.AddFusionProcCodeFunRep(c,75124533,c75124544.fufilter,1,999,true,true)
c:EnableCounterPermit(0x3276)
--change damage
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCondition(c75124544.damcon)
e1:SetOperation(c75124544.damop)
c:RegisterEffect(e1)
--extra summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(75124544,0))
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
e2:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
e2:SetRange(LOCATION_MZONE)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EFFECT_EXTRA_SET_COUNT)
c:RegisterEffect(e3)
--
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EVENT_BE_BATTLE_TARGET)
e4:SetCondition(c75124544.con)
e4:SetOperation(c75124544.op)
c:RegisterEffect(e4)
--
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_SINGLE)
e8:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e8:SetRange(LOCATION_MZONE)
e8:SetCode(EFFECT_SELF_DESTROY)
e8:SetCondition(c75124544.tgcon)
c:RegisterEffect(e8)
end
function c75124544.fufilter(c)
return c:IsRace(RACE_CYBERSE) and c:IsAttribute(ATTRIBUTE_EARTH)
end
function c75124544.tgcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return Duel.GetCurrentPhase()==PHASE_END and c:GetCounter(0x3276)>=3
end
function c75124544.con(e,tp,eg,ep,ev,re,r,rp)
local at=Duel.GetAttacker()
return at:GetAttack()>=2500
end
function c75124544.op(e,tp,eg,ep,ev,re,r,rp)
e:GetHandler():AddCounter(0x3276)
end
function c75124544.damcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
end
function c75124544.damop(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_CHANGE_DAMAGE)
e1:SetTargetRange(1,0)
e1:SetValue(0)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=e1:Clone()
e2:SetCode(EFFECT_NO_EFFECT_DAMAGE)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
end
\ No newline at end of file
--数据融合
function c75124570.initial_effect(c)
--Activate
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_ACTIVATE)
e0:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e0)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_FZONE)
e1:SetCountLimit(1,75124570+EFFECT_COUNT_CODE_OATH)
e1:SetTarget(c75124570.target)
e1:SetOperation(c75124570.activate)
c:RegisterEffect(e1)
--race
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CHANGE_RACE)
e2:SetRange(LOCATION_FZONE)
e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e2:SetTarget(c75124570.raceTarget)
e2:SetValue(RACE_CYBERSE)
c:RegisterEffect(e2)
end
function c75124570.raceTarget(e,c)
return c:IsSetCard(0x5276) and c:IsType(TYPE_MONSTER)
end
function c75124570.filter0(c)
return c:IsFaceup() and c:IsCanBeFusionMaterial()
end
function c75124570.filter1(c,e)
return c:IsFaceup() and c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e)
end
function c75124570.filter2(c,e,tp,m,f,chkf)
return c:IsType(TYPE_FUSION) and c:IsRace(RACE_CYBERSE) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
end
function c75124570.filter3(c,e)
return not c:IsImmuneToEffect(e)
end
function c75124570.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp)
local mg2=Duel.GetMatchingGroup(c75124570.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg2)
local res=Duel.IsExistingMatchingCard(c75124570.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg3=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c75124570.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c75124570.activate(e,tp,eg,ep,ev,re,r,rp)
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp):Filter(c75124570.filter3,nil,e)
local mg2=Duel.GetMatchingGroup(c75124570.filter1,tp,0,LOCATION_MZONE,nil,e)
mg1:Merge(mg2)
local sg1=Duel.GetMatchingGroup(c75124570.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
local mg3=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg3=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c75124570.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf)
end
if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
local sg=sg1:Clone()
if sg2 then sg:Merge(sg2) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local tg=sg:Select(tp,1,1,nil)
local tc=tg:GetFirst()
if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
tc:SetMaterial(mat1)
Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
Duel.BreakEffect()
Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
else
local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
--械龙使·斗龙
function c75124601.initial_effect(c)
--pos
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_UPDATE_ATTACK)
e0:SetRange(LOCATION_MZONE)
e0:SetValue(750)
c:RegisterEffect(e0)
--equip
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124601,1))
e1:SetCategory(CATEGORY_EQUIP)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetTarget(c75124601.eqtg)
e1:SetOperation(c75124601.eqop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--indes
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c75124601.indcon)
e3:SetOperation(c75124601.indop)
c:RegisterEffect(e3)
end
function c75124601.efilter(c)
return c:IsFaceup() and c:IsSetCard(0x276)
end
function c75124601.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c75124601.efilter(chkc) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
and Duel.IsExistingTarget(c75124601.efilter,tp,LOCATION_MZONE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
Duel.SelectTarget(tp,c75124601.efilter,tp,LOCATION_MZONE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_DECK)
end
function c75124601.eqfilter(c)
return c:IsType(TYPE_EQUIP) and not c:IsForbidden()
end
function c75124601.eqop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
local tc=Duel.GetFirstTarget()
if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
local eq=Duel.SelectMatchingCard(tp,c75124601.eqfilter,tp,LOCATION_DECK,0,1,1,nil)
local eqc=eq:GetFirst()
if eqc and Duel.Equip(tp,eqc,tc) then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EQUIP_LIMIT)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetValue(c75124601.eqlimit)
e1:SetLabelObject(tc)
eqc:RegisterEffect(e1)
end
end
function c75124601.eqlimit(e,c)
return c==e:GetLabelObject()
end
function c75124601.indcon(e,tp,eg,ep,ev,re,r,rp)
return r==REASON_FUSION
end
function c75124601.indop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
if rc:GetRace()==RACE_CYBERSE and rc:IsSetCard(0x3276) then
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124601,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetOwnerPlayer(ep)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
end
end
--械龙数据武装:肃清
function c75124602.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_EQUIP)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CONTINUOUS_TARGET)
e1:SetTarget(c75124602.target)
e1:SetOperation(c75124602.operation)
c:RegisterEffect(e1)
--Atk,def
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_EQUIP)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetCondition(c75124602.con)
e2:SetValue(300)
c:RegisterEffect(e2)
--equip limit
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_EQUIP_LIMIT)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetValue(c75124602.eqlimit)
c:RegisterEffect(e3)
--Atk,def
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_EQUIP)
e4:SetCode(EFFECT_UPDATE_ATTACK)
e4:SetValue(700)
c:RegisterEffect(e4)
--
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(75124602,2))
e5:SetCategory(CATEGORY_TOGRAVE)
e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e5:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
e5:SetRange(LOCATION_SZONE)
e5:SetCountLimit(1,75124602)
e5:SetCondition(c75124602.gycon)
e5:SetTarget(c75124602.gytg)
e5:SetOperation(c75124602.gyop)
c:RegisterEffect(e5)
--disable
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e6:SetCode(EVENT_BE_BATTLE_TARGET)
e6:SetRange(LOCATION_SZONE)
e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e6:SetCondition(c75124602.discon)
e6:SetOperation(c75124602.disop)
c:RegisterEffect(e6)
local e7=Effect.CreateEffect(c)
e7:SetType(EFFECT_TYPE_FIELD)
e7:SetCode(EFFECT_DISABLE)
e7:SetRange(LOCATION_SZONE)
e7:SetTargetRange(0,LOCATION_MZONE)
e7:SetTarget(c75124602.distg)
c:RegisterEffect(e7)
local e8=e5:Clone()
e8:SetCode(EFFECT_DISABLE_EFFECT)
c:RegisterEffect(e8)
end
function c75124602.discon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler():GetEquipTarget()
local r=c:GetRace()
return c and c:GetControler()==tp and (c==Duel.GetAttacker() or c==Duel.GetAttackTarget()) and c:GetBattleTarget() and bit.band(r,RACE_CYBERSE)
end
function c75124602.disop(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetHandler():GetEquipTarget():GetBattleTarget()
tc:RegisterFlagEffect(75124602,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE,0,1)
Duel.AdjustInstantly(e:GetHandler())
end
function c75124602.distg(e,c)
return c:GetFlagEffect(75124602)~=0
end
function c75124602.tgfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
end
function c75124602.gycon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler():GetEquipTarget()
local r=c:GetRace()
return c and (c==Duel.GetAttacker() or c==Duel.GetAttackTarget()) and bit.band(r,RACE_FAIRY)
end
function c75124602.gytg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75124602.tgfilter,tp,0,LOCATION_MZONE,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_MZONE)
end
function c75124602.gyop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c75124602.tgfilter,tp,0,LOCATION_MZONE,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
end
end
function c75124602.con(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler():GetEquipTarget()
local r=c:GetRace()
return bit.band(r,RACE_FAIRY) and c:IsFaceup()
end
function c75124602.eqlimit(e,c)
return c:IsRace(RACE_CYBERSE)
end
function c75124602.filter(c)
return c:IsFaceup() and c:IsRace(RACE_CYBERSE)
end
function c75124602.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75124602.filter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c75124602.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
Duel.SelectTarget(tp,c75124602.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
end
function c75124602.operation(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then
Duel.Equip(tp,e:GetHandler(),tc)
end
end
--械龙使·御龙
function c75124603.initial_effect(c)
--pos
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124603,0))
e1:SetCategory(CATEGORY_POSITION)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
e1:SetCondition(c75124603.condition)
e1:SetTarget(c75124603.target)
e1:SetOperation(c75124603.operation)
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_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SUMMON_SUCCESS)
e3:SetRange(LOCATION_MZONE)
e3:SetTarget(c75124603.sptg)
e3:SetOperation(c75124603.spop)
c:RegisterEffect(e3)
local e4=e3:Clone()
e4:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e4)
--indes
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e5:SetCode(EVENT_BE_MATERIAL)
e5:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e5:SetCondition(c75124603.indcon)
e5:SetOperation(c75124603.indop)
c:RegisterEffect(e5)
end
function c75124603.spfilter(c,e,tp)
return c:IsSetCard(0x3276) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelBelow(5)
end
function c75124603.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingMatchingCard(c75124603.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function c75124603.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c75124603.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
end
function c75124603.filter(c,e,tp)
return c:IsPosition(POS_FACEUP_ATTACK) and c:IsSummonPlayer(1-tp) and c:IsCanChangePosition() and (not e or c:IsRelateToEffect(e))
end
function c75124603.condition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE)
end
function c75124603.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return eg:IsExists(c75124603.filter,1,nil,e,tp) end
Duel.SetTargetCard(eg)
Duel.SetOperationInfo(0,CATEGORY_POSITION,eg,eg:GetCount(),0,0)
end
function c75124603.operation(e,tp,eg,ep,ev,re,r,rp)
local g=eg:Filter(c75124603.filter,nil,e,tp)
Duel.ChangePosition(g,POS_FACEUP_DEFENSE)
end
function c75124603.indcon(e,tp,eg,ep,ev,re,r,rp)
return r==REASON_FUSION
end
function c75124603.indop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
if rc:GetRace()==RACE_CYBERSE and rc:IsSetCard(0x3276) then
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124603,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e1:SetValue(c75124603.indval)
e1:SetOwnerPlayer(ep)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
end
end
function c75124603.indval(e,re,rp)
return rp==1-e:GetOwnerPlayer()
end
--械龙使·骑龙
function c75124604.initial_effect(c)
--disable
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124604,0))
e1:SetCategory(CATEGORY_DISABLE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetTarget(c75124604.target)
e1:SetOperation(c75124604.operation)
c:RegisterEffect(e1)
--indes
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c75124604.indcon)
e3:SetOperation(c75124604.indop)
c:RegisterEffect(e3)
end
function c75124604.filter1(c)
return c:IsSetCard(0x3276) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
end
function c75124604.filter2(c)
return c:IsFaceup() and c:IsType(TYPE_EFFECT)
end
function c75124604.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end
if chk==0 then return Duel.IsExistingTarget(c75124604.filter1,tp,LOCATION_GRAVE,0,1,nil)
and Duel.IsExistingTarget(c75124604.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g1=Duel.SelectTarget(tp,c75124604.filter1,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g2=Duel.SelectTarget(tp,c75124604.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,g1,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DISABLE,g2,1,0,0)
end
function c75124604.operation(e,tp,eg,ep,ev,re,r,rp)
local ex,g1=Duel.GetOperationInfo(0,CATEGORY_TODECK)
local ex,g2=Duel.GetOperationInfo(0,CATEGORY_DISABLE)
if g1:GetFirst():IsRelateToEffect(e) then
Duel.SendtoDeck(g1,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
end
local tc=g2:GetFirst()
if tc:IsFaceup() and tc:IsRelateToEffect(e) then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
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_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e2)
end
end
function c75124604.indcon(e,tp,eg,ep,ev,re,r,rp)
return r==REASON_FUSION
end
function c75124604.indop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
if rc:GetRace()==RACE_CYBERSE and rc:IsSetCard(0x3276) then
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75124604,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_ALSO_BATTLE_DAMAGE)
e1:SetOwnerPlayer(ep)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
end
end
\ No newline at end of file
--械龙铠·炎刃枪
function c75124665.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),7,2,c75124665.ovfilter,aux.Stringid(75124665,0),2,nil)
c:EnableReviveLimit()
--atk
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(c75124665.atkval)
c:RegisterEffect(e1)
--negate
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_CHAINING)
e3:SetCountLimit(1)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetRange(LOCATION_MZONE)
e3:SetCondition(c75124665.discon)
e3:SetCost(c75124665.discost)
e3:SetTarget(c75124665.distg)
e3:SetOperation(c75124665.disop)
c:RegisterEffect(e3)
end
function c75124665.ovfilter(c)
return c:IsFaceup() and c:IsCode(75124521) and c:GetOverlayCount()==4
end
function c75124665.atkval(e,c)
return c:GetOverlayCount()*200
end
function c75124665.discon(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
end
function c75124665.discost(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 c75124665.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)
if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
end
end
function c75124665.disop(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Destroy(eg,REASON_EFFECT)
end
end
--械龙圣铠·炎刃枪皇
function c75124689.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),10,2,c75124689.ovfilter,aux.Stringid(75124689,0),2,nil)
c:EnableReviveLimit()
--atk
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_UPDATE_ATTACK)
e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e0:SetRange(LOCATION_MZONE)
e0:SetCondition(c75124689.con2)
e0:SetValue(1000)
c:RegisterEffect(e0)
--atk
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:SetCondition(c75124689.con)
e1:SetValue(c75124689.atkval)
c:RegisterEffect(e1)
--damage
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DIRECT_ATTACK)
c:RegisterEffect(e2)
--immune
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_IMMUNE_EFFECT)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(c75124689.efilter)
c:RegisterEffect(e3)
end
function c75124689.con(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x3276)
end
function c75124689.con2(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x3276)
end
function c75124689.ovfilter(c)
return c:IsFaceup() and c:IsCode(75124665)
end
function c75124689.atkval(e,c)
return c:GetOverlayCount()*400
end
function c75124689.efilter(e,re)
return e:GetHandlerPlayer()~=re:GetHandlerPlayer() and re:IsActivated()
end
\ No newline at end of file
--械龙铠·暗骑龙
function c75124703.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),7,2,c75124703.ovfilter,aux.Stringid(75124703,0),2,nil)
c:EnableReviveLimit()
--atk/def gain
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c75124703.value)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e2)
--atk/def down
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_UPDATE_ATTACK)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(0,LOCATION_MZONE)
e3:SetValue(c75124703.value1)
c:RegisterEffect(e3)
local e4=e3:Clone()
e4:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e4)
--fusion protection
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetRange(LOCATION_MZONE)
e5:SetCountLimit(1)
e5:SetCost(c75124703.discost)
e5:SetTarget(c75124703.target)
e5:SetOperation(c75124703.damop)
c:RegisterEffect(e5)
end
function c75124703.value(e,c)
return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_REMOVED,LOCATION_REMOVED)*100
end
function c75124703.value1(e,c)
return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_REMOVED,LOCATION_REMOVED)*(-100)
end
function c75124703.discost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
end
function c75124703.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(1-tp)
Duel.SetTargetParam(1000)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500)
end
function c75124703.damop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,d,REASON_EFFECT)
end
function c75124703.ovfilter(c)
return c:IsFaceup() and c:IsCode(75124521) and c:GetOverlayCount()==4
end
\ No newline at end of file
--械龙圣铠·暗骑龙皇
function c75124725.initial_effect(c)
c:SetSPSummonOnce(75124725)
c:EnableCounterPermit(0x3276)
--xyz summon
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),10,2,c75124725.ovfilter,aux.Stringid(75124725,0),2,nil)
c:EnableReviveLimit()
--immune
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_IMMUNE_EFFECT)
e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e0:SetRange(LOCATION_MZONE)
e0:SetValue(c75124725.efilter)
c:RegisterEffect(e0)
--atk/def gain
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c75124725.value)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e2)
--atk/def down
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_UPDATE_ATTACK)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(0,LOCATION_MZONE)
e3:SetValue(c75124725.value1)
c:RegisterEffect(e3)
local e4=e3:Clone()
e4:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e4)
--material
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetRange(LOCATION_MZONE)
e5:SetDescription(aux.Stringid(75124725,2))
e5:SetCountLimit(2)
e5:SetCost(c75124725.cost)
e5:SetTarget(c75124725.target)
e5:SetOperation(c75124725.operation)
c:RegisterEffect(e5)
--damage
local e6=Effect.CreateEffect(c)
e6:SetDescription(aux.Stringid(75124725,1))
e6:SetType(EFFECT_TYPE_IGNITION)
e6:SetRange(LOCATION_MZONE)
e6:SetCost(c75124725.discost)
e6:SetTarget(c75124725.target2)
e6:SetOperation(c75124725.damop)
c:RegisterEffect(e6)
--noDmg
--local e7=Effect.CreateEffect(c)
--e7:SetCode(EVENT_BE_BATTLE_TARGET)
--e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
--e7:SetRange(LOCATION_MZONE)
--e7:SetCountLimit(1,75124725)
--e7:SetTarget(c75124725.target3)
--e7:SetCost(c75124725.cost2)
--e7:SetOperation(c75124725.opNoDmg)
--c:RegisterEffect(e7)
--to Grave
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_SINGLE)
e8:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e8:SetRange(LOCATION_MZONE)
e8:SetCode(EFFECT_SELF_DESTROY)
e8:SetCondition(c75124725.tgcon)
c:RegisterEffect(e8)
end
function c75124725.tgcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return Duel.GetCurrentPhase()==PHASE_END and c:GetCounter(0x3276)>=2
end
function c75124725.target3(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsCanAddCounter(tp,0x3276,1,e:GetHandler()) end
end
function c75124725.opNoDmg(e,tp,eg,ep,ev,re,r,rp)
Duel.BreakEffect()
Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE_STEP,1)
e:GetHandler():AddCounter(0x3276,1)
end
function c75124725.filter(c)
return c:IsCanOverlay() and c:IsRace(RACE_MACHINE)
end
function c75124725.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c75124725.filter(chkc) and chkc~=e:GetHandler() end
if chk==0 then return e:GetHandler():IsType(TYPE_XYZ)
and Duel.IsExistingTarget(c75124725.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
Duel.SelectTarget(tp,c75124725.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,e:GetHandler())
end
function c75124725.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
local og=tc:GetOverlayGroup()
if og:GetCount()>0 then
Duel.SendtoGrave(og,REASON_RULE)
end
Duel.Overlay(c,Group.FromCards(tc))
end
end
function c75124725.discost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
end
function c75124725.target2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(1-tp)
Duel.SetTargetParam(1000)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500)
end
function c75124725.damop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,d,REASON_EFFECT)
e:GetHandler():AddCounter(0x3276,1)
end
function c75124725.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,500) end
Duel.PayLPCost(tp,500)
end
function c75124725.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,500) end
Duel.PayLPCost(tp,500)
end
function c75124725.efilter(e,re)
return e:GetHandlerPlayer()~=re:GetHandlerPlayer() and re:IsActivated()
end
function c75124725.vafilter(c)
return c:IsFaceup()
end
function c75124725.value(e,c)
return Duel.GetMatchingGroupCount(c75124725.vafilter,c:GetControler(),LOCATION_REMOVED,LOCATION_REMOVED,nil)*200
end
function c75124725.value1(e,c)
return Duel.GetMatchingGroupCount(c75124725.vafilter,c:GetControler(),LOCATION_REMOVED,LOCATION_REMOVED,nil)*(-200)
end
function c75124725.ovfilter(c)
return c:IsFaceup() and c:IsCode(75124703)
end
\ No newline at end of file
--均衡升级
function c75124986.initial_effect(c)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(75124986,1))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_ACTIVATE)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetCountLimit(1,75124986)
e2:SetCondition(c75124986.spcon)
e2:SetTarget(c75124986.sptg)
e2:SetOperation(c75124986.spop)
c:RegisterEffect(e2)
--to hand
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_CHAIN_NEGATED)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetRange(LOCATION_GRAVE)
e2:SetCondition(c75124986.thcon)
e2:SetCost(c75124986.thcost)
e2:SetTarget(c75124986.thtg)
e2:SetOperation(c75124986.thop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_CUSTOM+75124986)
e3:SetCondition(c75124986.thcon2)
c:RegisterEffect(e3)
end
function c75124986.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c75124986.sprfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c75124986.sprfilter(c)
return c:GetAttack() == c:GetDefense()
end
function c75124986.spfilter(c,e,tp)
return c:IsSetCard(0x276) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c75124986.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c75124986.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c75124986.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,c75124986.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
end
function c75124986.thcon(e,tp,eg,ep,ev,re,r,rp)
local de,dp=Duel.GetChainInfo(ev,CHAININFO_DISABLE_REASON,CHAININFO_DISABLE_PLAYER)
return rp==tp and de and dp==1-tp and re:IsHasType(EFFECT_TYPE_ACTIVATE)
and e:GetHandler()==re:GetHandler() and e:GetHandler():GetReasonEffect()==de
end
function c75124986.thcost(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.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
function c75124986.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToHand() end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
end
function c75124986.thop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SendtoHand(c,nil,REASON_EFFECT)
end
end
function c75124986.thcon2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c==re:GetHandler() and c:GetReasonEffect()==nil
end
--械龙
function c75125434.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c75125434.spcon)
c:RegisterEffect(e1)
--special summon (self)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(1142880,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_HAND)
e2:SetCountLimit(1,1142880)
e2:SetCost(c75125434.cost)
e2:SetTarget(c75125434.sptg)
e2:SetOperation(c75125434.spop)
c:RegisterEffect(e2)
end
function c75125434.spcon(e,c)
if c==nil then return true end
return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0
and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0
and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
end
function c75125434.cfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsDiscardable() and c:IsSetCard(0x276)
end
function c75125434.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75125434.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.DiscardHand(tp,c75125434.cfilter,1,1,REASON_COST+REASON_DISCARD,e:GetHandler())
end
function c75125434.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 c75125434.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
\ No newline at end of file
--机械堆叠
function c75125456.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1)
e1:SetCost(c75125456.cost)
e1:SetTarget(c75125456.target)
e1:SetOperation(c75125456.activate)
c:RegisterEffect(e1)
end
function c75125456.cost(e,tp,eg,ep,ev,re,r,rp,chk)
e:SetLabel(1)
return true
end
function c75125456.filter(c)
return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsRace(RACE_MACHINE)
end
function c75125456.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75125456.filter(chkc) end
if chk==0 then
if e:GetLabel()==0 then return false end
e:SetLabel(0)
return Duel.IsExistingTarget(c75125456.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
and e:GetHandler():IsCanOverlay()
end
e:SetLabel(0)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
Duel.SelectTarget(tp,c75125456.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
end
function c75125456.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsImmuneToEffect(e) and c:IsRelateToEffect(e) then
c:CancelToGrave()
Duel.Overlay(tc,Group.FromCards(c))
end
end
--械龟龙·坚甲
function c75126263.initial_effect(c)
--special summon
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_SPSUMMON_PROC)
e3:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e3:SetRange(LOCATION_HAND)
e3:SetCondition(c75126263.hspcon)
e3:SetOperation(c75126263.hspop)
c:RegisterEffect(e3)
--spsummon success
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(75126263,0))
e1:SetCategory(CATEGORY_DAMAGE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetTarget(c75126263.damtg)
e1:SetOperation(c75126263.damop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--atk dfs up
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_UPDATE_ATTACK)
e4:SetRange(LOCATION_MZONE)
e4:SetTargetRange(LOCATION_MZONE,0)
e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x276))
e4:SetValue(500)
c:RegisterEffect(e4)
local e5=e4:Clone()
e5:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e5)
end
function c75126263.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(1-tp)
Duel.SetTargetParam(500)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500)
end
function c75126263.damop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,d,REASON_EFFECT)
end
function c75126263.spfilter(c,tp)
return c:IsRace(RACE_MACHINE)
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c75126263.hspcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.CheckReleaseGroup(tp,c75126263.spfilter,1,nil,tp)
end
function c75126263.hspop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.SelectReleaseGroup(tp,c75126263.spfilter,1,1,nil,tp)
Duel.Release(g,REASON_COST)
end
\ No newline at end of file
--械龙机·重装
function c75126432.initial_effect(c)
--xyz summon
aux.AddXyzProcedureLevelFree(c,aux.FilterBoolFunction(Card.IsSetCard,0x276),nil,2,2)
c:EnableReviveLimit()
--search
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e1:SetRange(LOCATION_MZONE)
e1:SetDescription(aux.Stringid(75126432,0))
e1:SetCountLimit(1)
e1:SetCost(c75126432.discost)
e1:SetTarget(c75126432.target)
e1:SetOperation(c75126432.operation)
c:RegisterEffect(e1)
--fusion protection
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetDescription(aux.Stringid(75126432,1))
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetCost(c75126432.discost)
e2:SetTarget(c75126432.sptg)
e2:SetOperation(c75126432.spop)
c:RegisterEffect(e2)
end
function c75126432.discost(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 c75126432.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c75126432.filter2,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c75126432.filter2(c)
return c:IsSetCard(0x276) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
end
function c75126432.operation(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local tg=Duel.SelectMatchingCard(tp,c75126432.filter2,tp,LOCATION_DECK,0,1,1,nil)
if tg:GetCount()>0 then
Duel.SendtoHand(tg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tg)
end
end
function c75126432.spfilter(c,e,tp)
return c:IsSetCard(0x276) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c75126432.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c75126432.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c75126432.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,c75126432.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
end
--械狮龙·獠牙
function c75128967.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c75128967.hspcon)
e1:SetOperation(c75128967.hspop)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(75128967,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetTarget(c75128967.sptg)
e2:SetOperation(c75128967.spop)
c:RegisterEffect(e2)
--attack up
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetRange(LOCATION_MZONE)
e3:SetCode(EFFECT_UPDATE_ATTACK)
e3:SetCondition(c75128967.condtion)
e3:SetValue(500)
c:RegisterEffect(e3)
end
function c75128967.condtion(e)
local ph=Duel.GetCurrentPhase()
local bc=e:GetHandler():GetBattleTarget()
return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and bc and not bc:IsType(TYPE_NORMAL)
end
function c75128967.spfilter(c,tp)
return c:IsRace(RACE_MACHINE)
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c75128967.hspcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.CheckReleaseGroup(tp,c75128967.spfilter,1,nil,tp)
end
function c75128967.hspop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.SelectReleaseGroup(tp,c75128967.spfilter,1,1,nil,tp)
Duel.Release(g,REASON_COST)
end
function c75128967.spfilter1(c,e)
return not c:IsImmuneToEffect(e)
end
function c75128967.spfilter2(c,e,tp,m,f,chkf)
return c:IsType(TYPE_FUSION) and c:IsRace(RACE_MACHINE) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
end
function c75128967.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp)
local res=Duel.IsExistingMatchingCard(c75128967.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c75128967.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c75128967.spop(e,tp,eg,ep,ev,re,r,rp)
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp):Filter(c75128967.spfilter1,nil,e)
local sg1=Duel.GetMatchingGroup(c75128967.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
local mg2=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c75128967.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
end
if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
local sg=sg1:Clone()
if sg2 then sg:Merge(sg2) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local tg=sg:Select(tp,1,1,nil)
local tc=tg:GetFirst()
if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
tc:SetMaterial(mat1)
Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
Duel.BreakEffect()
Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
else
local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
function c75128967.cfilter(c,tp)
return c:IsType(TYPE_MONSTER) and c:IsPreviousControler(tp)
end
.gitlab-ci.yml 14f0c978d67454249e19f8dd548776aa .gitlab-ci.yml 4d34970f2f7b7de7d9a30e101ad7e79a
.gitlab-ci.yml.backup 6b1efae0ff9d89f049c462211aca5d61 .gitlab-ci.yml.backup 6b1efae0ff9d89f049c462211aca5d61
.vs/ProjectSettings.json e88a33ccaa92ae56561422612f557911 .vs/ProjectSettings.json e88a33ccaa92ae56561422612f557911
.vs/slnx.sqlite 7b01948cee58af44267f554425cca528 .vs/slnx.sqlite 735e2e2d7bda5809c8358864dab082a9
.vs/VSWorkspaceState.json c5d8964c7f5288c0be2b2463a8eccc7a .vs/VSWorkspaceState.json cc6e27af38ae6a182de298031e0f11ae
.vs/ygopro-222DIY-cards/FileContentIndex/0f6c78f1-16dc-49b7-99f1-f9060c4b3139.vsidx 0 .vs/ygopro-222DIY-cards/FileContentIndex/0f6c78f1-16dc-49b7-99f1-f9060c4b3139.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/3078f029-65d9-440e-b80b-5f9e1ba5d853.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/4c6f1cdd-825e-4ef0-9691-9318256dd184.vsidx 0 .vs/ygopro-222DIY-cards/FileContentIndex/4c6f1cdd-825e-4ef0-9691-9318256dd184.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/4cabe04b-5787-483e-9922-ffb75561466a.vsidx 0 .vs/ygopro-222DIY-cards/FileContentIndex/5a648417-502f-483e-89b0-b0d21418281f.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/70fb1512-ba48-48d1-8e4e-c773eafcaaf1.vsidx 0 .vs/ygopro-222DIY-cards/FileContentIndex/5e48efe3-1f04-450b-a9cd-95172acd48cf.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/7f5f9cc6-6955-493c-b630-1868bc3e4f0f.vsidx 0 .vs/ygopro-222DIY-cards/FileContentIndex/71174c18-9058-4c9c-b4df-513aec58655c.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/885dbaac-d6de-40c5-96a3-d0a11ea79185.vsidx 0 .vs/ygopro-222DIY-cards/FileContentIndex/b38d3c04-826c-4ba2-894d-032d99328ad0.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/c5d375a0-f8e2-4c2e-8b91-3b44cffb91ab.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/d791416e-6a15-4649-ad19-5a036be551a4.vsidx 0 .vs/ygopro-222DIY-cards/FileContentIndex/d791416e-6a15-4649-ad19-5a036be551a4.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/e382baff-4cb2-4d35-bdc3-51d3d4cebc23.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/e3d026a8-5738-446c-a620-11a330aa7e9b.vsidx 0 .vs/ygopro-222DIY-cards/FileContentIndex/e3d026a8-5738-446c-a620-11a330aa7e9b.vsidx 0
.vs/ygopro-222DIY-cards/FileContentIndex/fe44a4a1-e56e-4679-814d-3fc68f4fc449.vsidx 0 .vs/ygopro-222DIY-cards/FileContentIndex/fe44a4a1-e56e-4679-814d-3fc68f4fc449.vsidx 0
.vs/ygopro-222DIY-cards/v17/.wsuo d182f26010e1a4d2981b5a56b9b62d64 .vs/ygopro-222DIY-cards/v17/.wsuo 0decafed2537a2317f5ff337c2864a51
.vs/ygopro-222DIY-cards/v17/workspaceFileList.bin ec6aac9de97976527164683f714c694e .vs/ygopro-222DIY-cards/v17/workspaceFileList.bin c4979b5ba5450923bdfd5ade619c1ed4
deck/2023-12-11 1st.ydk 6e41169c6a105a9cdd72fd77830a894b deck/2023-12-11 1st.ydk 6e41169c6a105a9cdd72fd77830a894b
deck/2023-12-11 2nd.ydk e0cf27aca939f25608dd6935bd4a27b5 deck/2023-12-11 2nd.ydk e0cf27aca939f25608dd6935bd4a27b5
deck/2023-12-11 3rd.ydk 412655da30b6f70b1bf107105d132046 deck/2023-12-11 3rd.ydk 412655da30b6f70b1bf107105d132046
deck/2023-12-11 4th.ydk cde5e8d124a82fa48e0bfa8000bdc242 deck/2023-12-11 4th.ydk cde5e8d124a82fa48e0bfa8000bdc242
expansions/222DIY.cdb eb58c6f8eac8eef0557cd456d517c41d expansions/222DIY.cdb 5abd04fc707eceffa1792a912aaafdf6
expansions/lflist.conf 5536f92d059074170035fc84381516f6 expansions/lflist.conf 5536f92d059074170035fc84381516f6
expansions/strings.conf 23eeb59276dd0f135b089d017da5d457 expansions/strings.conf 23eeb59276dd0f135b089d017da5d457
expansions/pics/10000100.jpg 094075113728f2b79eb0c6a029d97e10 expansions/pics/10000100.jpg 094075113728f2b79eb0c6a029d97e10
...@@ -14423,40 +14422,6 @@ expansions/pics/7439221.jpg 1bf00c7a557c85eb3e2f86e9b88d61a9 ...@@ -14423,40 +14422,6 @@ expansions/pics/7439221.jpg 1bf00c7a557c85eb3e2f86e9b88d61a9
expansions/pics/7439223.jpg 924dba37c492584ed4425586285a6ec2 expansions/pics/7439223.jpg 924dba37c492584ed4425586285a6ec2
expansions/pics/7439225.jpg 00a1a455a4fb2a6e8aaabd6f58cef5a7 expansions/pics/7439225.jpg 00a1a455a4fb2a6e8aaabd6f58cef5a7
expansions/pics/7439301.jpg 57564bfeeaca42d007b2c7acc93b6ba0 expansions/pics/7439301.jpg 57564bfeeaca42d007b2c7acc93b6ba0
expansions/pics/75121652.jpg 5bb4afa6f73c05272c633d41d7706abc
expansions/pics/75122544.jpg 7e30ae87c436fb9661ffefc7b123e29e
expansions/pics/75122916.jpg 24ca2b2ce00eb5bfc63666b6d532a762
expansions/pics/75123615.jpg 14b2ac0d8e532b6825eafe2642c4ef96
expansions/pics/75123616.jpg b87b9ba5695ed0eacc6f9d6c41727a46
expansions/pics/75124521.jpg d04910a2cc68c78d1b25955f5796154c
expansions/pics/75124532.jpg 8cb8cb1fda778f8c625fb69210313dbe
expansions/pics/75124533.jpg 3655defb4f26bdeb087c14cc83bf27f5
expansions/pics/75124534.jpg a9cec8dd0ab74add74069635a3c697b7
expansions/pics/75124535.jpg fb8d35b8eef1a90ad59d5e42f710a2ac
expansions/pics/75124536.jpg c06bb23777f8a2951adc7a59b07d8dca
expansions/pics/75124537.jpg ba618b1d8346dcd94dbb7a0a4d9bdcb3
expansions/pics/75124538.jpg 69b3e9983e78f59fa80e46f1cb17bedf
expansions/pics/75124539.jpg cd04cdac0bb3887545fa6e176461851b
expansions/pics/75124540.jpg 007c3c598e93a9c0aa4020954f90b562
expansions/pics/75124541.jpg c73701257ac80243d5bcafa9fb8b87b4
expansions/pics/75124542.jpg 9f65c18f80541efe375a8c8eb2bd668f
expansions/pics/75124543.jpg 2164feac8542b3074daa71d6cfe48843
expansions/pics/75124544.jpg 4a9ceeba78feb5f32d29f59bc4def662
expansions/pics/75124570.jpg 98a13190ea70cb99b0edf0261e7f7ceb
expansions/pics/75124601.jpg 4b8f6206ae406f34683ce45d43f4029a
expansions/pics/75124602.jpg eb6ebb73989e4f507b1e99f33f07d51c
expansions/pics/75124603.jpg b6241296b6602dd7508b58e694947655
expansions/pics/75124604.jpg 886cf6a3d5a69238b27054e2f8d23de9
expansions/pics/75124665.jpg 324d3793e42eeb7ff6f904e2e1093cdb
expansions/pics/75124689.jpg 51eb965946e68a82fee363175d20f591
expansions/pics/75124703.jpg 5d8aa4b335204da8001ba7ed63b27c3e
expansions/pics/75124725.jpg defcf0a39e8cb059e2237c40c937d71d
expansions/pics/75124986.jpg b9bfc08b4a3c24be2adc0b0682cd8c0d
expansions/pics/75125434.jpg c6f3559640765d672cd689fe8c5c62e0
expansions/pics/75125456.jpg 34f9870ab37ab071fe7387bad395902a
expansions/pics/75126263.jpg 8d028beae6461e13b3670b6fd35eabfd
expansions/pics/75126432.jpg a97102d2620bdc9c78387fc1ae8f1746
expansions/pics/75128967.jpg 337e95fb4321762248ede6235e6e95e3
expansions/pics/75640000.jpg 55c15b454a76c1a7679d3285adb25a9e expansions/pics/75640000.jpg 55c15b454a76c1a7679d3285adb25a9e
expansions/pics/75640050.jpg 53c9276bea864a589dca2108fc8a53a7 expansions/pics/75640050.jpg 53c9276bea864a589dca2108fc8a53a7
expansions/pics/75640051.jpg 853edc15f6d6a52c7d98bff4232a870f expansions/pics/75640051.jpg 853edc15f6d6a52c7d98bff4232a870f
...@@ -27369,16 +27334,16 @@ expansions/script/c4260611.lua 59816d85d24e7103b2e1f7cd3768be10 ...@@ -27369,16 +27334,16 @@ expansions/script/c4260611.lua 59816d85d24e7103b2e1f7cd3768be10
expansions/script/c4270000.lua d0568e2e60c866138225fe49a62a43e7 expansions/script/c4270000.lua d0568e2e60c866138225fe49a62a43e7
expansions/script/c4270001.lua b6cd01f73b842efa8f66a58a4436f10d expansions/script/c4270001.lua b6cd01f73b842efa8f66a58a4436f10d
expansions/script/c4270002.lua 97018d020ded9315137fdb91bcf40c00 expansions/script/c4270002.lua 97018d020ded9315137fdb91bcf40c00
expansions/script/c4270003.lua e7afb472d0801c307c47181b5c347042 expansions/script/c4270003.lua 23892cb7393bd10d3a190986ac15e3a7
expansions/script/c4270004.lua fa92198c0115bb6dbd94d2a0b6b74397 expansions/script/c4270004.lua fa92198c0115bb6dbd94d2a0b6b74397
expansions/script/c4270005.lua 275e6d2f6b61ed71eb24642eba4c387a expansions/script/c4270005.lua 275e6d2f6b61ed71eb24642eba4c387a
expansions/script/c4270006.lua 225861df2d36fd010c9cb9a586916447 expansions/script/c4270006.lua 225861df2d36fd010c9cb9a586916447
expansions/script/c4270007.lua 5b50a247e7f4b06c7e147beaa3ae99ec expansions/script/c4270007.lua 5b50a247e7f4b06c7e147beaa3ae99ec
expansions/script/c4270008.lua e047ee29ffa9c05a32318be4211238e0 expansions/script/c4270008.lua e047ee29ffa9c05a32318be4211238e0
expansions/script/c4270009.lua 78f7e3555a2745961c98b3c3c3a33a44 expansions/script/c4270009.lua 78f7e3555a2745961c98b3c3c3a33a44
expansions/script/c4270010.lua c495fe1851739efbfc6e4010b1ea50e6 expansions/script/c4270010.lua f6d6d42ab51bb732096ac773feb88226
expansions/script/c4270011.lua ff7d7673e4e2349282ddd475a42aefd9 expansions/script/c4270011.lua ff7d7673e4e2349282ddd475a42aefd9
expansions/script/c4270012.lua e39b4e2d0a534243f7ba3c1f41e59869 expansions/script/c4270012.lua eb2a02071e4aad20ea6a365494fb9408
expansions/script/c4270013.lua c649029c2739c5041990f8f73ec60bb1 expansions/script/c4270013.lua c649029c2739c5041990f8f73ec60bb1
expansions/script/c4270014.lua 2baa8a8c979e94a9404be8025e5a0eaf expansions/script/c4270014.lua 2baa8a8c979e94a9404be8025e5a0eaf
expansions/script/c4270015.lua 67cb259e35f8f0bba631f0664b6074db expansions/script/c4270015.lua 67cb259e35f8f0bba631f0664b6074db
...@@ -29489,7 +29454,7 @@ expansions/script/c64800189.lua 862b131bea95c8f009f6bbd863482501 ...@@ -29489,7 +29454,7 @@ expansions/script/c64800189.lua 862b131bea95c8f009f6bbd863482501
expansions/script/c64800190.lua f14add082cec49d2791471f3c12162da expansions/script/c64800190.lua f14add082cec49d2791471f3c12162da
expansions/script/c64800191.lua aec6c775c40cf5fad2f9fab0aeb5fcfc expansions/script/c64800191.lua aec6c775c40cf5fad2f9fab0aeb5fcfc
expansions/script/c64800192.lua a28766e613d5adb0a42ec9b4fca79f3f expansions/script/c64800192.lua a28766e613d5adb0a42ec9b4fca79f3f
expansions/script/c64800193.lua 18b7832e332177f1ee01d45c57e16d1e expansions/script/c64800193.lua 9befca26d58f4684e5a587203d61d98f
expansions/script/c64800194.lua fc18eb8158e5ee7a704befdedc24b303 expansions/script/c64800194.lua fc18eb8158e5ee7a704befdedc24b303
expansions/script/c64800200.lua 5bb48d9b6b80166d3d3835b49a01a857 expansions/script/c64800200.lua 5bb48d9b6b80166d3d3835b49a01a857
expansions/script/c64800201.lua e1575942eafb10daeeba56e79432a11d expansions/script/c64800201.lua e1575942eafb10daeeba56e79432a11d
...@@ -31691,40 +31656,6 @@ expansions/script/c7439221.lua 68efe8302110ad73abaca32fc6f0ff04 ...@@ -31691,40 +31656,6 @@ expansions/script/c7439221.lua 68efe8302110ad73abaca32fc6f0ff04
expansions/script/c7439223.lua a8e6307d8acf56f69a3ad31b327f56e2 expansions/script/c7439223.lua a8e6307d8acf56f69a3ad31b327f56e2
expansions/script/c7439225.lua 98679460fc88615ab5ec373623b7d467 expansions/script/c7439225.lua 98679460fc88615ab5ec373623b7d467
expansions/script/c7439301.lua b1a2dd5ad0b5ad97cc39578bdf6b11aa expansions/script/c7439301.lua b1a2dd5ad0b5ad97cc39578bdf6b11aa
expansions/script/c75121652.lua 65ff1913a2fd2c32a4370a054fa50fbd
expansions/script/c75122544.lua 254b9e3b28a9ee9b2cdf9cefd0bde3dc
expansions/script/c75122916.lua d54bea13794063091b1dbf489c641921
expansions/script/c75123615.lua 1039dd8a7a24564f7bd3a1e1be8138ab
expansions/script/c75123616.lua 26f63010014c17d43e31f515c7826829
expansions/script/c75124521.lua cfe07d815d9a9572a166430773345e1f
expansions/script/c75124532.lua bd62e0428f34194454b4fd303b829a69
expansions/script/c75124533.lua c93d8ea75d4ff4fcf7da6a991b38e0c0
expansions/script/c75124534.lua f2480c55dab0691b34215f5458b788fa
expansions/script/c75124535.lua c096ac075203c808deb65e5d000e1ff9
expansions/script/c75124536.lua 18f142e99b9d7fda49e4badcf4418603
expansions/script/c75124537.lua 1f1d010013f5c50f5c5811bea94cd467
expansions/script/c75124538.lua 4fa6decfe36d1782db5f3aa4922655cd
expansions/script/c75124539.lua 5679276e4d4ed5908aefbf4676d1c418
expansions/script/c75124540.lua 58c58c527c0f339eaee9260579fbd970
expansions/script/c75124541.lua 6e30539ee86dfc088b62613c7da94df1
expansions/script/c75124542.lua e8e1b77316be7b36e8fc68ad75bfbdb7
expansions/script/c75124543.lua d654d28cba2f0c89665b6a112644f90f
expansions/script/c75124544.lua 781c9dc1ca7d8296076c04779e7b1eeb
expansions/script/c75124570.lua bedfa37cfcd7da83b1d5421dde4a4d4a
expansions/script/c75124601.lua fdeb63cd6fbf88e5672f286aaf568227
expansions/script/c75124602.lua 1bb8128a09c5dd5acfa20608672e3214
expansions/script/c75124603.lua b003cfd369958fe06b1aaae05c45901d
expansions/script/c75124604.lua 54597b452410259a97572678c8934c62
expansions/script/c75124665.lua ffc619496d50c6f304aa6e5d90fbac34
expansions/script/c75124689.lua 4c17e00f065d03545a47e08bc77e39bd
expansions/script/c75124703.lua 77a61b77f83b8b57819f29d190d854e1
expansions/script/c75124725.lua 42ef3e9aeeaca91d02d5400dc7b631ff
expansions/script/c75124986.lua c607a7f3273c4155df5cd6937564d68b
expansions/script/c75125434.lua 6c8bc587b296dbcb5706a39ef28089ce
expansions/script/c75125456.lua 3b6c583736218aa870b93b66e8f48449
expansions/script/c75126263.lua 49f9b495f57ddef0ae77e7f239f66216
expansions/script/c75126432.lua 36e5814f666884aeec1e1e74981f119f
expansions/script/c75128967.lua 025a6fe159b8a67e3948a906f2752d81
expansions/script/c75640000.lua 12dbd25bcf062f1fbc7139fb431b82db expansions/script/c75640000.lua 12dbd25bcf062f1fbc7139fb431b82db
expansions/script/c75640050.lua d58cbe792a50616c7f5afb1e95d33429 expansions/script/c75640050.lua d58cbe792a50616c7f5afb1e95d33429
expansions/script/c75640051.lua 698cbae46ee1d42177420b2dc187f260 expansions/script/c75640051.lua 698cbae46ee1d42177420b2dc187f260
...@@ -34738,12 +34669,12 @@ expansions/script/psionic.lua ee797887273b8ab6c5e94815f2768037 ...@@ -34738,12 +34669,12 @@ expansions/script/psionic.lua ee797887273b8ab6c5e94815f2768037
expansions/script/tama.lua e81e8bb64ed65e88f6c9d28439b4243e expansions/script/tama.lua e81e8bb64ed65e88f6c9d28439b4243e
expansions/script/underscore.lua 1edba1de7fbd192ea4961e0c41e9438e expansions/script/underscore.lua 1edba1de7fbd192ea4961e0c41e9438e
expansions/script/utterconfusionlib.lua d8abc11763007f170e0781b79c145e99 expansions/script/utterconfusionlib.lua d8abc11763007f170e0781b79c145e99
update/delete.txt 41c8b8bfbf0e584c4437015a5a53dd1e update/delete.txt bcae307f6039207f11b4daa83f17c0ec
update/filelist.txt c92380a5d401c126fdd1c6287b9a3753 update/filelist.txt 9cdd737725f6c1940189ca3ddf8b7c7c
update/rename.txt c509c33cdee4e36b1cfaaed4315f2886 update/rename.txt c509c33cdee4e36b1cfaaed4315f2886
update/update-push.bat 49e0e022872a85c5350b8ee445ecd4d8 update/update-push.bat 49e0e022872a85c5350b8ee445ecd4d8
update/update-push.sh 7e2d4b2410720d4d446f36371420ff54 update/update-push.sh 7e2d4b2410720d4d446f36371420ff54
update/update-server.sh b078089c0cbfcf3460194360681cfb49 update/update-server.sh b078089c0cbfcf3460194360681cfb49
update/update-without-sound.bat 22d7b973d79ef9311213aeff61d93d7c update/update-without-sound.bat 22d7b973d79ef9311213aeff61d93d7c
update/update.exe.backup 4e657ec15b4a65065c3ab583043b234e update/update.exe.backup 4e657ec15b4a65065c3ab583043b234e
update/version.txt 99420b572565df9ea076cad7b3fbf475 update/version.txt 3493683962ae01605fc3319fcef1439f
2023/12/14 8:39:06 2023/12/15 12:26:30
\ No newline at end of file \ 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