Skip to content

E
Entertainment Server
Commit 870d6752 authored by root's avatar root
Browse files
Options

Refresh on 2024-09-02 07:11:45

parent 96976661
Show whitespace changes
Inline Side-by-side
Showing with 489 additions and 69 deletions
lflist.conf
View file @ 870d6752
......@@ -2,6 +2,7 @@
!LV5
#forbidden
63436931 0 --红龙
23434538 0 --增殖的G
27381364 0 --えるふ
03040496 0 --混沌魔龍 カオス・ルーラー
......@@ -101,7 +102,6 @@
32909498 1 --狼
71832012 1 --六世壊＝パライゾス
19613556 1 --大嵐
27174286 1 --異次元からの帰還
35316708 1 --刻の封印
61292243 1 --E紧急
76145933 1 --スプライト・ブルー
......@@ -155,12 +155,12 @@
36890111 2 --傀儡场地
91810826 2 --中龙
66730191 2 --开门
36521307 2 --圆武
25801745 2 --祈祷理
85106525 2 --篝火
32731036 2 --深淵の獣ルベリオン
60242223 2 --深淵の獣サロニール
67723438 2 --緊急テレポート
84941194 2 --荣光
21347668 2 --睡觉
91800273 2 --ディメンション・アトラクター
17330916 2 --EMモンキーボード
......
script/c10105645.lua
View file @ 870d6752
function c10105645.initial_effect(c)
aux.AddCodeList(c,13171876)
aux.AddCodeList(c,13171876)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
......@@ -37,11 +37,11 @@ aux.AddCodeList(c,13171876)
e4:SetTarget(c10105645.eqtg)
e4:SetOperation(c10105645.eqop)
c:RegisterEffect(e4)
end
end
function c10105645.spfilter(c,e,tp)
return c:IsCode(13171876) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c10105645.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
function c10105645.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c10105645.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)
......@@ -49,7 +49,7 @@ function c10105645.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
end
function c10105645.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCountFromEx(tp)<=0 then return end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
local g=Duel.SelectMatchingCard(tp,c10105645.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
local tc=g:GetFirst()
if c:IsRelateToEffect(e) and g:GetCount()>0 then
......
script/c10105646.lua
View file @ 870d6752
......@@ -36,7 +36,7 @@ function c10105646.initial_effect(c)
e4:SetTarget(c10105646.atktg)
e4:SetOperation(c10105646.atkop)
c:RegisterEffect(e4)
end
end
function c10105646.spfilter(c)
return c:IsCode(13171876) and c:GetEquipGroup():IsExists(Card.IsType,1,nil,TYPE_EQUIP)
end
......
script/c10105648.lua
View file @ 870d6752
......@@ -17,7 +17,7 @@ function c10105648.initial_effect(c)
e3:SetTarget(c10105648.target)
e3:SetOperation(c10105648.operation)
c:RegisterEffect(e3)
end
end
function c10105648.mfilter(c)
return c:IsCode(13171876)
end
......
script/c10105649.lua
View file @ 870d6752
......@@ -29,7 +29,7 @@ function c10105649.initial_effect(c)
e3:SetTarget(c10105649.distg)
e3:SetOperation(c10105649.disop)
c:RegisterEffect(e3)
end
end
function c10105649.xyzcheck(g)
return g:GetClassCount(Card.GetRank)==1
end
......
script/c10111114.lua 0 → 100644
View file @ 870d6752
function c10111114.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,c10111114.mfilter,5,3,c10111114.ovfilter,aux.Stringid(10111114,0),3,c10111114.xyzop)
c:EnableReviveLimit()
--destroy replace
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DESTROY_REPLACE)
e1:SetRange(LOCATION_MZONE)
e1:SetTarget(c10111114.reptg)
e1:SetValue(c10111114.repval)
e1:SetOperation(c10111114.operation)
c:RegisterEffect(e1)
--attack up
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(10111114,1))
e2:SetCategory(CATEGORY_ATKCHANGE)
e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE)
e2:SetCode(EVENT_DETACH_MATERIAL)
e2:SetTarget(c10111114.atktg)
e2:SetOperation(c10111114.atkop)
c:RegisterEffect(e2)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(10111114,0))
e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCode(EVENT_BATTLE_DAMAGE)
e3:SetCondition(c10111114.descon)
e3:SetTarget(c10111114.destg1)
e3:SetOperation(c10111114.desop1)
c:RegisterEffect(e3)
end
function c10111114.mfilter(c)
return c:IsRace(RACE_WARRIOR) and c:IsAttribute(ATTRIBUTE_FIRE)
end
function c10111114.ovfilter(c)
return c:IsFaceup() and c:IsCode(23232295)
end
function c10111114.repfilter(c,tp)
return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0x1084) and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
end
function c10111114.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return eg:IsExists(c10111114.repfilter,1,nil,tp)
and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end
if Duel.SelectEffectYesNo(tp,e:GetHandler(),96) then
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
return true
end
return false
end
function c10111114.repval(e,c)
return c10111114.repfilter(c,e:GetHandlerPlayer())
end
function c10111114.operation(e,tp,eg,ep,ev,re,r,rp)
Duel.Damage(1-tp,800,REASON_EFFECT,true)
Duel.Recover(tp,800,REASON_EFFECT,true)
Duel.RDComplete()
end
function c10111114.atkfilter(c)
return c:IsFaceup() and c:IsSetCard(0x1084)
end
function c10111114.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsRelateToEffect(e) end
end
function c10111114.atkop(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetMatchingGroup(c10111114.atkfilter,tp,LOCATION_MZONE,0,nil)
if tg:GetCount()>0 then
local sc=tg:GetFirst()
while sc do
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(800)
sc:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENSE)
sc:RegisterEffect(e2)
sc=tg:GetNext()
end
end
end
function c10111114.descon(e,tp,eg,ep,ev,re,r,rp)
return ep~=tp
end
function c10111114.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) 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,1,0,0)
end
function c10111114.desop1(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Destroy(tc,REASON_EFFECT)
end
end
\ No newline at end of file
script/c10111115.lua 0 → 100644
View file @ 870d6752
function c10111115.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,c10111115.mfilter,5,3,c10111115.ovfilter,aux.Stringid(10111115,0),3,c10111115.xyzop)
c:EnableReviveLimit()
--immune
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c10111115.efilter1)
c:RegisterEffect(e1)
--attack up
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_ATKCHANGE)
e2:SetDescription(aux.Stringid(10111115,0))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetCountLimit(1)
e2:SetRange(LOCATION_MZONE)
e2:SetCost(c10111115.cost)
e2:SetOperation(c10111115.operation)
c:RegisterEffect(e2)
end
function c10111115.mfilter(c)
return c:IsRace(RACE_WARRIOR)
end
function c10111115.ovfilter(c)
return c:IsFaceup() and c:IsCode(60645181)
end
function c10111115.efilter1(e,te)
return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:IsActiveType(TYPE_MONSTER)
end
function c10111115.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,3,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,3,3,REASON_COST)
end
function c10111115.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetValue(c:GetBaseAttack()*2)
c:RegisterEffect(e1)
end
end
\ No newline at end of file
script/c10111116.lua 0 → 100644
View file @ 870d6752
function c10111116.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,c10111116.mfilter,5,3,c10111116.ovfilter,aux.Stringid(10111116,0),3,c10111116.xyzop)
c:EnableReviveLimit()
--immune
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c10111116.efilter1)
c:RegisterEffect(e1)
--negate
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(10111116,1))
e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_ATKCHANGE)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EVENT_CHAINING)
e2:SetCondition(c10111116.negcon)
e2:SetCost(c10111116.negcost)
e2:SetTarget(c10111116.negtg)
e2:SetOperation(c10111116.negop)
c:RegisterEffect(e2)
end
function c10111116.mfilter(c)
return c:IsRace(RACE_WARRIOR)
end
function c10111116.ovfilter(c)
return c:IsFaceup() and c:IsCode(74593218)
end
function c10111116.efilter1(e,te)
return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:IsActiveType(TYPE_TRAP)
end
function c10111116.negcon(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and Duel.IsChainNegatable(ev)
end
function c10111116.negcost(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 c10111116.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
end
end
function c10111116.negop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then
Duel.BreakEffect()
if c:IsRelateToEffect(e) and c:IsFaceup() then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(1000)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e2)
end
end
end
\ No newline at end of file
script/c10111117.lua 0 → 100644
View file @ 870d6752
function c10111117.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,c10111117.mfilter,5,3,c10111117.ovfilter,aux.Stringid(10111117,0),3,c10111117.xyzop)
c:EnableReviveLimit()
--immune
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c10111117.efilter1)
c:RegisterEffect(e1)
--disable special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(10111117,0))
e2:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_REMOVE)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_SPSUMMON)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetCondition(c10111117.discon)
e2:SetCost(c10111117.discost)
e2:SetTarget(c10111117.distg)
e2:SetOperation(c10111117.disop)
c:RegisterEffect(e2)
end
function c10111117.mfilter(c)
return c:IsRace(RACE_WARRIOR)
end
function c10111117.ovfilter(c)
return c:IsFaceup() and c:IsCode(48009503)
end
function c10111117.efilter1(e,te)
return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:IsActiveType(TYPE_SPELL)
end
function c10111117.discon(e,tp,eg,ep,ev,re,r,rp)
return tp~=ep and Duel.GetCurrentChain()==0
end
function c10111117.costfilter(c)
return c:IsType(TYPE_MONSTER)
end
function c10111117.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 c10111117.distg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,eg:GetCount(),0,0)
end
function c10111117.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateSummon(eg)
Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)
end
\ No newline at end of file
script/c114514022.lua 0 → 100644
View file @ 870d6752
local s,id,o=GetID()
function s.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.NonTuner(nil),1)
aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSynchroType,TYPE_SYNCHRO),1)
Auxiliary.AddCodeList(c,63436931)
c:EnableReviveLimit()
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_CHANGE_CODE)
e0:SetRange(LOCATION_EXTRA+LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_OVERLAY)
e0:SetValue(63436931)
c:RegisterEffect(e0)
--search
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(id,0))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(1,id)
e1:SetTarget(s.thtg)
e1:SetOperation(s.thop)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(id,2))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,id+o)
e2:SetTarget(s.sptg1)
e2:SetOperation(s.spop1)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(id,1))
e3:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,id+o)
e3:SetTarget(s.sptg)
e3:SetOperation(s.spop)
c:RegisterEffect(e3)
end
function s.thfilter(c)
return aux.IsCodeListed(c,63436931) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
end
function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function s.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,s.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 s.spfilter1(c,e,tp)
return (c:IsSetCard(0xc2) or (c:IsLevel(7,8) and c:IsRace(RACE_DRAGON)))
and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter1,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function s.spop1(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,s.spfilter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
function s.cfilter(c,e,tp)
return c:IsFaceup() and c:IsLevelAbove(7) and c:IsType(TYPE_SYNCHRO) and not c:IsCode(id) and (c:IsRace(RACE_DRAGON) or c:IsSetCard(0xc2)) and c:IsAbleToGrave()
and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetLevel(),e:GetHandler())
end
function s.spfilter(c,e,tp,lv,ec)
return c:IsLevelAbove(lv+1) and c:IsType(TYPE_SYNCHRO) and (c:IsRace(RACE_DRAGON) or c:IsSetCard(0xc2))
and Duel.GetLocationCountFromEx(tp,tp,ec,nil)>0 and Duel.IsExistingMatchingCard(s.tfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil,c:GetAttribute())
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
end
function s.tfilter(c,attr)
return c:IsType(TYPE_TUNER+TYPE_SYNCHRO) and c:IsFaceupEx() and c:IsAttribute(attr) and c:IsLevelBelow(11)
end
function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.cfilter(chkc,e,tp) end
if chk==0 then return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
and Duel.IsExistingTarget(s.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local tg=Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,tg,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function s.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and Duel.SendtoGrave(tc,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_GRAVE) then
if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sc=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc:GetLevel(),nil):GetFirst()
if sc then
sc:SetMaterial(nil)
if Duel.SpecialSummon(sc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)>0 then
sc:CompleteProcedure()
end
end
end
end
\ No newline at end of file
script/c114514259.lua
View file @ 870d6752
......@@ -38,19 +38,19 @@ function s.dfilter(c)
return c:IsSetCard(0x6)
end
function s.acttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(s.actfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,e:GetHandler()) and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
end
function s.actop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
local g=Duel.SelectMatchingCard(tp,s.actfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp)
local tc=g:GetFirst()
if tc and Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)~=0 then
Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD,nil)
if tc then
Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
end
end
end
......
script/c191981040.lua
View file @ 870d6752
......@@ -25,7 +25,6 @@ function s.initial_effect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCondition(s.tgcon)
e2:SetTarget(s.tgtg)
e2:SetOperation(s.tgop)
......@@ -87,11 +86,12 @@ function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetAttackTarget()~=nil
end
function s.tgfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
return c:IsAbleToGrave()
end
function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) end
if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) and c:GetFlagEffect(id)==0 end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE_CAL,0,1)
end
function s.tgop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
......
script/c40412000.lua
View file @ 870d6752
--炼金兽·铁之火蜥蜴
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412006)
c:EnableReviveLimit()
......
script/c40412001.lua
View file @ 870d6752
--炼金兽·汞之䲟鱼
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412007)
c:EnableReviveLimit()
......
script/c40412002.lua
View file @ 870d6752
--炼金兽·铜之衔尾蛇
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412008)
c:EnableReviveLimit()
......
script/c40412003.lua
View file @ 870d6752
--炼金兽·银之月颜
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412009)
c:EnableReviveLimit()
......
script/c40412004.lua
View file @ 870d6752
--炼金兽·铅之狮子
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412010)
c:EnableReviveLimit()
......
script/c40412005.lua
View file @ 870d6752
--炼金兽·锡之鹫
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412011)
c:EnableReviveLimit()
......
script/c40412006.lua
View file @ 870d6752
--铁之油灯
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412000)
--Activate
......
script/c40412007.lua
View file @ 870d6752
--汞之沙漏
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412001)
--Activate
......
script/c40412008.lua
View file @ 870d6752
--铜之天秤
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412002)
--Activate
......
script/c40412009.lua
View file @ 870d6752
--银之钥匙
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412003)
--Activate
......
script/c40412010.lua
View file @ 870d6752
--铅之罗盘
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412004)
--Activate
......
script/c40412011.lua
View file @ 870d6752
--锡之魔法阵
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012,40412005)
--Activate
......
script/c40412012.lua
View file @ 870d6752
--炼金釜-混沌提炼
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--Activate
......
script/c40412013.lua
View file @ 870d6752
--黑之过程-黑度
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--Activate
......
script/c40412014.lua
View file @ 870d6752
--白之过程-白纯
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--Activate
......
script/c40412015.lua
View file @ 870d6752
--黄之过程-黄炼
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--Activate
......
script/c40412016.lua
View file @ 870d6752
--赤色化-红成
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--Activate
......
script/c40412017.lua
View file @ 870d6752
--行星直列-九星连珠
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--Activate
......
script/c40412018.lua
View file @ 870d6752
--炼禁兽·火之伊夫利特
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--fusion material
......
script/c40412019.lua
View file @ 870d6752
--炼禁兽·水之温蒂妮
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
--synchro summon
c:EnableReviveLimit()
......
script/c40412020.lua
View file @ 870d6752
--炼禁兽·风之希尔芙
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
c:SetUniqueOnField(1,0,id)
--xyz summon
......
script/c40412021.lua
View file @ 870d6752
--炼禁兽·地之诺姆
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
c:SetUniqueOnField(1,0,id)
aux.AddCodeList(c,40412012)
......
script/c40412022.lua
View file @ 870d6752
--三重伟大太阳 赫利俄斯
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--splimit
......
script/c40412023.lua
View file @ 870d6752
--黄金之混沌人工生命体
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--
......
script/c40412024.lua
View file @ 870d6752
--元素过滤器
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--activate
......
script/c40412025.lua
View file @ 870d6752
--贤者之石-万灵药
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
aux.AddCodeList(c,40412012)
--Activate
......
script/c40412026.lua
View file @ 870d6752
--炼金术士 阿姆奈尔
local s,id,o=GetID()
local o=100
function s.initial_effect(c)
--fusion material
c:EnableReviveLimit()
......
texts/balanced.txt
View file @ 870d6752
......@@ -45,6 +45,16 @@
-DoItYourself 黑莲
提示文本：选择一张「核成兽的钢核」送去墓地、破坏「钢核成狂龙」、加入手卡、是否把卡破坏？、特殊召唤
英豪挑战者 令旗兵(7448966) 地 4星 战士 300 1300 (Custom)
系列：英豪挑战者
这个卡名的①②的效果1回合各能使用1次。
①：这张卡用抽卡以外的方法从卡组·墓地加入手卡的场合才能发动。从卡组把1只「英豪挑战者 令旗兵」以外的「英豪」怪兽加入手卡。
②：把手卡的这张卡给对方观看才能发动。这张卡和1只「英豪」怪兽从手卡特殊召唤。这个效果的发动后，直到回合结束时自己不是「英豪」怪兽不能特殊召唤。
-DoItYourself 黑莲
效果分类：卡组检索、特殊召唤
提示文本：加入手卡、特殊召唤
空牙团的战士 艾玛(7450652) 地 3星 战士 1100 1000 (Custom)
系列：空牙团
这个卡名的①②的效果1回合各能使用1次。
......@@ -4537,7 +4547,7 @@ DDD 识慧王 末日征服神(114514249) 暗 10星 恶魔/灵摆 3000 2000 (Cust
暗黑界的阴影 刹斗(114514259) 暗 2星 恶魔 200 500 (Custom)
系列：暗黑界
这个卡名的②的效果1回合只能使用1次。
①：对方因卡的效果从卡组把卡加入手卡的场合才能发动。手卡的这张卡特殊召唤，从卡组·墓地把1张「暗黑界」永续魔法·永续陷阱在自己场上发动，把1张手卡丢弃。
①：对方因卡的效果从卡组把卡加入手卡的场合才能发动。手卡的这张卡特殊召唤，把1张手卡丢弃。对方场上有怪兽的场合，再从卡组·墓地把1张「暗黑界」永续魔法·永续陷阱在自己场上发动，
②：对方的效果把自己手卡丢弃的场合，把场上·墓地的这张卡除外，以场上1张卡为对象才能发动。那张卡回到手卡。
分类：暗属性、恶魔族、主卡、融合、动漫-GX、OCG
......
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