Commit 208a18aa authored by TanakaKotoha's avatar TanakaKotoha

dededededededededededede

parent 475d47bb
No preview for this file type
...@@ -77,7 +77,7 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp) ...@@ -77,7 +77,7 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function cm.acop(e,tp,eg,ep,ev,re,r,rp) function cm.acop(e,tp,eg,ep,ev,re,r,rp)
if eg and re:GetHandler():IsType(TYPE_MONSTER) then if eg and eg:IsExists(Card.IsType,1,nil,TYPE_MONSTER) then
e:GetHandler():AddCounter(0x1,1) e:GetHandler():AddCounter(0x1,1)
end end
end end
......
...@@ -14,6 +14,7 @@ function cm.initial_effect(c) ...@@ -14,6 +14,7 @@ function cm.initial_effect(c)
e2:SetCode(EVENT_SPSUMMON_SUCCESS) e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetOperation(cm.tgop) e2:SetOperation(cm.tgop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
Duel.AddCustomActivityCounter(m,ACTIVITY_CHAIN,cm.chainfilter)
--tohand --tohand
local e3=srre.QFEffect(c,m,{m,1},CATEGORY_TOHAND,nil,LOCATION_MZONE,{1,m+100},cm.qecon,nil,cm.qetg,cm.qeop) local e3=srre.QFEffect(c,m,{m,1},CATEGORY_TOHAND,nil,LOCATION_MZONE,{1,m+100},cm.qecon,nil,cm.qetg,cm.qeop)
end end
......
...@@ -10,8 +10,8 @@ function cm.initial_effect(c) ...@@ -10,8 +10,8 @@ function cm.initial_effect(c)
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,1)) e2:SetDescription(aux.Stringid(m,1))
e2:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE) e2:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e2:SetType(EFFECT_TYPE_IGNITION) e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetCountLimit(1,m+100) e2:SetCountLimit(1,m+100)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetTarget(cm.eqtg) e2:SetTarget(cm.eqtg)
......
...@@ -7,7 +7,7 @@ function cm.initial_effect(c) ...@@ -7,7 +7,7 @@ function cm.initial_effect(c)
--SpecialSummon --SpecialSummon
local e1=HakaShiro.SPSummon(c,m) local e1=HakaShiro.SPSummon(c,m)
--to grave --to grave
local e2=srre.SPSummoneffect(c,m,1,3,CATEGORY_TOGRAVE+CATEGORY_DECKDES,nil,{1,m+100},cm.spcon,nil,cm.sptg,cm.spop) local e2=srre.SPSummoneffect(c,m,1,3,CATEGORY_TOGRAVE+CATEGORY_DECKDES,nil,{1,m+100},nil,nil,cm.sptg,cm.spop)
--INDESTRUCTABLE --INDESTRUCTABLE
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE) e3:SetType(EFFECT_TYPE_SINGLE)
...@@ -26,7 +26,7 @@ function cm.initial_effect(c) ...@@ -26,7 +26,7 @@ function cm.initial_effect(c)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return ct>0 and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) and Duel.IsPlayerCanDiscardDeck(tp,2) end if chk==0 then return ct>0 and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 and Duel.IsPlayerCanDiscardDeck(tp,2) end
Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,nil) Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,nil)
end end
function cm.spop(e,tp,eg,ep,ev,re,r,rp) function cm.spop(e,tp,eg,ep,ev,re,r,rp)
......
...@@ -42,8 +42,7 @@ function cm.tgop(e,tp,eg,ep,ev,re,r,rp) ...@@ -42,8 +42,7 @@ function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function cm.necon(e,tp,eg,ep,ev,re,r,rp) function cm.necon(e,tp,eg,ep,ev,re,r,rp)
return ep==1-tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev) return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and e:GetHandler():IsDestructable()
and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and e:GetHandler():IsDestructable()
end end
function cm.costfilter(c) function cm.costfilter(c)
return c:IsAbleToDeckAsCost() and srre.check_set_HakaShiro(c) return c:IsAbleToDeckAsCost() and srre.check_set_HakaShiro(c)
...@@ -60,5 +59,7 @@ function cm.netg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -60,5 +59,7 @@ function cm.netg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function cm.neop(e,tp,eg,ep,ev,re,r,rp) function cm.neop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
Duel.Destroy(eg,REASON_EFFECT) if eg and eg:GetFirst():IsRelateToEffect(e) then
Duel.Destroy(eg,REASON_EFFECT)
end
end end
\ No newline at end of file
...@@ -13,6 +13,7 @@ function cm.initial_effect(c) ...@@ -13,6 +13,7 @@ function cm.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetCode(EFFECT_SPSUMMON_PROC) e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE) e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCountLimit(1,m)
e2:SetCondition(cm.spcon) e2:SetCondition(cm.spcon)
e2:SetValue(1) e2:SetValue(1)
c:RegisterEffect(e2) c:RegisterEffect(e2)
...@@ -57,7 +58,7 @@ function cm.spcon(e,c) ...@@ -57,7 +58,7 @@ function cm.spcon(e,c)
end end
function cm.actcon(e,tp,eg,ep,ev,re,r,rp) function cm.actcon(e,tp,eg,ep,ev,re,r,rp)
local te=e:GetLabelObject() local te=e:GetLabelObject()
return re==te and not Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_GRAVE,0,nil) return re==te and not Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_GRAVE,0,1,nil)
end end
function cm.actop(e,tp,eg,ep,ev,re,r,rp) function cm.actop(e,tp,eg,ep,ev,re,r,rp)
srre.codechangeop(e,tp,eg,ep,ev,re,r,rp) srre.codechangeop(e,tp,eg,ep,ev,re,r,rp)
......
...@@ -63,7 +63,7 @@ function cm.remcost(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -63,7 +63,7 @@ function cm.remcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler() local c=e:GetHandler()
if chk==0 then return c:IsAbleToRemoveAsCost() end if chk==0 then return c:IsAbleToRemoveAsCost() end
if Duel.Remove(c,POS_FACEUP,REASON_COST+REASON_TEMPORARY)~=0 then if Duel.Remove(c,POS_FACEUP,REASON_COST+REASON_TEMPORARY)~=0 then
local rc=g:GetFirst() local rc=Duel.GetOperatedGroup():GetFirst()
if rc:IsType(TYPE_TOKEN) then return end if rc:IsType(TYPE_TOKEN) then return end
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
......
...@@ -6,7 +6,7 @@ function cm.initial_effect(c) ...@@ -6,7 +6,7 @@ function cm.initial_effect(c)
local e2=rsef.FTO(c,EVENT_SUMMON_SUCCESS,{m,0},{1,m},"sp,atk,def","de",LOCATION_HAND,cm.spcon,nil,rsop.target2(cm.fun,rscf.spfilter2(),"sp"),cm.spop) local e2=rsef.FTO(c,EVENT_SUMMON_SUCCESS,{m,0},{1,m},"sp,atk,def","de",LOCATION_HAND,cm.spcon,nil,rsop.target2(cm.fun,rscf.spfilter2(),"sp"),cm.spop)
local e5=rsef.RegisterClone(c,e2,"code",EVENT_SPSUMMON_SUCCESS) local e5=rsef.RegisterClone(c,e2,"code",EVENT_SPSUMMON_SUCCESS)
local e3=rsef.SV_INDESTRUCTABLE(c,"battle") local e3=rsef.SV_INDESTRUCTABLE(c,"battle")
local e4=rsef.QO_NEGATE(c,"neg",{1,m+400},"des",LOCATION_MZONE,rscon.negcon(cm.filter)) local e4=rsef.QO_NEGATE(c,"neg",{1,m+100},"des",LOCATION_MZONE,rscon.negcon(cm.filter))
end end
function cm.spcon(e,tp,eg) function cm.spcon(e,tp,eg)
local tc=eg:GetFirst() local tc=eg:GetFirst()
...@@ -48,5 +48,5 @@ function cm.spop(e,tp,eg) ...@@ -48,5 +48,5 @@ function cm.spop(e,tp,eg)
end end
end end
function cm.filter(e,tp,re,rp) function cm.filter(e,tp,re,rp)
return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsAttack(e:GetHandler():GetAttack()) and not re:GetHandler():GetOriginalCode()==65010561 return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():GetAttack()==e:GetHandler():GetAttack() and re:GetHandler():GetOriginalCode()~=65010561
end end
\ 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