Commit 5a6483d2 authored by Huangnan's avatar Huangnan

fix

parent 16fc6981
No preview for this file type
expansions/pics/1007003.jpg

15.5 KB | W: | H:

expansions/pics/1007003.jpg

120 KB | W: | H:

expansions/pics/1007003.jpg
expansions/pics/1007003.jpg
expansions/pics/1007003.jpg
expansions/pics/1007003.jpg
  • 2-up
  • Swipe
  • Onion skin
...@@ -50,7 +50,7 @@ function s.linkcheck(c,g,tc) ...@@ -50,7 +50,7 @@ function s.linkcheck(c,g,tc)
return c:IsLinkSummonable(g,nil,g:GetCount(),g:GetCount()) and Duel.GetLocationCountFromEx(tp,tp,tc,c)>0 return c:IsLinkSummonable(g,nil,g:GetCount(),g:GetCount()) and Duel.GetLocationCountFromEx(tp,tp,tc,c)>0
end end
function s.syncheck(c,g) function s.syncheck(c,g)
return c:IsSynchroSummonable(nil,g,g:GetCount()-1,g:GetCount()-1) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0 return c:IsSynchroSummonable(nil,g,g:GetCount()-1,g:GetCount()-1) and Duel.GetLocationCountFromEx(tp,tp,g,c)>0
end end
function s.spcheck(g,tp,tc) function s.spcheck(g,tp,tc)
return Duel.GetMZoneCount(tp,tc,tp)>=g:GetCount() and Duel.IsExistingMatchingCard(s.linkcheck,tp,LOCATION_EXTRA,0,1,nil,g,tc) return Duel.GetMZoneCount(tp,tc,tp)>=g:GetCount() and Duel.IsExistingMatchingCard(s.linkcheck,tp,LOCATION_EXTRA,0,1,nil,g,tc)
......
--绝对公正之蜻蜓队长 --绝对公正之蜻蜓队长
local s, id = GetID() local s, id = GetID()
-- 修改初始效果注册时使用的过滤器
function s.initial_effect(c) function s.initial_effect(c)
aux.AddXyzProcedure(c,nil,12,2,s.xyzfilter,aux.Stringid(id,0),2,s.altop) aux.AddXyzProcedure(c,nil,12,2,s.xyzfilter,aux.Stringid(id,0),2,s.altop)
if not s.global_check then if not s.global_check then
s.global_check=true s.global_check=true
local ge1=Effect.CreateEffect(c) local ge1=Effect.CreateEffect(c)
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge1:SetCode(EVENT_SPSUMMON_SUCCESS) ge1:SetCode(EVENT_SPSUMMON_SUCCESS)
ge1:SetOperation(s.chk) ge1:SetOperation(s.chk)
Duel.RegisterEffect(ge1,0) Duel.RegisterEffect(ge1,0)
end end
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetCondition(s.spcon3)
c:RegisterEffect(e3)
--修改变量名
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetCondition(s.spcon3)
e4:SetOperation(s.spop3)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetCondition(s.spcon3)
e5:SetOperation(s.spop3)
c:RegisterEffect(e5)
-- 修改e3的Value设置
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD) e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CANNOT_INACTIVATE) e3:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
e3:SetReset(RESET_PHASE+PHASE_END) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetValue(s.chainfilter) e3:SetCondition(s.spcon3)
Duel.RegisterEffect(e3,tp) c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetCondition(s.spcon3)
e4:SetOperation(s.spop3)
c:RegisterEffect(e4)
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_FIELD)
e6:SetCode(EFFECT_CANNOT_INACTIVATE)
e6:SetRange(LOCATION_MZONE)
e6:SetValue(s.chainfilter)
e6:SetLabel(c:GetFieldID())
e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
c:RegisterEffect(e6)
end end
function s.xyzfilter(c,tp,mg) function s.xyzfilter(c,tp,mg)
local p=c:GetControler() if not c:IsType(TYPE_MONSTER) then return false end
return Duel.GetFlagEffect(1-p,id)>4 local p=c:GetControler()
end return Duel.GetFlagEffect(1-p,id)>4
function s.chainfilter(e,ct)
local te=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT)
return te:GetHandler():GetFlagEffectLabel(id)~=e:GetLabel()
end
function s.spcon3(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ
end
function s.spop3(e,tp,eg,ep,ev,re,r,rp,c)
local c=e:GetHandler()
if not c:IsSummonType(SUMMON_TYPE_XYZ) then return end
--跳过战斗阶段
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_SKIP_BP)
e1:SetTargetRange(1,0)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
--无效化场上的卡的效果
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_DISABLE)
e2:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
e2:SetTarget(s.disable)
e2:SetReset(RESET_PHASE+PHASE_END)
e2:SetLabel(c:GetFieldID())
Duel.RegisterEffect(e2,tp)
--不会被无效化
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_CANNOT_INACTIVATE)
e3:SetReset(RESET_PHASE+PHASE_END)
e3:SetValue(s.efilter)
Duel.RegisterEffect(e3,tp)
local e4=e3:Clone()
e4:SetCode(EFFECT_CANNOT_DISEFFECT)
Duel.RegisterEffect(e4,tp)
--不会被破坏,不能成为效果对象,不能除外
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e5:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
e5:SetValue(1)
e5:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e5,tp)
local e6=e5:Clone()
e6:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
Duel.RegisterEffect(e6,tp)
local e7=e5:Clone()
e7:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
e7:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
Duel.RegisterEffect(e7,tp)
local e8=e5:Clone()
e8:SetCode(EFFECT_CANNOT_REMOVE)
Duel.RegisterEffect(e8,tp)
--伤害变成0
local e9=Effect.CreateEffect(c)
e9:SetType(EFFECT_TYPE_FIELD)
e9:SetCode(EFFECT_CHANGE_DAMAGE)
e9:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e9:SetTargetRange(1,1)
e9:SetValue(0)
e9:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e9,tp)
local e10=e9:Clone()
e10:SetCode(EFFECT_NO_EFFECT_DAMAGE)
Duel.RegisterEffect(e10,tp)
c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,c:GetFieldID())
end
function s.disable(e,c)
return c:GetFlagEffectLabel(id)~=e:GetLabel() and (not c:IsType(TYPE_MONSTER) or (c:IsType(TYPE_EFFECT) or bit.band(c:GetOriginalType(),TYPE_EFFECT)==TYPE_EFFECT))
end end
function s.discon(e,tp,eg,ep,ev,re,r,rp) function s.altop(e,tp,chk)
local rc=re:GetHandler() if chk==0 then return Duel.GetFlagEffect(1-tp,id)>4 end
local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) return true
return bit.band(loc,LOCATION_ONFIELD)~=0 and rc:GetFlagEffectLabel(id)~=e:GetLabel()
end
function s.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateEffect(ev)
end end
function s.chk(e,tp,eg,ep,ev,re,r,rp) function s.chk(e,tp,eg,ep,ev,re,r,rp)
local tc=eg:GetFirst() local tc=eg:GetFirst()
...@@ -136,7 +47,96 @@ function s.chk(e,tp,eg,ep,ev,re,r,rp) ...@@ -136,7 +47,96 @@ function s.chk(e,tp,eg,ep,ev,re,r,rp)
tc=eg:GetNext() tc=eg:GetNext()
end end
end end
function s.altop(e,tp,chk) function s.chainfilter(e,ct)
if chk==0 then return Duel.GetFlagEffect(1-tp,id)>4 end local te=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT)
return true if not te or not te:GetHandler() then return false end
local label=e:GetLabel()
if not label then return false end
return te:GetHandler():GetFlagEffectLabel(id)~=label
end
function s.spcon3(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ
end
function s.spop3(e,tp,eg,ep,ev,re,r,rp,c)
local c=e:GetHandler()
if not c:IsSummonType(SUMMON_TYPE_XYZ) then return end
--跳过战斗阶段
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_SKIP_BP)
e1:SetTargetRange(1,0)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
--无效化场上的卡的效果
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_DISABLE)
e2:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
e2:SetTarget(s.disable)
e2:SetReset(RESET_PHASE+PHASE_END)
e2:SetLabel(c:GetFieldID())
Duel.RegisterEffect(e2,tp)
--不会被无效化
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_CANNOT_INACTIVATE)
e3:SetReset(RESET_PHASE+PHASE_END)
e3:SetValue(s.efilter)
Duel.RegisterEffect(e3,tp)
local e4=e3:Clone()
e4:SetCode(EFFECT_CANNOT_DISEFFECT)
Duel.RegisterEffect(e4,tp)
--不会被破坏,不能成为效果对象,不能除外,不受其他效果影响
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e5:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
e5:SetTarget(aux.TargetBoolFunction(Card.IsControler,tp))
e5:SetValue(1)
e5:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e5,tp)
local e6=e5:Clone()
e6:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
Duel.RegisterEffect(e6,tp)
local e7=e5:Clone()
e7:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
e7:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e7:SetValue(aux.tgoval)
Duel.RegisterEffect(e7,tp)
local e8=e5:Clone()
e8:SetCode(EFFECT_CANNOT_REMOVE)
Duel.RegisterEffect(e8,tp)
local e11=e5:Clone()
e11:SetCode(EFFECT_IMMUNE_EFFECT)
e11:SetValue(s.efilter2)
Duel.RegisterEffect(e11,tp)
--伤害变成0
local e9=Effect.CreateEffect(c)
e9:SetType(EFFECT_TYPE_FIELD)
e9:SetCode(EFFECT_CHANGE_DAMAGE)
e9:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e9:SetTargetRange(1,1)
e9:SetValue(0)
e9:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e9,tp)
local e10=e9:Clone()
e10:SetCode(EFFECT_NO_EFFECT_DAMAGE)
Duel.RegisterEffect(e10,tp)
c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,c:GetFieldID())
end
function s.efilter(e,ct)
return true
end
function s.efilter2(e,re)
return e:GetOwnerPlayer()~=re:GetOwnerPlayer() and re:IsActivated()
end
function s.disable(e,c)
return c:GetFlagEffectLabel(id)~=e:GetLabel() and (not c:IsType(TYPE_MONSTER) or (c:IsType(TYPE_EFFECT) or bit.band(c:GetOriginalType(),TYPE_EFFECT)==TYPE_EFFECT))
end end
\ No newline at end of file
...@@ -62,7 +62,7 @@ function cm.indcon(e) ...@@ -62,7 +62,7 @@ function cm.indcon(e)
return Duel.IsExistingMatchingCard(cm.indfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) return Duel.IsExistingMatchingCard(cm.indfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
end end
function cm.indtg(e,c) function cm.indtg(e,c)
return c:IsLocation(LOCATION_FZONE) or (c:IsFaceup() and c:IsType(TYPE_FIELD)) or (c:IsFaceup() and c:IsType(TYPE_CONTINUOUS)) return c:IsLocation(LOCATION_FZONE) or (c:IsFaceup() and c:IsType(TYPE_FIELD)) or (c:IsFaceup() and c:IsType(TYPE_CONTINUOUS) and c:IsType(TYPE_SPELL))
end end
-------------------------------------------------------------------------- --------------------------------------------------------------------------
......
...@@ -20,22 +20,17 @@ function cm.initial_effect(c) ...@@ -20,22 +20,17 @@ function cm.initial_effect(c)
e2:SetTarget(cm.target) e2:SetTarget(cm.target)
e2:SetOperation(cm.operation) e2:SetOperation(cm.operation)
c:RegisterEffect(e2) c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_TO_DECK)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c) local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(m,2)) e4:SetDescription(aux.Stringid(m,2))
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetCode(EVENT_CHAINING) e4:SetCode(EVENT_CHAINING)
e4:SetRange(LOCATION_FZONE) e4:SetRange(LOCATION_FZONE)
e4:SetCountLimit(1,m+2)
e4:SetCondition(cm.tkcon) e4:SetCondition(cm.tkcon)
e4:SetTarget(cm.thtg2) e4:SetTarget(cm.thtg2)
e4:SetOperation(cm.thop2) e4:SetOperation(cm.thop2)
c:RegisterEffect(e4) c:RegisterEffect(e4)
if not cm.check then if not cm.check then
cm.check=true cm.check=true
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
...@@ -43,42 +38,52 @@ function cm.initial_effect(c) ...@@ -43,42 +38,52 @@ function cm.initial_effect(c)
e1:SetCode(EVENT_CHAIN_SOLVING) e1:SetCode(EVENT_CHAIN_SOLVING)
e1:SetOperation(cm.chainop) e1:SetOperation(cm.chainop)
Duel.RegisterEffect(e1,0) Duel.RegisterEffect(e1,0)
local _CheckFusionMaterial=Card.CheckFusionMaterial local f1=Card.CheckFusionMaterial
local _SelectFusionMaterial=Duel.SelectFusionMaterial
function Card.CheckFusionMaterial(card,Group_fus,Card_g,int_chkf,not_mat) function Card.CheckFusionMaterial(card,Group_fus,Card_g,int_chkf,not_mat)
local tp=card:GetControler() local exg=Group.CreateGroup()
local exg=Duel.GetMatchingGroup(cm.filter0,tp,0,LOCATION_MZONE+LOCATION_GRAVE,nil,card) exg=Duel.GetMatchingGroup(cm.filter0,int_chkf,0,LOCATION_MZONE+LOCATION_GRAVE,nil,card)
exg:Sub(Group_fus) exg=Group.__bxor(exg,Group_fus):Filter(Card.IsLocation,nil,LOCATION_MZONE+LOCATION_GRAVE)
if #exg>0 and Duel.GetFlagEffect(tp,18700544)>0 then if exg:GetCount()>0 then
local hg=Group.__add(Group_fus,exg) if Duel.GetFlagEffect(0,m)~=0 and Duel.GetFlagEffect(0,m+50)==0 then
return _CheckFusionMaterial(card,hg,Card_g,int_chkf,not_mat) Duel.RegisterFlagEffect(0,m+50,RESET_CHAIN,0,1)
local e1=Effect.CreateEffect(card)
e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e1:SetCode(EVENT_CHAIN_SOLVED)
e1:SetOperation(cm.resetop)
e1:SetReset(RESET_EVENT+RESET_CHAIN)
Duel.RegisterEffect(e1,0)
local e2=e1:Clone()
e2:SetCode(EVENT_CHAIN_NEGATED)
Duel.RegisterEffect(e2,0)
end
local hg=Group.__add(exg,Group_fus)
return f1(card,hg,Card_g,int_chkf,not_mat)
end end
return _CheckFusionMaterial(card,Group_fus,Card_g,int_chkf,not_mat) return f1(card,Group_fus,Card_g,int_chkf,not_mat)
end end
local f2=Duel.SelectFusionMaterial
function Duel.SelectFusionMaterial(tp,card,mg,gc_nil,chkf) function Duel.SelectFusionMaterial(tp,card,mg,gc_nil,chkf)
if Duel.GetFlagEffect(0,m+50)~=0 then
if Duel.GetFlagEffect(tp,18700544)>0 then exg=Duel.GetMatchingGroup(cm.filter0,int_chkf,LOCATION_MZONE+LOCATION_GRAVE,0,nil,card)
local exg=Duel.GetMatchingGroup(cm.filter0,tp,0,LOCATION_MZONE+LOCATION_GRAVE,nil,card) if exg:GetCount()>0 then
mg:Merge(exg) mg:Merge(exg)
end
end end
return _SelectFusionMaterial(tp,card,mg,gc_nil,chkf) Duel.ResetFlagEffect(0,m+50)
return f2(tp,card,mg,gc_nil,chkf)
end end
end end
end end
function cm.chainop(e,tp,eg,ep,ev,re,r,rp) function cm.chainop(e,tp,eg,ep,ev,re,r,rp)
if re:GetHandlerPlayer()==tp then Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1)
Duel.RegisterFlagEffect(tp,m,RESET_CHAIN,0,1) end
end function cm.resetop(e,tp,eg,ep,ev,re,r,rp)
Duel.ResetFlagEffect(0,m+50)
e:Reset()
end end
function cm.filter0(c,fc) function cm.filter0(c,fc)
return c:IsCanBeFusionMaterial(fc) return c:GetFlagEffect(m)>0 and c:IsCanBeFusionMaterial(fc)
and c:GetFlagEffect(18700544)>0
and c:IsLocation(LOCATION_MZONE+LOCATION_GRAVE)
end end
function cm.thfilter2(c) function cm.thfilter2(c)
return c:IsType(TYPE_MONSTER) return c:IsType(TYPE_MONSTER)
...@@ -103,10 +108,10 @@ function cm.effcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -103,10 +108,10 @@ function cm.effcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(cm.effilter,1,nil,tp) return eg:IsExists(cm.effilter,1,nil,tp)
end end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) end if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToDeck() end
if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter2,tp,0,LOCATION_MZONE,1,nil) end if chk==0 then return true end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectTarget(tp,cm.thfilter2,tp,0,LOCATION_MZONE,1,1,nil) local g=Duel.SelectTarget(tp,cm.thfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
end end
function cm.operation(e,tp,eg,ep,ev,re,r,rp) function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
...@@ -122,10 +127,8 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -122,10 +127,8 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function cm.tkcon(e,tp,eg,ep,ev,re,r,rp) function cm.tkcon(e,tp,eg,ep,ev,re,r,rp)
local rc=re:GetHandler() return re:GetHandler():IsSetCard(0x820) and Duel.GetFlagEffect(tp,m)==0
return re:GetHandler():IsSetCard(0x820) and rc:IsType(TYPE_MONSTER) and rp==tp
end end
function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk) function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.effilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(cm.effilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end
...@@ -136,6 +139,7 @@ function cm.thop2(e,tp,eg,ep,ev,re,r,rp) ...@@ -136,6 +139,7 @@ function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.SelectMatchingCard(tp,cm.effilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil):GetFirst() local tc=Duel.SelectMatchingCard(tp,cm.effilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil):GetFirst()
Duel.HintSelection(Group.FromCards(tc)) Duel.HintSelection(Group.FromCards(tc))
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,0,1) tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,0,1)
Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
end end
end end
\ No newline at end of file
...@@ -40,7 +40,7 @@ function c36700120.checkop(e,tp,eg,ep,ev,re,r,rp) ...@@ -40,7 +40,7 @@ function c36700120.checkop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c36700120.chkfilter(c) function c36700120.chkfilter(c)
return c:IsSetCard(0xc22) and c:GetSequence()<5 return c:IsSetCard(0xc22) and c:GetSequence()<5 and c:IsFaceup()
end end
function c36700120.condition(e,tp,eg,ep,ev,re,r,rp) function c36700120.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c36700120.chkfilter,tp,LOCATION_MZONE,0,1,nil) return Duel.IsExistingMatchingCard(c36700120.chkfilter,tp,LOCATION_MZONE,0,1,nil)
......
...@@ -10,12 +10,12 @@ function s.initial_effect(c) ...@@ -10,12 +10,12 @@ function s.initial_effect(c)
--Search --Search
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(1153) e2:SetDescription(1153)
--e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetType(EFFECT_TYPE_IGNITION) --e2:SetType(EFFECT_TYPE_IGNITION)
--e2:SetCode(EVENT_FREE_CHAIN) e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,id) --e2:SetCountLimit(1,id)
--e2:SetCountLimit(2) e2:SetCountLimit(2)
e2:SetCost(s.setcost) e2:SetCost(s.setcost)
e2:SetTarget(s.settg) e2:SetTarget(s.settg)
e2:SetOperation(s.setop) e2:SetOperation(s.setop)
......
...@@ -21,7 +21,6 @@ function s.initial_effect(c) ...@@ -21,7 +21,6 @@ function s.initial_effect(c)
e2:SetCode(EVENT_FREE_CHAIN) e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1)
e2:SetCondition(s.tgcon) e2:SetCondition(s.tgcon)
e2:SetTarget(s.tgtg) e2:SetTarget(s.tgtg)
e2:SetOperation(s.tgop) e2:SetOperation(s.tgop)
...@@ -59,19 +58,32 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -59,19 +58,32 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function s.tgcon(e,tp,eg,ep,ev,re,r,rp) function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.GetTurnPlayer~=tp local ph=Duel.GetCurrentPhase()
return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and Duel.GetTurnPlayer~=tp
end end
function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local ph=Duel.GetCurrentPhase()
if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) end if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,1,nil) end if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_ONFIELD,1,nil) and Duel.GetFlagEffect(tp,id)==0 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
local g=Duel.SelectTarget(tp,Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,1,1,nil) local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
if ph==PHASE_MAIN1 then
Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_MAIN1,0,1)
end
if ph==PHASE_MAIN2 then
Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_MAIN2,0,1)
end
end end
function s.tgop(e,tp,eg,ep,ev,re,r,rp) function s.tgop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
if not tc or not tc:IsRelateToEffect(e) then return end local a=tc:IsRelateToEffect(e) and tc:IsAbleToGrave()
local opt=Duel.SelectOption(1-tp,aux.Stringid(id,1),aux.Stringid(id,2)) local opt=1
if a then
opt=Duel.SelectOption(1-tp,aux.Stringid(id,1),aux.Stringid(id,2))
else
opt=Duel.SelectOption(1-tp,aux.Stringid(id,2))+1
end
if opt==0 then if opt==0 then
Duel.SendtoGrave(tc,REASON_EFFECT) Duel.SendtoGrave(tc,REASON_EFFECT)
else else
......
...@@ -60,7 +60,7 @@ function cm.initial_effect(c) ...@@ -60,7 +60,7 @@ function cm.initial_effect(c)
end end
--XyzSummon --XyzSummon
function cm.ovfilter(c) function cm.ovfilter(c)
return c:IsFaceup() and c:IsRankAbove(4) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsType(TYPE_XYZ) return c:IsFaceup() and c:IsRank(4) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsType(TYPE_XYZ)
end end
function cm.xyzop(e,tp,chk) function cm.xyzop(e,tp,chk)
if chk==0 then return Duel.GetFlagEffect(tp,m)==0 end if chk==0 then return Duel.GetFlagEffect(tp,m)==0 end
......
...@@ -442,7 +442,7 @@ ...@@ -442,7 +442,7 @@
#祈予之心 385149215 174 0x4b0~0x4bf #祈予之心 385149215 174 0x4b0~0x4bf
!setname 0x4b1 域控 !setname 0x4b1 域控
#圣灵兽骑 643865567 180 0x6e0-0x6ef #雪音克莉丝 643865567 180 0x6e0-0x6ef
!setname 0x36e1 调音 !setname 0x36e1 调音
!setname 0x56e1 霸星 !setname 0x56e1 霸星
!setname 0x66e1 财布 !setname 0x66e1 财布
...@@ -469,8 +469,8 @@ ...@@ -469,8 +469,8 @@
!setname 0x6ed 守护骑士 !setname 0x6ed 守护骑士
!setname 0x6ee 忆炼 !setname 0x6ee 忆炼
!setname 0x66e6 纯白骑士 !setname 0x66e6 纯白骑士
#!setname 0xa6e6 木桶饭
!setname 0x66e8 玉馔 !setname 0x66e8 玉馔
!setname 0x6f0 煌剑
#DefineSet(code,"LianXing") 恋星 #DefineSet(code,"LianXing") 恋星
#setname="advency" 冒险遗产 #setname="advency" 冒险遗产
#setcard="Shinkansen" 新干线 #setcard="Shinkansen" 新干线
...@@ -1068,6 +1068,9 @@ ...@@ -1068,6 +1068,9 @@
!setname 0x351a 星之国 !setname 0x351a 星之国
!counter 0x510 射手指示物 !counter 0x510 射手指示物
#子安 523 0x4e0-0x4ef
!setname 0x34e0 和平主义者
#TILL 3069681055 527 0x520-0x52f #TILL 3069681055 527 0x520-0x52f
!setname 0x3527 骷髅魔 !setname 0x3527 骷髅魔
!setname 0x5527 百群骑士 !setname 0x5527 百群骑士
...@@ -1628,6 +1631,7 @@ ...@@ -1628,6 +1631,7 @@
!setname 0xaf1 寄生兽 !setname 0xaf1 寄生兽
!setname 0xaf2 镜世界 !setname 0xaf2 镜世界
!setname 0x3af2 镜世界魔神 !setname 0x3af2 镜世界魔神
!setname 0xaf0 灵化
#水镜 457663161 960 0xef0-0xeff #水镜 457663161 960 0xef0-0xeff
!setname 0xef1 侍神 !setname 0xef1 侍神
......
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