Skip to content

E
Entertainment Server
Commit 67c423d3 authored by root's avatar root
Browse files
Options

Refresh on 2024-12-15 12:04:42

parent 6be7a802
Hide whitespace changes
Inline Side-by-side
Showing with 45 additions and 29 deletions
script/c101208009.lua
View file @ 67c423d3
--紋章獸 グリフィン
--紋章獣グリフォン
local s,id,o=GetID()
function s.initial_effect(c)
local e0=Effect.CreateEffect(c)
......@@ -25,7 +25,7 @@ function s.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(81096431)
e2:SetValue(id)
e2:SetRange(LOCATION_MZONE)
e2:SetRange(0xff)
e2:SetTarget(s.sxyzfilter)
e2:SetCountLimit(1,id+o)
c:RegisterEffect(e2)
......@@ -58,7 +58,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
e1:SetTarget(s.splimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
--
--material limit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
......@@ -68,6 +68,14 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
e2:SetValue(1)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
--must material
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(67120578)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetTargetRange(1,0)
e3:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e3,tp)
end
function s.splimit(e,c,sump,sumtype,sumpos,targetp,se)
return c:IsLocation(LOCATION_EXTRA) and bit.band(sumtype,SUMMON_TYPE_XYZ)~=SUMMON_TYPE_XYZ
......@@ -123,7 +131,7 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
function Auxiliary.XyzLevelFreeOperationAlter(f,gf,minc,maxc,alterf,alterdesc,alterop)
return function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
if og and not min then
if og:GetCount()<=maxc and mg:GetCount()>=minc and maxc==minc+2 then
if og:GetCount()<maxc and mg:GetCount()>=minc and maxc==minc+2 then
local et=maxc-og:GetCount()
local exg=og:Filter(Card.IsHasEffect,nil,81096431,tp)
local ext=exg:GetClassCount(s.eftfilter,tp)
......@@ -154,12 +162,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
Duel.Overlay(c,og)
else
local mg=e:GetLabelObject()
if mg:GetCount()<=maxc and mg:GetCount()>=minc and maxc==minc+2 then
if mg:GetCount()<maxc and mg:GetCount()>=minc and maxc==minc+2 then
local et=maxc-mg:GetCount()
local exg=mg:Filter(Card.IsHasEffect,nil,81096431,tp)
local ext=exg:GetClassCount(s.eftfilter,tp)
if et==0 or 2-et==ext then
for ttc in aux.Next(mg) do
for ttc in aux.Next(exg) do
local tte=ttc:IsHasEffect(81096431,tp)
tte:UseCountLimit(tp)
end
......@@ -201,12 +209,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
function Auxiliary.XyzLevelFreeOperation(f,gf,minct,maxct)
return function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
if og and not min then
if og:GetCount()<=maxc and mg:GetCount()>=minct and maxc==minc+2 then
if og:GetCount()<maxct and og:GetCount()>=minct and maxct==minct+2 then
local et=maxct-og:GetCount()
local exg=og:Filter(Card.IsHasEffect,nil,81096431,tp)
local ext=exg:GetClassCount(s.eftfilter,tp)
if et==0 or 2-et==ext then
for ttc in aux.Next(og) do
for ttc in aux.Next(exg) do
local tte=ttc:IsHasEffect(81096431,tp)
tte:UseCountLimit(tp)
end
......@@ -232,7 +240,7 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
Duel.Overlay(c,og)
else
local mg=e:GetLabelObject()
if mg:GetCount()<=maxct and mg:GetCount()>=minct and maxct==minct+2 then
if mg:GetCount()<maxct and mg:GetCount()>=minct and maxct==minct+2 then
local et=maxct-mg:GetCount()
local exg=mg:Filter(Card.IsHasEffect,nil,81096431,tp)
local ext=exg:GetClassCount(s.eftfilter,tp)
......
script/c101208010.lua
View file @ 67c423d3
--紋章獸 スタット・ホエール
--紋章獣スタット・ホエール
local s,id,o=GetID()
function s.initial_effect(c)
--
......@@ -53,7 +53,7 @@ function s.spfilter(c,e,tp)
and c:IsCanBeEffectTarget(e)
end
function s.fselect(g)
return aux.SameValueCheck(g,Card.GetCode)
return g:GetClassCount(Card.GetCode)==1
end
function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local c=e:GetHandler()
......@@ -76,7 +76,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
e1:SetTarget(s.splimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
--
--material limit
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
......@@ -86,6 +86,14 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
e2:SetValue(1)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
--must material
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(67120578)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetTargetRange(1,0)
e3:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e3,tp)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<=0 then return end
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(aux.NecroValleyFilter(Card.IsRelateToEffect),nil,e)
......
script/c101208045.lua
View file @ 67c423d3
--No.69 紋章神コート·オスアームズーコッド·シャーター
--No.69 紋章神コート・オブ・アームズ－ゴッド・シャーター
local s,id,o=GetID()
function s.initial_effect(c)
aux.AddCodeList(c,2407234,101208046)
......@@ -25,6 +25,7 @@ function s.initial_effect(c)
e2:SetOperation(s.spop2)
c:RegisterEffect(e2)
end
aux.xyz_number[id]=69
function s.ovfilter(c)
return c:IsFaceup() and c:IsOriginalCodeRule(2407234)
end
......
script/c101208046.lua
View file @ 67c423d3
--No.69 紋章神コート·オスアームズーコッド·レイジ
--No.69 紋章神コート・オブ・アームズ－ゴッド・レイジ
local s,id,o=GetID()
function s.initial_effect(c)
--xyz summon
......@@ -37,6 +37,7 @@ function s.initial_effect(c)
e4:SetOperation(s.disop)
c:RegisterEffect(e4)
end
aux.xyz_number[id]=69
function s.codecost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
......@@ -64,8 +65,8 @@ function s.codeop(e,tp,eg,ep,ev,re,r,rp)
end
end
function s.discon(e,tp,eg,ep,ev,re,r,rp)
local code,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
return rp==1-tp and (code==id+o or code2==id+o or re:GetHandler():IsCode(id+o))
if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end
return rp==1-tp and re:GetHandler():IsCode(id+o)
end
function s.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,id)
......
script/c191919191.lua
View file @ 67c423d3
......@@ -9,7 +9,6 @@ function s.initial_effect(c)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(id,0))
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetCode(EFFECT_SPSUMMON_PROC)
......@@ -19,7 +18,6 @@ function s.initial_effect(c)
e2:SetOperation(s.sprop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(id,1))
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetRange(LOCATION_MZONE)
e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
......@@ -28,7 +26,7 @@ function s.initial_effect(c)
e3:SetOperation(s.atkop)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(id,2))
e4:SetDescription(aux.Stringid(id,0))
e4:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_CHAINING)
......@@ -40,7 +38,7 @@ function s.initial_effect(c)
e4:SetOperation(s.disop)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(id,3))
e5:SetDescription(aux.Stringid(id,1))
e5:SetCategory(CATEGORY_DISABLE)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetCode(EVENT_FREE_CHAIN)
......
script/c81096431.lua
View file @ 67c423d3
......@@ -26,7 +26,7 @@ function s.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(id)
e2:SetValue(id)
e2:SetRange(LOCATION_MZONE)
e2:SetRange(0xff)
e2:SetTarget(s.sxyzfilter)
e2:SetCountLimit(1,id+o)
c:RegisterEffect(e2)
......@@ -91,12 +91,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
function Auxiliary.XyzLevelFreeOperationAlter(f,gf,minc,maxc,alterf,alterdesc,alterop)
return function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
if og and not min then
if og:GetCount()<=maxc and mg:GetCount()>=minc and maxc==minc+2 then
if og:GetCount()<maxc and mg:GetCount()>=minc and maxc==minc+2 then
local et=maxc-og:GetCount()
local exg=og:Filter(Card.IsHasEffect,nil,id,tp)
local ext=exg:GetClassCount(s.eftfilter,tp)
if et==0 or 2-et==ext then
for ttc in aux.Next(og) do
for ttc in aux.Next(exg) do
local tte=ttc:IsHasEffect(id,tp)
tte:UseCountLimit(tp)
end
......@@ -122,12 +122,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
Duel.Overlay(c,og)
else
local mg=e:GetLabelObject()
if mg:GetCount()<=maxc and mg:GetCount()>=minc and maxc==minc+2 then
if mg:GetCount()<maxc and mg:GetCount()>=minc and maxc==minc+2 then
local et=maxc-mg:GetCount()
local exg=mg:Filter(Card.IsHasEffect,nil,id,tp)
local ext=exg:GetClassCount(s.eftfilter,tp)
if et==0 or 2-et==ext then
for ttc in aux.Next(mg) do
for ttc in aux.Next(exg) do
local tte=ttc:IsHasEffect(id,tp)
tte:UseCountLimit(tp)
end
......@@ -169,12 +169,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
function Auxiliary.XyzLevelFreeOperation(f,gf,minct,maxct)
return function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
if og and not min then
if mg:GetCount()<=maxc and mg:GetCount()>=minct and maxc==minc+2 then
if mg:GetCount()<maxct and mg:GetCount()>=minct and maxct==minct+2 then
local et=maxct-mg:GetCount()
local exg=mg:Filter(Card.IsHasEffect,nil,id,tp)
local ext=exg:GetClassCount(s.eftfilter,tp)
if et==0 or 2-et==ext then
for ttc in aux.Next(mg) do
for ttc in aux.Next(exg) do
local tte=ttc:IsHasEffect(id,tp)
tte:UseCountLimit(tp)
end
......@@ -200,12 +200,12 @@ function s.adjustop(e,tp,eg,ep,ev,re,r,rp)
Duel.Overlay(c,og)
else
local mg=e:GetLabelObject()
if mg:GetCount()<=maxct and mg:GetCount()>=minct and maxct==minct+2 then
if mg:GetCount()<maxct and mg:GetCount()>=minct and maxct==minct+2 then
local et=maxct-mg:GetCount()
local exg=mg:Filter(Card.IsHasEffect,nil,id,tp)
local ext=exg:GetClassCount(s.eftfilter,tp)
if et==0 or 2-et==ext then
for ttc in aux.Next(mg) do
for ttc in aux.Next(exg) do
local tte=ttc:IsHasEffect(id,tp)
tte:UseCountLimit(tp)
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