Commit ace4c63e authored by Amiya's avatar Amiya

修复

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