Skip to content

Y
ygopro-222DIY-cards
Commit c5786922 authored by REIKAI's avatar REIKAI 💬
Browse files
Options

Merge branch 'emergency' into 'master' 

Emergency

See merge request alstroemeria-silentlove/ygopro-222DIY-cards!6
parents 9e0a2f90 47a162b1
Show whitespace changes
Inline Side-by-side
Showing with 20 additions and 7578 deletions
expansions/222DIY.cdb
View file @ c5786922
No preview for this file type
expansions/lflist.conf
View file @ c5786922
...@@ -474,6 +474,7 @@ ...@@ -474,6 +474,7 @@
15002020 0 --墟伪的审判 15002020 0 --墟伪的审判
15003023 0 --虚空孔穴·格利扎 15003023 0 --虚空孔穴·格利扎
15004036 1 --东风欧洛斯的冷笑 15004036 1 --东风欧洛斯的冷笑
15004361 0 --来自苍白星海的哭泣
#161 #161
16101031 0 --真化超越 16101031 0 --真化超越
16101040 0 --圣者的牲祭 16101040 0 --圣者的牲祭
...@@ -816,10 +817,12 @@ ...@@ -816,10 +817,12 @@
30000205 0 --不灭的黑暗 30000205 0 --不灭的黑暗
30000220 1 --混沌的轮回 循环 30000220 1 --混沌的轮回 循环
30005005 1 --恶染侵覆 30005005 1 --恶染侵覆
30005010 0 --异神 灰
30005016 0 --森之妖精 萨堤尔Ⅱ 30005016 0 --森之妖精 萨堤尔Ⅱ
30005020 1 --心哀想 30005020 1 --心哀想
30005030 1 --懵懂的暗芽 30005030 1 --懵懂的暗芽
30005035 0 --仪死的供物 30005035 0 --仪死的供物
30005040 0 --异神 格
30005045 1 --异神 煞 30005045 1 --异神 煞
30005050 0 --虚冥幽魄 30005050 0 --虚冥幽魄
30005090 0 --告别前的叮嘱 30005090 0 --告别前的叮嘱
...@@ -828,6 +831,7 @@ ...@@ -828,6 +831,7 @@
30005105 0 --深红汇聚 30005105 0 --深红汇聚
30005110 0 --虚无中的陷阱 30005110 0 --虚无中的陷阱
30005115 1 --六魂招来 30005115 1 --六魂招来
30005125 0 --白蛇阴阳师 瑞灵
30005130 0 --耀辉机 时绽 30005130 0 --耀辉机 时绽
30005160 0 --次元镇压 30005160 0 --次元镇压
30005165 0 --恶魔的再生 30005165 0 --恶魔的再生
...@@ -837,6 +841,7 @@ ...@@ -837,6 +841,7 @@
30005195 1 --白厄 诺纷斯 30005195 1 --白厄 诺纷斯
30005200 0 --闪辉龙 凯旋龙 30005200 0 --闪辉龙 凯旋龙
30005205 0 --混沌二气 30005205 0 --混沌二气
30008806 0 --终极空隙机 时空裁定者
30052000 0 --克里斯汀·罗森塔尔 30052000 0 --克里斯汀·罗森塔尔
#305 #305
30553101 0 --创衍秘器 愚沌之核 30553101 0 --创衍秘器 愚沌之核
...@@ -875,6 +880,8 @@ ...@@ -875,6 +880,8 @@
30666670 0 --拟龙贵族·引导龙女 30666670 0 --拟龙贵族·引导龙女
30666700 0 --拟龙贵族·谋士龙女 30666700 0 --拟龙贵族·谋士龙女
30666725 1 --拟龙贵族·复仇龙女 30666725 1 --拟龙贵族·复仇龙女
30683110 0 --M·A·L·Hydra
30683425 0 --M·A·L——Null
#307 #307
30700001 0 --龙裔的新生者 30700001 0 --龙裔的新生者
30700003 1 --龙裔的祈祷者 30700003 1 --龙裔的祈祷者
...@@ -1241,6 +1248,7 @@ ...@@ -1241,6 +1248,7 @@
35700111 1 --翼战机动-紧急出击 35700111 1 --翼战机动-紧急出击
35700121 1 --原型翼战机-变核翼组 35700121 1 --原型翼战机-变核翼组
35700123 0 --原型翼战机-决战翼组 35700123 0 --原型翼战机-决战翼组
35700146 0 --无人翼战机-蜂巢思维翼组
35700155 1 --魔仙堡的幻蝶·美雪 35700155 1 --魔仙堡的幻蝶·美雪
35700156 1 --魔仙堡的梦蝶·美琪 35700156 1 --魔仙堡的梦蝶·美琪
#358 #358
...@@ -1295,6 +1303,7 @@ ...@@ -1295,6 +1303,7 @@
40009964 0 --最凶兽神 穷奇－逆 40009964 0 --最凶兽神 穷奇－逆
40010050 0 --击退者-怒堕龙－逆 40010050 0 --击退者-怒堕龙－逆
40010639 0 --黎明之出阵 40010639 0 --黎明之出阵
40010826 0 --葬空死团：“裂空神”阿凡伽达
#437 #437
43700016 0 --圣狮守卫者 43700016 0 --圣狮守卫者
#440 #440
...@@ -1829,9 +1838,14 @@ ...@@ -1829,9 +1838,14 @@
96010101 0 --针织布偶 96010101 0 --针织布偶
96010111 0 --圣诞布偶 96010111 0 --圣诞布偶
96010121 0 --甜筒布偶 96010121 0 --甜筒布偶
96012001 1 --无餍讨伐令
96012011 1 --讨伐赏金
96012081 0 --无餍爆发
96030002 0 --被驯服的猎犬 96030002 0 --被驯服的猎犬
96030003 0 --无心骑士 零度火焰 96030003 0 --无心骑士 零度火焰
96030004 0 --永远的满开雏菊 96030004 0 --永远的满开雏菊
96030042 0 --小不点勘探员
96030052 0 --四叶草在未来唯美盛开
#988 #988
98800006 1 --超古代的仪式 光之呼唤 98800006 1 --超古代的仪式 光之呼唤
98800012 1 --超古代的魔神 98800012 1 --超古代的魔神
......
expansions/script/c15000392.lua deleted 100644 → 0
View file @ 9e0a2f90
local m=15000392
local cm=_G["c"..m]
cm.name="替身名-『南北战争』"
function cm.initial_effect(c)
--public
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,15000392)
e1:SetOperation(cm.operation)
c:RegisterEffect(e1)
--CivilWar
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e4:SetRange(LOCATION_MZONE+LOCATION_HAND)
e4:SetCode(EFFECT_SEND_REPLACE)
e4:SetTarget(cm.reptg)
e4:SetValue(cm.repval)
c:RegisterEffect(e4)
local g=Group.CreateGroup()
g:KeepAlive()
e4:SetLabelObject(g)
--CivilWar
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetRange(LOCATION_MZONE+LOCATION_HAND)
e3:SetCode(EFFECT_SEND_REPLACE)
e3:SetTarget(cm.rep2tg)
e3:SetValue(cm.repval)
c:RegisterEffect(e3)
local ag=Group.CreateGroup()
ag:KeepAlive()
e3:SetLabelObject(ag)
end
function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local fid=c:GetFieldID()
c:RegisterFlagEffect(15000391,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,fid,66)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_PUBLIC)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
function cm.repfilter(c,e)
local p=c:GetControler()
if c:IsLocation(LOCATION_OVERLAY) then p=c:GetOverlayTarget():GetControler() end
return c:GetDestination()==LOCATION_GRAVE and c:IsType(TYPE_MONSTER)
and c:IsCanBeSpecialSummoned(e,0,p,false,false)
and Duel.GetMZoneCount(1-p,c,p)>0
and not c:IsLocation(LOCATION_MZONE)
end
function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return ((e:GetHandler():IsPublic() and e:GetHandler():IsLocation(LOCATION_HAND)) or e:GetHandler():IsLocation(LOCATION_MZONE))
and eg:IsExists(cm.repfilter,1,nil,e) and ((not re) or re~=e) end
if eg:IsExists(cm.repfilter,1,nil,e) and ((not re) or re~=e) then
local container=e:GetLabelObject()
container:Clear()
local g=eg:Filter(cm.repfilter,nil,e)
local g1=g:Filter(Card.IsControler,nil,0)
local g2=g:Filter(Card.IsControler,nil,1)
local ct1=g1:GetCount()
local ct2=g2:GetCount()
local ct=ct1+ct2
local tc=g:GetFirst()
while tc do
local p=tc:GetControler()
if tc:IsLocation(LOCATION_OVERLAY) then p=tc:GetOverlayTarget():GetControler() end
local ft=Duel.GetMZoneCount(1-p,tc,p)
if not ((p==0 and ft>=ct1) or (p==1 and ft>=ct2)) then return false end
tc=g:GetNext()
end
local ag=Group.CreateGroup()
local tc=g:GetFirst()
while tc do
local p=tc:GetControler()
if tc:IsLocation(LOCATION_OVERLAY) then p=tc:GetOverlayTarget():GetControler() end
if Duel.SpecialSummonStep(tc,0,p,1-p,false,false,POS_FACEUP) then ag:AddCard(tc) end
tc:RegisterFlagEffect(15000392,RESET_EVENT+0x1de0000+RESET_PHASE+PHASE_END,0,1)
tc=g:GetNext()
end
Duel.SpecialSummonComplete()
container:Merge(g)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetDescription(aux.Stringid(m,1))
e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetCountLimit(1)
e1:SetCondition(cm.tdcon)
e1:SetOperation(cm.tdop)
e1:SetReset(RESET_PHASE+PHASE_DRAW)
Duel.RegisterEffect(e1,tp)
return true
else return false end
end
function cm.rep2filter(c,e)
return c:GetDestination()==LOCATION_GRAVE and c:IsType(TYPE_MONSTER)
and c:IsControlerCanBeChanged()
and Duel.GetMZoneCount(1-c:GetControler(),c,c:GetControler())>0
and c:IsLocation(LOCATION_MZONE) and not c:IsLocation(LOCATION_OVERLAY)
end
function cm.rep2tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return ((e:GetHandler():IsPublic() and e:GetHandler():IsLocation(LOCATION_HAND)) or e:GetHandler():IsLocation(LOCATION_MZONE))
and eg:IsExists(cm.rep2filter,1,nil,e) and ((not re) or re~=e) end
if eg:IsExists(cm.rep2filter,1,nil,e) and ((not re) or re~=e) then
local container=e:GetLabelObject()
container:Clear()
local g=eg:Filter(cm.rep2filter,nil,e)
local g1=g:Filter(Card.IsControler,nil,0)
local g2=g:Filter(Card.IsControler,nil,1)
local ct1=g1:GetCount()
local ct2=g2:GetCount()
local ct=ct1+ct2
local tc=g:GetFirst()
while tc do
local ft=Duel.GetMZoneCount(1-tc:GetControler(),tc,tc:GetControler())
if not ((tc:GetControler()==0 and ft>=ct1) or (tc:GetControler()==1 and ft>=ct2)) then return false end
tc=g:GetNext()
end
local ag=Group.CreateGroup()
local tc=g:GetFirst()
while tc do
local p=tc:GetControler()
if Duel.GetControl(tc,1-p)~=0 then ag:AddCard(tc) end
tc:RegisterFlagEffect(15000392,RESET_EVENT+0x1de0000+RESET_PHASE+PHASE_END,0,1)
tc=g:GetNext()
end
container:Merge(g)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetDescription(aux.Stringid(m,1))
e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetCountLimit(1)
e1:SetCondition(cm.tdcon)
e1:SetOperation(cm.tdop)
e1:SetReset(RESET_PHASE+PHASE_DRAW)
Duel.RegisterEffect(e1,tp)
return true
else return false end
end
function cm.repval(e,c)
return e:GetLabelObject():IsContains(c)
end
function cm.tdfilter(c)
return c:GetFlagEffect(15000392)~=0
end
function cm.tdcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(cm.tdfilter,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
end
function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(cm.tdfilter,0,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
Duel.HintSelection(g)
Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
end
\ No newline at end of file
expansions/script/c15000394.lua deleted 100644 → 0
View file @ 9e0a2f90
local m=15000394
local cm=_G["c"..m]
cm.name="替身名-『白蛇』"
function cm.initial_effect(c)
c:EnableCounterPermit(0xf31)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),aux.NonTuner(nil),1)
c:EnableReviveLimit()
--disable
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,m)
e1:SetTarget(cm.distg)
e1:SetOperation(cm.disop)
c:RegisterEffect(e1)
--gain
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,1))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetTarget(cm.gtg)
e2:SetOperation(cm.gop)
c:RegisterEffect(e2)
end
function cm.notfilter1(c)
return c:IsFaceup() and aux.NegateMonsterFilter(c) and not c:IsCode(15000394)
end
function cm.notfilter2(c)
return c:IsFaceup() and not c:IsCode(15000394)
end
function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and cm.notfilter1(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.notfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) and e:GetHandler():IsCanAddCounter(0xf31,1) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
local g=Duel.SelectTarget(tp,cm.notfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
end
function cm.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
local dis=0
if c:IsFaceup() and c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e)
and not tc:IsImmuneToEffect(e) then
if ((not tc:IsDisabled()) and (not tc:IsAttack(0))) then dis=1 end
c:SetCardTarget(tc)
Duel.NegateRelatedChain(tc,RESET_TURN_SET)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetValue(0)
e1:SetCondition(cm.rcon)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE)
e2:SetCondition(cm.rcon)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_DISABLE_EFFECT)
e3:SetValue(RESET_TURN_SET)
e3:SetCondition(cm.rcon)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e3)
if tc:IsType(TYPE_TRAPMONSTER) then
local e4=e2:Clone()
e4:SetCode(EFFECT_DISABLE_TRAPMONSTER)
tc:RegisterEffect(e4)
end
Duel.BreakEffect()
if tc:IsDisabled() and tc:IsAttack(0) and dis==1 and tc:IsType(TYPE_MONSTER) then
local code=tc:GetCode()
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e5:SetCode(15000394)
e5:SetRange(LOCATION_MZONE)
e5:SetLabel(code)
e5:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e5)
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e6:SetCode(EVENT_ADJUST)
e6:SetRange(0xff)
e6:SetCondition(cm.regcon)
e6:SetOperation(cm.regop)
e6:SetLabelObject(e5)
e6:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e6)
c:AddCounter(0xf31,1)
end
end
end
function cm.rcon(e)
return e:GetOwner():IsHasCardTarget(e:GetHandler())
end
function cm.regcon(e)
return e:GetHandler():IsLocation(LOCATION_SZONE) or e:GetHandler():GetCounter(0xf31)==0
end
function cm.regop(e)
local ce=e:GetLabelObject()
if ce then
ce:Reset()
e:Reset()
end
end
function cm.gtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local c=e:GetHandler()
if chkc then return chkc:IsLocation(LOCATION_MZONE) end
if chk==0 then
return Duel.IsExistingTarget(cm.notfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c) and c:IsCanRemoveCounter(tp,0xf31,1,REASON_EFFECT) and c:IsHasEffect(15000394)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectTarget(tp,cm.notfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,c)
end
function cm.isinarray(t,val)
for _,v in ipairs(t) do
if v==val then return false end
end
return true
end
function cm.gop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and c:IsCanRemoveCounter(tp,0xf31,1,REASON_EFFECT) and c:IsHasEffect(15000394) and not tc:IsImmuneToEffect(e) then
local codes={}
if c:IsHasEffect(15000394) then
for _,i in ipairs{c:IsHasEffect(15000394)} do
local code=i:GetLabel()
if code and cm.isinarray(codes,code) then table.insert(codes,code) end
end
end
table.sort(codes)
local afilter={codes[1],OPCODE_ISCODE}
if #codes>1 then
--or ... or c:IsCode(codes[i])
for i=2,#codes do
table.insert(afilter,codes[i])
table.insert(afilter,OPCODE_ISCODE)
table.insert(afilter,OPCODE_OR)
end
end
table.insert(afilter,TYPE_MONSTER)
table.insert(afilter,OPCODE_ISTYPE)
table.insert(afilter,OPCODE_AND)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
local ac=Duel.AnnounceCard(tp,table.unpack(afilter))
if c:IsHasEffect(15000394) then
for _,i in ipairs{c:IsHasEffect(15000394)} do
local code=i:GetLabel()
if ac==code then
i:Reset()
break
end
end
end
if not c:RemoveCounter(tp,0xf31,1,REASON_EFFECT) then return end
Duel.BreakEffect()
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_CHANGE_CODE)
e1:SetValue(ac)
e1:SetCondition(cm.rcon)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local cid=tc:ReplaceEffect(ac,RESET_EVENT+RESETS_STANDARD)
--local cid=tc:CopyEffect(ac,RESET_EVENT+RESETS_STANDARD,1)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_ADJUST)
e3:SetLabelObject(e1)
e3:SetLabel(cid)
e3:SetCondition(cm.rstcon)
e3:SetOperation(cm.rstop)
Duel.RegisterEffect(e3,tp)
if tc:IsType(TYPE_NORMAL) then
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_REMOVE_TYPE)
e4:SetValue(TYPE_NORMAL)
e4:SetCondition(cm.rcon)
e4:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e4,true)
end
if not tc:IsType(TYPE_EFFECT) then
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetCode(EFFECT_ADD_TYPE)
e5:SetValue(TYPE_EFFECT)
e5:SetCondition(cm.rcon)
e5:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e5,true)
end
end
end
function cm.rstcon(e)
return not e:GetOwner():IsHasCardTarget(e:GetLabelObject():GetHandler())
end
function cm.rstop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetLabelObject():GetHandler()
if not c then e:Reset() return end
local cid=e:GetLabel()
if cid~=0 then
c:ResetEffect(cid,RESET_COPY)
c:ResetEffect(RESET_DISABLE,RESET_EVENT)
end
local e1=e:GetLabelObject()
if e1 then e1:Reset() end
Duel.HintSelection(Group.FromCards(c))
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
if c:IsLocation(LOCATION_HAND) then Duel.ShuffleHand(c:GetControler()) end
e:Reset()
end
\ No newline at end of file
expansions/script/c15000395.lua deleted 100644 → 0
View file @ 9e0a2f90
local m=15000395
local cm=_G["c"..m]
cm.name="替身名-『脸部特写』"
function cm.initial_effect(c)
c:SetUniqueOnField(1,0,15000395)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(cm.secon)
e1:SetTarget(cm.setg)
e1:SetOperation(cm.seop)
c:RegisterEffect(e1)
if not cm.Talking_Head_Check then
cm.Talking_Head_Check=true
_Talking_Head_AnnounceCard=Duel.AnnounceCard
function Duel.AnnounceCard(p,...)
local ap=p
if Duel.IsPlayerAffectedByEffect(p,15000395) then ap=1-p end
return _Talking_Head_AnnounceCard(ap,...)
end
_Talking_Head_AnnounceAttribute=Duel.AnnounceAttribute
function Duel.AnnounceAttribute(p,ct,attr)
local ap=p
if Duel.IsPlayerAffectedByEffect(p,15000395) then ap=1-p end
return _Talking_Head_AnnounceAttribute(ap,ct,attr)
end
_Talking_Head_AnnounceCoin=Duel.AnnounceCoin
function Duel.AnnounceCoin(p)
local ap=p
if Duel.IsPlayerAffectedByEffect(p,15000395) then ap=1-p end
return _Talking_Head_AnnounceCoin(ap)
end
_Talking_Head_AnnounceLevel=Duel.AnnounceLevel
function Duel.AnnounceLevel(p,min,max,...)
local ap=p
if not min then min=1 end
if not max then max=12 end
if Duel.IsPlayerAffectedByEffect(p,15000395) then ap=1-p end
return _Talking_Head_AnnounceLevel(ap,min,max,...)
end
_Talking_Head_AnnounceNumber=Duel.AnnounceNumber
function Duel.AnnounceNumber(p,num,...)
local ap=p
if Duel.IsPlayerAffectedByEffect(p,15000395) then ap=1-p end
return _Talking_Head_AnnounceNumber(ap,num,...)
end
_Talking_Head_AnnounceRace=Duel.AnnounceRace
function Duel.AnnounceRace(p,ct,rac)
local ap=p
if Duel.IsPlayerAffectedByEffect(p,15000395) then ap=1-p end
return _Talking_Head_AnnounceRace(ap,ct,rac)
end
_Talking_Head_AnnounceType=Duel.AnnounceType
function Duel.AnnounceType(p)
local ap=p
if Duel.IsPlayerAffectedByEffect(p,15000395) then ap=1-p end
return _Talking_Head_AnnounceType(ap)
end
end
end
function cm.secon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentChain()==0 and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) and Duel.GetTurnPlayer()==tp and Duel.GetLocationCount(1-tp,LOCATION_SZONE,tp,LOCATION_REASON_TOFIELD,0xe)>0 and e:GetHandler():CheckUniqueOnField(1-tp)
end
function cm.setg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
end
function cm.seop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(1-tp,LOCATION_SZONE,tp,LOCATION_REASON_TOFIELD,0xe)>0 then
Duel.ConfirmCards(1-tp,c)
if Duel.MoveToField(c,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true,0xe) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CHANGE_TYPE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
c:RegisterEffect(e1)
--change effect type
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(15000395)
e2:SetRange(LOCATION_SZONE)
e2:SetTargetRange(1,0)
e2:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
c:RegisterEffect(e2)
end
end
end
\ No newline at end of file
expansions/script/c30610010.lua deleted 100644 → 0
View file @ 9e0a2f90
--Fate/Grand Order·吉尔伽美什
local m=30610010
local cm=_G["c"..m]
function cm.initial_effect(c)
c:SetUniqueOnField(1,0,30610010)
c:EnableCounterPermit(0x1)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(cm.spcon0)
c:RegisterEffect(e1)
--token
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_BATTLE_DESTROYED)
e2:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
e2:SetCost(cm.addcost)
e2:SetCondition(cm.con)
e2:SetTarget(cm.tg)
e2:SetOperation(cm.op)
c:RegisterEffect(e2)
Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(m,4))
e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE+EFFECT_FLAG_NO_TURN_RESET)
e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetCost(cm.descost)
e3:SetCondition(cm.descon)
e3:SetTarget(cm.destg)
e3:SetOperation(cm.desop)
c:RegisterEffect(e3)
--special summon
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(m,2))
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetCountLimit(1)
e4:SetRange(LOCATION_MZONE)
e4:SetTarget(cm.target)
e4:SetOperation(cm.activate)
c:RegisterEffect(e4)
--atk
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,3))
e5:SetCategory(CATEGORY_DECKDES+CATEGORY_ATKCHANGE)
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetCountLimit(1)
e5:SetRange(LOCATION_MZONE)
e5:SetTarget(cm.atktg)
e5:SetOperation(cm.atkop)
c:RegisterEffect(e5)
--Attribute Dark
local e7=Effect.CreateEffect(c)
e7:SetType(EFFECT_TYPE_SINGLE)
e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e7:SetCode(EFFECT_CHANGE_ATTRIBUTE)
e7:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
e7:SetValue(ATTRIBUTE_DIVINE)
c:RegisterEffect(e7)
--Add counter
local e16=Effect.CreateEffect(c)
e16:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e16:SetCode(EVENT_CHAIN_SOLVING)
e16:SetProperty(EFFECT_FLAG_DELAY)
e16:SetRange(LOCATION_MZONE)
e16:SetOperation(cm.op0)
c:RegisterEffect(e16)
end
function cm.counterfilter(c)
return not c:IsSummonLocation(LOCATION_EXTRA)
end
function cm.spcon0(e,c)
if c==nil then return true end
local tp=c:GetControler()
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
if g:GetCount()==0 then return false end
local tg=g:GetMaxGroup(Card.GetAttack)
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tg:IsExists(Card.IsControler,1,nil,1-tp)
end
function cm.addcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 and Duel.IsCanRemoveCounter(tp,1,0,0x1,4,REASON_COST) end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(1,0)
e1:SetTarget(cm.splimit)
Duel.RegisterEffect(e1,tp)
Duel.RemoveCounter(tp,1,0,0x1,4,REASON_COST)
end
function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(1,0)
e1:SetTarget(cm.splimit)
Duel.RegisterEffect(e1,tp)
end
function cm.splimit(e,c)
return c:IsSummonLocation(LOCATION_EXTRA)
end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsReason(REASON_BATTLE+REASON_EFFECT)
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
Duel.Hint(HINT_SOUND,0,aux.Stringid(m,5))
Duel.SelectOption(tp,aux.Stringid(m,0))
Duel.SelectOption(1-tp,aux.Stringid(m,0))
c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,0)
c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
Duel.Hint(HINT_CARD,tp,30610011)
Duel.Hint(HINT_CARD,1-tp,30610011)
end
function cm.damfilter(c)
return c:GetCounter(0x1)>0
end
function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCounter(tp,1,1,0x1)>0 end
local g=Duel.GetMatchingGroup(cm.damfilter,tp,LOCATION_ONFIELD,0,nil)
local tc=g:GetFirst()
while tc do
local sct=tc:GetCounter(0x1)
tc:RemoveCounter(tp,0x1,sct,0)
tc=g:GetNext()
end
end
function cm.descon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetFlagEffect(m)~=0
end
function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
local g1=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_SZONE,nil)
if chk==0 then return #g>0 end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,#g,0,0,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,#g,0,0,nil)
end
function cm.filter1(c)
return c:IsType(TYPE_FIELD) and c:IsFaceup()
end
function cm.desop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
local g1=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_SZONE,nil)
local g0=Duel.GetMatchingGroup(cm.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
local gt=g0+g
Duel.Hint(HINT_SOUND,0,aux.Stringid(m,6))
Duel.Hint(HINT_CARD,tp,30610011)
Duel.Hint(HINT_CARD,1-tp,30610011)
Duel.Hint(HINT_CARD,tp,30610012)
Duel.Hint(HINT_CARD,1-tp,30610012)
Duel.Hint(HINT_CARD,tp,30610013)
Duel.Hint(HINT_CARD,1-tp,30610013)
Duel.Hint(HINT_CARD,tp,30610014)
Duel.Hint(HINT_CARD,1-tp,30610014)
if Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then
Duel.SendtoGrave(gt,REASON_RULE)
else
Duel.Destroy(g1,REASON_EFFECT)
end
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local ct=math.min(10,Duel.GetFieldGroupCount(tp,LOCATION_DECK,0))
if ct>0 then
local t={}
for i=1,ct do
t[i]=i
end
local ac=1
if ct>1 then
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,2))
ac=Duel.AnnounceNumber(tp,table.unpack(t))
end
Duel.SortDecktop(tp,tp,ac)
end
end
function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end
end
function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not Duel.IsPlayerCanDiscardDeck(tp,1) then return end
local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
if ct==0 then return end
if ct>3 then ct=3 end
local t={}
for i=1,ct do t[i]=i end
local ac=Duel.AnnounceNumber(tp,table.unpack(t))
Duel.ConfirmDecktop(tp,ac)
local g=Duel.GetDecktopGroup(tp,ac)
local sg=g:Filter(Card.IsSetCard,nil,0xac11)
local ct=sg:GetCount()
Duel.DisableShuffleCheck()
if Duel.SendtoGrave(sg,REASON_EFFECT+REASON_REVEAL)~=0 and c:IsFaceup() and c:IsRelateToEffect(e) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(ct*1000)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e1)
end
ac=ac-sg:GetCount()
if ac>0 then
Duel.SortDecktop(tp,tp,ac)
for i=1,ac do
local mg=Duel.GetDecktopGroup(tp,1)
Duel.MoveSequence(mg:GetFirst(),SEQ_DECKBOTTOM)
end
end
end
function cm.op0(e,tp,eg,ep,ev,re,r,rp)
local c=re:GetHandler()
if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c~=e:GetHandler() and rp==tp then
e:GetHandler():AddCounter(0x1,1)
end
end
expansions/script/c30610015.lua deleted 100644 → 0
View file @ 9e0a2f90
--Fate/Grand Order·埃列什基伽勒
local m=30610015
local cm=_G["c"..m]
function cm.initial_effect(c)
c:SetUniqueOnField(1,0,30610015)
c:EnableCounterPermit(0x1)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(cm.spcon0)
e1:SetOperation(cm.spop0)
c:RegisterEffect(e1)
--token
local e0=Effect.CreateEffect(c)
e0:SetDescription(aux.Stringid(m,0))
e0:SetType(EFFECT_TYPE_QUICK_O)
e0:SetCode(EVENT_FREE_CHAIN)
e0:SetHintTiming(0,TIMING_MAIN_END)
e0:SetRange(LOCATION_MZONE)
e0:SetCountLimit(1,m)
e0:SetCost(cm.addcost)
e0:SetTarget(cm.tg)
e0:SetOperation(cm.op)
c:RegisterEffect(e0)
Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(m,2))
e3:SetCategory(CATEGORY_POSITION+CATEGORY_DEFCHANGE+CATEGORY_ATKCHANGE)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetCost(cm.flcost)
e3:SetCondition(cm.flcon)
e3:SetTarget(cm.fltg)
e3:SetOperation(cm.flop)
c:RegisterEffect(e3)
--atk
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_UPDATE_ATTACK)
e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e4:SetRange(LOCATION_MZONE)
e4:SetCondition(cm.atkcon)
e4:SetValue(1500)
c:RegisterEffect(e4)
--immune
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetCode(EFFECT_IMMUNE_EFFECT)
e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e5:SetRange(LOCATION_MZONE)
e5:SetCondition(cm.atkcon)
e5:SetValue(cm.efilter)
c:RegisterEffect(e5)
--act limit
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_FIELD)
e6:SetCode(EFFECT_CANNOT_TRIGGER)
e6:SetRange(LOCATION_MZONE)
e6:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e6:SetCondition(cm.atkcon)
e6:SetTarget(cm.disable)
e6:SetValue(1)
c:RegisterEffect(e6)
--Attribute Dark
local e7=Effect.CreateEffect(c)
e7:SetType(EFFECT_TYPE_SINGLE)
e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e7:SetCode(EFFECT_CHANGE_ATTRIBUTE)
e7:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
e7:SetValue(ATTRIBUTE_DIVINE)
c:RegisterEffect(e7)
--Summon
local e8=Effect.CreateEffect(c)
e8:SetDescription(aux.Stringid(m,3))
e8:SetCategory(CATEGORY_SPECIAL_SUMMON)
e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e8:SetProperty(EFFECT_FLAG_DELAY)
e8:SetCode(EVENT_TO_GRAVE)
e8:SetCountLimit(1,m+1)
e8:SetCondition(cm.discon)
e8:SetTarget(cm.sptg)
e8:SetOperation(cm.spop)
c:RegisterEffect(e8)
--remove counter
local e13=Effect.CreateEffect(c)
e13:SetDescription(aux.Stringid(m,6))
e13:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD)
e13:SetRange(LOCATION_MZONE)
e13:SetCode(EVENT_PHASE+PHASE_END)
e13:SetCountLimit(1)
e13:SetCondition(cm.rccon)
e13:SetOperation(cm.rcop)
c:RegisterEffect(e13)
--Add counter
local e16=Effect.CreateEffect(c)
e16:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e16:SetCode(EVENT_CHAIN_SOLVING)
e16:SetProperty(EFFECT_FLAG_DELAY)
e16:SetRange(LOCATION_MZONE)
e16:SetOperation(cm.op0)
c:RegisterEffect(e16)
end
function cm.counterfilter(c)
return not c:IsSummonLocation(LOCATION_EXTRA)
end
function cm.spcfilter(c)
return c:IsType(TYPE_FIELD) and not c:IsPublic()
end
function cm.spcon0(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(cm.spcfilter,tp,LOCATION_HAND,0,1,nil)
end
function cm.spop0(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g=Duel.SelectMatchingCard(tp,cm.spcfilter,tp,LOCATION_HAND,0,1,1,nil)
Duel.ConfirmCards(1-tp,g)
Duel.ShuffleHand(tp)
end
function cm.addcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 and Duel.IsCanRemoveCounter(tp,1,0,0x1,3,REASON_COST) end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(1,0)
e1:SetTarget(cm.splimit)
Duel.RegisterEffect(e1,tp)
Duel.RemoveCounter(tp,1,0,0x1,3,REASON_COST)
end
function cm.splimit(e,c)
return c:IsSummonLocation(LOCATION_EXTRA)
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SOUND,0,aux.Stringid(m,4))
Duel.SelectOption(tp,aux.Stringid(m,0))
Duel.SelectOption(1-tp,aux.Stringid(m,0))
c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,0)
c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
Duel.Hint(HINT_CARD,tp,30610016)
Duel.Hint(HINT_CARD,1-tp,30610016)
end
function cm.flcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 and Duel.IsCanRemoveCounter(tp,1,0,0x1,5,REASON_COST) end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(1,0)
e1:SetTarget(cm.splimit)
Duel.RegisterEffect(e1,tp)
Duel.RemoveCounter(tp,1,0,0x1,5,REASON_COST)
end
function cm.flcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetFlagEffect(m)~=0
end
function cm.flfilter(c,tp)
return c:IsCode(30610020) and c:GetActivateEffect():IsActivatable(tp,true,true)
end
function cm.fltg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.flfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil,tp) end
if not Duel.CheckPhaseActivity() then e:SetLabel(1) else e:SetLabel(0) end
end
function cm.flop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,0))
if e:GetLabel()==1 then Duel.RegisterFlagEffect(tp,m-1,RESET_CHAIN,0,1) end
local tc=Duel.SelectMatchingCard(tp,cm.flfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,tp):GetFirst()
Duel.ResetFlagEffect(tp,m-1)
if tc then
local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
if fc then
Duel.SendtoGrave(fc,REASON_RULE)
Duel.BreakEffect()
end
Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
local te=tc:GetActivateEffect()
te:UseCountLimit(tp,1,true)
local tep=tc:GetControler()
local cost=te:GetCost()
if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
end
Duel.BreakEffect()
Duel.Hint(HINT_SOUND,0,aux.Stringid(m,5))
Duel.Hint(HINT_CARD,tp,30610016)
Duel.Hint(HINT_CARD,1-tp,30610016)
Duel.Hint(HINT_CARD,tp,30610017)
Duel.Hint(HINT_CARD,1-tp,30610017)
Duel.Hint(HINT_CARD,tp,30610018)
Duel.Hint(HINT_CARD,1-tp,30610018)
Duel.Hint(HINT_CARD,tp,30610019)
Duel.Hint(HINT_CARD,1-tp,30610019)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
Duel.ChangePosition(g,POS_FACEUP_DEFENSE,true)
Duel.BreakEffect()
local tg1=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
local tcc=tg1:GetFirst()
while tcc do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_DEFENSE)
e1:SetValue(1500)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tcc:RegisterEffect(e1)
tcc=tg1:GetNext()
end
Duel.BreakEffect()
local tg2=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
local tc=tg2:GetFirst()
while tc do
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_SET_ATTACK_FINAL)
e2:SetValue(0)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e2)
tc=tg2:GetNext()
end
end
function cm.atkfilter(c)
return c:IsFaceup() and c:IsCode(30610020)
end
function cm.atkcon(e)
local c=e:GetHandler()
return Duel.IsExistingMatchingCard(cm.atkfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
end
function cm.efilter(e,te)
return te:GetOwner()~=e:GetOwner()
end
function cm.discon(e)
local c=e:GetHandler()
return Duel.IsExistingMatchingCard(cm.atkfilter,tp,LOCATION_ONFIELD,0,1,nil)
end
function cm.disable(e,c)
return c:IsType(TYPE_EFFECT) and c~=e:GetHandler()
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
if e:GetHandler():IsRelateToEffect(e) then
Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
end
end
function cm.rccon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==tp
end
function cm.rcop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsFaceup() and c:IsRelateToEffect(e) then
if c:IsCanRemoveCounter(tp,0x1,6,REASON_EFFECT) then
c:RemoveCounter(tp,0x1,6,REASON_EFFECT)
else
Duel.SendtoDeck(c,nil,SEQ_DECKBOTTOM,REASON_RULE)
end
end
end
function cm.op0(e,tp,eg,ep,ev,re,r,rp)
local c=re:GetHandler()
if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c~=e:GetHandler() and rp==tp then
e:GetHandler():AddCounter(0x1,2)
end
end
expansions/script/c30610020.lua deleted 100644 → 0
View file @ 9e0a2f90
--苏美尔的冥界
local m=30610020
local cm=_G["c"..m]
function cm.initial_effect(c)
c:EnableCounterPermit(0x1)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--race
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_FZONE)
e2:SetTargetRange(LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE)
e2:SetCode(EFFECT_CHANGE_RACE)
e2:SetCondition(cm.condition)
e2:SetValue(RACE_FIEND)
c:RegisterEffect(e2)
--remove counter
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD)
e3:SetRange(LOCATION_SZONE)
e3:SetCode(EVENT_PHASE+PHASE_END)
e3:SetCountLimit(1)
e3:SetCondition(cm.rccon)
e3:SetOperation(cm.rcop)
c:RegisterEffect(e3)
--
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(EFFECT_CHANGE_GRAVE_RACE)
e5:SetRange(LOCATION_FZONE)
e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e5:SetTargetRange(1,1)
e5:SetCondition(cm.condition)
e5:SetValue(RACE_FIEND)
c:RegisterEffect(e5)
--Add counter
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e6:SetCode(EVENT_CHAIN_SOLVING)
e6:SetProperty(EFFECT_FLAG_DELAY)
e6:SetRange(LOCATION_FZONE)
e6:SetOperation(cm.op)
c:RegisterEffect(e6)
end
function cm.condition(e)
local tp=e:GetHandlerPlayer()
return not Duel.IsPlayerAffectedByEffect(tp,EFFECT_NECRO_VALLEY)
and not Duel.IsPlayerAffectedByEffect(1-tp,EFFECT_NECRO_VALLEY)
end
function cm.rccon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==tp
end
function cm.rcop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsFaceup() and c:IsRelateToEffect(e) then
if c:IsCanRemoveCounter(tp,0x1,10,REASON_EFFECT) then
c:RemoveCounter(tp,0x1,10,REASON_EFFECT)
else
Duel.Destroy(c,REASON_EFFECT)
end
end
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=re:GetHandler()
if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c~=e:GetHandler() and rp==tp then
e:GetHandler():AddCounter(0x1,3)
end
end
expansions/script/c64000000.lua deleted 100644 → 0
View file @ 9e0a2f90
--
function c64000000.initial_effect(c)
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.FALSE)
c:RegisterEffect(e1)
--summon with no tribute
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(64000000,0))
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_SUMMON_PROC)
e2:SetCondition(c64000000.ntcon)
c:RegisterEffect(e2)
local e7=e2:Clone()
e7:SetCode(EFFECT_SET_PROC)
c:RegisterEffect(e7)
--change atk
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_SUMMON_COST)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetOperation(c64000000.atkop)
c:RegisterEffect(e3)
--summon in hand
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_SUMMON)
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetRange(LOCATION_HAND)
e4:SetCountLimit(1,64000000)
e4:SetCondition(c64000000.smcon)
e4:SetOperation(c64000000.smop)
c:RegisterEffect(e4)
--search
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_SUMMON_SUCCESS)
e5:SetCountLimit(1,64000007)
e5:SetTarget(c64000000.thtg)
e5:SetOperation(c64000000.thop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_FLIP)
c:RegisterEffect(e6)
end
function c64000000.ntcon(e,c,minc)
if c==nil then return true end
return minc==0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
end
function c64000000.atkcon(e)
return e:GetHandler():GetMaterialCount()==0
end
function c64000000.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCondition(c64000000.atkcon)
e1:SetValue(-600)
e1:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(e1)
end
function c64000000.smfilter(c)
return c:GetOriginalRace()==RACE_INSECT
end
function c64000000.smcon(e,tp,eg,ep,ev,re,r,rp)
return (Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 or Duel.IsExistingMatchingCard(c64000000.smfilter,tp,LOCATION_MZONE,0,1,nil))
end
function c64000000.smtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsSummonable(true,nil) end
Duel.SetOperationInfo(0,CATEGORY_SUMMON,c,1,0,0)
end
function c64000000.smop(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetHandler()
if tc then
if tc:IsSummonable(true,nil) and (not tc:IsMSetable(true,nil)
or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) then
Duel.Summon(tp,tc,true,nil)
else Duel.MSet(tp,tc,true,nil)
end
end
end
function c64000000.thfilter(c)
return c:IsCode(64000001) and c:IsAbleToHand()
end
function c64000000.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c64000000.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function c64000000.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c64000000.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
\ No newline at end of file
expansions/script/c64000001.lua deleted 100644 → 0
View file @ 9e0a2f90
--混蛾虫 沙丽雅
function c64000001.initial_effect(c)
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.FALSE)
c:RegisterEffect(e1)
--summon with no tribute
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(64000001,0))
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_SUMMON_PROC)
e2:SetCondition(c64000001.ntcon)
c:RegisterEffect(e2)
local e7=e2:Clone()
e7:SetCode(EFFECT_SET_PROC)
c:RegisterEffect(e7)
--change atk
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_SUMMON_COST)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetOperation(c64000001.atkop)
c:RegisterEffect(e3)
--summon in hand
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_SUMMON)
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetRange(LOCATION_HAND)
e4:SetCountLimit(1,64000001)
e4:SetCondition(c64000001.smcon)
e4:SetOperation(c64000001.smop)
c:RegisterEffect(e4)
--search
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_SUMMON_SUCCESS)
e5:SetCountLimit(1,64000008)
e5:SetTarget(c64000001.thtg)
e5:SetOperation(c64000001.thop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_FLIP)
c:RegisterEffect(e6)
end
function c64000001.ntcon(e,c,minc)
if c==nil then return true end
return minc==0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
end
function c64000001.atkcon(e)
return e:GetHandler():GetMaterialCount()==0
end
function c64000001.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCondition(c64000001.atkcon)
e1:SetValue(-600)
e1:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(e1)
end
function c64000001.smfilter(c)
return c:GetOriginalRace()==RACE_INSECT
end
function c64000001.smcon(e,tp,eg,ep,ev,re,r,rp)
return (Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 or Duel.IsExistingMatchingCard(c64000001.smfilter,tp,LOCATION_MZONE,0,1,nil))
end
function c64000001.smtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsSummonable(true,nil) end
Duel.SetOperationInfo(0,CATEGORY_SUMMON,c,1,0,0)
end
function c64000001.smop(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetHandler()
if tc then
if tc:IsSummonable(true,nil) and (not tc:IsMSetable(true,nil)
or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) then
Duel.Summon(tp,tc,true,nil)
else Duel.MSet(tp,tc,true,nil)
end
end
end
function c64000001.thfilter(c)
return c:IsCode(64000000) and c:IsAbleToHand()
end
function c64000001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c64000001.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function c64000001.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c64000001.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
\ No newline at end of file
expansions/script/c64000002.lua deleted 100644 → 0
View file @ 9e0a2f90
--巨虫的伏击
function c64000002.initial_effect(c)
--to hand
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,64000002+EFFECT_COUNT_CODE_OATH)
e1:SetTarget(c64000002.thtg)
e1:SetOperation(c64000002.thop)
c:RegisterEffect(e1)
--to deck
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TODECK)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetHintTiming(0,TIMING_BATTLE_START+TIMING_END_PHASE)
e2:SetRange(LOCATION_GRAVE)
e2:SetCondition(c64000002.tdcon)
e2:SetCost(aux.bfgcost)
e2:SetCountLimit(1,64000002)
e2:SetTarget(c64000002.tdtg)
e2:SetOperation(c64000002.tdop)
c:RegisterEffect(e2)
end
function c64000002.thfilter(c)
return c:IsLevelAbove(5) and c:IsRace(RACE_INSECT) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c64000002.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c64000002.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function c64000002.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c64000002.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c64000002.tdfilter(c)
return c:GetOriginalRace()==RACE_INSECT and c:IsLevelAbove(5)
end
function c64000002.tdcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c64000002.tdfilter,tp,LOCATION_MZONE,0,1,nil)and Duel.GetTurnCount()~=e:GetHandler():GetTurnID()
end
function c64000002.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(1-tp) and chkc:IsAbleToDeck() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
end
function c64000002.tdop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.DisableShuffleCheck()
Duel.SendtoDeck(tc,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c64000003.lua deleted 100644 → 0
View file @ 9e0a2f90
--迷夜璃幻蛛
function c64000003.initial_effect(c)
aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
c:EnableReviveLimit()
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetRange(LOCATION_EXTRA)
e1:SetCountLimit(1,64000003+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(c64000003.hspcon)
e1:SetOperation(c64000003.hspop)
c:RegisterEffect(e1)
--immune
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_IMMUNE_EFFECT)
e2:SetValue(c64000003.efilter)
c:RegisterEffect(e2)
--negative
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_DISABLE)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE)
e3:SetCost(c64000003.cost)
e3:SetCountLimit(1,64000010)
e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e3:SetOperation(c64000003.ngop)
c:RegisterEffect(e3)
end
function c64000003.hspfilter(c,tp,sc)
return c:IsLevelAbove(5) and c:GetOriginalRace()==RACE_INSECT and c:IsControler(tp) and Duel.GetLocationCountFromEx(tp,tp,c,sc)>0 and not c:IsCode(64000003)
end
function c64000003.hspcon(e,c)
if c==nil then return true end
return Duel.CheckReleaseGroup(c:GetControler(),c64000003.hspfilter,1,nil,c:GetControler(),c)
end
function c64000003.hspop(e,tp,eg,ep,ev,re,r,rp,c)
local sug=Duel.SelectReleaseGroup(tp,c64000003.hspfilter,1,1,nil,tp,c)
c:SetMaterial(sug)
Duel.Release(sug,REASON_COST)
end
function c64000003.efilter(e,te)
if te:GetOwner()==e:GetOwner() then return false end
if not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local mc=tg:GetCount()
if mc~=1 then return true end
return not tg or not tg:IsContains(e:GetHandler())
end
function c64000003.filter1(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) or (c:IsType(TYPE_MONSTER) and c:IsReleasable())
end
function c64000003.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c64000003.filter1,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,e:GetHandler()) end
local fg=Duel.GetMatchingGroup(c64000003.filter1,tp,LOCATION_ONFIELD+LOCATION_HAND,0,e:GetHandler())
if fg:GetCount()==0 then return end
Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local og=fg:Select(tp,1,1,nil)
Duel.HintSelection(og)
local nc=og:GetFirst()
Duel.Release(nc,REASON_COST)
end
function c64000003.ngop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if g:GetCount()==0 then return end
Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local sg=g:Select(tp,1,1,nil)
Duel.HintSelection(sg)
local tc=sg:GetFirst()
Duel.NegateRelatedChain(tc,RESET_TURN_SET)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetValue(RESET_TURN_SET)
tc:RegisterEffect(e2)
end
\ No newline at end of file
expansions/script/c64000004.lua deleted 100644 → 0
View file @ 9e0a2f90
--灾临祸毒虫
function c64000004.initial_effect(c)
aux.AddFusionProcFunFun(c,c64000004.fusion,c64000004.fusion1,1)
c:EnableReviveLimit()
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(64000004,1))
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetRange(LOCATION_EXTRA)
e1:SetCountLimit(1,64000004+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(c64000004.hspcon)
e1:SetOperation(c64000004.hspop)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(64000004,0))
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetRange(LOCATION_EXTRA)
e2:SetCountLimit(1,64000004+EFFECT_COUNT_CODE_OATH)
e2:SetCondition(c64000004.hspcon1)
e2:SetOperation(c64000004.hspop1)
c:RegisterEffect(e2)
--immune
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetRange(LOCATION_MZONE)
e3:SetCode(EFFECT_IMMUNE_EFFECT)
e3:SetValue(c64000004.efilter)
c:RegisterEffect(e3)
--remove
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_REMOVE+CATEGORY_DRAW)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,64000011)
e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e3:SetCondition(c64000004.rmcon)
e3:SetTarget(c64000004.rmtg)
e3:SetOperation(c64000004.rmop)
c:RegisterEffect(e3)
end
function c64000004.fusion(c)
return c:GetOriginalRace()==RACE_INSECT and c:IsLevelAbove(5) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL)
end
function c64000004.fusion1(c)
return c:GetOriginalRace()==RACE_INSECT and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL)
end
function c64000004.hspfilter(c,tp,sc)
return c:GetOriginalRace()==RACE_INSECT and c:IsLevelAbove(5) and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(5)
and c:IsControler(tp) and Duel.GetLocationCountFromEx(tp,tp,c,sc)>0
end
function c64000004.hspfilter1(c,tp,sc)
return c:GetOriginalRace()==RACE_INSECT and c:IsType(TYPE_MONSTER) and c:IsControler(tp) and Duel.GetLocationCountFromEx(tp,tp,c,sc)>0
end
function c64000004.hspfilter2(c,tp,sc)
return c:IsType(TYPE_MONSTER)
end
function c64000004.hspcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local fu=Duel.GetMatchingGroup(c64000004.hspfilter2,tp,LOCATION_ONFIELD,0,1,nil,tp,c)
local fu1=Duel.GetMatchingGroup(c64000004.hspfilter2,tp,LOCATION_GRAVE,0,1,nil,tp,c)
return fu:IsExists(c64000004.hspfilter,1,nil,tp,g,c) and fu1:IsExists(c64000004.hspfilter1,1,nil,tp,g,c)
end
function c64000004.hspop(e,tp,eg,ep,ev,re,r,rp,c)
local fu=Duel.GetMatchingGroup(c64000004.hspfilter2,tp,LOCATION_ONFIELD,0,1,nil,tp,c)
local fu1=Duel.GetMatchingGroup(c64000004.hspfilter2,tp,LOCATION_GRAVE,0,1,nil,tp,c)
local eu=fu:FilterSelect(tp,c64000004.hspfilter,1,1,nil,tp,c)
local du=eu:GetFirst()
local eu1=fu1:FilterSelect(tp,c64000004.hspfilter1,1,1,nil,tp,c)
local du1=eu1:GetFirst()
if du:IsPosition(POS_FACEDOWN) then
Duel.ConfirmCards(1-tp,du) end
eu:Merge(eu1)
Duel.SendtoDeck(eu,nil,SEQ_DECKSHUFFLE,REASON_COST)
end
function c64000004.hspcon1(e,c)
if c==nil then return true end
local tp=c:GetControler()
local fu2=Duel.GetMatchingGroup(c64000004.hspfilter2,tp,LOCATION_ONFIELD,0,1,nil,tp,c)
local fu3=Duel.GetMatchingGroup(c64000004.hspfilter2,tp,LOCATION_GRAVE,0,1,nil,tp,c)
return fu3:IsExists(c64000004.hspfilter,1,nil,tp,g,c) and fu2:IsExists(c64000004.hspfilter1,1,nil,tp,g,c)
end
function c64000004.hspop1(e,tp,eg,ep,ev,re,r,rp,c)
local fu2=Duel.GetMatchingGroup(c64000004.hspfilter2,tp,LOCATION_ONFIELD,0,1,nil,tp,c)
local fu3=Duel.GetMatchingGroup(c64000004.hspfilter2,tp,LOCATION_GRAVE,0,1,nil,tp,c)
local eu2=fu2:FilterSelect(tp,c64000004.hspfilter1,1,1,nil,tp,c)
local du2=eu2:GetFirst()
local eu3=fu3:FilterSelect(tp,c64000004.hspfilter,1,1,nil,tp,c)
local du3=eu3:GetFirst()
if du2:IsPosition(POS_FACEDOWN) then
Duel.ConfirmCards(1-tp,du2) end
eu2:Merge(eu3)
Duel.SendtoDeck(eu2,nil,SEQ_DECKSHUFFLE,REASON_COST)
end
function c64000004.efilter(e,te)
if te:GetOwner()==e:GetOwner() then return false end
if not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local mc=tg:GetCount()
if mc~=1 then return true end
return not tg or not tg:IsContains(e:GetHandler())
end
function c64000004.rmcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetFlagEffect(tp,64000004)==0
end
function c64000004.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,2)
end
function c64000004.rmfilter(c,e,tp)
return c:IsRace(RACE_INSECT)
end
function c64000004.rmfilter1(c,e,tp)
return c:IsAbleToRemove()
end
function c64000004.rmop(e,tp,eg,ep,ev,re,r,rp)
Duel.ConfirmDecktop(tp,5)
local g=Duel.GetDecktopGroup(tp,5)
local ct=g:FilterCount(c64000004.rmfilter,nil,e,tp)
local ct1=g:GetCount()
if ct>0
and Duel.SelectYesNo(tp,aux.Stringid(64000004,2)) then
Duel.DisableShuffleCheck()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local rmg=Duel.SelectTarget(tp,c64000004.rmfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,e:GetHandler(),tp)
Duel.Remove(rmg,POS_FACEDOWN,REASON_EFFECT)
end
if ct1>0 then
Duel.SortDecktop(tp,tp,ct1)
for i=1,ct do
local mg=Duel.GetDecktopGroup(tp,1)
Duel.MoveSequence(mg:GetFirst(),SEQ_DECKTOP)
end
end
Duel.Draw(tp,1,REASON_EFFECT)
Duel.RegisterFlagEffect(tp,64000004,RESET_PHASE+PHASE_END,0,2)
end
\ No newline at end of file
expansions/script/c64000005.lua deleted 100644 → 0
View file @ 9e0a2f90
--天魔幽女
function c64000005.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(64000005,0))
e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_TO_GRAVE)
e1:SetRange(LOCATION_MZONE+LOCATION_HAND)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
e1:SetCountLimit(1,64000005)
e1:SetCost(c64000005.cost)
e1:SetTarget(c64000005.target)
e1:SetOperation(c64000005.operation)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetDescription(aux.Stringid(64000005,1))
e2:SetCode(EVENT_RETURN_TO_GRAVE)
e2:SetCondition(c64000005.condition)
c:RegisterEffect(e2)
end
function c64000005.filter(c)
return c:IsPreviousLocation(LOCATION_REMOVED)
end
function c64000005.condition(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c64000005.filter,1,nil)
end
function c64000005.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsReleasable() end
Duel.Release(e:GetHandler(),REASON_COST)
end
function c64000005.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToRemove() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
local ct=3
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,ct,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
end
function c64000005.operation(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local tg=g:Filter(Card.IsRelateToEffect,nil,e)
if tg:GetCount()>0 then
Duel.Remove(tg,nil,nil,REASON_EFFECT)
end
end
expansions/script/c64000006.lua deleted 100644 → 0
View file @ 9e0a2f90
--再诞的圣灵
function c64000006.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,nil,2,2,c64000006.lcheck)
c:EnableReviveLimit()
--extra material
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(64000006,0))
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetRange(LOCATION_EXTRA)
e2:SetCondition(c64000006.linkcon)
e2:SetOperation(c64000006.linkop)
e2:SetValue(SUMMON_TYPE_LINK)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(LOCATION_EXTRA,0)
e3:SetTarget(c64000006.mattg)
e3:SetLabelObject(e2)
c:RegisterEffect(e3)
--spsummon
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetCountLimit(1,64000006)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetTarget(c64000006.sptg)
e4:SetOperation(c64000006.spop)
c:RegisterEffect(e4)
--link summon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(64000006,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetCode(EVENT_FREE_CHAIN)
e5:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END+EFFECT_FLAG_DAMAGE_STEP)
e5:SetRange(LOCATION_MZONE)
e5:SetCountLimit(1,64000012)
e5:SetCondition(c64000006.lkcon)
e5:SetTarget(c64000006.lktg)
e5:SetOperation(c64000006.lkop)
c:RegisterEffect(e5)
--apply the effect
local e6=Effect.CreateEffect(c)
e6:SetDescription(aux.Stringid(64000006,2))
e6:SetCategory(CATEGORY_REMOVE)
e6:SetType(EFFECT_TYPE_QUICK_O)
e6:SetCode(EVENT_FREE_CHAIN)
e6:SetRange(LOCATION_MZONE)
e6:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE+EFFECT_FLAG_DAMAGE_STEP)
e6:SetCountLimit(1,64000013)
e6:SetCondition(c64000006.effcon)
e6:SetTarget(c64000006.efftg)
e6:SetOperation(c64000006.effop)
c:RegisterEffect(e6)
local e7=Effect.CreateEffect(c)
e7:SetType(EFFECT_TYPE_SINGLE)
e7:SetCode(EFFECT_MATERIAL_CHECK)
e7:SetValue(c64000006.valcheck)
e7:SetLabelObject(e6)
c:RegisterEffect(e7)
end
function c64000006.lcheck(g,lc)
return g:IsExists(Card.IsLinkType,1,nil,TYPE_DUAL)
end
function c64000006.lmfilter(c,lc,tp,og,lmat)
return c:IsFaceup() and c:IsCanBeLinkMaterial(lc) and c:IsLinkCode(lc:GetCode()) and c:IsLinkType(TYPE_LINK)
and Duel.GetLocationCountFromEx(tp,tp,c,lc)>0 and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_LMATERIAL)
and (not og or og:IsContains(c)) and (not lmat or lmat==c)
end
function c64000006.linkcon(e,c,og,lmat,min,max)
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsExistingMatchingCard(c64000006.lmfilter,tp,LOCATION_MZONE,0,1,nil,c,tp,og,lmat)
end
function c64000006.linkop(e,tp,eg,ep,ev,re,r,rp,c,og,lmat,min,max)
local mg=Duel.SelectMatchingCard(tp,c64000006.lmfilter,tp,LOCATION_MZONE,0,1,1,nil,c,tp,og,lmat)
c:SetMaterial(mg)
Duel.SendtoGrave(mg,REASON_MATERIAL+REASON_LINK)
end
function c64000006.mattg(e,c)
return c:IsCode(64000006)
end
function c64000006.spfilter(c,e,sp)
return c:IsType(TYPE_DUAL) and c:IsCanBeSpecialSummoned(e,0,sp,false,false)
end
function c64000006.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c64000006.spfilter(chkc,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingTarget(c64000006.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c64000006.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c64000006.spop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
tc:EnableDualState()
end
Duel.SpecialSummonComplete()
end
function c64000006.lkcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function c64000006.lktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsLinkSummonable,tp,LOCATION_EXTRA,0,1,nil,nil,e:GetHandler()) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c64000006.lkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsControler(1-tp) or not c:IsRelateToEffect(e) or c:IsFacedown() then return end
local g=Duel.GetMatchingGroup(Card.IsLinkSummonable,tp,LOCATION_EXTRA,0,nil,nil,c)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
Duel.LinkSummon(tp,sg:GetFirst(),nil,c)
end
end
function c64000006.valcheck(e,c)
local vg=c:GetMaterial()
if vg:IsExists(Card.IsLinkCode,1,nil,64000006) then
e:GetLabelObject():SetLabel(1)
else
e:GetLabelObject():SetLabel(0)
end
end
function c64000006.effcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK) and e:GetLabel()==1
end
function c64000006.efftg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,LOCATION_ONFIELD)
end
function c64000006.effop(e,tp,eg,ep,ev,re,r,rp)
local rmg=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
Duel.Remove(rmg,POS_FACEDOWN,REASON_EFFECT)
end
\ No newline at end of file
expansions/script/c64000007.lua deleted 100644 → 0
View file @ 9e0a2f90
--幻星彩河之魔女
function c64000007.initial_effect(c)
aux.AddLinkProcedure(c,nil,2,3,c64000007.lcheck)
c:EnableReviveLimit()
--immune
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetRange(LOCATION_ONFIELD)
e1:SetCondition(c64000007.efcon)
e1:SetValue(c64000007.efilter)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(LOCATION_ONFIELD,0)
e2:SetTarget(c64000007.eftg)
e2:SetLabelObject(e1)
c:RegisterEffect(e2)
--P Summon
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(64000007,0))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE)
e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e3:SetCountLimit(1,64000013)
e3:SetCondition(c64000007.pcon)
e3:SetTarget(c64000007.ptg)
e3:SetOperation(c64000007.pop)
c:RegisterEffect(e3)
local e5=e3:Clone()
e5:SetCondition(c64000007.pcon1)
e5:SetOperation(c64000007.pop1)
c:RegisterEffect(e5)
local e6=e3:Clone()
e6:SetCondition(c64000007.pcon2)
e6:SetOperation(c64000007.pop2)
c:RegisterEffect(e6)
--change effect
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(64000007,1))
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_CHAINING)
e4:SetRange(LOCATION_MZONE)
e4:SetCountLimit(1,64000014)
e4:SetCondition(c64000007.chcon)
e4:SetTarget(c64000007.chtg)
e4:SetOperation(c64000007.chop)
c:RegisterEffect(e4)
end
function c64000007.efcon(e)
return e:GetHandler():GetSequence()<=7
end
function c64000007.lcheck(g)
return g:IsExists(Card.IsLinkType,1,nil,TYPE_PENDULUM)
end
function c64000007.eftg(e,c)
return (c:IsType(TYPE_PENDULUM) and c:IsLocation(LOCATION_PZONE)) or e:GetHandler():GetLinkedGroup():IsContains(c)
end
function c64000007.efilter(e,te)
if te:GetHandlerPlayer()==e:GetHandlerPlayer() then return false end
if not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local mc=tg:GetCount()
if mc~=1 then return true end
return not tg or not tg:IsContains(e:GetHandler())
end
function c64000007.pcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetLocationCount(tp,LOCATION_PZONE)==0 and Duel.GetFlagEffect(tp,64000007)==0 and e:GetHandler():GetSequence()>4
end
function c64000007.pcon1(e,tp,eg,ep,ev,re,r,rp)
local a=Duel.GetLocationCount(tp,LOCATION_MZONE)
local b=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)
if not b then return false end
if a+b~=5 then return false end
return Duel.GetLocationCount(tp,LOCATION_PZONE)==0 and Duel.GetFlagEffect(tp,64000007)==0
end
function c64000007.pcon2(e,tp,eg,ep,ev,re,r,rp)
local a1=Duel.GetLocationCount(tp,LOCATION_MZONE)
local b1=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)
if not b1 then return false end
if a1+b1<=5 then return false end
return Duel.GetLocationCount(tp,LOCATION_PZONE)==0 and Duel.GetFlagEffect(tp,64000007)==0 and e:GetHandler():GetSequence()<=4
end
function c64000007.pfilter(c,e,tp)
local tc1=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
local tc2=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
if not tc1 or not tc2 then return false end
local scl1=tc1:GetLeftScale()
local scl2=tc2:GetRightScale()
if scl1>scl2 then scl1,scl2=scl2,scl1 end
local scl1=scl1+1
local scl2=scl2-1
return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsType(TYPE_MONSTER)
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,false,false,POS_FACEUP) and c:IsLevelAbove(scl1) and c:IsLevelBelow(scl2)
and (c:IsLocation(LOCATION_HAND) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
end
function c64000007.ptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c64000007.pfilter,tp,LOCATION_HAND+LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_EXTRA)
end
function c64000007.pop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local fff=0
local num=Duel.GetLocationCountFromEx(tp,tp,nil,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c64000007.pfilter,tp,LOCATION_EXTRA,0,fff,num,nil,e,tp)
if g:GetCount()==0 then local fff=1 end
local num1=Duel.GetLocationCount(tp,LOCATION_MZONE)
local num1=num1-num
local g1=Duel.SelectMatchingCard(tp,c64000007.pfilter,tp,LOCATION_HAND,0,fff,num1,nil,e,tp)
Duel.SpecialSummon(g+g1,SUMMON_TYPE_PENDULUM,tp,tp,false,false,POS_FACEUP)
if c:IsRelateToEffect(e) then
Duel.RegisterFlagEffect(tp,64000007,RESET_PHASE+PHASE_END,0,2)
end
end
function c64000007.pop1(e,tp,eg,ep,ev,re,r,rp)
local fc=e:GetHandler()
local eee=0
local num2=Duel.GetLocationCountFromEx(tp,tp,nil,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g2=Duel.SelectMatchingCard(tp,c64000007.pfilter,tp,LOCATION_EXTRA,0,eee,num2,nil,e,tp)
if g2:GetCount()==0 then local eee=1 end
local num3=Duel.GetLocationCount(tp,LOCATION_MZONE)
local num3=num3-num2+1
local g3=Duel.SelectMatchingCard(tp,c64000007.pfilter,tp,LOCATION_HAND,0,eee,num3,nil,e,tp)
Duel.SpecialSummon(g2+g3,SUMMON_TYPE_PENDULUM,tp,tp,false,false,POS_FACEUP)
if fc:IsRelateToEffect(e) then
Duel.RegisterFlagEffect(tp,64000007,RESET_PHASE+PHASE_END,0,2)
end
end
function c64000007.pop2(e,tp,eg,ep,ev,re,r,rp)
local fc1=e:GetHandler()
local ddd=0
local num4=Duel.GetLocationCountFromEx(tp,tp,nil,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g4=Duel.SelectMatchingCard(tp,c64000007.pfilter,tp,LOCATION_EXTRA,0,ddd,num4,nil,e,tp)
if g4:GetCount()==0 then local ddd=1 end
local num5=Duel.GetLocationCount(tp,LOCATION_MZONE)
local num5=num5-num4
local g5=Duel.SelectMatchingCard(tp,c64000007.pfilter,tp,LOCATION_HAND,0,ddd,num5,nil,e,tp)
Duel.SpecialSummon(g4+g5,SUMMON_TYPE_PENDULUM,tp,tp,false,false,POS_FACEUP)
if fc1:IsRelateToEffect(e) then
Duel.RegisterFlagEffect(tp,64000007,RESET_PHASE+PHASE_END,0,2)
end
end
function c64000007.chcon(e,tp,eg,ep,ev,re,r,rp)
return ep==1-tp
end
function c64000007.chfilter(c,e,tp)
return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
end
function c64000007.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c64000007.chfilter,tp,LOCATION_EXTRA,0,1,nil,REASON_EFFECT) end
end
function c64000007.chop(e,tp,eg,ep,ev,re,r,rp)
local g=Group.CreateGroup()
Duel.ChangeTargetCard(ev,g)
Duel.ChangeChainOperation(ev,c64000007.repop)
end
function c64000007.repop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DESTROY)
local des=Duel.SelectMatchingCard(1-tp,c64000007.chfilter,1-tp,LOCATION_EXTRA,0,1,1,nil)
if des then
Duel.Destroy(des,REASON_EFFECT) end
end
\ No newline at end of file
expansions/script/c64000008.lua deleted 100644 → 0
View file @ 9e0a2f90
--黎乡微熏的少女
function c64000008.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e1:SetCountLimit(1,64000008+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(c64000008.spcon)
e1:SetOperation(c64000008.spop)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_RECOVER)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetTarget(c64000008.rectg)
e2:SetOperation(c64000008.recop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3)
end
function c64000008.filter(c)
return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
end
function c64000008.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c64000008.filter,tp,LOCATION_EXTRA,0,1,nil)
end
function c64000008.spop(e,tp,eg,ep,ev,re,r,rp,chk)
local g=Duel.SelectMatchingCard(tp,c64000008.filter,tp,LOCATION_EXTRA,0,1,1,nil)
Duel.SendtoGrave(g,REASON_COST)
end
function c64000008.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(tp)
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500)
end
function c64000008.recop(e,tp,eg,ep,ev,re,r,rp)
local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
Duel.Recover(p,500,REASON_EFFECT)
end
\ No newline at end of file
expansions/script/c64000009.lua deleted 100644 → 0
View file @ 9e0a2f90
--攝蜃喵
--Lua--星空璀璨之地
local m=64000009
local cm=_G["c"..m]
function cm.initial_effect(c)
--原本攻击力·守备力
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_SET_BASE_ATTACK)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(cm.atkval)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_SET_BASE_DEFENSE)
c:RegisterEffect(e2)
--战效抗性,多次攻击
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetRange(LOCATION_MZONE)
e3:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
e3:SetValue(cm.valcon)
e3:SetCountLimit(cm.atkval2)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e4:SetRange(LOCATION_MZONE)
e4:SetCode(EFFECT_EXTRA_ATTACK)
e4:SetValue(cm.atkval3)
c:RegisterEffect(e4)
--战伤减半
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
e5:SetValue(aux.ChangeBattleDamage(1,HALF_DAMAGE))
c:RegisterEffect(e5)
--summon with no tribute
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_SPSUMMON_COST)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCost(cm.cost)
e0:SetOperation(cm.sumsuc)
c:RegisterEffect(e0)
local e7=e0:Clone()
e7:SetCode(EFFECT_SUMMON_COST)
c:RegisterEffect(e7)
if not cm.global_check then
cm.global_check=true
local ge1=Effect.CreateEffect(c)
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge1:SetCode(EVENT_SUMMON_SUCCESS)
ge1:SetOperation(cm.checkop)
Duel.RegisterEffect(ge1,0)
local ge2=ge1:Clone()
ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
Duel.RegisterEffect(ge2,0)
end
end
function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
local tc=eg:GetFirst()
while tc do
Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1)
tc=eg:GetNext()
end
end
function cm.atkval(e,c)
local c=e:GetHandler()
local cc1=Duel.GetTurnCount(c:GetControler())
local cc2=Duel.GetTurnCount(1-c:GetControler())
return (cc1+cc2)*1000
end
function cm.atkval2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local ct1=Duel.GetTurnCount(c:GetControler())
local ct2=Duel.GetTurnCount(1-c:GetControler())
local ctt=ct1+ct2
return ctt
end
function cm.atkval3(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local ctt1=Duel.GetTurnCount(c:GetControler())
local ctt2=Duel.GetTurnCount(1-c:GetControler())
local ctta=ctt1+ctt2-1
return ctta
end
function cm.valcon(e,re,r,rp)
return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
end
function cm.cost(e,c,tp)
local c=e:GetHandler()
local ctw1=Duel.GetTurnCount(c:GetControler())
local ctw2=Duel.GetTurnCount(1-c:GetControler())
local ctwt=ctw1+ctw2
return Duel.GetFlagEffect(tp,m)<ctwt
end
function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SET_SUMMON_COUNT_LIMIT)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetValue(cm.atkval2)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CANNOT_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetTargetRange(1,1)
e2:SetTarget(cm.limittg)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
local e3=e2:Clone()
e3:SetCode(EFFECT_CANNOT_FLIP_SUMMON)
Duel.RegisterEffect(e3,tp)
local e4=e2:Clone()
e4:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
Duel.RegisterEffect(e4,tp)
local e5=e2:Clone()
e5:SetCode(EFFECT_CANNOT_MSET)
Duel.RegisterEffect(e5,tp)
local e6=Effect.CreateEffect(e:GetHandler())
e6:SetType(EFFECT_TYPE_FIELD)
e6:SetCode(EFFECT_LEFT_SPSUMMON_COUNT)
e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e6:SetTargetRange(1,0)
e6:SetValue(cm.countval)
e6:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e6,tp)
end
function cm.limittg(e,c,tp)
local c=e:GetHandler()
local ct01=Duel.GetTurnCount(c:GetControler())
local ct02=Duel.GetTurnCount(1-c:GetControler())
local ct0t=ct01+ct02
local t1,t2,t3=Duel.GetActivityCount(tp,ACTIVITY_SUMMON,ACTIVITY_FLIPSUMMON,ACTIVITY_SPSUMMON)
return t1+t2+t3>=ct0t
end
function cm.countval(e,re,tp)
local c=e:GetHandler()
local ct011=Duel.GetTurnCount(c:GetControler())
local ct012=Duel.GetTurnCount(1-c:GetControler())
local ct01t=ct011+ct012
local t1,t2,t3=Duel.GetActivityCount(tp,ACTIVITY_SUMMON,ACTIVITY_FLIPSUMMON,ACTIVITY_SPSUMMON)
if t1+t2+t3>=ct01t then return 0 else return ct01t-t1-t2-t3 end
end
expansions/script/c64000010.lua deleted 100644 → 0
View file @ 9e0a2f90
--虚空幻象女巫
--Lua--星空璀璨之地
local m=64000010
local cm=_G["c"..m]
function cm.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,nil,2,2,cm.lcheck)
c:EnableReviveLimit()
--coin
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_COIN+CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e1:SetCountLimit(1,64000015)
e1:SetTarget(cm.cointg1)
e1:SetOperation(cm.coinop1)
c:RegisterEffect(e1)
--Set
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_REMOVE)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_LEAVE_FIELD)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,64000016)
e2:SetCondition(cm.condition)
e2:SetTarget(cm.target)
e2:SetOperation(cm.operation)
c:RegisterEffect(e2)
end
function cm.lcheck(g)
return g:IsExists(Card.IsLinkType,1,nil,TYPE_PENDULUM)
end
cm.toss_coin=true
function cm.filter(c,e)
return c:IsType(TYPE_PENDULUM)
end
function cm.cointg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=2 and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function cm.spfilter(c,e,tp)
return c:IsType(TYPE_PENDULUM) and (not c:IsForbidden() or (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
end
function cm.coinop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g2=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,nil)
if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
local res=Duel.TossCoin(tp,1)
if res==1 and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
if ct==0 then return end
local ac=1
if ct>1 then
if ct>5 then ct=5 end
local t={}
for i=1,ct do t[i]=i end
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,0))
ac=Duel.AnnounceNumber(tp,table.unpack(t))
end
local g1=Duel.GetDecktopGroup(tp,ac)
Duel.ConfirmCards(tp,g1)
local op=0
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
op=Duel.SelectOption(tp,aux.Stringid(m,1),aux.Stringid(m,2))
else
op=Duel.SelectOption(tp,aux.Stringid(m,1))
end
if op==0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELECT)
local bg=g1:FilterSelect(tp,cm.spfilter,1,1,nil,e,tp)
local tc1=bg:GetFirst()
Duel.MoveToField(tc1,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
else
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELECT)
local tc=g1:FilterSelect(tp,cm.spfilter,1,1,nil,e,tp)
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
end
elseif Duel.SelectYesNo(tp,aux.Stringid(m,4)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local sg=g2:Select(tp,1,1,nil)
if sg:GetCount()>0 then
Duel.BreakEffect()
Duel.HintSelection(sg)
Duel.Destroy(sg,REASON_EFFECT)
Duel.Draw(tp,2,REASON_EFFECT)
end
end
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(Card.IsPreviousLocation,1,nil,LOCATION_ONFIELD)
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,nil,LOCATION_ONFIELD)
end
function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if g:GetCount()>0 then
local hg=Duel.GetFieldGroup(1-tp,LOCATION_DECK,0)
if Duel.IsChainDisablable(0) and hg:GetCount()>=5 and Duel.SelectYesNo(1-tp,aux.Stringid(m,3)) then
Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(m,5))
local dg=Duel.GetDecktopGroup(1-tp,5)
dg:FilterCount(Card.IsAbleToRemove,nil,1-tp,POS_FACEDOWN)
Duel.Remove(dg,POS_FACEDOWN,REASON_EFFECT)
Duel.NegateEffect(0)
return
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local sg=g:Select(tp,1,1,nil)
Duel.HintSelection(sg)
Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)
end
end
expansions/script/c64000011.lua deleted 100644 → 0
View file @ 9e0a2f90
--炽焰咆哮虎
--Lua--星空璀璨之地
local m=64000011
local cm=_G["c"..m]
function cm.initial_effect(c)
--special summon
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_SPSUMMON_PROC)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e0:SetRange(LOCATION_HAND)
e0:SetCondition(cm.spcon)
c:RegisterEffect(e0)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.atktg)
e1:SetOperation(cm.atkop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
local e3=e1:Clone()
e3:SetCode(EVENT_FLIP)
c:RegisterEffect(e3)
--negate
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(m,1))
e4:SetCategory(CATEGORY_NEGATE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_CHAINING)
e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e4:SetRange(LOCATION_MZONE)
e4:SetCountLimit(1)
e4:SetCondition(cm.discon)
e4:SetTarget(cm.distg)
e4:SetOperation(cm.disop)
c:RegisterEffect(e4)
end
function cm.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
if g:GetCount()==0 then return false end
local tg=g:GetMaxGroup(Card.GetAttack)
local g1=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
local g2=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
return g1:GetSum(Card.GetAttack)<g2:GetSum(Card.GetAttack) or
(Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tg:IsExists(Card.IsControler,1,nil,1-tp))
end
function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return true end
Duel.SetChainLimit(cm.chainlm)
end
function cm.chainlm(re,rp,tp)
return tp==rp or not re:GetHandler():IsType(TYPE_MONSTER)
end
function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
local tc=tg:GetFirst()
while tc do
local atk=tc:GetAttack()
local def=tc:GetDefense()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetValue(math.ceil(atk/2))
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
tc=tg:GetNext()
end
end
function cm.discon(e,tp,eg,ep,ev,re,r,rp)
return ep==1-tp and re:GetActivateLocation()==LOCATION_MZONE and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev)
end
function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsAbleToHand() end
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
end
function cm.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SendtoHand(c,nil,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_HAND) then
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
local tc=eg:GetFirst()
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_SET_ATTACK_FINAL)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
e3:SetValue(tc:GetAttack()/2)
tc:RegisterEffect(e3)
end
end
end
\ No newline at end of file
expansions/script/c64000012.lua deleted 100644 → 0
View file @ 9e0a2f90
--小章鱼 Tarako
function c64000012.initial_effect(c)
--summon in hand
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,64000017)
e1:SetCondition(c64000012.smcon)
e1:SetOperation(c64000012.smop)
c:RegisterEffect(e1)
--draw
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DRAW)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_RELEASE)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
e2:SetCountLimit(1,64000018)
e2:SetTarget(c64000012.drtg)
e2:SetOperation(c64000012.drop)
c:RegisterEffect(e2)
--effect gain
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c64000012.efcon)
e3:SetOperation(c64000012.efop)
c:RegisterEffect(e3)
end
function c64000012.smcfilter(c)
return c:IsLevelAbove(5) and not c:IsPublic() and c:IsType(TYPE_MONSTER)
end
function c64000012.smcon(e,c)
if c==nil then return true end
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c64000012.smcfilter,tp,LOCATION_HAND,0,1,nil)
end
function c64000012.smop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g=Duel.SelectMatchingCard(tp,c64000012.smcfilter,tp,LOCATION_HAND,0,1,1,nil)
Duel.ConfirmCards(1-tp,g)
local tc=e:GetHandler()
if tc then
if tc:IsSummonable(true,nil) and (not tc:IsMSetable(true,nil)
or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) then
Duel.Summon(tp,tc,true,nil)
else Duel.MSet(tp,tc,true,nil)
end
end
end
function c64000012.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c64000012.drop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT)
end
function c64000012.efcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsReason(REASON_SUMMON) and r==REASON_SUMMON
end
function c64000012.efop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
local e1=Effect.CreateEffect(rc)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(64000012,0))
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
e1:SetValue(aux.tgoval)
e1:SetCondition(c64000012.indcon)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1)
end
function c64000012.indcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsLocation(LOCATION_MZONE)
end
expansions/script/c64000013.lua deleted 100644 → 0
View file @ 9e0a2f90
--寂夜的独鱼
function c64000013.initial_effect(c)
--cannot be material
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetTargetRange(LOCATION_MZONE+LOCATION_DECK+LOCATION_HAND,LOCATION_MZONE+LOCATION_DECK+LOCATION_HAND)
e1:SetValue(c64000013.sumlimit)
c:RegisterEffect(e1)
local e3=e1:Clone()
e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
e3:SetValue(c64000013.fuslimit)
c:RegisterEffect(e3)
local e4=e1:Clone()
e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
c:RegisterEffect(e4)
local e5=e1:Clone()
e5:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
c:RegisterEffect(e5)
--cannot release
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_CANNOT_RELEASE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetTargetRange(1,1)
c:RegisterEffect(e2)
end
function c64000013.sumlimit(e,c)
if not c then return false end
return true
end
function c64000013.fuslimit(e,c,sumtype)
if not c then return false end
return sumtype==SUMMON_TYPE_FUSION
end
\ No newline at end of file
expansions/script/c64000014.lua deleted 100644 → 0
View file @ 9e0a2f90
--梦色抽奖喵
function c64000014.initial_effect(c)
aux.EnablePendulumAttribute(c)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,64000019)
e1:SetTarget(c64000014.thtg)
e1:SetOperation(c64000014.thop)
c:RegisterEffect(e1)
end
function c64000014.thfilter(c)
return c:IsType(TYPE_NORMAL) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
end
function c64000014.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local g=Duel.GetMatchingGroup(c64000014.thfilter,tp,LOCATION_DECK,0,nil)
return g:GetClassCount(Card.GetCode)>=3
end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
end
function c64000014.thop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c64000014.thfilter,tp,LOCATION_DECK,0,nil)
if g:GetClassCount(Card.GetCode)>=3 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local sg=g:SelectSubGroup(tp,aux.dncheck,false,3,3)
Duel.ConfirmCards(1-tp,sg)
local tg=sg:RandomSelect(1-tp,1)
tg:GetFirst():SetStatus(STATUS_TO_HAND_WITHOUT_CONFIRM,true)
Duel.SendtoHand(tg,nil,REASON_EFFECT)
Duel.SendtoDeck(sg-tg,nil,nil,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c64000015.lua deleted 100644 → 0
View file @ 9e0a2f90
--梦色抽奖喵
function c64000015.initial_effect(c)
aux.EnablePendulumAttribute(c)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(64000015,0))
e1:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,64000020)
e1:SetTarget(c64000015.thtg)
e1:SetOperation(c64000015.thop)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(64000015,1))
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_PZONE)
e2:SetCountLimit(1,64000021)
e2:SetTarget(c64000015.sumtg)
e2:SetOperation(c64000015.sumop)
c:RegisterEffect(e2)
end
function c64000015.thfilter(c)
return c:IsType(TYPE_NORMAL) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
end
function c64000015.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c64000015.thfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA+LOCATION_GRAVE)
end
function c64000015.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c64000015.thfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c64000015.sumfilter(c)
return c:IsType(TYPE_NORMAL) and c:IsType(TYPE_PENDULUM) and c:IsSummonable(true,nil)
end
function c64000015.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c64000015.sumfilter,tp,LOCATION_HAND,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
end
function c64000015.sumop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
local g=Duel.SelectMatchingCard(tp,c64000015.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
local tc=g:GetFirst()
if tc then
Duel.Summon(tp,tc,true,nil)
Duel.Destroy(e:GetHandler(),REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c64000016.lua deleted 100644 → 0
View file @ 9e0a2f90
--
function c64000016.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--immune
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetRange(LOCATION_FZONE)
e2:SetCode(EFFECT_IMMUNE_EFFECT)
e2:SetValue(c64000016.efilter)
c:RegisterEffect(e2)
--cannot activate
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_CANNOT_ACTIVATE)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetRange(LOCATION_FZONE)
e3:SetTargetRange(1,0)
e3:SetValue(c64000016.actlimit)
c:RegisterEffect(e3)
--cannot set
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_CANNOT_SSET)
e4:SetRange(LOCATION_FZONE)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e4:SetTargetRange(1,0)
e4:SetTarget(c64000016.setlimit)
c:RegisterEffect(e4)
--ntr
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_CONTROL)
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetRange(LOCATION_FZONE)
e5:SetProperty(EFFECT_FLAG_BOTH_SIDE)
e5:SetCountLimit(1)
e5:SetTarget(c64000016.cttg)
e5:SetOperation(c64000016.ctop)
c:RegisterEffect(e5)
end
function c64000016.actlimit(e,re,tp)
return re:IsActiveType(TYPE_FIELD) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
end
function c64000016.setlimit(e,c,tp)
return c:IsType(TYPE_FIELD)
end
function c64000016.efilter(e,te)
if te:GetOwner()==e:GetOwner() then return false end
if not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local mc=tg:GetCount()
if mc~=1 then return true end
return not tg or not tg:IsContains(e:GetHandler())
end
function c64000016.filter(c)
return c:IsFaceup() and c:IsControlerCanBeChanged()
end
function c64000016.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end
if chk==0 then return Duel.IsExistingTarget(c64000016.filter,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
local g=Duel.SelectTarget(tp,c64000016.filter,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
if e:IsHasType(EFFECT_TYPE_IGNITION) then
Duel.SetChainLimit(aux.FALSE)
end
end
function c64000016.ctop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and Duel.GetControl(tc,tp,PHASE_END,1)~=0 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UNRELEASABLE_SUM)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,1)
tc:RegisterEffect(e1)
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE)
e6:SetCode(EFFECT_UNRELEASABLE_NONSUM)
e6:SetValue(1)
e6:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,1)
tc:RegisterEffect(e6)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
e2:SetValue(1)
e2:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,1)
tc:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
e3:SetValue(1)
e3:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,1)
tc:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
e4:SetValue(1)
e4:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,1)
tc:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
e5:SetValue(1)
e5:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END,1)
tc:RegisterEffect(e5)
end
end
\ No newline at end of file
expansions/script/c64000017.lua deleted 100644 → 0
View file @ 9e0a2f90
--墟梦塌落的轮舞
function c64000017.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(TIMING_END_PHASE+TIMING_SSET)
e1:SetProperty(EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetCountLimit(1,64000017+EFFECT_COUNT_CODE_OATH)
e1:SetCost(c64000017.cost)
e1:SetTarget(c64000017.target)
e1:SetOperation(c64000017.activate)
c:RegisterEffect(e1)
end
function c64000017.filter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) or (c:IsType(TYPE_MONSTER) and c:IsReleasable())
end
function c64000017.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local g=Duel.GetDecktopGroup(tp,5)
if chk==0 then return Duel.CheckLPCost(tp,2000) and Duel.IsExistingMatchingCard(c64000017.filter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,2,e:GetHandler()) and g:FilterCount(Card.IsAbleToRemoveAsCost,nil,POS_FACEDOWN)==5 end
local fg=Duel.GetMatchingGroup(c64000017.filter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,e:GetHandler())
if fg:GetCount()<2 then return end
Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local og=fg:Select(tp,2,2,nil)
Duel.HintSelection(og)
Duel.Release(og,REASON_COST)
Duel.PayLPCost(tp,2000)
Duel.DisableShuffleCheck()
Duel.Remove(g,POS_FACEDOWN,REASON_COST)
end
function c64000017.filter1(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
end
function c64000017.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c64000017.filter1,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,1-tp,LOCATION_ONFIELD)
if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
Duel.SetChainLimit(aux.FALSE) end
end
function c64000017.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
local g=Duel.SelectMatchingCard(tp,c64000017.filter1,tp,0,LOCATION_ONFIELD,1,3,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c64000018.lua deleted 100644 → 0
View file @ 9e0a2f90
--蛇 神 判 ！
function c64000018.initial_effect(c)
--negate
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_ACTIVATE)
e2:SetCode(EVENT_CHAINING)
e2:SetCondition(c64000018.discon)
e2:SetCost(c64000018.cost)
e2:SetTarget(c64000018.distg)
e2:SetOperation(c64000018.disop)
c:RegisterEffect(e2)
--disable spsummon
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_ACTIVATE)
e3:SetCode(EVENT_SUMMON)
e3:SetCondition(c64000018.dscon)
e3:SetCost(c64000018.cost)
e3:SetTarget(c64000018.dstg)
e3:SetOperation(c64000018.dsop)
c:RegisterEffect(e3)
local e4=e3:Clone()
e4:SetCode(EVENT_FLIP_SUMMON)
c:RegisterEffect(e4)
local e5=e3:Clone()
e5:SetCode(EVENT_SPSUMMON)
c:RegisterEffect(e5)
--negate attack
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_ACTIVATE)
e6:SetCode(EVENT_ATTACK_ANNOUNCE)
e6:SetCondition(c64000018.negcon)
e6:SetCost(c64000018.cost)
e6:SetOperation(c64000018.negop)
c:RegisterEffect(e6)
end
function c64000018.discon(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
end
function c64000018.distg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
end
end
function c64000018.disop(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Destroy(eg,REASON_EFFECT)
end
end
function c64000018.filter(c)
return c:IsRace(RACE_REPTILE)
end
function c64000018.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroupEx(tp,c64000018.filter,1,nil)
end
local c=Duel.SelectReleaseGroupEx(tp,c64000018.filter,1,1,nil)
Duel.Release(c,REASON_COST)
end
function c64000018.dscon(e,tp,eg,ep,ev,re,r,rp)
return ep==1-tp and Duel.GetCurrentChain()==0
end
function c64000018.dstg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0)
end
function c64000018.dsop(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateSummon(eg)
Duel.Destroy(eg,REASON_EFFECT)
end
function c64000018.negcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetAttacker():IsControler(1-tp)
end
function c64000018.filter1(c)
return c:IsAttackPos()
end
function c64000018.negop(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateAttack() then
Duel.BreakEffect()
Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE_STEP,1)
end
local g=Duel.GetMatchingGroup(c64000018.filter1,tp,0,LOCATION_MZONE,nil)
if g:GetCount()>0 then
Duel.Destroy(g,REASON_EFFECT)
end
end
expansions/script/c64000019.lua deleted 100644 → 0
View file @ 9e0a2f90
--蛇神宠幸的圣女
function c64000019.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c64000019.spcon)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,64000022)
e2:SetTarget(c64000019.target)
e2:SetOperation(c64000019.activate)
c:RegisterEffect(e2)
end
function c64000019.spfilter(c)
return c:IsFaceup() and c:IsRace(RACE_REPTILE)
end
function c64000019.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c64000019.spfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c64000019.filter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,SUMMON_VALUE_MONSTER_REBORN,tp,false,false) and c:IsRace(RACE_REPTILE)
end
function c64000019.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c64000019.filter(chkc,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c64000019.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,e:GetHandler(),e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c64000019.activate(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.SelectMatchingCard(tp,c64000019.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,e:GetHandler(),e,tp)
Duel.SpecialSummon(g,SUMMON_VALUE_SELF,tp,tp,false,false,POS_FACEUP)
end
expansions/script/c64000020.lua deleted 100644 → 0
View file @ 9e0a2f90
--雷切剑士 路易斯
function c64000020.initial_effect(c)
--summon in hand
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,64000023)
e1:SetCondition(c64000020.smcon)
e1:SetOperation(c64000020.smop)
c:RegisterEffect(e1)
--draw
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DRAW)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_RELEASE)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
e2:SetCountLimit(1,64000024)
e2:SetTarget(c64000020.drtg)
e2:SetOperation(c64000020.drop)
c:RegisterEffect(e2)
--effect gain
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c64000020.efcon)
e3:SetOperation(c64000020.efop)
c:RegisterEffect(e3)
end
function c64000020.smcfilter(c)
return c:IsLevelAbove(5) and not c:IsPublic() and c:IsType(TYPE_MONSTER) and c:IsSummonableCard()
end
function c64000020.smcon(e,c)
if c==nil then return true end
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c64000020.smcfilter,tp,LOCATION_HAND,0,1,nil)
end
function c64000020.smop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g=Duel.SelectMatchingCard(tp,c64000020.smcfilter,tp,LOCATION_HAND,0,1,1,nil)
Duel.ConfirmCards(1-tp,g)
local tc=e:GetHandler()
if tc then
if tc:IsSummonable(true,nil) and (not tc:IsMSetable(true,nil)
or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) then
Duel.Summon(tp,tc,true,nil)
else Duel.MSet(tp,tc,true,nil)
end
end
end
function c64000020.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c64000020.drop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT)
end
function c64000020.efcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsReason(REASON_SUMMON) and r==REASON_SUMMON
end
function c64000020.efop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(64000020,0))
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
e1:SetValue(1)
e1:SetCountLimit(2)
e1:SetCondition(c64000020.indcon)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1)
end
function c64000020.indcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsLocation(LOCATION_MZONE)
end
\ No newline at end of file
expansions/script/c64000021.lua deleted 100644 → 0
View file @ 9e0a2f90
--白蛇巫
function c64000021.initial_effect(c)
--atk change
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(64000021,1))
e3:SetCategory(CATEGORY_ATKCHANGE)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetCondition(c64000021.con)
e3:SetCost(c64000021.atkcost)
e3:SetTarget(c64000021.atktg)
e3:SetOperation(c64000021.atkop)
c:RegisterEffect(e3)
local e2=e3:Clone()
e2:SetCode(EVENT_SUMMON_SUCCESS)
c:RegisterEffect(e2)
local e1=e3:Clone()
e1:SetCode(EVENT_FLIP)
c:RegisterEffect(e1)
--spsummon
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetRange(LOCATION_GRAVE)
e4:SetCondition(c64000021.con)
e4:SetCountLimit(1,64000025+EFFECT_COUNT_CODE_DUEL)
e4:SetCost(c64000021.cost)
e4:SetTarget(c64000021.tg)
e4:SetOperation(c64000021.op)
c:RegisterEffect(e4)
end
function c64000021.con(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetFlagEffect(tp,64000021)==0
end
function c64000021.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDiscardDeckAsCost(tp,3) end
Duel.DiscardDeck(tp,3,REASON_COST)
end
function c64000021.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local c=e:GetHandler()
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c64000021.op(e,tp,eg,ep,ev,re,r,rp)
Duel.RegisterFlagEffect(tp,64000021,RESET_PHASE+PHASE_END,0,1)
local c=e:GetHandler()
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
function c64000021.cfilter(c)
return c:IsRace(RACE_REPTILE) and c:IsAbleToGraveAsCost()
end
function c64000021.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
e:SetLabel(1)
return true
end
function c64000021.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then
if e:GetLabel()~=1 then return false end
e:SetLabel(0)
return Duel.IsExistingMatchingCard(c64000021.cfilter,tp,LOCATION_DECK,0,1,nil)
end
e:SetLabel(0)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c64000021.cfilter,tp,LOCATION_DECK,0,1,1,nil)
Duel.SendtoGrave(g,REASON_COST)
e:SetLabelObject(g:GetFirst())
end
function c64000021.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local sc=e:GetLabelObject()
if c:IsRelateToEffect(e) and c:IsFaceup() then
local atk=sc:GetAttack()
local def=sc:GetDefense()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_DEFENSE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
e1:SetValue(math.ceil(def/2))
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
e2:SetValue(math.ceil(atk/2))
c:RegisterEffect(e2)
end
Duel.RegisterFlagEffect(tp,64000021,RESET_PHASE+PHASE_END,0,1)
end
\ No newline at end of file
expansions/script/c64000022.lua deleted 100644 → 0
View file @ 9e0a2f90
--幽海突戟皇
function c64000022.initial_effect(c)
c:EnableReviveLimit()
--immune
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetValue(c64000022.efilter)
c:RegisterEffect(e1)
--ATTRIBUTE_WATER
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetCode(EFFECT_CHANGE_ATTRIBUTE)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(ATTRIBUTE_WATER+ATTRIBUTE_WIND)
c:RegisterEffect(e2)
--special summon
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_SPSUMMON_PROC)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetRange(LOCATION_EXTRA+LOCATION_HAND)
e3:SetCondition(c64000022.spcon)
e3:SetOperation(c64000022.spop)
c:RegisterEffect(e3)
--battle indes
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e4:SetRange(LOCATION_MZONE)
e4:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
e4:SetCountLimit(1)
e4:SetValue(c64000022.valcon)
c:RegisterEffect(e4)
--Return to Hand
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_TOHAND)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetCode(EVENT_FREE_CHAIN)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetRange(LOCATION_MZONE)
e5:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e5:SetCountLimit(1)
e5:SetTarget(c64000022.thtg)
e5:SetOperation(c64000022.thop)
c:RegisterEffect(e5)
end
function c64000022.filter(c)
return c:IsAbleToHand()
end
function c64000022.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() end
if chk==0 then return Duel.IsExistingTarget(c64000022.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
local g=Duel.SelectTarget(tp,c64000022.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function c64000022.thop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(500)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_DEFENSE)
e2:SetValue(500)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e2)
if tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nill,REASON_EFFECT)
end
end
function c64000022.valcon(e,re,r,rp)
return bit.band(r,REASON_BATTLE)~=0
end
function c64000022.efilter(e,te)
if te:GetOwner()==e:GetOwner() then return false end
if not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local mc=tg:GetCount()
if mc~=1 then return true end
return not tg or not tg:IsContains(e:GetHandler())
end
function c64000022.spfilter(c,att)
return c:IsAttribute(att) and c:IsAbleToRemoveAsCost()
end
function c64000022.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return c:IsLocation(LOCATION_HAND) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c64000022.spfilter,tp,LOCATION_GRAVE,0,1,nil,ATTRIBUTE_WATER)
and Duel.IsExistingMatchingCard(c64000022.spfilter,tp,LOCATION_GRAVE,0,1,nil,ATTRIBUTE_WIND)
end
function c64000022.spop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g1=Duel.SelectMatchingCard(tp,c64000022.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,ATTRIBUTE_WIND)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g2=Duel.SelectMatchingCard(tp,c64000022.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,ATTRIBUTE_WATER)
g1:Merge(g2)
Duel.Remove(g1,POS_FACEUP,REASON_COST)
end
\ No newline at end of file
expansions/script/c64000023.lua deleted 100644 → 0
View file @ 9e0a2f90
--召引的雷灵
function c64000023.initial_effect(c)
--summon in hand
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,64000026)
e1:SetCondition(c64000023.smcon)
e1:SetOperation(c64000023.smop)
c:RegisterEffect(e1)
--roof
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,64000027)
e2:SetTarget(c64000023.target)
e2:SetOperation(c64000023.operation)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_FLIP)
c:RegisterEffect(e3)
local e4=e2:Clone()
e4:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e4)
end
function c64000023.smfilter(c)
return c:GetOriginalRace()==RACE_THUNDER
end
function c64000023.smcon(e,tp,eg,ep,ev,re,r,rp)
return (Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 or Duel.IsExistingMatchingCard(c64000023.smfilter,tp,LOCATION_MZONE,0,1,nil))
end
function c64000023.smtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsSummonable(true,nil) end
Duel.SetOperationInfo(0,CATEGORY_SUMMON,c,1,0,0)
end
function c64000023.smop(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetHandler()
if tc then
if tc:IsSummonable(true,nil) and (not tc:IsMSetable(true,nil)
or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) then
Duel.Summon(tp,tc,true,nil)
else Duel.MSet(tp,tc,true,nil)
end
end
end
function c64000023.filter(c)
return c:IsRace(RACE_THUNDER) and c:IsAbleToHand()
end
function c64000023.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>4 end
end
function c64000023.operation(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<5 then return end
local g=Duel.GetDecktopGroup(tp,5)
Duel.ConfirmCards(tp,g)
if g:IsExists(c64000023.filter,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(64000023,0)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=g:FilterSelect(tp,c64000023.filter,1,1,nil)
Duel.SendtoHand(sg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
end
end
\ No newline at end of file
expansions/script/c64000050.lua deleted 100644 → 0
View file @ 9e0a2f90
--血咒的魔女
function c64000050.initial_effect(c)
--
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMING_STANDBY_PHASE)
e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
e1:SetCountLimit(1,64000050)
e1:SetCost(c64000050.xxcost)
e1:SetTarget(c64000050.xxtg)
e1:SetOperation(c64000050.xxop)
c:RegisterEffect(e1)
end
function c64000050.xxcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,1500) and e:GetHandler():IsReleasable() end
Duel.PayLPCost(tp,1500)
Duel.Release(e:GetHandler(),REASON_COST)
end
function c64000050.xxtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
end
function c64000050.xxop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCondition(c64000050.dacon)
e1:SetOperation(c64000050.daop)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
Duel.RegisterEffect(e2,tp)
end
function c64000050.dacfil(c,tp)
return c:IsSummonPlayer(1-tp)
end
function c64000050.dacon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c64000050.dacfil,1,nil,tp)
end
function c64000050.daop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=eg:Filter(c64000050.dacfil,nil,tp)
local atk=0
local tc=g:GetFirst()
while tc do
local a=tc:GetAttack()
local b=tc:GetDefense()
if b>a then a=b end
if a<0 then a=0 end
atk=atk+a
tc=g:GetNext()
end
if atk>0 then
Duel.Hint(HINT_CARD,0,64000050)
Duel.Damage(1-tp,atk/2,REASON_EFFECT)
end
end
expansions/script/c7439101.lua deleted 100644 → 0
View file @ 9e0a2f90
--尤格萨隆潘趣酒
local m=7439101
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_NEGATE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_CHAINING)
e1:SetCondition(cm.condition)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
--act in hand
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e2:SetCondition(cm.actcon)
c:RegisterEffect(e2)
--salvage
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,2))
e5:SetCategory(CATEGORY_TOHAND)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetCode(EVENT_FREE_CHAIN)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetRange(LOCATION_GRAVE)
e5:SetCost(cm.salcost)
e5:SetTarget(cm.saltg)
e5:SetOperation(cm.salop)
c:RegisterEffect(e5)
--random seed
if not Party_time_random_seed then
local result=0
local g=Duel.GetDecktopGroup(0,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
local g=Duel.GetDecktopGroup(1,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
--local g=Duel.GetFieldGroup(0,0xff,0xff):RandomSelect(2,8)
--local ct={}
--local c=g:GetFirst()
--for i=0,7 do
-- ct[c]=i
-- c=g:GetNext()
--end
--for i=0,10 do
-- result=result+(ct[g:RandomSelect(2,1):GetFirst()]<<(3*i))
--end
g:DeleteGroup()
--Party_time_random_seed=result&0xffffffff
Party_time_random_seed=result
function Party_time_roll(min,max)
if min==max then return min end
min=tonumber(min)
max=tonumber(max)
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
if min~=nil then
if max==nil then
local random_number=Party_time_random_seed/2147484647
return math.floor(random_number*min)+1
else
local random_number=Party_time_random_seed/2147484647
if random_number<min then
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
random_number=Party_time_random_seed/2147484647
end
--Debug.Message(max)
--Debug.Message(Party_time_random_seed)
--Debug.Message(math.floor((max-min)*random_number))
return math.floor((max-min)*random_number)+1+min
end
end
return Party_time_random_seed
end
end
--random select
if not Party_time_globle_check then
Party_time_globle_check=true
Party_time_table={}
function Party_time_RandomSelect(g,tp,count)
if #g<=0 then return end
if count>#g then count=#g end
local cg=g:Clone()
local sg=Group.CreateGroup()
while #sg<count do
local id=Party_time_roll(0,#cg)
local tc=cg:GetFirst()
if id>1 then
for i=1,id-1,1 do tc=cg:GetNext() end
end
sg:AddCard(tc)
cg:RemoveCard(tc)
end
--Duel.HintSelection(g)
Duel.HintSelection(sg)
return sg
end
_SendtoDeck=Duel.SendtoDeck
function Duel.SendtoDeck(tg,tp,seq,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_DECK) then
return _SendtoDeck(tg,1-tg:GetControler(),seq,reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_DECK)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoDeck(tg,tp,seq,reason)
end
return _SendtoDeck(sg,1-sg:GetFirst():GetControler(),seq,reason)
end
end
end
end
return _SendtoDeck(tg,tp,seq,reason)
end
_SendtoHand=Duel.SendtoHand
function Duel.SendtoHand(tg,tp,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_HAND) then
return _SendtoHand(tg,1-tg:GetControler(),reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_HAND)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoHand(tg,tp,reason)
end
return _SendtoHand(sg,1-sg:GetFirst():GetControler(),reason)
end
end
end
end
return _SendtoHand(tg,tp,reason)
end
_Select=Group.Select
function Group.Select(g,tp,min,max,cg)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local sg=g:Clone()
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
sg:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then sg:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then sg:Sub(cg) end
return Party_time_RandomSelect(sg,0,Party_time_roll(min,max))
end
end
return _Select(g,tp,min,max,cg)
end
_SelectMatchingCard=Duel.SelectMatchingCard
function Duel.SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,s,o,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
end
_SelectReleaseGroup=Duel.SelectReleaseGroup
function Duel.SelectReleaseGroup(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroup(sp,f,min,max,cg,...)
end
_SelectReleaseGroupEx=Duel.SelectReleaseGroupEx
function Duel.SelectReleaseGroupEx(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroupEx(sp,f,min,max,cg,...)
end
_GetChainMaterial=Duel.GetChainMaterial
function Duel.GetChainMaterial(tp)
local ce=_GetChainMaterial(tp)
if Duel.GetCurrentChain()==0 then return ce end
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and ce==nil then
ce=Effect.CreateEffect(c)
ce:SetType(EFFECT_TYPE_FIELD)
ce:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
ce:SetTargetRange(1,0)
ce:SetTarget(cm.chain_target)
ce:SetOperation(cm.chain_operation)
ce:SetValue(aux.TRUE)
end
return ce
end
_SelectUnselect=Group.SelectUnselect
function Group.SelectUnselect(cg,sg,tp,finish,cancel,min,max)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if finish and Party_time_roll(1,2)==1 then return end
if not cg or cg:GetCount()<=0 then return end
local cg2=cg:Clone()
if aux.GetValueType(ag)=="Group" and Duel.GetFlagEffect(0,7439099)==0 then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
cg2:Merge(ag)
end
end
local tc=Party_time_RandomSelect(cg2,0,1):GetFirst()
if cm.Party_time(tc) and not cg:IsContains(tc) then cg:AddCard(tc) end
--sg:AddCard(tc)
return tc
end
end
return _SelectUnselect(cg,sg,tp,finish,cancel,min,max)
end
_SelectSubGroup=Group.SelectSubGroup
function Group.SelectSubGroup(g,tp,f,cancelable,min,max,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
--
aux.SubGroupCaptured=Group.CreateGroup()
local min=min or 1
local max=max or #g
local ext_params={...}
local sg=Group.CreateGroup()
local fg=Duel.GrabSelectedCard()
if #fg>max or min>max or #(g+fg)<min then return nil end
for tc in aux.Next(fg) do
local tc=fg:SelectUnselect(sg,tp,false,false,min,max)
end
sg:Merge(fg)
g:Merge(ag)
local finish=(#sg>=min and #sg<=max and f(sg,...))
while #sg<max do
local cg=Group.CreateGroup()
local eg=g:Clone()
local eg1=g:Clone()
local eg2=eg:Filter(cm.rfilter,nil,7439100+id)
local sg1=sg:Clone()
local sg2=sg:Filter(cm.rfilter,nil,7439100+id)
if not aux.GCheckAdditional then
eg:Sub(eg2)
eg1:Sub(eg2)
sg1:Sub(sg2)
for c in aux.Next(eg-sg1) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg1,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
cg:Merge(ag)
else
for c in aux.Next(g-sg) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
end
cg:Sub(sg)
finish=#sg>=min and #sg<=max and (f(sg1,...) or f(sg,...))
if #cg==0 then break end
local cancel=not finish and cancelable
Duel.RegisterFlagEffect(0,7439099,RESET_CHAIN,0,1)
local tc=cg:SelectUnselect(sg,tp,finish,cancel,min,max)
Duel.ResetFlagEffect(0,7439099)
if not tc then finish=true break end
if not fg:IsContains(tc) then
if not sg:IsContains(tc) then
sg:AddCard(tc)
if #sg==max then finish=true end
else
sg:RemoveCard(tc)
end
elseif cancelable then
return nil
end
end
if finish then
return sg
else
local cg=Group.__add(g,ag)
if (not sg or sg:GetCount()<min) and #cg>0 and not aux.GCheckAdditional then
sg=Party_time_RandomSelect(cg,0,Party_time_roll(min,max))
return sg
end
return nil
end
end
end
end
end
return _SelectSubGroup(g,tp,f,cancelable,min,max,...)
end
--_CheckGroupRecursiveCapture=aux.CheckGroupRecursiveCapture
--function aux.CheckGroupRecursiveCapture(c,sg,g,f,min,max,ext_params)
-- if Duel.GetCurrentChain()~=0 and Duel.GetFlagEffect(0,7439099)~=0 then
-- local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
-- local ag=Party_time_table[7439100+id]
-- if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
-- sg:AddCard(c)
-- local sg2=sg:Clone()
-- local pg=sg:Filter(cm.rfilter,nil,7439100+id)
-- sg2:Sub(pg)
-- if aux.GCheckAdditional and (c:GetFlagEffectLabel(7439100)~=id and not aux.GCheckAdditional(sg2,c,g,f,min,max,ext_params) ) then
-- sg:RemoveCard(c)
-- return false
-- end
-- local res=#sg>=min and #sg<=max and f(sg2,table.unpack(ext_params))
-- if res then
-- aux.SubGroupCaptured:Clear()
-- aux.SubGroupCaptured:Merge(sg)
-- else
-- res=#sg<max and g:IsExists(aux. CheckGroupRecursiveCapture,1,sg2,sg,g,f,min,max,ext_params)
-- end
-- sg:RemoveCard(c)
-- return res
-- end
-- end
-- return _CheckGroupRecursiveCapture(c,sg,g,f,min,max,ext_params)
--end
_IsCanBeRitualMaterial=Card.IsCanBeRitualMaterial
function Card.IsCanBeRitualMaterial(c,sc)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and aux.GetValueType(sc)=="Card" and sc:GetFlagEffectLabel(7439100)==7439100+id then
sc:ResetFlagEffect(7439100)
end
end
return _IsCanBeRitualMaterial(c,sc)
end
_DiscardHand=Duel.DiscardHand
function Duel.DiscardHand(tp,f,min,max,reason,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,LOCATION_HAND,0,cg,...)
if not g or g:GetCount()<=0 then return false end
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
local sg=Party_time_RandomSelect(g,0,Party_time_roll(min,max))
return Duel.SendtoGrave(sg,reason+REASON_DISCARD)
end
end
return _DiscardHand(tp,f,min,max,reason,cg,...)
end
end
end
function cm.chain_target(e,te,tp)
return Group.CreateGroup()
end
function cm.chain_operation(e,te,tp,tc,mat,sumtype)
if not sumtype then sumtype=SUMMON_TYPE_FUSION end
Duel.SpecialSummon(tc,sumtype,tp,tp,false,false,POS_FACEUP)
end
function cm.rfilter(c,id)
return c:GetFlagEffectLabel(7439100)==id
end
function cm.actcon(e)
return Duel.IsExistingMatchingCard(cm.cfilter,e:GetHandlerPlayer(),LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(cm.cfilter,e:GetHandlerPlayer(),LOCATION_DECK,0,1,nil)
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp
end
function cm.cfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) then
local cg1=Duel.GetMatchingGroup(cm.cfilter,tp,LOCATION_DECK,0,nil)
if cg1:GetCount()==0 then return false end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local cg2=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,cg1:GetCount(),nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local cg1=cg1:Select(tp,cg2:GetCount(),cg2:GetCount(),nil)
local cg=Group.__add(cg1,cg2)
Duel.ConfirmCards(1-tp,cg)
local tc=cg:GetFirst()
while tc do
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
tc:RegisterFlagEffect(7439100,RESET_CHAIN+RESET_EVENT+RESETS_STANDARD,0,1,7439100+id)
tc=cg:GetNext()
end
cg:KeepAlive()
e:SetLabelObject(cg)
end
end
function cm.filter(c,ct,loc,cg)
if aux.GetValueType(cg)=="Group" then
return (Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)) or cg:IsContains(c)
end
return Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if re and e~=re and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then
local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
if g and g:GetCount()>=1 then
local ct=ev
local label=Duel.GetFlagEffectLabel(0,m)
if label then
if ev==bit.rshift(label,16) then ct=bit.band(label,0xffff) end
end
local loc_table=0
local tc=g:GetFirst()
while tc do
local loc_tc=tc:GetLocation()
loc_table=loc_table | loc_tc
tc=g:GetNext()
end
local cg=e:GetLabelObject()
if chkc then return cm.filter(chkc,ct) end
if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0xff,0xff,g:GetCount(),nil,ct,loc_table,cg) end
e:SetProperty(EFFECT_FLAG_CARD_TARGET)
local tg=Duel.GetMatchingGroup(cm.filter,tp,0xff,0xff,nil,ct,loc_table,cg)
local tg2=tg:RandomSelect(tp,g:GetCount())
Duel.SetTargetCard(tg2)
local val=ct+bit.lshift(ev+1,16)
if label then
Duel.SetFlagEffectLabel(0,m,val)
else
Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1,val)
end
end
end
if chk==0 then return true end
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
if aux.GetValueType(tg)=="Group" then
local tg2=tg:Filter(Card.IsRelateToEffect,nil,e)
if tg2 and tg2:GetCount()>0 then
Duel.ChangeTargetCard(ev,tg2)
end
elseif aux.GetValueType(tg)=="Card" then
if tg:IsRelateToEffect(e) then
Duel.ChangeTargetCard(ev,Group.FromCards(tg))
end
end
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
Duel.RegisterFlagEffect(0,7439100+id,RESET_CHAIN,0,1)
if e:GetLabelObject() and e:GetLabelObject():GetCount()>0 then
Party_time_table[7439100+id]=e:GetLabelObject()
end
end
function cm.salcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_COST)
end
function cm.thfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
end
function cm.saltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function cm.salop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
end
expansions/script/c7439103.lua deleted 100644 → 0
View file @ 9e0a2f90
--尤格萨隆潘趣酒
local m=7439103
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_NEGATE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_CHAINING)
e1:SetCondition(cm.condition)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
--act in hand
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e2:SetCondition(cm.actcon)
c:RegisterEffect(e2)
--salvage
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,2))
e5:SetCategory(CATEGORY_TOHAND)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetCode(EVENT_FREE_CHAIN)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetRange(LOCATION_GRAVE)
e5:SetCost(cm.salcost)
e5:SetTarget(cm.saltg)
e5:SetOperation(cm.salop)
c:RegisterEffect(e5)
--random seed
if not Party_time_random_seed then
local result=0
local g=Duel.GetDecktopGroup(0,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
local g=Duel.GetDecktopGroup(1,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
--local g=Duel.GetFieldGroup(0,0xff,0xff):RandomSelect(2,8)
--local ct={}
--local c=g:GetFirst()
--for i=0,7 do
-- ct[c]=i
-- c=g:GetNext()
--end
--for i=0,10 do
-- result=result+(ct[g:RandomSelect(2,1):GetFirst()]<<(3*i))
--end
g:DeleteGroup()
--Party_time_random_seed=result&0xffffffff
Party_time_random_seed=result
function Party_time_roll(min,max)
if min==max then return min end
min=tonumber(min)
max=tonumber(max)
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
if min~=nil then
if max==nil then
local random_number=Party_time_random_seed/2147484647
return math.floor(random_number*min)+1
else
local random_number=Party_time_random_seed/2147484647
if random_number<min then
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
random_number=Party_time_random_seed/2147484647
end
--Debug.Message(max)
--Debug.Message(Party_time_random_seed)
--Debug.Message(math.floor((max-min)*random_number))
return math.floor((max-min)*random_number)+1+min
end
end
return Party_time_random_seed
end
end
--random select
if not Party_time_globle_check then
Party_time_globle_check=true
Party_time_table={}
function Party_time_RandomSelect(g,tp,count)
if #g<=0 then return end
if count>#g then count=#g end
local cg=g:Clone()
local sg=Group.CreateGroup()
while #sg<count do
local id=Party_time_roll(0,#cg)
local tc=cg:GetFirst()
if id>1 then
for i=1,id-1,1 do tc=cg:GetNext() end
end
sg:AddCard(tc)
g:RemoveCard(tc)
cg:DeleteGroup()
end
--Duel.HintSelection(g)
Duel.HintSelection(sg)
return sg
end
_SendtoDeck=Duel.SendtoDeck
function Duel.SendtoDeck(tg,tp,seq,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_DECK) then
return _SendtoDeck(tg,1-tg:GetControler(),seq,reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_DECK)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoDeck(tg,tp,seq,reason)
end
return _SendtoDeck(sg,1-sg:GetFirst():GetControler(),seq,reason)
end
end
end
end
return _SendtoDeck(tg,tp,seq,reason)
end
_SendtoHand=Duel.SendtoHand
function Duel.SendtoHand(tg,tp,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_HAND) then
return _SendtoHand(tg,1-tg:GetControler(),reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_HAND)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoHand(tg,tp,reason)
end
return _SendtoHand(sg,1-sg:GetFirst():GetControler(),reason)
end
end
end
end
return _SendtoHand(tg,tp,reason)
end
_Select=Group.Select
function Group.Select(g,tp,min,max,cg)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local sg=g:Clone()
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
sg:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then sg:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then sg:Sub(cg) end
return Party_time_RandomSelect(sg,0,Party_time_roll(min,max))
end
end
return _Select(g,tp,min,max,cg)
end
_SelectMatchingCard=Duel.SelectMatchingCard
function Duel.SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,s,o,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
end
_SelectReleaseGroup=Duel.SelectReleaseGroup
function Duel.SelectReleaseGroup(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroup(sp,f,min,max,cg,...)
end
_SelectReleaseGroupEx=Duel.SelectReleaseGroupEx
function Duel.SelectReleaseGroupEx(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroupEx(sp,f,min,max,cg,...)
end
_GetChainMaterial=Duel.GetChainMaterial
function Duel.GetChainMaterial(tp)
local ce=_GetChainMaterial(tp)
if Duel.GetCurrentChain()==0 then return ce end
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and ce==nil then
ce=Effect.CreateEffect(c)
ce:SetType(EFFECT_TYPE_FIELD)
ce:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
ce:SetTargetRange(1,0)
ce:SetTarget(cm.chain_target)
ce:SetOperation(cm.chain_operation)
ce:SetValue(aux.TRUE)
end
return ce
end
_SelectUnselect=Group.SelectUnselect
function Group.SelectUnselect(cg,sg,tp,finish,cancel,min,max)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if finish and Party_time_roll(1,2)==1 then return end
if not cg or cg:GetCount()<=0 then return end
local cg2=cg:Clone()
if aux.GetValueType(ag)=="Group" and Duel.GetFlagEffect(0,7439099)==0 then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
cg2:Merge(ag)
end
end
local tc=Party_time_RandomSelect(cg2,0,1):GetFirst()
if cm.Party_time(tc) and not cg:IsContains(tc) then cg:AddCard(tc) end
--sg:AddCard(tc)
return tc
end
end
return _SelectUnselect(cg,sg,tp,finish,cancel,min,max)
end
_SelectSubGroup=Group.SelectSubGroup
function Group.SelectSubGroup(g,tp,f,cancelable,min,max,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
--
aux.SubGroupCaptured=Group.CreateGroup()
local min=min or 1
local max=max or #g
local ext_params={...}
local sg=Group.CreateGroup()
local fg=Duel.GrabSelectedCard()
if #fg>max or min>max or #(g+fg)<min then return nil end
for tc in aux.Next(fg) do
local tc=fg:SelectUnselect(sg,tp,false,false,min,max)
end
sg:Merge(fg)
g:Merge(ag)
local finish=(#sg>=min and #sg<=max and f(sg,...))
while #sg<max do
local cg=Group.CreateGroup()
local eg=g:Clone()
local eg1=g:Clone()
local eg2=eg:Filter(cm.rfilter,nil,7439100+id)
local sg1=sg:Clone()
local sg2=sg:Filter(cm.rfilter,nil,7439100+id)
if not aux.GCheckAdditional then
eg:Sub(eg2)
eg1:Sub(eg2)
sg1:Sub(sg2)
for c in aux.Next(eg-sg1) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg1,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
cg:Merge(ag)
else
for c in aux.Next(g-sg) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
end
cg:Sub(sg)
finish=#sg>=min and #sg<=max and (f(sg1,...) or f(sg,...))
if #cg==0 then break end
local cancel=not finish and cancelable
Duel.RegisterFlagEffect(0,7439099,RESET_CHAIN,0,1)
local tc=cg:SelectUnselect(sg,tp,finish,cancel,min,max)
Duel.ResetFlagEffect(0,7439099)
if not tc then finish=true break end
if not fg:IsContains(tc) then
if not sg:IsContains(tc) then
sg:AddCard(tc)
if #sg==max then finish=true end
else
sg:RemoveCard(tc)
end
elseif cancelable then
return nil
end
end
if finish then
return sg
else
local cg=Group.__add(g,ag)
if (not sg or sg:GetCount()<min) and #cg>0 and not aux.GCheckAdditional then
sg=Party_time_RandomSelect(cg,0,Party_time_roll(min,max))
return sg
end
return nil
end
end
end
end
end
return _SelectSubGroup(g,tp,f,cancelable,min,max,...)
end
_IsCanBeRitualMaterial=Card.IsCanBeRitualMaterial
function Card.IsCanBeRitualMaterial(c,sc)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and aux.GetValueType(sc)=="Card" and sc:GetFlagEffectLabel(7439100)==7439100+id then
sc:ResetFlagEffect(7439100)
end
end
return _IsCanBeRitualMaterial(c,sc)
end
_DiscardHand=Duel.DiscardHand
function Duel.DiscardHand(tp,f,min,max,reason,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,LOCATION_HAND,0,cg,...)
if not g or g:GetCount()<=0 then return false end
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
local sg=Party_time_RandomSelect(g,0,Party_time_roll(min,max))
return Duel.SendtoGrave(sg,reason+REASON_DISCARD)
end
end
return _DiscardHand(tp,f,min,max,reason,cg,...)
end
end
end
function cm.chain_target(e,te,tp)
return Group.CreateGroup()
end
function cm.chain_operation(e,te,tp,tc,mat,sumtype)
if not sumtype then sumtype=SUMMON_TYPE_FUSION end
Duel.SpecialSummon(tc,sumtype,tp,tp,false,false,POS_FACEUP)
end
function cm.rfilter(c,id)
return c:GetFlagEffectLabel(7439100)==id
end
function cm.actcon(e)
local g=Duel.GetMatchingGroup(cm.cfilter,e:GetHandlerPlayer(),LOCATION_DECK,0,1,nil)
return g:GetClassCount(Card.GetCode)>=3
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp
end
function cm.cfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) then
local cg=Duel.GetMatchingGroup(cm.cfilter,tp,LOCATION_DECK,0,nil)
if cg:GetClassCount(Card.GetCode)<=2 then return false end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local sg=cg:SelectSubGroup(tp,aux.dncheck,false,3,3)
Duel.ConfirmCards(1-tp,sg)
local tc=sg:GetFirst()
while tc do
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
tc:RegisterFlagEffect(7439100,RESET_CHAIN+RESET_EVENT+RESETS_STANDARD,0,1,7439100+id)
tc=sg:GetNext()
end
sg:KeepAlive()
e:SetLabelObject(sg)
end
end
function cm.filter(c,ct,loc,cg)
if aux.GetValueType(cg)=="Group" then
return (Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)) or cg:IsContains(c)
end
return Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if re and e~=re and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then
local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
if g and g:GetCount()>=1 then
local ct=ev
local label=Duel.GetFlagEffectLabel(0,m)
if label then
if ev==bit.rshift(label,16) then ct=bit.band(label,0xffff) end
end
local loc_table=0
local tc=g:GetFirst()
while tc do
local loc_tc=tc:GetLocation()
loc_table=loc_table | loc_tc
tc=g:GetNext()
end
local cg=e:GetLabelObject()
if chkc then return cm.filter(chkc,ct) end
if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0xff,0xff,g:GetCount(),nil,ct,loc_table,cg) end
e:SetProperty(EFFECT_FLAG_CARD_TARGET)
local tg=Duel.GetMatchingGroup(cm.filter,tp,0xff,0xff,nil,ct,loc_table,cg)
local tg2=tg:RandomSelect(tp,g:GetCount())
Duel.SetTargetCard(tg2)
local val=ct+bit.lshift(ev+1,16)
if label then
Duel.SetFlagEffectLabel(0,m,val)
else
Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1,val)
end
end
end
if chk==0 then return true end
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
if aux.GetValueType(tg)=="Group" then
local tg2=tg:Filter(Card.IsRelateToEffect,nil,e)
if tg2 and tg2:GetCount()>0 then
Duel.ChangeTargetCard(ev,tg2)
end
elseif aux.GetValueType(tg)=="Card" then
if tg:IsRelateToEffect(e) then
Duel.ChangeTargetCard(ev,Group.FromCards(tg))
end
end
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
Duel.RegisterFlagEffect(0,7439100+id,RESET_CHAIN,0,1)
if e:GetLabelObject() and e:GetLabelObject():GetCount()>0 then
Party_time_table[7439100+id]=e:GetLabelObject()
end
end
function cm.salcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_COST)
end
function cm.thfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
end
function cm.saltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function cm.salop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
end
expansions/script/c7439105.lua deleted 100644 → 0
View file @ 9e0a2f90
--尤格萨隆潘趣酒
local m=7439105
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_NEGATE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_CHAINING)
e1:SetCondition(cm.condition)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
--act in hand
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e2:SetCondition(cm.actcon)
c:RegisterEffect(e2)
--salvage
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,2))
e5:SetCategory(CATEGORY_TOHAND)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetCode(EVENT_FREE_CHAIN)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetRange(LOCATION_GRAVE)
e5:SetCost(cm.salcost)
e5:SetTarget(cm.saltg)
e5:SetOperation(cm.salop)
c:RegisterEffect(e5)
--random seed
if not Party_time_random_seed then
local result=0
local g=Duel.GetDecktopGroup(0,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
local g=Duel.GetDecktopGroup(1,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
--local g=Duel.GetFieldGroup(0,0xff,0xff):RandomSelect(2,8)
--local ct={}
--local c=g:GetFirst()
--for i=0,7 do
-- ct[c]=i
-- c=g:GetNext()
--end
--for i=0,10 do
-- result=result+(ct[g:RandomSelect(2,1):GetFirst()]<<(3*i))
--end
g:DeleteGroup()
--Party_time_random_seed=result&0xffffffff
Party_time_random_seed=result
function Party_time_roll(min,max)
if min==max then return min end
min=tonumber(min)
max=tonumber(max)
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
if min~=nil then
if max==nil then
local random_number=Party_time_random_seed/2147484647
return math.floor(random_number*min)+1
else
local random_number=Party_time_random_seed/2147484647
if random_number<min then
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
random_number=Party_time_random_seed/2147484647
end
--Debug.Message(max)
--Debug.Message(Party_time_random_seed)
--Debug.Message(math.floor((max-min)*random_number))
return math.floor((max-min)*random_number)+1+min
end
end
return Party_time_random_seed
end
end
--random select
if not Party_time_globle_check then
Party_time_globle_check=true
Party_time_table={}
function Party_time_RandomSelect(g,tp,count)
if #g<=0 then return end
if count>#g then count=#g end
local cg=g:Clone()
local sg=Group.CreateGroup()
while #sg<count do
local id=Party_time_roll(0,#cg)
local tc=cg:GetFirst()
if id>1 then
for i=1,id-1,1 do tc=cg:GetNext() end
end
sg:AddCard(tc)
cg:RemoveCard(tc)
end
--Duel.HintSelection(g)
Duel.HintSelection(sg)
return sg
end
_SendtoDeck=Duel.SendtoDeck
function Duel.SendtoDeck(tg,tp,seq,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_DECK) then
return _SendtoDeck(tg,1-tg:GetControler(),seq,reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_DECK)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoDeck(tg,tp,seq,reason)
end
return _SendtoDeck(sg,1-sg:GetFirst():GetControler(),seq,reason)
end
end
end
end
return _SendtoDeck(tg,tp,seq,reason)
end
_SendtoHand=Duel.SendtoHand
function Duel.SendtoHand(tg,tp,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_HAND) then
return _SendtoHand(tg,1-tg:GetControler(),reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_HAND)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoHand(tg,tp,reason)
end
return _SendtoHand(sg,1-sg:GetFirst():GetControler(),reason)
end
end
end
end
return _SendtoHand(tg,tp,reason)
end
_Select=Group.Select
function Group.Select(g,tp,min,max,cg)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local sg=g:Clone()
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
sg:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then sg:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then sg:Sub(cg) end
return Party_time_RandomSelect(sg,0,Party_time_roll(min,max))
end
end
return _Select(g,tp,min,max,cg)
end
_SelectMatchingCard=Duel.SelectMatchingCard
function Duel.SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,s,o,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
end
_SelectReleaseGroup=Duel.SelectReleaseGroup
function Duel.SelectReleaseGroup(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroup(sp,f,min,max,cg,...)
end
_SelectReleaseGroupEx=Duel.SelectReleaseGroupEx
function Duel.SelectReleaseGroupEx(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroupEx(sp,f,min,max,cg,...)
end
_GetChainMaterial=Duel.GetChainMaterial
function Duel.GetChainMaterial(tp)
local ce=_GetChainMaterial(tp)
if Duel.GetCurrentChain()==0 then return ce end
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and ce==nil then
ce=Effect.CreateEffect(c)
ce:SetType(EFFECT_TYPE_FIELD)
ce:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
ce:SetTargetRange(1,0)
ce:SetTarget(cm.chain_target)
ce:SetOperation(cm.chain_operation)
ce:SetValue(aux.TRUE)
end
return ce
end
_SelectUnselect=Group.SelectUnselect
function Group.SelectUnselect(cg,sg,tp,finish,cancel,min,max)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if finish and Party_time_roll(1,2)==1 then return end
if not cg or cg:GetCount()<=0 then return end
local cg2=cg:Clone()
if aux.GetValueType(ag)=="Group" and Duel.GetFlagEffect(0,7439099)==0 then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
cg2:Merge(ag)
end
end
local tc=Party_time_RandomSelect(cg2,0,1):GetFirst()
if cm.Party_time(tc) and not cg:IsContains(tc) then cg:AddCard(tc) end
--sg:AddCard(tc)
return tc
end
end
return _SelectUnselect(cg,sg,tp,finish,cancel,min,max)
end
_SelectSubGroup=Group.SelectSubGroup
function Group.SelectSubGroup(g,tp,f,cancelable,min,max,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
--
aux.SubGroupCaptured=Group.CreateGroup()
local min=min or 1
local max=max or #g
local ext_params={...}
local sg=Group.CreateGroup()
local fg=Duel.GrabSelectedCard()
if #fg>max or min>max or #(g+fg)<min then return nil end
for tc in aux.Next(fg) do
local tc=fg:SelectUnselect(sg,tp,false,false,min,max)
end
sg:Merge(fg)
g:Merge(ag)
local finish=(#sg>=min and #sg<=max and f(sg,...))
while #sg<max do
local cg=Group.CreateGroup()
local eg=g:Clone()
local eg1=g:Clone()
local eg2=eg:Filter(cm.rfilter,nil,7439100+id)
local sg1=sg:Clone()
local sg2=sg:Filter(cm.rfilter,nil,7439100+id)
if not aux.GCheckAdditional then
eg:Sub(eg2)
eg1:Sub(eg2)
sg1:Sub(sg2)
for c in aux.Next(eg-sg1) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg1,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
cg:Merge(ag)
else
for c in aux.Next(g-sg) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
end
cg:Sub(sg)
finish=#sg>=min and #sg<=max and (f(sg1,...) or f(sg,...))
if #cg==0 then break end
local cancel=not finish and cancelable
Duel.RegisterFlagEffect(0,7439099,RESET_CHAIN,0,1)
local tc=cg:SelectUnselect(sg,tp,finish,cancel,min,max)
Duel.ResetFlagEffect(0,7439099)
if not tc then finish=true break end
if not fg:IsContains(tc) then
if not sg:IsContains(tc) then
sg:AddCard(tc)
if #sg==max then finish=true end
else
sg:RemoveCard(tc)
end
elseif cancelable then
return nil
end
end
if finish then
return sg
else
local cg=Group.__add(g,ag)
if (not sg or sg:GetCount()<min) and #cg>0 and not aux.GCheckAdditional then
sg=Party_time_RandomSelect(cg,0,Party_time_roll(min,max))
return sg
end
return nil
end
end
end
end
end
return _SelectSubGroup(g,tp,f,cancelable,min,max,...)
end
_IsCanBeRitualMaterial=Card.IsCanBeRitualMaterial
function Card.IsCanBeRitualMaterial(c,sc)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and aux.GetValueType(sc)=="Card" and sc:GetFlagEffectLabel(7439100)==7439100+id then
sc:ResetFlagEffect(7439100)
end
end
return _IsCanBeRitualMaterial(c,sc)
end
_DiscardHand=Duel.DiscardHand
function Duel.DiscardHand(tp,f,min,max,reason,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,LOCATION_HAND,0,cg,...)
if not g or g:GetCount()<=0 then return false end
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
local sg=Party_time_RandomSelect(g,0,Party_time_roll(min,max))
return Duel.SendtoGrave(sg,reason+REASON_DISCARD)
end
end
return _DiscardHand(tp,f,min,max,reason,cg,...)
end
end
end
function cm.chain_target(e,te,tp)
return Group.CreateGroup()
end
function cm.chain_operation(e,te,tp,tc,mat,sumtype)
if not sumtype then sumtype=SUMMON_TYPE_FUSION end
Duel.SpecialSummon(tc,sumtype,tp,tp,false,false,POS_FACEUP)
end
function cm.rfilter(c,id)
return c:GetFlagEffectLabel(7439100)==id
end
function cm.actcon(e)
return Duel.IsExistingMatchingCard(cm.cfilter,e:GetHandlerPlayer(),LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil)
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp
end
function cm.cfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_MONSTER) and ((c:IsLocation(LOCATION_HAND+LOCATION_DECK) and not c:IsPublic()) or c:IsLocation(LOCATION_GRAVE))
end
function cm.gcheck(g)
return g:FilterCount(Card.IsLocation,nil,LOCATION_DECK)<=1
and g:FilterCount(Card.IsLocation,nil,LOCATION_GRAVE)<=1
and g:FilterCount(Card.IsLocation,nil,LOCATION_HAND)<=1
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) then
local cg=Duel.GetMatchingGroup(cm.cfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,nil)
if cg:GetCount()<=0 then return false end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local sg=cg:SelectSubGroup(tp,cm.gcheck,false,1,3)
Duel.HintSelection(sg:Filter(Card.IsLocation,nil,LOCATION_GRAVE))
Duel.ConfirmCards(1-tp,sg:Filter(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK))
local tc=sg:GetFirst()
while tc do
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
tc:RegisterFlagEffect(7439100,RESET_CHAIN+RESET_EVENT+RESETS_STANDARD,0,1,7439100+id)
tc=sg:GetNext()
end
sg:KeepAlive()
e:SetLabelObject(sg)
end
end
function cm.filter(c,ct,loc,cg)
if aux.GetValueType(cg)=="Group" then
return (Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)) or cg:IsContains(c)
end
return Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if re and e~=re and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then
local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
if g and g:GetCount()>=1 then
local ct=ev
local label=Duel.GetFlagEffectLabel(0,m)
if label then
if ev==bit.rshift(label,16) then ct=bit.band(label,0xffff) end
end
local loc_table=0
local tc=g:GetFirst()
while tc do
local loc_tc=tc:GetLocation()
loc_table=loc_table | loc_tc
tc=g:GetNext()
end
local cg=e:GetLabelObject()
if chkc then return cm.filter(chkc,ct) end
if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0xff,0xff,g:GetCount(),nil,ct,loc_table,cg) end
e:SetProperty(EFFECT_FLAG_CARD_TARGET)
local tg=Duel.GetMatchingGroup(cm.filter,tp,0xff,0xff,nil,ct,loc_table,cg)
local tg2=tg:RandomSelect(tp,g:GetCount())
Duel.SetTargetCard(tg2)
local val=ct+bit.lshift(ev+1,16)
if label then
Duel.SetFlagEffectLabel(0,m,val)
else
Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1,val)
end
end
end
if chk==0 then return true end
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
if aux.GetValueType(tg)=="Group" then
local tg2=tg:Filter(Card.IsRelateToEffect,nil,e)
if tg2 and tg2:GetCount()>0 then
Duel.ChangeTargetCard(ev,tg2)
end
elseif aux.GetValueType(tg)=="Card" then
if tg:IsRelateToEffect(e) then
Duel.ChangeTargetCard(ev,Group.FromCards(tg))
end
end
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
Duel.RegisterFlagEffect(0,7439100+id,RESET_CHAIN,0,1)
if e:GetLabelObject() and e:GetLabelObject():GetCount()>0 then
Party_time_table[7439100+id]=e:GetLabelObject()
end
end
function cm.salcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_COST)
end
function cm.thfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
end
function cm.saltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function cm.salop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
end
expansions/script/c7439107.lua deleted 100644 → 0
View file @ 9e0a2f90
--尤格萨隆潘趣酒
local m=7439107
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_NEGATE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_CHAINING)
e1:SetCondition(cm.condition)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
--act in hand
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e2:SetCondition(cm.actcon)
c:RegisterEffect(e2)
--salvage
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,2))
e5:SetCategory(CATEGORY_TOHAND)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetCode(EVENT_FREE_CHAIN)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetRange(LOCATION_GRAVE)
e5:SetCost(cm.salcost)
e5:SetTarget(cm.saltg)
e5:SetOperation(cm.salop)
c:RegisterEffect(e5)
--random seed
if not Party_time_random_seed then
local result=0
local g=Duel.GetDecktopGroup(0,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
local g=Duel.GetDecktopGroup(1,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
--local g=Duel.GetFieldGroup(0,0xff,0xff):RandomSelect(2,8)
--local ct={}
--local c=g:GetFirst()
--for i=0,7 do
-- ct[c]=i
-- c=g:GetNext()
--end
--for i=0,10 do
-- result=result+(ct[g:RandomSelect(2,1):GetFirst()]<<(3*i))
--end
g:DeleteGroup()
--Party_time_random_seed=result&0xffffffff
Party_time_random_seed=result
function Party_time_roll(min,max)
if min==max then return min end
min=tonumber(min)
max=tonumber(max)
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
if min~=nil then
if max==nil then
local random_number=Party_time_random_seed/2147484647
return math.floor(random_number*min)+1
else
local random_number=Party_time_random_seed/2147484647
if random_number<min then
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
random_number=Party_time_random_seed/2147484647
end
--Debug.Message(max)
--Debug.Message(Party_time_random_seed)
--Debug.Message(math.floor((max-min)*random_number))
return math.floor((max-min)*random_number)+1+min
end
end
return Party_time_random_seed
end
end
--random select
if not Party_time_globle_check then
Party_time_globle_check=true
Party_time_table={}
function Party_time_RandomSelect(g,tp,count)
if #g<=0 then return end
if count>#g then count=#g end
local cg=g:Clone()
local sg=Group.CreateGroup()
while #sg<count do
local id=Party_time_roll(0,#cg)
local tc=cg:GetFirst()
if id>1 then
for i=1,id-1,1 do tc=cg:GetNext() end
end
sg:AddCard(tc)
cg:RemoveCard(tc)
end
--Duel.HintSelection(g)
Duel.HintSelection(sg)
return sg
end
_SendtoDeck=Duel.SendtoDeck
function Duel.SendtoDeck(tg,tp,seq,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_DECK) then
return _SendtoDeck(tg,1-tg:GetControler(),seq,reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_DECK)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoDeck(tg,tp,seq,reason)
end
return _SendtoDeck(sg,1-sg:GetFirst():GetControler(),seq,reason)
end
end
end
end
return _SendtoDeck(tg,tp,seq,reason)
end
_SendtoHand=Duel.SendtoHand
function Duel.SendtoHand(tg,tp,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_HAND) then
return _SendtoHand(tg,1-tg:GetControler(),reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_HAND)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoHand(tg,tp,reason)
end
return _SendtoHand(sg,1-sg:GetFirst():GetControler(),reason)
end
end
end
end
return _SendtoHand(tg,tp,reason)
end
_Select=Group.Select
function Group.Select(g,tp,min,max,cg)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local sg=g:Clone()
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
sg:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then sg:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then sg:Sub(cg) end
return Party_time_RandomSelect(sg,0,Party_time_roll(min,max))
end
end
return _Select(g,tp,min,max,cg)
end
_SelectMatchingCard=Duel.SelectMatchingCard
function Duel.SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,s,o,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
end
_SelectReleaseGroup=Duel.SelectReleaseGroup
function Duel.SelectReleaseGroup(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroup(sp,f,min,max,cg,...)
end
_SelectReleaseGroupEx=Duel.SelectReleaseGroupEx
function Duel.SelectReleaseGroupEx(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroupEx(sp,f,min,max,cg,...)
end
_GetChainMaterial=Duel.GetChainMaterial
function Duel.GetChainMaterial(tp)
local ce=_GetChainMaterial(tp)
if Duel.GetCurrentChain()==0 then return ce end
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and ce==nil then
ce=Effect.CreateEffect(c)
ce:SetType(EFFECT_TYPE_FIELD)
ce:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
ce:SetTargetRange(1,0)
ce:SetTarget(cm.chain_target)
ce:SetOperation(cm.chain_operation)
ce:SetValue(aux.TRUE)
end
return ce
end
_SelectUnselect=Group.SelectUnselect
function Group.SelectUnselect(cg,sg,tp,finish,cancel,min,max)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if finish and Party_time_roll(1,2)==1 then return end
if not cg or cg:GetCount()<=0 then return end
local cg2=cg:Clone()
if aux.GetValueType(ag)=="Group" and Duel.GetFlagEffect(0,7439099)==0 then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
cg2:Merge(ag)
end
end
local tc=Party_time_RandomSelect(cg2,0,1):GetFirst()
if cm.Party_time(tc) and not cg:IsContains(tc) then cg:AddCard(tc) end
--sg:AddCard(tc)
return tc
end
end
return _SelectUnselect(cg,sg,tp,finish,cancel,min,max)
end
_SelectSubGroup=Group.SelectSubGroup
function Group.SelectSubGroup(g,tp,f,cancelable,min,max,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
--
aux.SubGroupCaptured=Group.CreateGroup()
local min=min or 1
local max=max or #g
local ext_params={...}
local sg=Group.CreateGroup()
local fg=Duel.GrabSelectedCard()
if #fg>max or min>max or #(g+fg)<min then return nil end
for tc in aux.Next(fg) do
local tc=fg:SelectUnselect(sg,tp,false,false,min,max)
end
sg:Merge(fg)
g:Merge(ag)
local finish=(#sg>=min and #sg<=max and f(sg,...))
while #sg<max do
local cg=Group.CreateGroup()
local eg=g:Clone()
local eg1=g:Clone()
local eg2=eg:Filter(cm.rfilter,nil,7439100+id)
local sg1=sg:Clone()
local sg2=sg:Filter(cm.rfilter,nil,7439100+id)
if not aux.GCheckAdditional then
eg:Sub(eg2)
eg1:Sub(eg2)
sg1:Sub(sg2)
for c in aux.Next(eg-sg1) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg1,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
cg:Merge(ag)
else
for c in aux.Next(g-sg) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
end
cg:Sub(sg)
finish=#sg>=min and #sg<=max and (f(sg1,...) or f(sg,...))
if #cg==0 then break end
local cancel=not finish and cancelable
Duel.RegisterFlagEffect(0,7439099,RESET_CHAIN,0,1)
local tc=cg:SelectUnselect(sg,tp,finish,cancel,min,max)
Duel.ResetFlagEffect(0,7439099)
if not tc then finish=true break end
if not fg:IsContains(tc) then
if not sg:IsContains(tc) then
sg:AddCard(tc)
if #sg==max then finish=true end
else
sg:RemoveCard(tc)
end
elseif cancelable then
return nil
end
end
if finish then
return sg
else
local cg=Group.__add(g,ag)
if (not sg or sg:GetCount()<min) and #cg>0 and not aux.GCheckAdditional then
sg=Party_time_RandomSelect(cg,0,Party_time_roll(min,max))
return sg
end
return nil
end
end
end
end
end
return _SelectSubGroup(g,tp,f,cancelable,min,max,...)
end
_IsCanBeRitualMaterial=Card.IsCanBeRitualMaterial
function Card.IsCanBeRitualMaterial(c,sc)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and aux.GetValueType(sc)=="Card" and sc:GetFlagEffectLabel(7439100)==7439100+id then
sc:ResetFlagEffect(7439100)
end
end
return _IsCanBeRitualMaterial(c,sc)
end
_DiscardHand=Duel.DiscardHand
function Duel.DiscardHand(tp,f,min,max,reason,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,LOCATION_HAND,0,cg,...)
if not g or g:GetCount()<=0 then return false end
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
local sg=Party_time_RandomSelect(g,0,Party_time_roll(min,max))
return Duel.SendtoGrave(sg,reason+REASON_DISCARD)
end
end
return _DiscardHand(tp,f,min,max,reason,cg,...)
end
end
end
function cm.chain_target(e,te,tp)
return Group.CreateGroup()
end
function cm.chain_operation(e,te,tp,tc,mat,sumtype)
if not sumtype then sumtype=SUMMON_TYPE_FUSION end
Duel.SpecialSummon(tc,sumtype,tp,tp,false,false,POS_FACEUP)
end
function cm.rfilter(c,id)
return c:GetFlagEffectLabel(7439100)==id
end
function cm.actcon(e)
return Duel.IsExistingMatchingCard(cm.cfilter,e:GetHandlerPlayer(),LOCATION_HAND+LOCATION_REMOVED+LOCATION_GRAVE,0,1,nil)
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp
end
function cm.cfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeckAsCost() and (c:IsLocation(LOCATION_HAND) or (c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and c:IsFaceup()))
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_REMOVED+LOCATION_GRAVE+LOCATION_HAND,0,1,99,nil)
Duel.HintSelection(sg:Filter(Card.IsLocation,nil,LOCATION_GRAVE+LOCATION_REMOVED))
Duel.ConfirmCards(1-tp,sg:Filter(Card.IsLocation,nil,LOCATION_HAND))
Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_COST)
local tc=sg:GetFirst()
while tc do
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
tc:RegisterFlagEffect(7439100,RESET_CHAIN+RESET_EVENT+RESETS_STANDARD,0,1,7439100+id)
tc=sg:GetNext()
end
sg:KeepAlive()
e:SetLabelObject(sg)
end
end
function cm.filter(c,ct,loc,cg)
if aux.GetValueType(cg)=="Group" then
return (Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)) or cg:IsContains(c)
end
return Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if re and e~=re and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then
local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
if g and g:GetCount()>=1 then
local ct=ev
local label=Duel.GetFlagEffectLabel(0,m)
if label then
if ev==bit.rshift(label,16) then ct=bit.band(label,0xffff) end
end
local loc_table=0
local tc=g:GetFirst()
while tc do
local loc_tc=tc:GetLocation()
loc_table=loc_table | loc_tc
tc=g:GetNext()
end
local cg=e:GetLabelObject()
if chkc then return cm.filter(chkc,ct) end
if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0xff,0xff,g:GetCount(),nil,ct,loc_table,cg) end
e:SetProperty(EFFECT_FLAG_CARD_TARGET)
local tg=Duel.GetMatchingGroup(cm.filter,tp,0xff,0xff,nil,ct,loc_table,cg)
local tg2=tg:RandomSelect(tp,g:GetCount())
Duel.SetTargetCard(tg2)
local val=ct+bit.lshift(ev+1,16)
if label then
Duel.SetFlagEffectLabel(0,m,val)
else
Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1,val)
end
end
end
if chk==0 then return true end
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
if aux.GetValueType(tg)=="Group" then
local tg2=tg:Filter(Card.IsRelateToEffect,nil,e)
if tg2 and tg2:GetCount()>0 then
Duel.ChangeTargetCard(ev,tg2)
end
elseif aux.GetValueType(tg)=="Card" then
if tg:IsRelateToEffect(e) then
Duel.ChangeTargetCard(ev,Group.FromCards(tg))
end
end
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
Duel.RegisterFlagEffect(0,7439100+id,RESET_CHAIN,0,1)
if e:GetLabelObject() and e:GetLabelObject():GetCount()>0 then
Party_time_table[7439100+id]=e:GetLabelObject()
end
end
function cm.salcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_COST)
end
function cm.thfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
end
function cm.saltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function cm.salop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
end
expansions/script/c7439109.lua deleted 100644 → 0
View file @ 9e0a2f90
--尤格萨隆潘趣酒
local m=7439109
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_NEGATE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_CHAINING)
e1:SetCondition(cm.condition)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
--act in hand
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e2:SetCondition(cm.actcon)
c:RegisterEffect(e2)
--salvage
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,2))
e5:SetCategory(CATEGORY_TOHAND)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetCode(EVENT_FREE_CHAIN)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetRange(LOCATION_GRAVE)
e5:SetCost(cm.salcost)
e5:SetTarget(cm.saltg)
e5:SetOperation(cm.salop)
c:RegisterEffect(e5)
--random seed
if not Party_time_random_seed then
local result=0
local g=Duel.GetDecktopGroup(0,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
local g=Duel.GetDecktopGroup(1,5)
local tc=g:GetFirst()
while tc do
result=result+tc:GetCode()
tc=g:GetNext()
end
--local g=Duel.GetFieldGroup(0,0xff,0xff):RandomSelect(2,8)
--local ct={}
--local c=g:GetFirst()
--for i=0,7 do
-- ct[c]=i
-- c=g:GetNext()
--end
--for i=0,10 do
-- result=result+(ct[g:RandomSelect(2,1):GetFirst()]<<(3*i))
--end
g:DeleteGroup()
--Party_time_random_seed=result&0xffffffff
Party_time_random_seed=result
function Party_time_roll(min,max)
if min==max then return min end
min=tonumber(min)
max=tonumber(max)
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
if min~=nil then
if max==nil then
local random_number=Party_time_random_seed/2147484647
return math.floor(random_number*min)+1
else
local random_number=Party_time_random_seed/2147484647
if random_number<min then
Party_time_random_seed=(Party_time_random_seed*16807)%2147484647
random_number=Party_time_random_seed/2147484647
end
--Debug.Message(max)
--Debug.Message(Party_time_random_seed)
--Debug.Message(math.floor((max-min)*random_number))
return math.floor((max-min)*random_number)+1+min
end
end
return Party_time_random_seed
end
end
--random select
if not Party_time_globle_check then
Party_time_globle_check=true
Party_time_table={}
function Party_time_RandomSelect(g,tp,count)
if #g<=0 then return end
if count>#g then count=#g end
local cg=g:Clone()
local sg=Group.CreateGroup()
while #sg<count do
local id=Party_time_roll(0,#cg)
local tc=cg:GetFirst()
if id>1 then
for i=1,id-1,1 do tc=cg:GetNext() end
end
sg:AddCard(tc)
cg:RemoveCard(tc)
end
--Duel.HintSelection(g)
Duel.HintSelection(sg)
return sg
end
_SendtoDeck=Duel.SendtoDeck
function Duel.SendtoDeck(tg,tp,seq,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_DECK) then
return _SendtoDeck(tg,1-tg:GetControler(),seq,reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_DECK)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoDeck(tg,tp,seq,reason)
end
return _SendtoDeck(sg,1-sg:GetFirst():GetControler(),seq,reason)
end
end
end
end
return _SendtoDeck(tg,tp,seq,reason)
end
_SendtoHand=Duel.SendtoHand
function Duel.SendtoHand(tg,tp,reason)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if not tp and aux.GetValueType(tg)=="Card" and tg:GetFlagEffectLabel(m)==7439100+id and tg:IsLocation(LOCATION_HAND) then
return _SendtoHand(tg,1-tg:GetControler(),reason)
end
if not tp and aux.GetValueType(tg)=="Group" then
local sg=tg:Filter(cm.rfilter,nil,7439100+id):Filter(Card.IsLocation,nil,LOCATION_HAND)
if sg and sg:GetCount()>0 then
tg:Sub(sg)
if tg and tg:GetCount()>0 then
_SendtoHand(tg,tp,reason)
end
return _SendtoHand(sg,1-sg:GetFirst():GetControler(),reason)
end
end
end
end
return _SendtoHand(tg,tp,reason)
end
_Select=Group.Select
function Group.Select(g,tp,min,max,cg)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local sg=g:Clone()
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
sg:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then sg:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then sg:Sub(cg) end
return Party_time_RandomSelect(sg,0,Party_time_roll(min,max))
end
end
return _Select(g,tp,min,max,cg)
end
_SelectMatchingCard=Duel.SelectMatchingCard
function Duel.SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,s,o,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectMatchingCard(sp,f,tp,s,o,min,max,cg,...)
end
_SelectReleaseGroup=Duel.SelectReleaseGroup
function Duel.SelectReleaseGroup(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroup(sp,f,min,max,cg,...)
end
_SelectReleaseGroupEx=Duel.SelectReleaseGroupEx
function Duel.SelectReleaseGroupEx(sp,f,min,max,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetReleaseGroup(sp)
local g=g:Filter(f,cg,...)
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
if aux.GetValueType(cg)=="Card" then g:RemoveCard(cg) end
if aux.GetValueType(cg)=="Group" then g:Sub(cg) end
return Party_time_RandomSelect(g,0,Party_time_roll(min,max))
end
end
return _SelectReleaseGroupEx(sp,f,min,max,cg,...)
end
_GetChainMaterial=Duel.GetChainMaterial
function Duel.GetChainMaterial(tp)
local ce=_GetChainMaterial(tp)
if Duel.GetCurrentChain()==0 then return ce end
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and ce==nil then
ce=Effect.CreateEffect(c)
ce:SetType(EFFECT_TYPE_FIELD)
ce:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
ce:SetTargetRange(1,0)
ce:SetTarget(cm.chain_target)
ce:SetOperation(cm.chain_operation)
ce:SetValue(aux.TRUE)
end
return ce
end
_SelectUnselect=Group.SelectUnselect
function Group.SelectUnselect(cg,sg,tp,finish,cancel,min,max)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if finish and Party_time_roll(1,2)==1 then return end
if not cg or cg:GetCount()<=0 then return end
local cg2=cg:Clone()
if aux.GetValueType(ag)=="Group" and Duel.GetFlagEffect(0,7439099)==0 then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
cg2:Merge(ag)
end
end
local tc=Party_time_RandomSelect(cg2,0,1):GetFirst()
if cm.Party_time(tc) and not cg:IsContains(tc) then cg:AddCard(tc) end
--sg:AddCard(tc)
return tc
end
end
return _SelectUnselect(cg,sg,tp,finish,cancel,min,max)
end
_SelectSubGroup=Group.SelectSubGroup
function Group.SelectSubGroup(g,tp,f,cancelable,min,max,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
--
aux.SubGroupCaptured=Group.CreateGroup()
local min=min or 1
local max=max or #g
local ext_params={...}
local sg=Group.CreateGroup()
local fg=Duel.GrabSelectedCard()
if #fg>max or min>max or #(g+fg)<min then return nil end
for tc in aux.Next(fg) do
local tc=fg:SelectUnselect(sg,tp,false,false,min,max)
end
sg:Merge(fg)
g:Merge(ag)
local finish=(#sg>=min and #sg<=max and f(sg,...))
while #sg<max do
local cg=Group.CreateGroup()
local eg=g:Clone()
local eg1=g:Clone()
local eg2=eg:Filter(cm.rfilter,nil,7439100+id)
local sg1=sg:Clone()
local sg2=sg:Filter(cm.rfilter,nil,7439100+id)
if not aux.GCheckAdditional then
eg:Sub(eg2)
eg1:Sub(eg2)
sg1:Sub(sg2)
for c in aux.Next(eg-sg1) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg1,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
cg:Merge(ag)
else
for c in aux.Next(g-sg) do
if not cg:IsContains(c) then
if aux.CheckGroupRecursiveCapture(c,sg,eg1,f,min,max,ext_params) then
cg:Merge(aux.SubGroupCaptured)
else
eg1:RemoveCard(c)
end
end
end
end
cg:Sub(sg)
finish=#sg>=min and #sg<=max and (f(sg1,...) or f(sg,...))
if #cg==0 then break end
local cancel=not finish and cancelable
Duel.RegisterFlagEffect(0,7439099,RESET_CHAIN,0,1)
local tc=cg:SelectUnselect(sg,tp,finish,cancel,min,max)
Duel.ResetFlagEffect(0,7439099)
if not tc then finish=true break end
if not fg:IsContains(tc) then
if not sg:IsContains(tc) then
sg:AddCard(tc)
if #sg==max then finish=true end
else
sg:RemoveCard(tc)
end
elseif cancelable then
return nil
end
end
if finish then
return sg
else
local cg=Group.__add(g,ag)
if (not sg or sg:GetCount()<min) and #cg>0 and not aux.GCheckAdditional then
sg=Party_time_RandomSelect(cg,0,Party_time_roll(min,max))
return sg
end
return nil
end
end
end
end
end
return _SelectSubGroup(g,tp,f,cancelable,min,max,...)
end
_IsCanBeRitualMaterial=Card.IsCanBeRitualMaterial
function Card.IsCanBeRitualMaterial(c,sc)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 and aux.GetValueType(sc)=="Card" and sc:GetFlagEffectLabel(7439100)==7439100+id then
sc:ResetFlagEffect(7439100)
end
end
return _IsCanBeRitualMaterial(c,sc)
end
_DiscardHand=Duel.DiscardHand
function Duel.DiscardHand(tp,f,min,max,reason,cg,...)
if Duel.GetCurrentChain()~=0 then
local id=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
local ag=Party_time_table[7439100+id]
if id~=0 and Duel.GetFlagEffect(0,7439100+id)~=0 then
local g=Duel.GetMatchingGroup(f,tp,LOCATION_HAND,0,cg,...)
if not g or g:GetCount()<=0 then return false end
if aux.GetValueType(ag)=="Group" then
ag=ag:Filter(cm.rfilter,nil,7439100+id)
if ag:GetCount()~=0 then
g:Merge(ag)
end
end
local sg=Party_time_RandomSelect(g,0,Party_time_roll(min,max))
return Duel.SendtoGrave(sg,reason+REASON_DISCARD)
end
end
return _DiscardHand(tp,f,min,max,reason,cg,...)
end
end
end
function cm.chain_target(e,te,tp)
return Group.CreateGroup()
end
function cm.chain_operation(e,te,tp,tc,mat,sumtype)
if not sumtype then sumtype=SUMMON_TYPE_FUSION end
Duel.SpecialSummon(tc,sumtype,tp,tp,false,false,POS_FACEUP)
end
function cm.rfilter(c,id)
return c:GetFlagEffectLabel(7439100)==id
end
function cm.actcon(e)
return Duel.IsExistingMatchingCard(cm.cfilter,e:GetHandlerPlayer(),LOCATION_HAND,0,1,nil)
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp
end
function cm.cfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local cg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,99,nil)
Duel.ConfirmCards(1-tp,cg)
local tc=cg:GetFirst()
while tc do
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
tc:RegisterFlagEffect(7439100,RESET_CHAIN+RESET_EVENT+RESETS_STANDARD,0,1,7439100+id)
tc=cg:GetNext()
end
cg:KeepAlive()
e:SetLabelObject(cg)
end
end
function cm.filter(c,ct,loc,cg)
if aux.GetValueType(cg)=="Group" then
return (Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)) or cg:IsContains(c)
end
return Duel.CheckChainTarget(ct,c) and c:IsLocation(loc)
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if re and e~=re and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then
local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
if g and g:GetCount()>=1 then
local ct=ev
local label=Duel.GetFlagEffectLabel(0,m)
if label then
if ev==bit.rshift(label,16) then ct=bit.band(label,0xffff) end
end
local loc_table=0
local tc=g:GetFirst()
while tc do
local loc_tc=tc:GetLocation()
loc_table=loc_table | loc_tc
tc=g:GetNext()
end
local cg=e:GetLabelObject()
if chkc then return cm.filter(chkc,ct) end
if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0xff,0xff,g:GetCount(),nil,ct,loc_table,cg) end
e:SetProperty(EFFECT_FLAG_CARD_TARGET)
local tg=Duel.GetMatchingGroup(cm.filter,tp,0xff,0xff,nil,ct,loc_table,cg)
local tg2=tg:RandomSelect(tp,g:GetCount())
Duel.SetTargetCard(tg2)
local val=ct+bit.lshift(ev+1,16)
if label then
Duel.SetFlagEffectLabel(0,m,val)
else
Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1,val)
end
end
end
if chk==0 then return true end
end
function cm.spfilter(c,e,tp,id)
return c:GetFlagEffectLabel(7439100)==id and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
if aux.GetValueType(tg)=="Group" then
local tg2=tg:Filter(Card.IsRelateToEffect,nil,e)
if tg2 and tg2:GetCount()>0 then
Duel.ChangeTargetCard(ev,tg2)
end
elseif aux.GetValueType(tg)=="Card" then
if tg:IsRelateToEffect(e) then
Duel.ChangeTargetCard(ev,Group.FromCards(tg))
end
end
local id=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
Duel.RegisterFlagEffect(0,7439100+id,RESET_CHAIN,0,1)
if e:GetLabelObject() and e:GetLabelObject():GetCount()>0 then
Party_time_table[7439100+id]=e:GetLabelObject()
end
--
local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_HAND,0,nil,e,tp,7439100+id)
if g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.SelectYesNo(tp,aux.Stringid(m,4)) then
Duel.BreakEffect()
local sg=g:Select(tp,1,1,nil)
Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
end
end
function cm.salcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_COST)
end
function cm.thfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
end
function cm.saltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function cm.salop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
end
expansions/script/c7439201.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439201
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--search
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetOperation(cm.atkop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.thfilter(c)
return cm.Party_time(c) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
end
function cm.cfilter(c)
return c:GetAttack()~=c:GetBaseAttack() and c:IsFaceup()
end
function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
local count=5
local c=e:GetHandler()
while count>0 and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) do
if count<5 then Duel.BreakEffect() end
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
local tc=g:RandomSelect(0,1):GetFirst()
Duel.HintSelection(Group.FromCards(tc))
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(500)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENSE)
tc:RegisterEffect(e2)
Duel.AdjustInstantly()
count=count-1
end
local cg=Duel.GetMatchingGroup(cm.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
local g=Duel.GetMatchingGroup(cm.thfilter,c:GetOwner(),LOCATION_DECK,0,nil)
if count<5 and cg and cg:GetCount()>0 and
g:CheckSubGroup(aux.dncheck,cg:GetCount(),cg:GetCount()) and Duel.SelectYesNo(c:GetOwner(),aux.Stringid(m,3)) then
Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_ATOHAND)
--local sg=Duel.SelectMatchingCard(c:GetOwner(),cm.thfilter,c:GetOwner(),LOCATION_DECK,0,cg:GetCount(),cg:GetCount(),nil)
local sg=g:SelectSubGroup(c:GetOwner(),aux.dncheck,false,cg:GetCount(),cg:GetCount())
if sg:GetCount()>0 then
Duel.SendtoHand(sg,c:GetOwner(),REASON_EFFECT)
Duel.ConfirmCards(1-c:GetOwner(),sg)
end
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(re:GetHandler():GetControler()==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandler():GetControler()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439203.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439203
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.tgtg)
e1:SetOperation(cm.tgop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.thfilter(c,lv)
return cm.Party_time(c) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER) and c:IsLevel(lv)
end
function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_HAND)
end
function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsType,1-tp,LOCATION_HAND,0,nil,TYPE_MONSTER)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE)
local sg=g:Select(1-tp,1,1,nil)
Duel.HintSelection(sg)
Duel.SendtoGrave(sg,REASON_RULE)
local og=Duel.GetOperatedGroup()
if not og or og:GetCount()<=0 then return false end
local tc=og:GetFirst()
local c=e:GetHandler()
local atk=tc:GetAttack()
local def=tc:GetDefense()
if atk>0 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e1)
end
if def>0 then
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_DEFENSE)
e2:SetValue(def)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e2)
end
if tc and Duel.IsExistingMatchingCard(cm.thfilter,c:GetOwner(),LOCATION_DECK,0,1,nil,tc:GetLevel())
and Duel.SelectYesNo(c:GetOwner(),aux.Stringid(m,3)) then
Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_ATOHAND)
local sg=Duel.SelectMatchingCard(c:GetOwner(),cm.thfilter,c:GetOwner(),LOCATION_DECK,0,1,1,nil,tc:GetLevel())
if sg:GetCount()>0 then
Duel.SendtoHand(sg,c:GetOwner(),REASON_EFFECT)
Duel.ConfirmCards(1-c:GetOwner(),sg)
end
end
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439205.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439205
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.sptg2)
e1:SetOperation(cm.spop2)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.spfilter1(c,e,tp)
return cm.Party_time(c) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.spfilter2(c,e,tp)
return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(cm.spfilter3,c:GetOwner(),LOCATION_MZONE,LOCATION_MZONE,2,nil,c:GetCode())
end
function cm.spfilter3(c,code)
return c:IsFaceup() and c:IsCode(code)
end
function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,1-tp,LOCATION_HAND)
end
function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(c:GetOwner(),LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(c:GetOwner(),cm.spfilter1,c:GetOwner(),LOCATION_HAND,0,1,1,nil,e,c:GetOwner())
if g:GetCount()>0 and Duel.SpecialSummon(g,0,c:GetOwner(),c:GetOwner(),false,false,POS_FACEUP)>0 and Duel.GetLocationCount(c:GetOwner(),LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(cm.spfilter2,c:GetOwner(),LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,c:GetOwner()) and Duel.SelectYesNo(c:GetOwner(),aux.Stringid(m,3)) then
Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_SPSUMMON)
local sg=Duel.SelectMatchingCard(c:GetOwner(),cm.spfilter2,c:GetOwner(),LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,c:GetOwner())
if sg:GetCount()>0 then
Duel.SpecialSummon(sg,0,c:GetOwner(),c:GetOwner(),false,false,POS_FACEUP)
end
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439207.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439207
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.sptg2)
e1:SetOperation(cm.spop2)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.spfilter1(c,e,tp)
return cm.Party_time(c) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (c:IsLocation(LOCATION_HAND) or (c:IsLevelBelow(3) and c:IsLocation(LOCATION_DECK) and not Duel.IsExistingMatchingCard(cm.spfilter2,c:GetOwner(),LOCATION_MZONE,0,1,nil)))
end
function cm.spfilter2(c)
return c:IsFaceup() and c:IsLevelAbove(5)
end
function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if not Duel.IsExistingMatchingCard(cm.spfilter2,e:GetHandler():GetOwner(),LOCATION_MZONE,0,1,nil) then
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,e:GetHandler():GetOwner(),LOCATION_HAND+LOCATION_DECK)
else
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,e:GetHandler():GetOwner(),LOCATION_HAND)
end
end
function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(c:GetOwner(),LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(c:GetOwner(),cm.spfilter1,c:GetOwner(),LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,c:GetOwner())
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,c:GetOwner(),c:GetOwner(),false,false,POS_FACEUP)
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439209.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢巴罗夫
local m=7439209
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.sptg2)
e1:SetOperation(cm.spop2)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.spfilter(c,e,tp)
return cm.Party_time(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK)
end
function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(cm.spfilter,c:GetOwner(),LOCATION_DECK,0,nil,e,tp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 or g:GetClassCount(Card.GetCode)<5 then return end
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_CONFIRM)
local sg=g:SelectSubGroup(c:GetOwner(),aux.dncheck,false,5,5)
if #sg>0 then
Duel.ConfirmCards(1-c:GetOwner(),sg)
local tg=sg:RandomSelect(1-tp,2)
Duel.ConfirmCards(tp,tg)
Duel.ConfirmCards(1-tp,tg)
if g:GetCount()>0 then
local fid=c:GetFieldID()
local tc=tg:GetFirst()
while tc do
Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_TRIGGER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
tc=tg:GetNext()
end
Duel.SpecialSummonComplete()
tg:KeepAlive()
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetCountLimit(1)
e1:SetLabel(fid)
e1:SetLabelObject(tg)
e1:SetCondition(cm.descon)
e1:SetOperation(cm.desop)
Duel.RegisterEffect(e1,tp)
end
Duel.ShuffleDeck(c:GetOwner())
end
end
function cm.desfilter(c,fid)
return c:GetFlagEffectLabel(m)==fid
end
function cm.descon(e,tp,eg,ep,ev,re,r,rp)
local g=e:GetLabelObject()
if not g:IsExists(cm.desfilter,1,nil,e:GetLabel()) then
g:DeleteGroup()
e:Reset()
return false
else return true end
end
function cm.desop(e,tp,eg,ep,ev,re,r,rp)
local g=e:GetLabelObject()
local tg=g:Filter(cm.desfilter,nil,e:GetLabel())
g:DeleteGroup()
Duel.Destroy(tg,REASON_EFFECT)
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439211.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439211
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.sptg2)
e1:SetOperation(cm.spop2)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.spfilter(c,e,tp)
return cm.Party_time(c) and c:IsType(TYPE_TRAP) and Duel.IsPlayerCanSpecialSummonMonster(tp,c:GetCode(),nil,TYPE_MONSTER+TYPE_NORMAL,2500,2500,5,RACE_AQUA,ATTRIBUTE_WATER) and c:IsCanBeSpecialSummoned(e,0,tp,true,true)
end
function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,e:GetHandler():GetOwner(),LOCATION_DECK)
end
function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(c:GetOwner(),LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(c:GetOwner(),cm.spfilter,c:GetOwner(),LOCATION_DECK,0,1,1,nil,e,c:GetOwner())
if g:GetCount()>0 then
local tg=g:GetFirst()
local e1=Effect.CreateEffect(tg)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CHANGE_TYPE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(TYPE_NORMAL+TYPE_MONSTER)
e1:SetReset(RESET_EVENT+0x47c0000)
tg:RegisterEffect(e1,true)
local e2=e1:Clone()
e2:SetCode(EFFECT_ADD_RACE)
e2:SetValue(RACE_AQUA)
tg:RegisterEffect(e2,true)
local e3=e1:Clone()
e3:SetCode(EFFECT_ADD_ATTRIBUTE)
e3:SetValue(ATTRIBUTE_WATER)
tg:RegisterEffect(e3,true)
local e4=e1:Clone()
e4:SetCode(EFFECT_SET_BASE_ATTACK)
e4:SetValue(2500)
tg:RegisterEffect(e4,true)
local e5=e1:Clone()
e5:SetCode(EFFECT_SET_BASE_DEFENSE)
e5:SetValue(2500)
tg:RegisterEffect(e5,true)
local e6=e1:Clone()
e6:SetCode(EFFECT_CHANGE_LEVEL)
e6:SetValue(5)
tg:RegisterEffect(e6,true)
Duel.SpecialSummon(g,0,c:GetOwner(),c:GetOwner(),true,false,POS_FACEUP)
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439213.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439213
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e1:SetTarget(cm.sptg2)
e1:SetOperation(cm.spop2)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--atk limit
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(0,LOCATION_MZONE)
e3:SetValue(cm.atlimit)
c:RegisterEffect(e3)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.spfilter(c,e,tp)
return c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end
if chk==0 then return true end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,e:GetHandler():GetOwner(),LOCATION_DECK)
end
function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
local fid=c:GetFieldID()
tc:RegisterFlagEffect(m,RESET_EVENT+RESET_TURN_SET+RESET_OVERLAY+RESET_MSCHANGE,EFFECT_FLAG_CLIENT_HINT,1,fid,aux.Stringid(m,5))
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_LEAVE_FIELD)
e3:SetLabel(fid)
e3:SetLabelObject(tc)
e3:SetOperation(cm.spop3)
Duel.RegisterEffect(e3,c:GetOwner())
end
end
function cm.spop3(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
if not eg:IsContains(tc) then return end
if tc:GetFlagEffectLabel(m)~=e:GetLabel() then
e:Reset()
return
end
Duel.Hint(HINT_CARD,0,m)
local tp=e:GetHandlerPlayer()
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
tc:ResetFlagEffect(m)
e:Reset()
end
function cm.atlimit(e,c)
return c~=e:GetHandler()
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439215.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439215
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.tgtg)
e1:SetOperation(cm.tgop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,e:GetHandler():GetOwner(),LOCATION_HAND+LOCATION_MZONE)
end
function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsType,c:GetOwner(),LOCATION_HAND+LOCATION_ONFIELD,0,nil,TYPE_MONSTER)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_TOGRAVE)
local sg=g:Select(c:GetOwner(),1,1,nil)
Duel.HintSelection(sg)
Duel.SendtoGrave(sg,REASON_RULE)
local og=Duel.GetOperatedGroup()
if not og or og:GetCount()<=0 then return false end
local tc=og:GetFirst()
local atk=tc:GetAttack()
local def=tc:GetDefense()
if atk>0 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e1:SetValue(atk/2)
e1:SetTarget(cm.atktg)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
if def>0 then
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_UPDATE_DEFENSE)
e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e2:SetValue(def/2)
e2:SetTarget(cm.atktg)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
end
end
end
function cm.atktg(e,c)
return cm.Party_time(c) and c:IsFaceup()
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439217.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439217
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_TOGRAVE+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.tgtg)
e1:SetOperation(cm.tgop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--to hand
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_TOHAND)
e3:SetDescription(aux.Stringid(m,2))
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_PHASE+PHASE_END)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetTarget(cm.thtg)
e3:SetOperation(cm.thop)
c:RegisterEffect(e3)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.thfilter(c,lv)
return cm.Party_time(c) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER) and c:IsLevel(lv)
end
function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_HAND)
end
function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(c:GetOwner(),aux.TRUE,c:GetOwner(),LOCATION_HAND,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)>0 then
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_FACEUP)
local sg=Duel.SelectMatchingCard(c:GetOwner(),Card.IsFaceup,c:GetOwner(),LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
Duel.HintSelection(sg)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(5000)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
sg:GetFirst():RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENSE)
sg:GetFirst():RegisterEffect(e2)
end
end
function cm.thfilter(c,tid)
return c:GetTurnID()==tid and not c:IsReason(REASON_RETURN) and c:IsAbleToHand()
end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,0)
end
function cm.thop(e,tp,eg,ep,ev,re,r,rp)
local tid=Duel.GetTurnCount()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,0,LOCATION_GRAVE,1,1,nil,tid)
if #g>0 then
Duel.SendtoHand(g:GetFirst(),nil,REASON_EFFECT)
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439219.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439219
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetOperation(cm.movop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.tgfilter(c)
return c:GetSequence()<5
end
function cm.movfilter1(c,seq,e)
return c:GetSequence()<seq and not c:IsImmuneToEffect(e)
end
function cm.movfilter2(c,seq,e)
return not c:IsImmuneToEffect(e)
end
function cm.movfilter3(c,seq,e)
return c:GetSequence()>seq and not c:IsImmuneToEffect(e) and c:GetSequence()<5
end
function cm.centerfilter1(c,e)
local seq=c:GetSequence()+1
local p=c:GetControler()
if seq>4 then
seq=seq-5
p=1-c:GetControler()
end
local tc=Duel.GetFieldCard(p,LOCATION_MZONE,seq)
return (not tc or tc:IsImmuneToEffect(e)) and not c:IsImmuneToEffect(e)
end
function cm.centerfilter2(c,e)
local seq=c:GetSequence()-1
local p=c:GetControler()
if seq<0 then
seq=seq+5
p=1-c:GetControler()
end
local tc=Duel.GetFieldCard(p,LOCATION_MZONE,seq)
return (not tc or tc:IsImmuneToEffect(e)) and not c:IsImmuneToEffect(e)
end
function cm.seqminc(g)
local minc=g:GetFirst()
local tc=g:GetFirst()
while tc do
if tc:GetSequence()<minc:GetSequence() then
minc=tc
end
tc=g:GetNext()
end
return minc
end
function cm.seqmaxc(g)
local maxc=g:GetFirst()
local tc=g:GetFirst()
while tc do
if tc:GetSequence()>maxc:GetSequence() then
maxc=tc
end
tc=g:GetNext()
end
return maxc
end
function cm.movop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_MZONE)+Duel.GetLocationCount(1-tp,LOCATION_MZONE)==0 then
local g=Duel.GetMatchingGroup(cm.tgfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
Duel.SendtoGrave(g,REASON_EFFECT)
return false
end
if Duel.GetMatchingGroupCount(cm.centerfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,e)<=0 and Duel.GetMatchingGroupCount(cm.centerfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,e)<=0 then return false end
local op=Duel.SelectOption(c:GetOwner(),aux.Stringid(m,3),aux.Stringid(m,4))
if op==0 then
local cc=Duel.GetMatchingGroup(cm.centerfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,e):GetFirst()
if not cc then return false end
local ctp=cc:GetControler()
local seq=cc:GetSequence()
local g1=Duel.GetMatchingGroup(cm.movfilter1,ctp,LOCATION_MZONE,0,nil,seq,e)
local g2=Duel.GetMatchingGroup(cm.movfilter2,ctp,0,LOCATION_MZONE,nil,seq,e)
local g3=Duel.GetMatchingGroup(cm.movfilter3,ctp,LOCATION_MZONE,0,nil,seq,e)
local finish=false
while not finish do
local mc=cc
if g3 and g3:GetCount()>0 then
mc=cm.seqminc(g3)
g3:RemoveCard(mc)
else
if g2 and g2:GetCount()>0 then
mc=cm.seqminc(g2)
g2:RemoveCard(mc)
else
if g1 and g1:GetCount()>0 then
mc=cm.seqminc(g1)
g1:RemoveCard(mc)
end
end
end
if mc==cc then finish=true end
local p=mc:GetControler()
local seq=mc:GetSequence()-1
if seq<0 then
seq=seq+5
p=1-mc:GetControler()
end
local zone=1<<seq
local tc=Duel.GetFieldCard(p,LOCATION_MZONE,seq)
if (p~=mc:GetControler() and not mc:IsControlerCanBeChanged(true))
or (Duel.GetMZoneCount(p,nil,mc:GetControler(),LOCATION_REASON_CONTROL,zone)<=0) then
Duel.SendtoGrave(mc,REASON_EFFECT)
else
if p==mc:GetControler() then
Duel.MoveSequence(mc,seq)
else
Duel.GetControl(mc,1-mc:GetControler(),0,0,zone)
end
end
end
else
local cc=Duel.GetMatchingGroup(cm.centerfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,e):GetFirst()
if not cc then return false end
local ctp=cc:GetControler()
local seq=cc:GetSequence()
local g1=Duel.GetMatchingGroup(cm.movfilter3,ctp,LOCATION_MZONE,0,nil,seq,e)
local g2=Duel.GetMatchingGroup(cm.movfilter2,ctp,0,LOCATION_MZONE,nil,seq,e)
local g3=Duel.GetMatchingGroup(cm.movfilter1,ctp,LOCATION_MZONE,0,nil,seq,e)
local finish=false
while not finish do
local mc=cc
if g3 and g3:GetCount()>0 then
mc=cm.seqmaxc(g3)
g3:RemoveCard(mc)
else
if g2 and g2:GetCount()>0 then
mc=cm.seqmaxc(g2)
g2:RemoveCard(mc)
else
if g1 and g1:GetCount()>0 then
mc=cm.seqmaxc(g1)
g1:RemoveCard(mc)
end
end
end
if mc==cc then finish=true end
local p=mc:GetControler()
local seq=mc:GetSequence()+1
if seq>4 then
seq=seq-5
p=1-mc:GetControler()
end
local zone=1<<seq
local tc=Duel.GetFieldCard(p,LOCATION_MZONE,seq)
if (p~=mc:GetControler() and not mc:IsControlerCanBeChanged(true))
or (Duel.GetMZoneCount(p,nil,mc:GetControler(),LOCATION_REASON_CONTROL,zone)<=0) then
Duel.SendtoGrave(mc,REASON_EFFECT)
else
if p==mc:GetControler() then
Duel.MoveSequence(mc,seq)
else
Duel.GetControl(mc,1-mc:GetControler(),0,0,zone)
end
end
end
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439221.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439221
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--select
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_CONTROL+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.sltg)
e1:SetOperation(cm.slop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.sltg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,1,tp,LOCATION_MZONE)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_HAND+LOCATION_DECK)
end
function cm.slop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD+LOCATION_HAND)>=8 then
local b1=Duel.GetFieldGroupCount(c:GetOwner(),0,LOCATION_DECK)>=5
local b2=Duel.GetFieldGroupCount(c:GetOwner(),0,LOCATION_HAND)>=2
local g3=Duel.GetMatchingGroup(Card.IsControlerCanBeChanged,c:GetOwner(),0,LOCATION_MZONE,nil)
local b3=g3:GetCount()>0
if not b1 and not b2 and not b3 then return end
local op=0
if b1 and not b2 and not b3 then op=Duel.SelectOption(c:GetOwner(),aux.Stringid(m,3))
elseif not b1 and b2 and not b3 then op=Duel.SelectOption(c:GetOwner(),aux.Stringid(m,4))+1
elseif not b1 and not b2 and b3 then op=Duel.SelectOption(c:GetOwner(),aux.Stringid(m,5))+2
elseif b1 and b2 and not b3 then op=Duel.SelectOption(c:GetOwner(),aux.Stringid(m,3),aux.Stringid(m,4))
elseif b1 and not b2 and b3 then op=Duel.SelectOption(c:GetOwner(),aux.Stringid(m,3),aux.Stringid(m,5)) if op==1 then op=2 end
elseif not b1 and b2 and b3 then op=Duel.SelectOption(c:GetOwner(),aux.Stringid(m,4),aux.Stringid(m,5))+1
else op=Duel.SelectOption(c:GetOwner(),aux.Stringid(m,3),aux.Stringid(m,4),aux.Stringid(m,5)) end
if op==0 then
local g=Duel.GetDecktopGroup(1-tp,5)
if #g>0 then
Duel.BreakEffect()
Duel.DisableShuffleCheck()
Duel.SendtoHand(g,c:GetOwner(),REASON_EFFECT)
end
elseif op==1 then
local g=Duel.GetFieldGroup(c:GetOwner(),0,LOCATION_HAND):RandomSelect(c:GetOwner(),2)
Duel.SendtoHand(g,c:GetOwner(),REASON_EFFECT)
else
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_CONTROL)
local g=g3:Select(c:GetOwner(),1,1,nil)
local tc=g:GetFirst()
if tc then
Duel.GetControl(tc,c:GetOwner())
end
end
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439223.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439223
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--copy
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e1:SetTarget(cm.cptg)
e1:SetOperation(cm.cpop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.cpfilter(c,e,tp,tid)
return c:GetTurnID()~=tid and not c:IsReason(REASON_RETURN) and ((c:IsType(TYPE_SPELL+TYPE_TRAP) and c:CheckActivateEffect(true,true,false)~=nil) or (c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
end
function cm.gcheck(g,ft)
return g:FilterCount(Card.IsType,nil,TYPE_MONSTER)<=ft
end
function cm.cptg(e,tp,eg,ep,ev,re,r,rp,chk)
local tid=Duel.GetTurnCount()
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and cm.cpfilter(chkc,e,tp,tid) end
if chk==0 then return true end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
local g=Duel.GetMatchingGroup(cm.cpfilter,tp,0,LOCATION_GRAVE,nil,e,tp,tid)
if not g or #g==0 then return end
local b1=math.min(g:FilterCount(Card.IsType,nil,TYPE_MONSTER),ft)
local b2=g:FilterCount(Card.IsType,nil,TYPE_SPELL+TYPE_TRAP)
local ct=math.min(b1+b2,5)
local sg=g:SelectSubGroup(tp,cm.gcheck,false,ct,ct,ft)
Duel.SetTargetCard(sg)
local sumg=sg:Filter(Card.IsType,nil,TYPE_MONSTER)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sumg,#sumg,tp,LOCATION_GRAVE)
end
function cm.cpop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tid=Duel.GetTurnCount()
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
if not g or #g==0 then return end
local g=g:Filter(Card.IsRelateToEffect,nil,e)
local sg=g:Filter(Card.IsType,nil,TYPE_MONSTER)
local cg=g:Filter(Card.IsType,nil,TYPE_SPELL+TYPE_TRAP)
if g:GetCount()>0 then
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if sg and sg:GetCount()>0 and ft>0 then
if sg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
if sg:GetCount()>ft then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
sg=sg:Select(tp,ft,ft,nil)
end
Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
end
if cg and cg:GetCount()>0 then
local tc=cg:GetFirst()
while tc do
Duel.Hint(HINT_CARD,0,tc:GetOriginalCode())
local te=tc:GetActivateEffect()
if not te then
else
local target=te:GetTarget()
local operation=te:GetOperation()
if tc:CheckActivateEffect(true,true,false)~=nil
and (not target or target(te,tp,eg,ep,ev,re,r,rp,0)) then
Duel.ClearTargetCard()
e:SetProperty(te:GetProperty())
tc:CreateEffectRelation(te)
if target then target(te,tp,eg,ep,ev,re,r,rp,1) end
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local tg=g:GetFirst()
while tg do
tg:CreateEffectRelation(te)
tg=g:GetNext()
end
if operation then operation(te,tp,eg,ep,ev,re,r,rp) end
tc:ReleaseEffectRelation(te)
tg=g:GetFirst()
while tg do
tg:ReleaseEffectRelation(te)
tg=g:GetNext()
end
end
end
tc=cg:GetNext()
end
end
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439225.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢穆克拉
local m=7439225
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--token
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(cm.tgtg)
e1:SetOperation(cm.tgop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
--spsummon
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_TO_GRAVE)
e5:SetCondition(cm.spcon)
e5:SetTarget(cm.sptg)
e5:SetOperation(cm.spop)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EVENT_REMOVE)
c:RegisterEffect(e6)
end
function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,e:GetHandler():GetOwner(),LOCATION_HAND+LOCATION_MZONE)
end
function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsType,c:GetOwner(),LOCATION_HAND+LOCATION_ONFIELD,0,nil,TYPE_MONSTER)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,c:GetOwner(),HINTMSG_TOGRAVE)
local sg=g:Select(c:GetOwner(),1,3,nil)
Duel.HintSelection(sg)
Duel.SendtoGrave(sg,REASON_RULE)
local og=Duel.GetOperatedGroup()
if not og or og:GetCount()<=0 then return false end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_DRAW_COUNT)
e1:SetTargetRange(1,0)
e1:SetReset(RESET_PHASE+PHASE_DRAW+RESET_SELF_TURN)
e1:SetValue(#og)
Duel.RegisterEffect(e1,c:GetOwner())
end
end
function cm.atktg(e,c)
return cm.Party_time(c) and c:IsFaceup()
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=false
local b2=false
local b3=false
if re and re:GetHandler() then
b1=(pl==1-c:GetOwner())
end
if c:GetReasonCard() then
b2=(c:GetReasonCard():GetControler()==1-c:GetOwner())
end
if c:GetReasonEffect() and c:GetReasonEffect():GetHandler() then
b3=(c:GetReasonEffect():GetHandlerPlayer()==1-c:GetOwner())
end
return (c:GetReasonPlayer()==1-c:GetOwner() or b1 or b2 or b3) and (not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE))
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c7439301.lua deleted 100644 → 0
View file @ 9e0a2f90
--派对狂欢海潮酒保
local m=7439301
local cm=_G["c"..m]
cm.named_with_party_time=1
function cm.Party_time(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_party_time
end
function cm.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,cm.filter,1)
c:EnableReviveLimit()
--cannot link material
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
e0:SetValue(cm.lmlimit)
c:RegisterEffect(e0)
--to hand
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_MZONE)
e1:SetCondition(cm.thcon)
e1:SetCost(cm.thcost)
e1:SetTarget(cm.thtg)
e1:SetOperation(cm.thop)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetDescription(aux.Stringid(m,1))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCondition(cm.spcon)
e2:SetTarget(cm.sptg)
e2:SetOperation(cm.spop)
c:RegisterEffect(e2)
end
function cm.lmlimit(e)
local c=e:GetHandler()
return c:IsStatus(STATUS_SPSUMMON_TURN) and c:IsSummonType(SUMMON_TYPE_LINK)
end
function cm.filter(c)
return cm.Party_time(c) and c:IsFaceup() and c:IsLinkType(TYPE_MONSTER) and not c:IsLinkType(TYPE_LINK)
end
function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSequence()>4
end
function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,3,nil) end
Duel.DiscardHand(tp,Card.IsDiscardable,3,3,REASON_COST+REASON_DISCARD)
end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_ONFIELD)
end
function cm.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,tp,REASON_EFFECT)
end
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsSummonType(SUMMON_TYPE_LINK) and c:GetSequence()>4
end
function cm.spfilter(c,e,tp)
return cm.Party_time(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,1-tp,LOCATION_HAND)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
--local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
--local tg=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
--if ft>0 and tg:GetCount()>0 then
-- if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
-- Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-- local g=tg:Select(tp,ft,ft,nil)
-- Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
--end
local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)
local tg2=Duel.GetMatchingGroup(cm.spfilter,1-tp,LOCATION_HAND,0,nil,e,1-tp)
if ft2>0 and tg2:GetCount()>0 then
if Duel.IsPlayerAffectedByEffect(1-tp,59822133) then ft2=1 end
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
local g2=tg2:Select(1-tp,ft2,ft2,nil)
Duel.SpecialSummon(g2,0,1-tp,1-tp,false,false,POS_FACEUP)
end
end
expansions/strings.conf
View file @ c5786922
...@@ -348,6 +348,7 @@ ...@@ -348,6 +348,7 @@
!setname 0x32a0 澄净闪耀 !setname 0x32a0 澄净闪耀
!setname 0x52a0 澄闪 !setname 0x52a0 澄闪
!counter 0x2a0 雷电指示物 !counter 0x2a0 雷电指示物
!counter 0x32a1 魔法指示物
#古木寻斋 1228003719 128 0xa70-0xa7e #古木寻斋 1228003719 128 0xa70-0xa7e
!setname 0xa70 亘古械神 !setname 0xa70 亘古械神
...@@ -652,7 +653,6 @@ ...@@ -652,7 +653,6 @@
!setname 0x308 辉刻 !setname 0x308 辉刻
#星空璀璨之地 3077843411 306 0xc10-0xc1f #星空璀璨之地 3077843411 306 0xc10-0xc1f
#【2022年12月31日前禁止投稿】
!setname 0xc12 匠心 !setname 0xc12 匠心
!setname 0xc11 Fate/Grand Order !setname 0xc11 Fate/Grand Order
!setname 0xac11 概念礼装 !setname 0xac11 概念礼装
...@@ -919,6 +919,7 @@ ...@@ -919,6 +919,7 @@
#格拉摩根 1025644096 400 #格拉摩根 1025644096 400
#named_with_BeastDeity 兽神 #named_with_BeastDeity 兽神
#named_with_BlueDeathster 葬空死团
#named_with_Chrono 时刻 #named_with_Chrono 时刻
#named_with_CosmosHero 勇机 #named_with_CosmosHero 勇机
#named_with_Dragonic 龙纹 #named_with_Dragonic 龙纹
...@@ -1221,6 +1222,8 @@ ...@@ -1221,6 +1222,8 @@
#飄上月球の不死煙 2338626051 724 0x720-0x72f #飄上月球の不死煙 2338626051 724 0x720-0x72f
!setname 0x720 大庭院 !setname 0x720 大庭院
!setname 0x723 钢铁叛乱 !setname 0x723 钢铁叛乱
!setname 0x5725 数秘术
!setname 0x9725 阿里乌斯
!setname 0xa726 安(马纳历亚) !setname 0xa726 安(马纳历亚)
!setname 0xc726 古蕾娅(马纳历亚) !setname 0xc726 古蕾娅(马纳历亚)
!setname 0x5727 冰晶 !setname 0x5727 冰晶
...@@ -1410,6 +1413,7 @@ ...@@ -1410,6 +1413,7 @@
!setname 0xc282 安眠 !setname 0xc282 安眠
!setname 0x3283 无心骑士 !setname 0x3283 无心骑士
!setname 0x5283 捣乱宣言 !setname 0x5283 捣乱宣言
!setname 0x6283 小不点
!setname 0x9283 束缚之瓶 !setname 0x9283 束缚之瓶
!setname 0x3284 双生永别 !setname 0x3284 双生永别
!setname 0x5284 无餍 !setname 0x5284 无餍
...@@ -1419,7 +1423,7 @@ ...@@ -1419,7 +1423,7 @@
!setname 0xad2 萝卜-R !setname 0xad2 萝卜-R
#孟德 2974765951 989 0x980-0x98f #孟德 2974765951 989 0x980-0x98f
！setname0x980 武林 !setname 0x980 武林
#公用区间 986 0x870-0x87f #公用区间 986 0x870-0x87f
##柚木梨沙 1141457733 000-199 ##柚木梨沙 1141457733 000-199
......
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