Skip to content

Y
ygopro-222DIY-cards
Commit 3f708418 authored by Tachibana's avatar Tachibana
Browse files
Options

12

parent d77ae5a3
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 422 additions and 386 deletions
expansions/script/c115010.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@
local m=115010
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,15000351)
aux.AddCodeList(c,15000351,15000348)
c:SetUniqueOnField(1,1,m)
--synchro summon
......
expansions/script/c11800010.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@
local m=11800010
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,11800009)
--synchro summon
aux.AddSynchroMixProcedure(c,cm.mfilter1,cm.mfilter2,nil,aux.NonTuner(cm.mfilter3),1,1)
c:EnableReviveLimit()
......@@ -82,6 +83,6 @@ end
function cm.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Destroy(eg,REASON_EFFECT)
Duel.Destroy(eg,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c12048035.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local m=12048035
local cm=_G["c"..m]
cm.named_with_HakaShiro=true
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,12048031)
--synchro summon
aux.AddSynchroProcedure(c,cm.tfilter,aux.NonTuner(nil),1)
c:EnableReviveLimit()
......
expansions/script/c14000034.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@
local m=14000034
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,14000021)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.FilterBoolFunction(Card.IsCode,14000021),1,1)
c:EnableReviveLimit()
......
expansions/script/c15000357.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@ local m=15000357
local cm=_G["c"..m]
cm.name="纯粹容器 空洞骑士"
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,15000351)
aux.AddCodeList(c,15000351)
aux.AddSynchroProcedure(c,aux.Tuner(nil),aux.FilterBoolFunction(Card.IsCode,15000351),1,1)
c:EnableReviveLimit()
......
expansions/script/c16063023.lua
View file @ 3f708418
--pianzhang jiuyuan
function c16063023.initial_effect(c)
aux.AddMaterialCodeList(c,16063005)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,16063005),aux.NonTuner(nil),1)
c:EnableReviveLimit()
......
expansions/script/c17035130.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@
local m=17035130
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,17035020)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,17035020),aux.NonTuner(nil),1)
c:EnableReviveLimit()
......
expansions/script/c17035340.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@
local m=17035340
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,17035300)
c:EnableReviveLimit()
aux.EnablePendulumAttribute(c,false)
local e0=Effect.CreateEffect(c)
......
expansions/script/c18004010.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local m=18004010
local cm=_G["c"..m]
cm.rssetcode="SexGun"
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,18004005)
rssg.SexGunCode(c)
aux.AddSynchroProcedure(c,nil,aux.FilterBoolFunction(Card.IsCode,18004005),1,1)
c:EnableReviveLimit()
......
expansions/script/c18004014.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local m=18004014
local cm=_G["c"..m]
cm.rssetcode="SexGun"
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,18004005)
aux.AddSynchroProcedure(c,nil,aux.FilterBoolFunction(Card.IsCode,18004005),2,99)
c:EnableReviveLimit()
rssg.SexGunCode(c)
......
expansions/script/c18004016.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local m=18004016
local cm=_G["c"..m]
cm.rssetcode="SexGun"
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,18004005)
aux.AddSynchroProcedure(c,nil,aux.FilterBoolFunction(Card.IsCode,18004005),2,99)
c:EnableReviveLimit()
rssg.SexGunCode(c)
......
expansions/script/c23000309.lua
View file @ 3f708418
--赛须眉·公孙玥
function c23000309.initial_effect(c)
aux.AddMaterialCodeList(c,23000303)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WARRIOR),aux.FilterBoolFunction(Card.IsCode,23000303),1,1)
c:EnableReviveLimit()
......
expansions/script/c23000350.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@ local m=23000350
local cm=_G["c"..m]
--白马队率 子龙
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,23000304)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WARRIOR),aux.NonTuner(Card.IsCode,23000304),1)
c:EnableReviveLimit()
......
expansions/script/c32912374.lua
View file @ 3f708418
--Spiral Drill - Sky Drive Warrior
function c32912374.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,32912371),aux.NonTuner(Card.IsSetCard,0xa15),1)
c:EnableReviveLimit()
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetRange(LOCATION_EXTRA)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.synlimit)
c:RegisterEffect(e1)
--actlimit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_ACTIVATE)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(0,1)
e2:SetValue(c32912374.aclimit)
e2:SetCondition(c32912374.actcon)
c:RegisterEffect(e2)
--pierce
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_PIERCE)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_PRE_BATTLE_DAMAGE)
e4:SetCondition(c32912374.damcon)
e4:SetOperation(c32912374.damop)
c:RegisterEffect(e4)
--position
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(32912374,1))
e5:SetCategory(CATEGORY_POSITION)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetCode(EVENT_ATTACK_ANNOUNCE)
e5:SetTarget(c32912374.postg)
e5:SetOperation(c32912374.posop)
c:RegisterEffect(e5)
aux.AddMaterialCodeList(c,32912371)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,32912371),aux.NonTuner(Card.IsSetCard,0xa15),1)
c:EnableReviveLimit()
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetRange(LOCATION_EXTRA)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.synlimit)
c:RegisterEffect(e1)
--actlimit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_ACTIVATE)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(0,1)
e2:SetValue(c32912374.aclimit)
e2:SetCondition(c32912374.actcon)
c:RegisterEffect(e2)
--pierce
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_PIERCE)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_PRE_BATTLE_DAMAGE)
e4:SetCondition(c32912374.damcon)
e4:SetOperation(c32912374.damop)
c:RegisterEffect(e4)
--position
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(32912374,1))
e5:SetCategory(CATEGORY_POSITION)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetCode(EVENT_ATTACK_ANNOUNCE)
e5:SetTarget(c32912374.postg)
e5:SetOperation(c32912374.posop)
c:RegisterEffect(e5)
end
function c32912374.aclimit(e,re,tp)
return not re:GetHandler():IsImmuneToEffect(e)
return not re:GetHandler():IsImmuneToEffect(e)
end
function c32912374.actcon(e)
return Duel.GetAttacker()==e:GetHandler()
return Duel.GetAttacker()==e:GetHandler()
end
function c32912374.damcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return ep~=tp and c==Duel.GetAttacker() and Duel.GetAttackTarget() and Duel.GetAttackTarget():IsDefensePos()
local c=e:GetHandler()
return ep~=tp and c==Duel.GetAttacker() and Duel.GetAttackTarget() and Duel.GetAttackTarget():IsDefensePos()
end
function c32912374.damop(e,tp,eg,ep,ev,re,r,rp)
Duel.ChangeBattleDamage(ep,ev*2)
Duel.ChangeBattleDamage(ep,ev*2)
end
function c32912374.postg(e,tp,eg,ep,ev,re,r,rp,chk)
local d=Duel.GetAttackTarget()
if chk==0 then return d and d:IsControler(1-tp) and d:IsCanChangePosition() end
Duel.SetOperationInfo(0,CATEGORY_POSITION,d,1,0,0)
local d=Duel.GetAttackTarget()
if chk==0 then return d and d:IsControler(1-tp) and d:IsCanChangePosition() end
Duel.SetOperationInfo(0,CATEGORY_POSITION,d,1,0,0)
end
function c32912374.posop(e,tp,eg,ep,ev,re,r,rp)
local d=Duel.GetAttackTarget()
if d:IsRelateToBattle() then
Duel.ChangePosition(d,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
end
local d=Duel.GetAttackTarget()
if d:IsRelateToBattle() then
Duel.ChangePosition(d,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
end
end
\ No newline at end of file
expansions/script/c37564502.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c37564765.lua")
cm.Senya_desc_with_nanahira=true
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,37564765)
Senya.Nanahira(c)
aux.AddSynchroProcedure2(c,nil,aux.FilterBoolFunction(Card.IsCode,37564765))
c:EnableReviveLimit()
......
expansions/script/c37564520.lua
View file @ 3f708418
......@@ -3,6 +3,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c37564765.lua")
cm.Senya_desc_with_nanahira=true
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,37564765)
Senya.Nanahira(c)
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,37564765),aux.NonTuner(Card.IsRace,RACE_FAIRY),1)
Senya.AddSummonMusic(c,m*16+2,SUMMON_TYPE_SYNCHRO)
......
expansions/script/c37564539.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c37564765.lua")
cm.Senya_desc_with_nanahira=true
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,37564765)
Senya.Nanahira(c)
aux.AddSynchroProcedure2(c,nil,aux.FilterBoolFunction(Card.IsCode,37564765))
c:EnableReviveLimit()
......
expansions/script/c37564540.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c37564765.lua")
cm.Senya_desc_with_nanahira=true
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,37564765)
Senya.Nanahira(c)
aux.AddSynchroProcedure2(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.FilterBoolFunction(Card.IsCode,37564765))
local e1=Effect.CreateEffect(c)
......
expansions/script/c37564566.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c37564765.lua")
cm.Senya_desc_with_nanahira=true
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,37564765)
Senya.Nanahira(c)
aux.AddSynchroProcedure2(c,aux.FilterBoolFunction(Card.IsCode,37564765),aux.FilterBoolFunction(Card.IsCode,37564765))
c:EnableReviveLimit()
......
expansions/script/c40009518.lua
View file @ 3f708418
--黄金之剑毅 格吉特·布雷德
function c40009518.initial_effect(c)
aux.AddMaterialCodeList(c,40009510)
aux.AddCodeList(c,40009510)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,40009510),aux.NonTuner(nil),1)
c:EnableReviveLimit()
c:EnableReviveLimit()
--search
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(40009518,0))
......@@ -51,7 +52,7 @@ function c40009518.cfilter(c)
return c:IsFacedown() or not c:IsRace(RACE_WARRIOR)
end
function c40009518.tscon(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsExistingMatchingCard(c40009518.cfilter,tp,LOCATION_MZONE,0,1,nil)
return not Duel.IsExistingMatchingCard(c40009518.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c40009518.tsfilter(c)
return c:IsRace(RACE_WARRIOR) and c:IsAbleToHand()
......
expansions/script/c47500101.lua
View file @ 3f708418
--拳皇 姬塔
function c47500101.initial_effect(c)
aux.AddCodeList(c,47500000)
--synchro summon
aux.AddSynchroMixProcedure(c,aux.Tuner(nil),aux.Tuner(nil),nil,aux.FilterBoolFunction(Card.IsCode,47500000),1,1)
c:EnableReviveLimit()
--pendulum summon
aux.EnablePendulumAttribute(c,false)
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_PZONE)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetTargetRange(1,0)
e1:SetTarget(c47500101.psplimit)
c:RegisterEffect(e1)
--double battle phase
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_PZONE)
e2:SetCountLimit(1,47500101)
e2:SetOperation(c47500101.bpop)
c:RegisterEffect(e2)
--act limit
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetCondition(c47500101.negcon)
e3:SetOperation(c47500101.negop)
c:RegisterEffect(e3)
--battle soul
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_BATTLE_DAMAGE)
e4:SetCondition(c47500101.cacon)
e4:SetOperation(c47500101.caop)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e5:SetRange(LOCATION_MZONE)
e5:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e5:SetValue(1)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
c:RegisterEffect(e6)
local e7=Effect.CreateEffect(c)
e7:SetCategory(CATEGORY_DAMAGE)
e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e7:SetCode(EVENT_BE_BATTLE_TARGET)
e7:SetRange(LOCATION_MZONE)
e7:SetOperation(c47500101.fop1)
c:RegisterEffect(e7)
local e8=Effect.CreateEffect(c)
e8:SetCategory(CATEGORY_DAMAGE)
e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e8:SetCode(EVENT_BECOME_TARGET)
e8:SetRange(LOCATION_MZONE)
e8:SetTarget(c47500101.ftg)
e8:SetOperation(c47500101.fop2)
c:RegisterEffect(e8)
aux.AddMaterialCodeList(c,47500000)
aux.AddCodeList(c,47500000)
--synchro summon
aux.AddSynchroMixProcedure(c,aux.Tuner(nil),aux.Tuner(nil),nil,aux.FilterBoolFunction(Card.IsCode,47500000),1,1)
c:EnableReviveLimit()
--pendulum summon
aux.EnablePendulumAttribute(c,false)
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_PZONE)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetTargetRange(1,0)
e1:SetTarget(c47500101.psplimit)
c:RegisterEffect(e1)
--double battle phase
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_PZONE)
e2:SetCountLimit(1,47500101)
e2:SetOperation(c47500101.bpop)
c:RegisterEffect(e2)
--act limit
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetCondition(c47500101.negcon)
e3:SetOperation(c47500101.negop)
c:RegisterEffect(e3)
--battle soul
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_BATTLE_DAMAGE)
e4:SetCondition(c47500101.cacon)
e4:SetOperation(c47500101.caop)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e5:SetRange(LOCATION_MZONE)
e5:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e5:SetValue(1)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
c:RegisterEffect(e6)
local e7=Effect.CreateEffect(c)
e7:SetCategory(CATEGORY_DAMAGE)
e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e7:SetCode(EVENT_BE_BATTLE_TARGET)
e7:SetRange(LOCATION_MZONE)
e7:SetOperation(c47500101.fop1)
c:RegisterEffect(e7)
local e8=Effect.CreateEffect(c)
e8:SetCategory(CATEGORY_DAMAGE)
e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e8:SetCode(EVENT_BECOME_TARGET)
e8:SetRange(LOCATION_MZONE)
e8:SetTarget(c47500101.ftg)
e8:SetOperation(c47500101.fop2)
c:RegisterEffect(e8)
end
function c47500101.pefilter(c)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER) and c:IsLevel(8)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER) and c:IsLevel(8)
end
function c47500101.psplimit(e,c,tp,sumtp,sumpos)
return not c47500101.pefilter(c) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
return not c47500101.pefilter(c) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
end
function c47500101.bpop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_BP_TWICE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,1)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_BP_TWICE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,1)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function c47500101.negcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
end
function c47500101.filter(c)
return c:IsFaceup() and (c:IsLocation(LOCATION_SZONE) or c:IsType(TYPE_EFFECT)) and not c:IsDisabled()
return c:IsFaceup() and (c:IsLocation(LOCATION_SZONE) or c:IsType(TYPE_EFFECT)) and not c:IsDisabled()
end
function c47500101.negop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c47500101.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
local tc=g:GetFirst()
while tc do
local e1=Effect.CreateEffect(c)
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(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e2)
tc=g:GetNext()
end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(0,1)
e1:SetValue(c47500101.aclimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c47500101.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
local tc=g:GetFirst()
while tc do
local e1=Effect.CreateEffect(c)
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(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e2)
tc=g:GetNext()
end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(0,1)
e1:SetValue(c47500101.aclimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function c47500101.aclimit(e,re,tp)
return re:GetHandler():IsOnField() and not re:GetHandler():IsImmuneToEffect(e)
return re:GetHandler():IsOnField() and not re:GetHandler():IsImmuneToEffect(e)
end
function c47500101.cacon(e,tp,eg,ep,ev,re,r,rp)
return ep~=tp and e:GetHandler():GetBattleTarget()~=nil
return ep~=tp and e:GetHandler():GetBattleTarget()~=nil
end
function c47500101.caop(e,tp,eg,ep,ev,re,r,rp)
Duel.ChainAttack()
Duel.ChainAttack()
end
function c47500101.fop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local atk=c:GetAttack()
if Duel.NegateAttack() then
Duel.Damage(1-tp,atk/2,REASON_EFFECT)
end
local c=e:GetHandler()
local atk=c:GetAttack()
if Duel.NegateAttack() then
Duel.Damage(1-tp,atk/2,REASON_EFFECT)
end
end
function c47500101.ftg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
end
function c47500101.fop2(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
local atk=c:GetAttack()
if rp==1-tp then
Duel.NegateEffect(ev)
Duel.Damage(1-tp,atk/2,REASON_EFFECT)
end
local c=e:GetHandler()
local atk=c:GetAttack()
if rp==1-tp then
Duel.NegateEffect(ev)
Duel.Damage(1-tp,atk/2,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c47501006.lua
View file @ 3f708418
--圣者 姬塔
function c47501006.initial_effect(c)
aux.AddCodeList(c,47500000)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.FilterBoolFunction(Card.IsCode,47500000),1,1)
c:EnableReviveLimit()
--special summon rule
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_SPSUMMON_PROC)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e0:SetRange(LOCATION_EXTRA)
e0:SetValue(SUMMON_TYPE_SYNCHRO)
e0:SetCondition(c47501006.sprcon)
e0:SetOperation(c47501006.sprop)
c:RegisterEffect(e0)
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_PZONE)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetTargetRange(1,0)
e1:SetTarget(c47501006.psplimit)
c:RegisterEffect(e1)
--draw
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DRAW)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_PZONE)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,47501006)
e2:SetTarget(c47501006.drtg)
e2:SetOperation(c47501006.drop)
c:RegisterEffect(e2)
--
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetRange(LOCATION_MZONE)
e5:SetCountLimit(1)
e5:SetTarget(c47501006.sptg)
e5:SetOperation(c47501006.spop)
c:RegisterEffect(e5)
aux.AddMaterialCodeList(c,47500000)
aux.AddCodeList(c,47500000)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.FilterBoolFunction(Card.IsCode,47500000),1,1)
c:EnableReviveLimit()
--special summon rule
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_SPSUMMON_PROC)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e0:SetRange(LOCATION_EXTRA)
e0:SetValue(SUMMON_TYPE_SYNCHRO)
e0:SetCondition(c47501006.sprcon)
e0:SetOperation(c47501006.sprop)
c:RegisterEffect(e0)
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_PZONE)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetTargetRange(1,0)
e1:SetTarget(c47501006.psplimit)
c:RegisterEffect(e1)
--draw
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DRAW)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_PZONE)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,47501006)
e2:SetTarget(c47501006.drtg)
e2:SetOperation(c47501006.drop)
c:RegisterEffect(e2)
--
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetRange(LOCATION_MZONE)
e5:SetCountLimit(1)
e5:SetTarget(c47501006.sptg)
e5:SetOperation(c47501006.spop)
c:RegisterEffect(e5)
end
function c47501006.pefilter(c)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER)
end
function c47501006.psplimit(e,c,tp,sumtp,sumpos)
return not c47501006.pefilter(c) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
return not c47501006.pefilter(c) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
end
function c47501006.fusfilter1(c)
return c:GetOriginalCode()==47500000
return c:GetOriginalCode()==47500000
end
function c47501006.cfilter(c)
return (c:IsCode(47500000) or c:GetOriginalCode()==47500000) and c:IsCanBeSynchroMaterial() and c:IsReleasable()
return (c:IsCode(47500000) or c:GetOriginalCode()==47500000) and c:IsCanBeSynchroMaterial() and c:IsReleasable()
end
function c47501006.spfilter1(c,tp,g)
return g:IsExists(c47501006.spfilter2,1,c,tp,c)
return g:IsExists(c47501006.spfilter2,1,c,tp,c)
end
function c47501006.spfilter2(c,tp,mc)
return (c:GetOriginalCode()==47500000 and mc:IsCode(47500000)
or c:IsCode(47500000) and mc:GetOriginalCode()==47500000)
and Duel.GetLocationCountFromEx(tp,tp,Group.FromCards(c,mc))>0
return (c:GetOriginalCode()==47500000 and mc:IsCode(47500000)
or c:IsCode(47500000) and mc:GetOriginalCode()==47500000)
and Duel.GetLocationCountFromEx(tp,tp,Group.FromCards(c,mc))>0
end
function c47501006.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local g=Duel.GetMatchingGroup(c47501006.cfilter,tp,LOCATION_MZONE,0,nil)
return g:IsExists(c47501006.spfilter1,1,nil,tp,g)
if c==nil then return true end
local tp=c:GetControler()
local g=Duel.GetMatchingGroup(c47501006.cfilter,tp,LOCATION_MZONE,0,nil)
return g:IsExists(c47501006.spfilter1,1,nil,tp,g)
end
function c47501006.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.GetMatchingGroup(c47501006.cfilter,tp,LOCATION_MZONE,0,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local g1=g:FilterSelect(tp,c47501006.spfilter1,1,1,nil,tp,g)
local mc=g1:GetFirst()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local g2=g:FilterSelect(tp,c47501006.spfilter2,1,1,mc,tp,mc)
g1:Merge(g2)
Duel.Release(g1,REASON_COST+REASON_MATERIAL+REASON_SYNCHRO)
local g=Duel.GetMatchingGroup(c47501006.cfilter,tp,LOCATION_MZONE,0,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local g1=g:FilterSelect(tp,c47501006.spfilter1,1,1,nil,tp,g)
local mc=g1:GetFirst()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local g2=g:FilterSelect(tp,c47501006.spfilter2,1,1,mc,tp,mc)
g1:Merge(g2)
Duel.Release(g1,REASON_COST+REASON_MATERIAL+REASON_SYNCHRO)
end
function c47501006.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c47501006.drop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
Duel.Draw(tp,1,REASON_EFFECT)
local lp1=Duel.GetLP(tp)
local lp2=Duel.GetLP(1-tp)
Duel.SetLP(tp,lp1+3000)
Duel.SetLP(1-tp,lp2+3000)
if not e:GetHandler():IsRelateToEffect(e) then return end
Duel.Draw(tp,1,REASON_EFFECT)
local lp1=Duel.GetLP(tp)
local lp2=Duel.GetLP(1-tp)
Duel.SetLP(tp,lp1+3000)
Duel.SetLP(1-tp,lp2+3000)
end
function c47501006.spfilter(c,e,tp)
return c:IsSetCard(0x5d0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
return c:IsSetCard(0x5d0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47501006.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c47501006.spfilter(chkc,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c47501006.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c47501006.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c47501006.spfilter(chkc,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c47501006.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c47501006.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c47501006.spop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
end
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
end
end
\ No newline at end of file
expansions/script/c47501010.lua
View file @ 3f708418
This diff is collapsed.
expansions/script/c50220110.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@ local m=50220110
local cm=_G["c"..m]
cm.name="觉醒之龙王-玛里苟斯"
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,50220105)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,50220105),aux.NonTuner(nil),1)
c:EnableReviveLimit()
......
expansions/script/c50220115.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@ local m=50220115
local cm=_G["c"..m]
cm.name="觉醒之龙王-阿莱克斯塔萨"
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,50220105)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,50220105),aux.NonTuner(nil),1)
c:EnableReviveLimit()
......
expansions/script/c50220120.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@ local m=50220120
local cm=_G["c"..m]
cm.name="觉醒之龙王-诺兹多姆"
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,50220105)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,50220105),aux.NonTuner(nil),1)
c:EnableReviveLimit()
......
expansions/script/c50220125.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@ local m=50220125
local cm=_G["c"..m]
cm.name="觉醒之龙王-伊瑟拉"
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,50220105)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,50220105),aux.NonTuner(nil),1)
c:EnableReviveLimit()
......
expansions/script/c50220130.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@ local m=50220130
local cm=_G["c"..m]
cm.name="觉醒之龙王-耐萨里奥"
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,50220105)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,50220105),aux.NonTuner(nil),1)
c:EnableReviveLimit()
......
expansions/script/c77707029.lua
View file @ 3f708418
local m=77707029
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,77707705)
aux.AddSynchroProcedure(c,cm.tfilter,aux.NonTuner(nil),2)
c:EnableReviveLimit()
c:SetUniqueOnField(1,0,m)
......
expansions/script/c81002014.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local cm=_G["c"..m]
xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
cm.named_with_Urban=true
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,81002000)
aux.AddCodeList(c,81002000)
--synchro summon
aux.AddSynchroMixProcedure(c,aux.FilterBoolFunction(Card.IsCode,81002000),nil,nil,cm.mfilter,1,1)
......
expansions/script/c81015011.lua
View file @ 3f708418
--MS-765改·北上丽花
require("expansions/script/c81000000")
function c81015011.initial_effect(c)
aux.AddMaterialCodeList(c,81015010)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,81015010),aux.NonTuner(Card.IsSetCard,0x81a),1,1)
c:EnableReviveLimit()
......
expansions/script/c81019071.lua
View file @ 3f708418
......@@ -3,6 +3,7 @@ local m=81019071
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,81019000)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,81019000),aux.NonTuner(nil),1)
c:EnableReviveLimit()
......
expansions/script/c81024027.lua
View file @ 3f708418
......@@ -3,6 +3,7 @@ local m=81024027
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,81024020)
Tenka.Einstein(c)
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,81024020),aux.NonTuner(cm.sfilter),1)
c:EnableReviveLimit()
......
expansions/script/c81024030.lua
View file @ 3f708418
......@@ -3,6 +3,7 @@ local m=81024030
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,81024013)
--synchro summon
Tenka.Einstein(c)
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,81024013),aux.NonTuner(cm.sfilter),1)
......
expansions/script/c81042008.lua
View file @ 3f708418
......@@ -4,6 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c37564765.lua")
cm.Senya_desc_with_nanahira=true
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,37564765)
Senya.Nanahira(c)
aux.AddSynchroProcedure2(c,nil,aux.FilterBoolFunction(Card.IsCode,37564765))
c:EnableReviveLimit()
......
expansions/script/c98600007.lua
View file @ 3f708418
......@@ -2,6 +2,7 @@
local m=98600007
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddMaterialCodeList(c,m-4,m-3)
--synchro summon
aux.AddSynchroMixProcedure(c,cm.mfilter1,cm.mfilter2,nil,aux.NonTuner(nil),1,1)
c:EnableReviveLimit()
......
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