Skip to content
This repository was archived by the owner on Jun 22, 2018. It is now read-only.

Xyz Summoning Anime Cards Cleanup #433

Open
MichaelLawrenceDee wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Xyz Summoning Anime Cards Cleanup #433

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
133 changes: 40 additions & 93 deletions script/c511000698.lua
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,93 +1,40 @@
--Dimension Xyz
function c511000698.initial_effect(c)
function aux.AddXyzProcedure(c,f,lv,ct,alterf,desc,maxct,op)
local code=c:GetOriginalCode()
local mt=_G["c" .. code]
if f then
mt.xyz_filter=function(mc) return mc and f(mc) end
else
mt.xyz_filter=function(mc) return true end
end
mt.minxyzct=ct
if not maxct then
mt.maxxyzct=ct
else
if maxct==5 and code~=14306092 and code~=63504681 and code~=23776077 then
mt.maxxyzct=99
else
mt.maxxyzct=maxct
end
end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_EXTRA)
if not maxct then maxct=ct end
if alterf then
e1:SetCondition(Auxiliary.XyzCondition2(f,lv,ct,maxct,alterf,desc,op))
e1:SetTarget(Auxiliary.XyzTarget2(f,lv,ct,maxct,alterf,desc,op))
e1:SetOperation(Auxiliary.XyzOperation2(f,lv,ct,maxct,alterf,desc,op))
else
e1:SetCondition(Auxiliary.XyzCondition(f,lv,ct,maxct))
e1:SetTarget(Auxiliary.XyzTarget(f,lv,ct,maxct))
e1:SetOperation(Auxiliary.XyzOperation(f,lv,ct,maxct))
end
e1:SetValue(SUMMON_TYPE_XYZ)
c:RegisterEffect(e1)
end

--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCondition(c511000698.condition)
e1:SetTarget(c511000698.target)
e1:SetOperation(c511000698.operation)
c:RegisterEffect(e1)
end
function c511000698.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetLP(tp)<=1000
end
function c511000698.filter(c,e,tp)
return Duel.IsExistingMatchingCard(c511000698.filter2,tp,0x1E,0,2,c,c:GetLevel(),c:GetCode())
and Duel.IsExistingMatchingCard(c511000698.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetLevel())
end
function c511000698.filter2(c,lv,code)
return c:GetLevel()==lv and c:IsCode(code)
end
function c511000698.xyzfilter(c,e,tp,lv)
return c:GetRank()==lv and (c.minxyzct==3 or c.maxxyzct>=3) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
end
function c511000698.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingMatchingCard(c511000698.filter,tp,0x1E,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c511000698.operation(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local g1=Duel.SelectMatchingCard(tp,c511000698.filter,tp,0x1E,0,1,1,nil,e,tp)
local gx=g1:GetFirst()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local g2=Duel.SelectMatchingCard(tp,c511000698.filter2,tp,0x1E,0,2,2,gx,gx:GetLevel(),gx:GetCode())
g1:Merge(g2)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local x=Duel.SelectMatchingCard(tp,c511000698.xyzfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,gx:GetLevel())
local xyz=x:GetFirst()
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetRange(LOCATION_EXTRA)
e1:SetOperation(c511000698.xyzop)
e1:SetReset(RESET_CHAIN)
e1:SetValue(SUMMON_TYPE_XYZ)
e1:SetLabelObject(g1)
xyz:RegisterEffect(e1)
Duel.XyzSummon(tp,xyz,nil)
end
function c511000698.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og)
local mat=e:GetLabelObject()
c:SetMaterial(mat)
Duel.Overlay(c,mat)
end
--Dimension Xyz
function c511000698.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCondition(c511000698.condition)
e1:SetTarget(c511000698.target)
e1:SetOperation(c511000698.operation)
c:RegisterEffect(e1)
end
function c511000698.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetLP(tp)<=1000
end
function c511000698.filter(c,tp,xyz)
local g=Duel.GetMatchingGroup(c511000698.filter2,tp,0x1e,0,nil,c:GetLevel(),c:GetCode(),xyz)
return xyz:IsXyzSummonable(g,3,3) and (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 or c:IsLocation(LOCATION_MZONE))
end
function c511000698.filter2(c,lv,code,xyz)
return c:IsXyzLevel(xyz,lv) and c:IsCode(code)
end
function c511000698.xyzfilter(c,tp)
return Duel.IsExistingMatchingCard(c511000698.filter,tp,0x1e,0,1,nil,tp,c)
end
function c511000698.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingMatchingCard(c511000698.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c511000698.operation(e,tp,eg,ep,ev,re,r,rp)
local xyzg=Duel.GetMatchingGroup(c511000698.xyzfilter,tp,LOCATION_EXTRA,0,nil,tp)
if xyzg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local mc=Duel.SelectMatchingCard(tp,c511000698.filter,tp,0x1e,0,1,1,nil,tp,xyz):GetFirst()
local g=Duel.GetMatchingGroup(c511000698.filter2,tp,0x1e,0,nil,mc:GetLevel(),mc:GetCode(),xyz)
Duel.XyzSummon(tp,xyz,g,3,3)
end
end
124 changes: 35 additions & 89 deletions script/c511001445.lua
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,89 +1,35 @@
--Halfway to Forever
function c511001445.initial_effect(c)
function aux.AddXyzProcedure(c,f,lv,ct,alterf,desc,maxct,op)
local code=c:GetOriginalCode()
local mt=_G["c" .. code]
if f then
mt.xyz_filter=function(mc) return mc and f(mc) end
else
mt.xyz_filter=function(mc) return true end
end
mt.minxyzct=ct
if not maxct then
mt.maxxyzct=ct
else
if maxct==5 and code~=14306092 and code~=63504681 and code~=23776077 then
mt.maxxyzct=99
else
mt.maxxyzct=maxct
end
end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_EXTRA)
if not maxct then maxct=ct end
if alterf then
e1:SetCondition(Auxiliary.XyzCondition2(f,lv,ct,maxct,alterf,desc,op))
e1:SetTarget(Auxiliary.XyzTarget2(f,lv,ct,maxct,alterf,desc,op))
e1:SetOperation(Auxiliary.XyzOperation2(f,lv,ct,maxct,alterf,desc,op))
else
e1:SetCondition(Auxiliary.XyzCondition(f,lv,ct,maxct))
e1:SetTarget(Auxiliary.XyzTarget(f,lv,ct,maxct))
e1:SetOperation(Auxiliary.XyzOperation(f,lv,ct,maxct))
end
e1:SetValue(SUMMON_TYPE_XYZ)
c:RegisterEffect(e1)
end

--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c511001445.target)
e1:SetOperation(c511001445.activate)
c:RegisterEffect(e1)
end
function c511001445.filter(c,tid)
return c:GetTurnID()==tid and c:IsReason(REASON_BATTLE)
end
function c511001445.xyzfilter(c,mg)
return c:IsXyzSummonable(mg) and (c.minxyzct==2 or c.maxxyzct>=2)
end
function c511001445.mfilter1(c,exg)
return exg:IsExists(c511001445.mfilter2,1,nil,c)
end
function c511001445.mfilter2(c,mc)
return c.xyz_filter(mc)
end
function c511001445.target(e,tp,eg,ep,ev,re,r,rp,chk)
local tid=Duel.GetTurnCount()
local mg=Duel.GetMatchingGroup(c511001445.filter,tp,LOCATION_GRAVE,0,nil,tid)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and mg:GetCount()>1
and Duel.IsExistingMatchingCard(c511001445.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,mg) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
end
function c511001445.activate(e,tp,eg,ep,ev,re,r,rp)
local tid=Duel.GetTurnCount()
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
local mg=Duel.GetMatchingGroup(c511001445.filter,tp,LOCATION_GRAVE,0,nil,tid)
local exg=Duel.GetMatchingGroup(c511001445.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local sg1=mg:FilterSelect(tp,c511001445.mfilter1,1,1,nil,exg)
local tc1=sg1:GetFirst()
local exg2=exg:Filter(c511001445.mfilter2,nil,tc1)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local sg2=mg:FilterSelect(tp,c511001445.mfilter1,1,1,tc1,exg2)
sg1:Merge(sg2)
local xyzg=Duel.GetMatchingGroup(c511001445.xyzfilter,tp,LOCATION_EXTRA,0,nil,sg1)
if xyzg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
xyz:SetMaterial(sg1)
Duel.Overlay(xyz,sg1)
Duel.SpecialSummon(xyz,SUMMON_TYPE_XYZ,tp,tp,true,false,POS_FACEUP)
xyz:CompleteProcedure()
end
end
--Halfway to Forever
function c511001445.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c511001445.target)
e1:SetOperation(c511001445.activate)
c:RegisterEffect(e1)
end
function c511001445.filter(c,tid)
return c:GetTurnID()==tid and c:IsReason(REASON_BATTLE)
end
function c511001445.xyzfilter(c,mg)
return c:IsXyzSummonable(mg,2,2) --and (c.minxyzct==2 or c.maxxyzct>=2)
end
function c511001445.target(e,tp,eg,ep,ev,re,r,rp,chk)
local tid=Duel.GetTurnCount()
local mg=Duel.GetMatchingGroup(c511001445.filter,tp,LOCATION_GRAVE,0,nil,tid)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and mg:GetCount()>1
and Duel.IsExistingMatchingCard(c511001445.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,mg) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
end
function c511001445.activate(e,tp,eg,ep,ev,re,r,rp)
local tid=Duel.GetTurnCount()
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
local mg=Duel.GetMatchingGroup(c511001445.filter,tp,LOCATION_GRAVE,0,nil,tid)
local xyzg=Duel.GetMatchingGroup(c511001445.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg)
if xyzg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
Duel.XyzSummon(tp,xyz,mg,2,2)
end
end
Loading