Skip to content

Y
ygopro-222DIY-cards
Commit c6a2eeca authored by TanakaKotoha's avatar TanakaKotoha
Browse files
Options

s

parent 16a691fb
Hide whitespace changes
Inline Side-by-side
Showing with 85 additions and 84 deletions
expansions/script/c47531962.lua
View file @ c6a2eeca
...@@ -2,104 +2,105 @@ ...@@ -2,104 +2,105 @@
local m=47531962 local m=47531962
local cm=_G["c"..m] local cm=_G["c"..m]
function c47531962.initial_effect(c) function c47531962.initial_effect(c)
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_IMMUNE_EFFECT) e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetValue(c47531962.efilter) e1:SetValue(c47531962.efilter)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--Armed Arm VN --Armed Arm VN
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_EQUIP) e1:SetCategory(CATEGORY_EQUIP)
e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetTarget(c47531962.vntg) e1:SetCountLimit(1,47531962)
e1:SetOperation(c47531962.vnop) e1:SetTarget(c47531962.vntg)
c:RegisterEffect(e1) e1:SetOperation(c47531962.vnop)
-- c:RegisterEffect(e1)
local e5=Effect.CreateEffect(c) --
e5:SetType(EFFECT_TYPE_SINGLE) local e5=Effect.CreateEffect(c)
e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetCode(EFFECT_UNRELEASABLE_SUM) e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e5:SetRange(LOCATION_MZONE) e5:SetCode(EFFECT_UNRELEASABLE_SUM)
e5:SetValue(1) e5:SetRange(LOCATION_MZONE)
c:RegisterEffect(e5) e5:SetValue(1)
local e6=e5:Clone() c:RegisterEffect(e5)
e6:SetCode(EFFECT_UNRELEASABLE_NONSUM) local e6=e5:Clone()
c:RegisterEffect(e6) e6:SetCode(EFFECT_UNRELEASABLE_NONSUM)
local e7=e5:Clone() c:RegisterEffect(e6)
e7:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL) local e7=e5:Clone()
e7:SetValue(c47531962.fuslimit) e7:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
c:RegisterEffect(e7) e7:SetValue(c47531962.fuslimit)
local e8=e5:Clone() c:RegisterEffect(e7)
e8:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) local e8=e5:Clone()
c:RegisterEffect(e8) e8:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
local e9=e5:Clone() c:RegisterEffect(e8)
e9:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) local e9=e5:Clone()
c:RegisterEffect(e9) e9:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
local e10=e5:Clone() c:RegisterEffect(e9)
e10:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL) local e10=e5:Clone()
c:RegisterEffect(e10) e10:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
c:RegisterEffect(e10)
end end
function c47531962.efilter(e,re) function c47531962.efilter(e,re)
return re:IsActiveType(TYPE_MONSTER) return re:IsActiveType(TYPE_MONSTER)
end end
function c47531962.fuslimit(e,c,sumtype) function c47531962.fuslimit(e,c,sumtype)
return sumtype==SUMMON_TYPE_FUSION return sumtype==SUMMON_TYPE_FUSION
end end
function c47531962.vntg(e,tp,eg,ep,ev,re,r,rp,chk) function c47531962.vntg(e,tp,eg,ep,ev,re,r,rp,chk)
local lg=e:GetHandler():GetLinkedGroup():Filter(aux.TRUE,nil) local lg=e:GetHandler():GetLinkedGroup():Filter(aux.TRUE,nil)
if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil,e,tp,lg) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil,e,tp,lg) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
Duel.SetOperationInfo(0,CATEGORY_EQUIP,lg,lg:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_EQUIP,lg,lg:GetCount(),0,0)
end end
function c47531962.cfilter(c,g) function c47531962.cfilter(c,g)
return g:IsContains(c) return g:IsContains(c)
end end
function c47531962.vnop(e,tp,eg,ep,ev,re,r,rp) function c47531962.vnop(e,tp,eg,ep,ev,re,r,rp)
local lg=e:GetHandler():GetLinkedGroup():Filter(aux.TRUE,nil) local lg=e:GetHandler():GetLinkedGroup():Filter(aux.TRUE,nil)
if Duel.GetLocationCount(tp,LOCATION_SZONE)<lg:GetCount() then return end if Duel.GetLocationCount(tp,LOCATION_SZONE)<lg:GetCount() then return end
local c=e:GetHandler() local c=e:GetHandler()
local tc=sg:GetFirst() local tc=lg:GetFirst()
while tc do while tc do
Duel.Equip(tp,tc,c,false,true) Duel.Equip(tp,tc,c,false,true)
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE) e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
e1:SetCode(EFFECT_EQUIP_LIMIT) e1:SetCode(EFFECT_EQUIP_LIMIT)
e1:SetReset(RESET_EVENT+RESETS_STANDARD) e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetValue(c47531962.eqlimit) e1:SetValue(c47531962.eqlimit)
tc:RegisterEffect(e1) tc:RegisterEffect(e1)
tc:RegisterFlagEffect(47531962,RESET_EVENT+RESETS_STANDARD,0,1) tc:RegisterFlagEffect(47531962,RESET_EVENT+RESETS_STANDARD,0,1)
local e2=Effect.CreateEffect(e:GetHandler()) local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_PHASE+PHASE_END) e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetCountLimit(1) e2:SetCountLimit(1)
e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetLabelObject(tc) e2:SetLabelObject(tc)
e2:SetCondition(c47531962.descon) e2:SetCondition(c47531962.descon)
e2:SetOperation(c47531962.desop) e2:SetOperation(c47531962.desop)
Duel.RegisterEffect(e2,tp) Duel.RegisterEffect(e2,tp)
tc=sg:GetNext() tc=sg:GetNext()
end end
Duel.EquipComplete() Duel.EquipComplete()
end end
function c47531962.eqlimit(e,c) function c47531962.eqlimit(e,c)
return e:GetOwner()==c return e:GetOwner()==c
end end
function c47531962.descon(e,tp,eg,ep,ev,re,r,rp) function c47531962.descon(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject() local tc=e:GetLabelObject()
if tc:GetFlagEffect(47531962)~=0 then if tc:GetFlagEffect(47531962)~=0 then
return true return true
else else
e:Reset() e:Reset()
return false return false
end end
end end
function c47531962.desop(e,tp,eg,ep,ev,re,r,rp) function c47531962.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject() local tc=e:GetLabelObject()
local atk=tc:GetBaseAttack() local atk=tc:GetBaseAttack()
Duel.Destroy(tc,REASON_EFFECT) Duel.Destroy(tc,REASON_EFFECT)
Duel.Damage(atk/2,1-tp,REASON_EFFECT) Duel.Damage(atk/2,1-tp,REASON_EFFECT)
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