Commit ace4c63e authored by Amiya's avatar Amiya

修复

parent a14faeec
No preview for this file type
--黙歯錄 --黙歯錄
local s,id,o=GetID() local s,id,o=GetID()
function s.initial_effect(c) function s.initial_effect(c)
c:EnableCounterPermit(0x6f) c:EnableCounterPermit(0x70)
--activate --activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_COUNTER) e1:SetCategory(CATEGORY_COUNTER)
...@@ -24,33 +24,33 @@ function s.initial_effect(c) ...@@ -24,33 +24,33 @@ function s.initial_effect(c)
end end
function s.target(e,tp,eg,ep,ev,re,r,rp,chk) function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
local ct=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) local ct=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
if chk==0 then return ct>0 and Duel.IsCanAddCounter(tp,0x6f,ct,e:GetHandler()) end if chk==0 then return ct>0 and Duel.IsCanAddCounter(tp,0x70,ct,e:GetHandler()) end
Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,ct,0,0x6f) Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,ct,0,0x70)
end end
function s.activate(e,tp,eg,ep,ev,re,r,rp) function s.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local ct=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) local ct=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
if c:IsRelateToChain() and ct>0 then if c:IsRelateToChain() and ct>0 then
c:AddCounter(0x6f,ct) c:AddCounter(0x70,ct)
end end
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 c=e:GetHandler() local c=e:GetHandler()
if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
if chk==0 then return c:IsCanRemoveCounter(tp,0x6f,1,REASON_COST) if chk==0 then return c:IsCanRemoveCounter(tp,0x70,1,REASON_COST)
and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local tc=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil):GetFirst() local tc=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil):GetFirst()
local b1=c:IsCanRemoveCounter(tp,0x6f,1,REASON_COST) local b1=c:IsCanRemoveCounter(tp,0x70,1,REASON_COST)
local b2=not tc:IsAttack(0) and c:IsCanRemoveCounter(tp,0x6f,2,REASON_COST) local b2=not tc:IsAttack(0) and c:IsCanRemoveCounter(tp,0x70,2,REASON_COST)
local b3=aux.NegateEffectMonsterFilter(tc) and c:IsCanRemoveCounter(tp,0x6f,3,REASON_COST) local b3=aux.NegateEffectMonsterFilter(tc) and c:IsCanRemoveCounter(tp,0x70,3,REASON_COST)
local b4=c:IsCanRemoveCounter(tp,0x6f,4,REASON_COST) local b4=c:IsCanRemoveCounter(tp,0x70,4,REASON_COST)
local op=aux.SelectFromOptions(tp, local op=aux.SelectFromOptions(tp,
{b1,aux.Stringid(id,1),1}, {b1,aux.Stringid(id,1),1},
{b2,aux.Stringid(id,2),2}, {b2,aux.Stringid(id,2),2},
{b3,aux.Stringid(id,3),3}, {b3,aux.Stringid(id,3),3},
{b4,aux.Stringid(id,4),4}) {b4,aux.Stringid(id,4),4})
c:RemoveCounter(tp,0x6f,op,REASON_COST) c:RemoveCounter(tp,0x70,op,REASON_COST)
if op==1 or op==2 then if op==1 or op==2 then
e:SetCategory(CATEGORY_ATKCHANGE) e:SetCategory(CATEGORY_ATKCHANGE)
elseif op==3 then elseif op==3 then
......
-- --
local s,id,o=GetID() local s,id,o=GetID()
function s.initial_effect(c) function s.initial_effect(c)
c:EnableCounterPermit(0x70) c:EnableCounterPermit(0x71)
--Activate --Activate
local e0=Effect.CreateEffect(c) local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_ACTIVATE) e0:SetType(EFFECT_TYPE_ACTIVATE)
...@@ -58,20 +58,20 @@ function s.coucon(e,tp,eg,ep,ev,re,r,rp) ...@@ -58,20 +58,20 @@ function s.coucon(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp return rp==1-tp
end end
function s.coutg(e,tp,eg,ep,ev,re,r,rp,chk) function s.coutg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsCanAddCounter(tp,0x70,Duel.GetCurrentChain(),e:GetHandler()) end if chk==0 then return Duel.IsCanAddCounter(tp,0x71,Duel.GetCurrentChain(),e:GetHandler()) end
Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,Duel.GetCurrentChain(),0,0x70) Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,Duel.GetCurrentChain(),0,0x71)
end end
function s.couop(e,tp,eg,ep,ev,re,r,rp) function s.couop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToChain() then if c:IsRelateToChain() then
c:AddCounter(0x70,Duel.GetCurrentChain()) c:AddCounter(0x71,Duel.GetCurrentChain())
end end
end end
function s.cicon(e) function s.cicon(e)
return e:GetHandler():GetCounter(0x70)<10 return e:GetHandler():GetCounter(0x71)<10
end end
function s.adjustcon(e) function s.adjustcon(e)
return e:GetHandler():GetCounter(0x70)>9 return e:GetHandler():GetCounter(0x71)>9
end end
function s.adjustop(e,tp,eg,ep,ev,re,r,rp) function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,id) Duel.Hint(HINT_CARD,0,id)
......
...@@ -6,4 +6,5 @@ ...@@ -6,4 +6,5 @@
!setname 0x2d2 奏悦机组 !setname 0x2d2 奏悦机组
!setname 0x2d3 终刻 !setname 0x2d3 终刻
!setname 0x2d4 不可见 !setname 0x2d4 不可见
!counter 0x70 蚀齿指示物
!counter 0x71 皿指示物
\ 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