Skip to content

no81cards
no81cards
Commit 2fd3948b authored by Nemo Ma's avatar Nemo Ma
Browse files
Options

fix

parent 2bb5f11e
Hide whitespace changes
Inline Side-by-side
Showing with 98 additions and 122 deletions
expansions/script/c29065555.lua
View file @ 2fd3948b
--方舟骑士-玛恩纳 --方舟骑士-玛恩纳
function c29065555.initial_effect(c) function c29065555.initial_effect(c)
--xyz summon --xyz summon
aux.AddXyzProcedure(c,nil,6,3,c29065555.ovfilter,aux.Stringid(29065555,0),3,c29065555.xyzop) c:EnableReviveLimit()
c:EnableReviveLimit() aux.AddXyzProcedureLevelFree(c,c29065555.mfilter,nil,2,2)
--battle --atk
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_IGNITION) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetRange(LOCATION_MZONE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCountLimit(1,29065555) e1:SetCode(EVENT_CHAINING)
e1:SetCost(c29065555.btcost) e1:SetRange(LOCATION_MZONE)
e1:SetTarget(c29065555.bttg) e1:SetOperation(aux.chainreg)
e1:SetOperation(c29065555.btop) c:RegisterEffect(e1)
c:RegisterEffect(e1) local e2=Effect.CreateEffect(c)
--double e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
local e2=Effect.CreateEffect(c) e2:SetCode(EVENT_CHAIN_SOLVED)
e2:SetType(EFFECT_TYPE_SINGLE) e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_SET_BASE_ATTACK) e2:SetOperation(c29065555.atkop)
e2:SetRange(LOCATION_MZONE) c:RegisterEffect(e2)
e2:SetCondition(c29065555.atkcon) --negate
e2:SetValue(c29065555.atkval) local e3=Effect.CreateEffect(c)
c:RegisterEffect(e2) e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e3:SetCode(EVENT_CHAINING)
e3:SetCode(EVENT_PHASE+PHASE_END) e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1) e3:SetCondition(c29065555.discon)
e3:SetCondition(c29065555.ckcon) e3:SetCost(c29065555.discost)
e3:SetOperation(c29065555.ckop) e3:SetTarget(c29065555.distg)
e3:SetOperation(c29065555.disop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end
function c29065555.ovfilter(c)
return c:IsFaceup() and (c:IsSetCard(0x87af) or (_G["c"..c:GetCode()] and _G["c"..c:GetCode()].named_with_Arknight))
end end
function c29065555.xyzop(e,tp,chk) function c29065555.mfilter(c,xyzc)
if chk==0 then return Duel.GetFlagEffect(tp,29065555)==0 and Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x10ae,2,REASON_EFFECT) end return (c:IsXyzLevel(xyzc,5) or c:IsXyzLevel(xyzc,6)) and c:IsAttribute(ATTRIBUTE_LIGHT)
Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x10ae,2,REASON_EFFECT) end
Duel.RegisterFlagEffect(tp,29065555,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) function c29065555.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if re:GetHandler()~=c and c:GetFlagEffect(1)>0 and c:GetFlagEffect(29065555)<8 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(500)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e1)
c:RegisterFlagEffect(29065555,RESET_EVENT+RESETS_STANDARD,0,1)
end
end end
function c29065555.btcost(e,tp,eg,ep,ev,re,r,rp,chk) function c29065555.discon(e,tp,eg,ep,ev,re,r,rp)
return rp~=tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
end
function c29065555.discost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
end end
function c29065555.bttg(e,tp,eg,ep,ev,re,r,rp,chk) function c29065555.distg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end local c=e:GetHandler()
end local rc=re:GetHandler()
function c29065555.btop(e,tp,eg,ep,ev,re,r,rp) local atk=c:GetAttack()-c:GetBaseAttack()
local c=e:GetHandler() local b1=atk>=500 and atk<1500 and rc:IsRelateToEffect(re) and rc:IsDestructable()
if c:IsRelateToEffect(e) then local b2=atk>=1500 Duel.IsChainNegatable(ev)
--attack all if chk==0 then return b1 or b2 end
end
function c29065555.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=re:GetHandler()
if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
local preatk=c:GetAttack()
local atk=preatk-c:GetBaseAttack()
if atk<=0 then return end
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_ATTACK_ALL) e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(1) e1:SetValue(-atk)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE) e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e1) c:RegisterEffect(e1)
end atk=preatk-c:GetAttack()
--direct if atk<500 then return end
local e1=Effect.CreateEffect(c) if atk<1500 then
e1:SetType(EFFECT_TYPE_FIELD) if rc:IsRelateToEffect(re) then
e1:SetCode(EFFECT_DIRECT_ATTACK) Duel.Destroy(rc,REASON_EFFECT)
e1:SetTargetRange(LOCATION_MZONE,0) end
e1:SetTarget(c29065555.drttg) elseif atk<4000 then
e1:SetReset(RESET_PHASE+PHASE_BATTLE) if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.RegisterEffect(e1,tp) Duel.Destroy(eg,REASON_EFFECT)
end end
function c29065555.drttg(e,c) else
return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_BEASTWARRIOR) if Duel.NegateActivation(ev) then
end local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
function c29065555.atkcon(e) Duel.Destroy(g,REASON_EFFECT)
return e:GetHandler():GetFlagEffect(29065555)~=0 end
end end
function c29065555.atkval(e) end
return e:GetHandler():GetBaseAttack()*2 \ No newline at end of file
end
function c29065555.ckcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c29065555.ckop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:GetAttackAnnouncedCount()==0 then
Duel.Hint(HINT_CARD,0,29065555)
c:RegisterFlagEffect(29065555,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,1,aux.Stringid(29065555,1))
elseif c:GetAttackAnnouncedCount()~=0 and c:GetFlagEffect(29065555) then
c:ResetFlagEffect(29065555)
end
end
expansions/script/c29071651.lua
View file @ 2fd3948b
--方舟骑士-暴行 --方舟骑士-暴行
c29071651.named_with_Arknight=1 c29071651.named_with_Arknight=1
function c29071651.initial_effect(c) function c29071651.initial_effect(c)
aux.AddCodeList(c,29065500) aux.AddCodeList(c,29065502)
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD) e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND+LOCATION_DECK) e1:SetRange(LOCATION_HAND+LOCATION_DECK)
e1:SetCountLimit(1,29071651+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(c29071651.spcon) e1:SetCondition(c29071651.spcon)
e1:SetOperation(c29071651.spop) e1:SetOperation(c29071651.spop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(29071651,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,29071651)
e2:SetTarget(c29071651.sptg1)
e2:SetOperation(c29071651.spop1)
--c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
--c:RegisterEffect(e3)
c29071651.summon_effect=e2
--attack all --attack all
local e4=Effect.CreateEffect(c) local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE) e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_ATTACK_ALL) e4:SetCode(EFFECT_ATTACK_ALL)
e4:SetValue(1) e4:SetValue(1)
c:RegisterEffect(e4) c:RegisterEffect(e4)
Duel.AddCustomActivityCounter(29071651,ACTIVITY_SUMMON,c29071651.counterfilter)
Duel.AddCustomActivityCounter(29071651,ACTIVITY_SPSUMMON,c29071651.counterfilter)
end
function c29071651.counterfilter(c)
return not c:IsCode(29065502)
end end
function c29071651.spcon(e,c) function c29071651.spcon(e,c)
if c==nil then return true end if c==nil then return true end
return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and (Duel.IsCanRemoveCounter(c:GetControler(),1,0,0x10ae,2,REASON_COST) or (Duel.GetFlagEffect(tp,29096814)==1 and Duel.IsCanRemoveCounter(c:GetControler(),1,0,0x10ae,1,REASON_COST))) return (Duel.GetCustomActivityCount(29071651,tp,ACTIVITY_SUMMON)~=0
or Duel.GetCustomActivityCount(29071651,tp,ACTIVITY_SPSUMMON)~=0)
and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
and (Duel.IsCanRemoveCounter(c:GetControler(),1,0,0x10ae,2,REASON_COST)
or (Duel.GetFlagEffect(tp,29096814)==1 and Duel.IsCanRemoveCounter(c:GetControler(),1,0,0x10ae,1,REASON_COST)))
end end
function c29071651.spop(e,tp,eg,ep,ev,re,r,rp,c) function c29071651.spop(e,tp,eg,ep,ev,re,r,rp,c)
if Duel.GetFlagEffect(tp,29096814)==1 then if Duel.GetFlagEffect(tp,29096814)==1 then
Duel.ResetFlagEffect(tp,29096814) Duel.ResetFlagEffect(tp,29096814)
Duel.RemoveCounter(tp,1,0,0x10ae,1,REASON_RULE) Duel.RemoveCounter(tp,1,0,0x10ae,1,REASON_RULE)
else else
Duel.RemoveCounter(tp,1,0,0x10ae,2,REASON_RULE) Duel.RemoveCounter(tp,1,0,0x10ae,2,REASON_RULE)
end
end
function c29071651.checkfilter(c)
return c:IsFaceup() and c:IsCode(29065500)
end
function c29071651.spfilter(c,e,tp)
return ((c:IsSetCard(0x87af) or (_G["c"..c:GetCode()] and _G["c"..c:GetCode()].named_with_Arknight)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND)) or ((c:IsCode(29065500) or aux.IsCodeListed(c,29065500)) and c:IsLocation(LOCATION_DECK) and Duel.IsExistingMatchingCard(c29071651.checkfilter,tp,LOCATION_ONFIELD,0,1,nil))
end
function c29071651.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c29071651.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
end
function c29071651.spop1(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c29071651.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end end
end end
\ No newline at end of file
expansions/script/c53799201.lua
View file @ 2fd3948b
...@@ -51,7 +51,7 @@ function cm.SynCondition(f1,f2,minc,maxc) ...@@ -51,7 +51,7 @@ function cm.SynCondition(f1,f2,minc,maxc)
if max<maxc then maxc=max end if max<maxc then maxc=max end
if minc>maxc then return false end if minc>maxc then return false end
end end
local exg=Duel.GetMatchingGroup(Card.IsLevelAbove,c:GetControler(),LOCATION_HAND+LOCATION_ONFIELD,0,nil,0) local exg=Duel.GetMatchingGroup(Card.IsLevelAbove,c:GetControler(),LOCATION_HAND+LOCATION_MZONE,LOCATION_MZONE,nil,1)
if mg then mg:Merge(exg) else mg=exg end if mg then mg:Merge(exg) else mg=exg end
if smat and smat:IsType(TYPE_TUNER) and (not f1 or f1(smat)) then if smat and smat:IsType(TYPE_TUNER) and (not f1 or f1(smat)) then
return mg:CheckSubGroup(cm.fselect1,minc,maxc,c,smat,f1,f2,minc,maxc,c:GetControler()) end return mg:CheckSubGroup(cm.fselect1,minc,maxc,c,smat,f1,f2,minc,maxc,c:GetControler()) end
...@@ -69,7 +69,7 @@ function cm.SynTarget(f1,f2,minc,maxc) ...@@ -69,7 +69,7 @@ function cm.SynTarget(f1,f2,minc,maxc)
if minc>maxc then return false end if minc>maxc then return false end
end end
local g=nil local g=nil
local exg=Duel.GetMatchingGroup(Card.IsLevelAbove,c:GetControler(),LOCATION_HAND+LOCATION_ONFIELD,0,nil,0) local exg=Duel.GetMatchingGroup(Card.IsLevelAbove,c:GetControler(),LOCATION_HAND+LOCATION_MZONE,LOCATION_MZONE,nil,1)
if mg then mg:Merge(exg) else mg=exg end if mg then mg:Merge(exg) else mg=exg end
if smat and smat:IsType(TYPE_TUNER) and (not f1 or f1(smat)) then if smat and smat:IsType(TYPE_TUNER) and (not f1 or f1(smat)) then
g=mg:SelectSubGroup(c:GetControler(),cm.fselect1,false,minc,maxc,c,smat,f1,f2,minc,maxc,c:GetControler()) g=mg:SelectSubGroup(c:GetControler(),cm.fselect1,false,minc,maxc,c,smat,f1,f2,minc,maxc,c:GetControler())
......
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