Commit 71e64b18 authored by TanakaKotoha's avatar TanakaKotoha

Black Square

parent 4dd0f913
...@@ -20,8 +20,8 @@ function c65020154.initial_effect(c) ...@@ -20,8 +20,8 @@ function c65020154.initial_effect(c)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end end
function c65020154.cost(e,tp,eg,ep,ev,re,r,rp,chk) function c65020154.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x12da)>0 end if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x1da2)>0 end
Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x12da,1,REASON_COST) Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x1da2,1,REASON_COST)
end end
function c65020154.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c65020154.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsFaceup() end if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsFaceup() end
...@@ -31,10 +31,10 @@ end ...@@ -31,10 +31,10 @@ end
function c65020154.op(e,tp,eg,ep,ev,re,r,rp) function c65020154.op(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() then if tc:IsRelateToEffect(e) and tc:IsFaceup() then
tc:AddCounter(0x12da,1) tc:AddCounter(0x1da2,1)
end end
end end
function c65020154.target(e,c) function c65020154.target(e,c)
return c:GetCounter(0x12da)>0 return c:GetCounter(0x1da2)>0
end end
\ No newline at end of file
...@@ -20,8 +20,8 @@ function c65020155.initial_effect(c) ...@@ -20,8 +20,8 @@ function c65020155.initial_effect(c)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end end
function c65020155.cost(e,tp,eg,ep,ev,re,r,rp,chk) function c65020155.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x12da)>0 end if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x1da2)>0 end
Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x12da,1,REASON_COST) Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x1da2,1,REASON_COST)
end end
function c65020155.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c65020155.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsFaceup() end if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsFaceup() end
...@@ -31,10 +31,10 @@ end ...@@ -31,10 +31,10 @@ end
function c65020155.op(e,tp,eg,ep,ev,re,r,rp) function c65020155.op(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() then if tc:IsRelateToEffect(e) and tc:IsFaceup() then
tc:AddCounter(0x12da,1) tc:AddCounter(0x1da2,1)
end end
end end
function c65020155.target(e,c) function c65020155.target(e,c)
return c:GetCounter(0x12da)>0 return c:GetCounter(0x1da2)>0
end end
...@@ -24,8 +24,8 @@ function c65020156.initial_effect(c) ...@@ -24,8 +24,8 @@ function c65020156.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c65020156.cost(e,tp,eg,ep,ev,re,r,rp,chk) function c65020156.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x12da)>0 end if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x1da2)>0 end
Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x12da,1,REASON_COST) Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x1da2,1,REASON_COST)
end end
function c65020156.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c65020156.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsFaceup() end if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsFaceup() end
...@@ -35,11 +35,11 @@ end ...@@ -35,11 +35,11 @@ end
function c65020156.op(e,tp,eg,ep,ev,re,r,rp) function c65020156.op(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() then if tc:IsRelateToEffect(e) and tc:IsFaceup() then
tc:AddCounter(0x12da,1) tc:AddCounter(0x1da2,1)
end end
end end
function c65020156.target(e,c) function c65020156.target(e,c)
return c:GetCounter(0x12da)>0 return c:GetCounter(0x1da2)>0
end end
...@@ -31,8 +31,8 @@ function c65020157.ettg(e,c) ...@@ -31,8 +31,8 @@ function c65020157.ettg(e,c)
return c:IsType(TYPE_CONTINUOUS) and c:IsType(TYPE_SPELL) return c:IsType(TYPE_CONTINUOUS) and c:IsType(TYPE_SPELL)
end end
function c65020157.cost(e,tp,eg,ep,ev,re,r,rp,chk) function c65020157.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x12da)>0 end if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x1da2)>0 end
Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x12da,1,REASON_COST) Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x1da2,1,REASON_COST)
end end
function c65020157.tg(e,tp,eg,ep,ev,re,r,rp,chk) function c65020157.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end
...@@ -41,7 +41,7 @@ function c65020157.op(e,tp,eg,ep,ev,re,r,rp) ...@@ -41,7 +41,7 @@ function c65020157.op(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_ONFIELD,nil) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_ONFIELD,nil)
local tc=g:GetFirst() local tc=g:GetFirst()
while tc do while tc do
tc:AddCounter(0x12da,1) tc:AddCounter(0x1da2,1)
tc=g:GetNext() tc=g:GetNext()
end end
end end
...@@ -58,14 +58,14 @@ function c65020157.addop(e,tp,eg,ep,ev,re,r,rp) ...@@ -58,14 +58,14 @@ function c65020157.addop(e,tp,eg,ep,ev,re,r,rp)
local c=eg:GetFirst() local c=eg:GetFirst()
while c~=nil do while c~=nil do
if c:IsLocation(LOCATION_ONFIELD) then if c:IsLocation(LOCATION_ONFIELD) then
count=count+c:GetCounter(0x12da) count=count+c:GetCounter(0x1da2)
end end
c=eg:GetNext() c=eg:GetNext()
end end
if count>0 and Duel.SelectYesNo(tp,aux.Stringid(65020157,0)) then if count>0 and Duel.SelectYesNo(tp,aux.Stringid(65020157,0)) then
local g=Duel.SelectMatchingCard(tp,c65020157.addfil,tp,LOCATION_SZONE,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,c65020157.addfil,tp,LOCATION_SZONE,0,1,1,nil)
local tc=g:GetFirst() local tc=g:GetFirst()
tc:AddCounter(0x12da,count) tc:AddCounter(0x1da2,count)
e:GetHandler():RegisterFlagEffect(65020157,RESET_PHASE+PHASE_END,0,1) e:GetHandler():RegisterFlagEffect(65020157,RESET_PHASE+PHASE_END,0,1)
end end
end end
\ No newline at end of file
...@@ -21,7 +21,7 @@ function c65020158.initial_effect(c) ...@@ -21,7 +21,7 @@ function c65020158.initial_effect(c)
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetCode(EVENT_REMOVE_COUNTER+0x12da) e3:SetCode(EVENT_REMOVE_COUNTER+0x1da2)
e3:SetRange(LOCATION_SZONE) e3:SetRange(LOCATION_SZONE)
e3:SetOperation(c65020158.rop2) e3:SetOperation(c65020158.rop2)
c:RegisterEffect(e3) c:RegisterEffect(e3)
...@@ -41,12 +41,12 @@ end ...@@ -41,12 +41,12 @@ end
function c65020158.ac(e,tp,eg,ep,ev,re,r,rp) function c65020158.ac(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() then if c:IsRelateToEffect(e) and c:IsFaceup() then
c:AddCounter(0x12da,2) c:AddCounter(0x1da2,2)
end end
end end
function c65020158.con(e,tp,eg,ep,ev,re,r,rp) function c65020158.con(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetCounter(0x12da)<=0 return e:GetHandler():GetCounter(0x1da2)<=0
end end
function c65020158.tg(e,tp,eg,ep,ev,re,r,rp,chk) function c65020158.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
...@@ -73,6 +73,6 @@ function c65020158.rop(e,tp,eg,ep,ev,re,r,rp) ...@@ -73,6 +73,6 @@ function c65020158.rop(e,tp,eg,ep,ev,re,r,rp)
if g:GetCount()>0 then if g:GetCount()>0 then
local tc=g:GetFirst() local tc=g:GetFirst()
Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
tc:AddCounter(0x12da,1) tc:AddCounter(0x1da2,1)
end end
end end
...@@ -21,7 +21,7 @@ function c65020159.initial_effect(c) ...@@ -21,7 +21,7 @@ function c65020159.initial_effect(c)
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetCode(EVENT_REMOVE_COUNTER+0x12da) e3:SetCode(EVENT_REMOVE_COUNTER+0x1da2)
e3:SetRange(LOCATION_SZONE) e3:SetRange(LOCATION_SZONE)
e3:SetOperation(c65020159.rop2) e3:SetOperation(c65020159.rop2)
c:RegisterEffect(e3) c:RegisterEffect(e3)
...@@ -41,12 +41,12 @@ end ...@@ -41,12 +41,12 @@ end
function c65020159.ac(e,tp,eg,ep,ev,re,r,rp) function c65020159.ac(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() then if c:IsRelateToEffect(e) and c:IsFaceup() then
c:AddCounter(0x12da,2) c:AddCounter(0x1da2,2)
end end
end end
function c65020159.con(e,tp,eg,ep,ev,re,r,rp) function c65020159.con(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetCounter(0x12da)<=0 return e:GetHandler():GetCounter(0x1da2)<=0
end end
function c65020159.tg(e,tp,eg,ep,ev,re,r,rp,chk) function c65020159.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
......
...@@ -21,7 +21,7 @@ function c65020160.initial_effect(c) ...@@ -21,7 +21,7 @@ function c65020160.initial_effect(c)
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetCode(EVENT_REMOVE_COUNTER+0x12da) e3:SetCode(EVENT_REMOVE_COUNTER+0x1da2)
e3:SetRange(LOCATION_SZONE) e3:SetRange(LOCATION_SZONE)
e3:SetOperation(c65020160.rop2) e3:SetOperation(c65020160.rop2)
c:RegisterEffect(e3) c:RegisterEffect(e3)
...@@ -42,12 +42,12 @@ end ...@@ -42,12 +42,12 @@ end
function c65020160.ac(e,tp,eg,ep,ev,re,r,rp) function c65020160.ac(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() then if c:IsRelateToEffect(e) and c:IsFaceup() then
c:AddCounter(0x12da,2) c:AddCounter(0x1da2,2)
end end
end end
function c65020160.con(e,tp,eg,ep,ev,re,r,rp) function c65020160.con(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetCounter(0x12da)<=0 return e:GetHandler():GetCounter(0x1da2)<=0
end end
function c65020160.tg(e,tp,eg,ep,ev,re,r,rp,chk) function c65020160.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
......
...@@ -42,18 +42,18 @@ function c65020161.eop(e,tp,eg,ep,ev,re,r,rp) ...@@ -42,18 +42,18 @@ function c65020161.eop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
local tc=e:GetHandler() local tc=e:GetHandler()
Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
tc:AddCounter(0x12da,1) tc:AddCounter(0x1da2,1)
end end
function c65020161.ac(e,tp,eg,ep,ev,re,r,rp) function c65020161.ac(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() then if c:IsRelateToEffect(e) and c:IsFaceup() then
c:AddCounter(0x12da,2) c:AddCounter(0x1da2,2)
end end
end end
function c65020161.con(e,tp,eg,ep,ev,re,r,rp) function c65020161.con(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetCounter(0x12da)<=0 return e:GetHandler():GetCounter(0x1da2)<=0
end end
function c65020161.tg(e,tp,eg,ep,ev,re,r,rp,chk) function c65020161.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
......
...@@ -49,7 +49,7 @@ end ...@@ -49,7 +49,7 @@ end
function c65020162.desfil(c) function c65020162.desfil(c)
return c:GetCounter(0x12da)>0 return c:GetCounter(0x1da2)>0
end end
function c65020162.tg(e,tp,eg,ep,ev,re,r,rp,chk) function c65020162.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020162.desfil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c65020162.desfil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
......
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