Skip to content

no81cards
no81cards
Commit 1745db5f authored by Nemo Ma's avatar Nemo Ma
Browse files
Options

fix

parent 4a47186c
Hide whitespace changes
Inline Side-by-side
Showing with 167 additions and 146 deletions
expansions/script/c10100000.lua
View file @ 1745db5f
......@@ -685,7 +685,7 @@ function s.create_buff_list()
["!AttackAnnounce"] = { EFFECT_CANNOT_ATTACK_ANNOUNCE },
["!AttackDirectly"] = { EFFECT_CANNOT_DIRECT_ATTACK },
["MustAttack"] = { EFFECT_MUST_ATTACK, true },
["MustAttackMonster"] = { EFFECT_MUST_ATTACK, true },
["MustAttackMonster"] = { EFFECT_MUST_ATTACK, true },
["!BeTributed"] = { { "!BeTributed4TributeSummon", "!BeTributedExcept4TributeSummon" } },
["!BeTributed4TributeSummon"] = { EFFECT_UNRELEASABLE_SUM },
["!BeTributedExcept4TributeSummon"] = { EFFECT_UNRELEASABLE_NONSUM },
......@@ -1352,7 +1352,7 @@ function Scl.RegisterActivateCountLimit(reg_eff, lim_obj)
lim_code = lim_code + EFFECT_COUNT_CODE_SINGLE
elseif (type(val) == "number" and val == 4) or
(type(val) == "string" and val == "Chain") then
lim_code = lim_code + EFFECT_COUNT_CODE_CHAIN
lim_code = lim_code + EFFECT_COUNT_CODE_CHAIN
else
lim_code = lim_code + val
end
......@@ -3406,7 +3406,7 @@ end
2.extra_check_function: add an additional check to the effect cost/target, call extra_check_function(e, tp, eg, ...) to check.
//return list_typ, extra_check_function
4.
{ 1.list_typ == "ExtraOperation", 2.extra_operate_function }
{ 1.list_typ == "ExtraOperation", 2.extra_operate_function }
Paramas explain:
2.extra_operate_function: add an additional operate to the effect cost/target, call extra_operate_function(current list's selected card(s), all above lists's selected card(s),e, tp, eg, ...) to operate.
//return list_typ, extra_operate_function
......@@ -3415,7 +3415,7 @@ function s.get_cost_or_target_or_operation_paramas(arr, e, tp, eg, ep, ev, re, r
--1.list type ("Cost", "~Target", "Target","PlayerTarget","Operation","ExtraCheck","ExtraOperation")
local list_typ = arr[1]
if list_typ ~= "PlayerTarget" and list_typ ~= "PlayerCost" and list_typ ~= "ExtraCheck" and list_typ ~= "ExtraOperation" then
--2.category string, replace operation
--2.category string, replace operation
local category_obj = type(arr[2]) == "table" and arr[2] or { arr[2] }
local category_str, replace_operation = table.unpack(category_obj)
local category, category_arr, category_str_arr = Scl.GetNumFormatCategory(category_str)
......@@ -5083,7 +5083,7 @@ function Scl.ActivateCard(tc, actp, apply_effect, lim_zone)
local tg = te:GetTarget() or aux.TRUE
local op = te:GetOperation() or aux.TRUE
tg(te, actp, ceg, cep, cev, cre, cr, crp, 1)
op(te, actp, ceg, cep, cev, cre, cr, crp)
op(te, actp, ceg, cep, cev, cre, cr, crp)
end
if zone == LOCATION_FZONE then
Duel.RaiseEvent(tc, 4179255, te, 0, tp, tp, Duel.GetCurrentChain())
......@@ -5103,9 +5103,9 @@ end
function Scl.Return2Field(card_obj, pos, zone)
local e, _, tp = Scl.GetCurrentEffectInfo()
zone = zone or 0x3f1f3f1f
local mzone = { [tp] = zone & 0x001f, [1 - tp] = (zone & 0x001f0000) / 0x0010000 }
local mzone = { [tp] = zone & 0x001f, [1 - tp] = (zone & 0x001f0000) / 0x0010000 }
local szone = { [tp] = (zone & 0x1f00) / 0x100, [1 - tp] = (zone & 0x1f000000) / 0x1000000 }
local fzone = { [tp] = zone & 0x2000, [1 - tp] = zone & 0x20000000 }
local fzone = { [tp] = zone & 0x2000, [1 - tp] = zone & 0x20000000 }
local sg = Scl.Mix2Group(card_obj)
local mon = sg:Filter(Scl.IsPreviouslyInZone, nil, "MonsterZone")
local st = sg:Filter(Scl.IsPreviouslyInZone, nil, "Spell&TrapZone")
......@@ -5696,7 +5696,7 @@ end
3. Love.IsLinkSeries(c) -- equal to Scl.IsLinkSeries(c, "YiFanJiang")
4. Love.IsPreviousSeries(c) -- equal to Scl.IsPreviousSeries(c, "YiFanJiang")
5. Love.IsOriginalSeries(c) -- equal to Scl.IsOriginalSeries(c, "YiFanJiang")
6~10 Love.IsXXXXSeriesMonster(c) (XXXX can be "", "Fusion", "Link" ……, see above) -- equal to Scl.IsXXXXSeries(c, "YiFanJiang") and c:IsType(TYPE_MONSTER)
6~10 Love.IsXXXXSeriesMonster(c) (XXXX can be "", "Fusion", "Link" ……, see above) -- equal to Scl.IsXXXXSeries(c, "YiFanJiang") and c:IsType(TYPE_MONSTER)
11~15 Love.IsXXXXSeriesSpell(c) (XXXX can be "", "Fusion", "Link" ……, see above) -- equal to Scl.IsXXXXSeries(c, "YiFanJiang") and c:IsType(TYPE_SPELL)
16~20 Love.IsXXXXSeriesTrap(c) (XXXX can be "", "Fusion", "Link" ……, see above) -- equal to Scl.IsXXXXSeries(c, "YiFanJiang") and c:IsType(TYPE_TRAP)
21~25 Love.IsXXXXSeriesSpellOrTrap(c) (XXXX can be "", "Fusion", "Link" ……, see above) -- equal to Scl.IsXXXXSeries(c, "YiFanJiang") and c:IsType(TYPE_SPELL + TYPE_TRAP)
......@@ -5766,14 +5766,14 @@ end
--Get target player and that num-format value for an effect that register player target information in Effect.SetTarget
--//return target player, target value
--[[
>>eg1. Duel.SetTargetPlayer(tp)
>>eg1. Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1000)
Scl.GetPlayerTargetParamas()
>> return tp, 1000
--]]
function Scl.GetPlayerTargetParamas()
local player, value = Duel.GetChainInfo(0, CHAININFO_TARGET_PLAYER, CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT)
Duel.Draw(p,d,REASON_EFFECT)
return player, value
end
--Add normal summon or set procedure
......@@ -7261,5 +7261,5 @@ s.record_previous_inside_series()
s.previous_xyz_material_record()
s.record_official_filter()
s.add_current_effect_check()
s.add_type_normal_spell_or_trap_scl()
--s.add_type_normal_spell_or_trap_scl()
Scl.RaiseGlobalSetEvent()
\ No newline at end of file
expansions/script/c10174034.lua
View file @ 1745db5f
--能量体
if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
local m=10174034
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=rsef.SV_UPDATE(c,"atk",cm.val)
local e2=rsef.I(c,{m,0},1,"des","tg",LOCATION_MZONE,cm.con(2000),rscost.cost(Card.IsDiscardable,"dish",LOCATION_HAND),rstg.target(aux.TRUE,"des",0,LOCATION_ONFIELD),cm.desop)
local e3=rsef.SV_IMMUNE_EFFECT(c,cm.imval,cm.con(4000))
--rescripted 20230705
if not pcall(function() require("expansions/script/c10100000") end) then require("script/c10100000") end
local s,id = GetID()
function s.initial_effect(c)
local e1 = Scl.CreateSingleBuffEffect(c, "+ATK", s.val, "MonsterZone")
local e2 = Scl.CreateIgnitionEffect(c, "Destroy", 1, "Destroy", "Target", "MonsterZone", s.descon,
{ "PlayerCost", "Discard", 1 },
{ "Target", "Destroy", aux.TRUE, 0, "OnField" }, s.desop)
local e4 = Scl.CreateSingleBuffEffect(c, "UnaffectedByOpponentsActivatedEffects", 1, "MonsterZone", s.uecon)
end
function cm.val(e,c)
return Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)*1000
function s.val(e,c)
return Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_ONFIELD)*1000
end
function cm.con(atk)
return function(e)
return e:GetHandler():IsAttackAbove(atk)
end
function s.descon(e,tp)
return e:GetHandler():IsAttackAbove(2000)
end
function cm.desop(e,tp)
local tc=rscf.GetTargetCard()
function s.desop(e,tp)
local _, tc = Scl.GetTargetsReleate2Chain()
if tc then
Duel.Destroy(tc,REASON_EFFECT)
end
end
function cm.imval(e,re)
return re:GetOwnerPlayer()~=e:GetOwnerPlayer() and re:IsActivated()
function s.uecon(e,tp)
return e:GetHandler():IsAttackAbove(4000)
end
\ No newline at end of file
expansions/script/c11451780.lua
View file @ 1745db5f
......@@ -226,8 +226,8 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
if tc then
Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
te:UseCountLimit(tp,1,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
......
expansions/script/c130006034.lua
View file @ 1745db5f
......@@ -3,7 +3,10 @@ if not pcall(function() require("expansions/script/c130001000") end) then requir
local s,id = Scl.SetID(130006034, "LordOfChain")
function s.initial_effect(c)
local e1 = Scl.CreateSingleBuffEffect(c, "Reveal", 1, "Hand")
local e2 = Scl.CreateQuickMandatoryEffect(c, "ActivateEffect", nil, nil, nil, nil, "Hand,MonsterZone", nil, nil, s.mixtg)
local e2 = Scl.CreateQuickMandatoryEffect(c, "ActivateEffect", nil, nil, nil, nil, "Hand,MonsterZone", nil, nil, s.mixtg, s.mixop)
if not s.chain_id_scl then
s.chain_id_scl = {}
end
end
function s.get_count(zone)
local ct = Duel.GetFieldGroupCount(0, zone, 0) - Duel.GetFieldGroupCount(0, 0, zone)
......@@ -11,13 +14,15 @@ function s.get_count(zone)
end
function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c = e:GetHandler()
local cct = Duel.GetCurrentChain()
local b1 = (c:IsOnField() or c:IsPublic()) and c:GetFlagEffect(id) < s.get_count(LOCATION_ONFIELD)
local b2 = c:IsLocation(LOCATION_HAND) and c:GetFlagEffect(id + 100) == 0 and Duel.GetCurrentChain() > 2
local b2 = c:IsLocation(LOCATION_HAND) and c:GetFlagEffect(id + 100) == 0 and cct > 1
if chk == 0 then return b1 or b2 end
local op = b1 and 1 or 2
if b1 and b2 then
op = Scl.SelectOption(tp, true, "Damage", true, {id, 0})
end
--local op = b1 and 1 or 2
--if b1 and b2 then
--op = Scl.SelectOption(tp, true, "Damage", true, {id, 0})
--end
local op = b2 and 2 or 1
if op == 1 then
e:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e:SetCategory(CATEGORY_DAMAGE)
......@@ -25,7 +30,6 @@ function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetTargetPlayer(1-tp)
Duel.SetTargetParam(100)
Duel.SetOperationInfo(0, CATEGORY_DAMAGE, nil, 0, 1-tp, 100)
Duel.ChangeChainOperation(0,s.op1)
else
e:SetProperty(0)
c:RegisterFlagEffect(id + 100, RESET_CHAIN, 0, 1)
......@@ -41,27 +45,30 @@ function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
end
e:SetCategory(ctgy)
Duel.ChangeChainOperation(0,s.op2)
end
s.chain_id_scl[cct] = op
end
function s.op1(e,tp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,d,REASON_EFFECT)
end
function s.op2(e,tp)
local c = e:GetHandler()
function s.mixop(e,tp,eg,ep,ev,re,r,rp)
local cct = Duel.GetCurrentChain()
if cct >= 3 then
if c:IsRelateToChain(0) and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) > 0 then
Scl.SelectAndOperateCards("Send2GY",tp,Card.IsAbleToGrave,tp,"OnField","OnField",1,1,nil)()
local op = s.chain_id_scl[cct]
if op == 1 then
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,d,REASON_EFFECT)
else
local c = e:GetHandler()
local cct = Duel.GetCurrentChain()
if cct >= 3 then
if c:IsRelateToChain(0) and
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) > 0 then
Scl.SelectAndOperateCards("Send2GY",tp,Card.IsAbleToGrave,tp,"OnField","OnField",1,1,nil)()
end
end
if cct >= 5 then
Scl.SelectAndOperateCards("SpecialSummon",tp,s.spfilter,tp,"Deck",0,1,1,nil,e,tp)()
end
if cct >= 7 then
local e1 = Scl.CreateFieldTriggerContinousEffect({c, tp}, "AfterEffectResolving", nil, nil, nil, nil, s.tgcon, s.tgop, RESET_EP_SCL)
end
end
if cct >= 5 then
Scl.SelectAndOperateCards("SpecialSummon",tp,s.spfilter,tp,"Deck",0,1,1,nil,e,tp)()
end
if cct >= 7 then
local e1 = Scl.CreateFieldTriggerContinousEffect({c, tp}, "AfterEffectResolving", nil, nil, nil, nil, s.tgcon, s.tgop, RESET_EP_SCL)
end
end
function s.spfilter(c,e,tp)
......
expansions/script/c130006035.lua
View file @ 1745db5f
......@@ -3,7 +3,10 @@ if not pcall(function() require("expansions/script/c130001000") end) then requir
local s,id = Scl.SetID(130006035, "LordOfChain")
function s.initial_effect(c)
local e1 = Scl.CreateSingleBuffEffect(c, "Reveal", 1, "Hand")
local e2 = Scl.CreateQuickMandatoryEffect(c, "ActivateEffect", nil, nil, nil, nil, "Hand,MonsterZone", nil, nil, s.mixtg)
local e2 = Scl.CreateQuickMandatoryEffect(c, "ActivateEffect", nil, nil, nil, nil, "Hand,MonsterZone", nil, nil, s.mixtg, s.mixop)
if not s.chain_id_scl then
s.chain_id_scl = {}
end
end
function s.get_count(zone)
local ct = Duel.GetFieldGroupCount(0, zone, 0) - Duel.GetFieldGroupCount(0, 0, zone)
......@@ -11,13 +14,15 @@ function s.get_count(zone)
end
function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c = e:GetHandler()
local cct = Duel.GetCurrentChain()
local b1 = (c:IsOnField() or c:IsPublic()) and c:GetFlagEffect(id) < s.get_count(LOCATION_HAND)
local b2 = c:IsLocation(LOCATION_HAND) and c:GetFlagEffect(id + 100) == 0 and Duel.GetCurrentChain() > 2
local b2 = c:IsLocation(LOCATION_HAND) and c:GetFlagEffect(id + 100) == 0 and cct > 1
if chk == 0 then return b1 or b2 end
local op = b1 and 1 or 2
if b1 and b2 then
op = Scl.SelectOption(tp, true, "GainLP", true, {id, 0})
end
--local op = b1 and 1 or 2
--if b1 and b2 then
--op = Scl.SelectOption(tp, true, "Damage", true, {id, 0})
--end
local op = b2 and 2 or 1
if op == 1 then
e:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e:SetCategory(CATEGORY_RECOVER)
......@@ -25,11 +30,9 @@ function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(100)
Duel.SetOperationInfo(0, CATEGORY_RECOVER, nil, 0, tp, 100)
Duel.ChangeChainOperation(0,s.op1)
else
e:SetProperty(0)
c:RegisterFlagEffect(id + 100, RESET_CHAIN, 0, 1)
local cct = Duel.GetCurrentChain()
local ctgy = 0
if cct >= 3 then
ctgy = ctgy + CATEGORY_SPECIAL_SUMMON + CATEGORY_HANDES
......@@ -41,28 +44,29 @@ function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
ctgy = ctgy + CATEGORY_DRAW
end
e:SetCategory(ctgy)
Duel.ChangeChainOperation(0,s.op2)
end
e:SetLabel(op)
end
function s.op1(e,tp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Recover(p,d,REASON_EFFECT)
s.chain_id_scl[cct] = op
end
function s.op2(e,tp)
function s.mixop(e,tp,eg,ep,ev,re,r,rp)
local cct = Duel.GetCurrentChain()
local c = e:GetHandler()
if cct >= 3 then
if c:IsRelateToChain(0) and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) > 0 then
Duel.DiscardHand(1-tp,nil,1,1,REASON_EFFECT,nil)
local op = s.chain_id_scl[cct]
if op == 1 then
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Recover(p,d,REASON_EFFECT)
else
local c = e:GetHandler()
if cct >= 3 then
if c:IsRelateToChain(0) and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) > 0 then
Duel.DiscardHand(1-tp,nil,1,1,REASON_EFFECT,nil)
end
end
if cct >= 5 then
Scl.SelectAndOperateCards("Add2Hand",tp,s.thfilter,tp,"Deck",0,1,1,nil,e,tp)()
end
if cct >= 9 then
local e1 = Scl.CreateFieldTriggerContinousEffect({c, tp}, "AfterEffectResolving", nil, nil, nil, nil, s.drcon, s.drop, RESET_EP_SCL)
end
end
if cct >= 5 then
Scl.SelectAndOperateCards("Add2Hand",tp,s.thfilter,tp,"Deck",0,1,1,nil,e,tp)()
end
if cct >= 9 then
local e1 = Scl.CreateFieldTriggerContinousEffect({c, tp}, "AfterEffectResolving", nil, nil, nil, nil, s.drcon, s.drop, RESET_EP_SCL)
end
end
function s.thfilter(c,e,tp)
......
expansions/script/c130006036.lua
View file @ 1745db5f
......@@ -3,7 +3,10 @@ if not pcall(function() require("expansions/script/c130001000") end) then requir
local s,id = Scl.SetID(130006036, "LordOfChain")
function s.initial_effect(c)
local e1 = Scl.CreateSingleBuffEffect(c, "Reveal", 1, "Hand")
local e2 = Scl.CreateQuickMandatoryEffect(c, "ActivateEffect", nil, nil, nil, nil, "Hand,MonsterZone", nil, nil, s.mixtg)
local e2 = Scl.CreateQuickMandatoryEffect(c, "ActivateEffect", nil, nil, nil, nil, "Hand,MonsterZone", nil, nil, s.mixtg, s.mixop)
if not s.chain_id_scl then
s.chain_id_scl = {}
end
end
function s.get_count(zone)
local ct = Duel.GetFieldGroupCount(0, zone, 0) - Duel.GetFieldGroupCount(0, 0, zone)
......@@ -11,22 +14,22 @@ function s.get_count(zone)
end
function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c = e:GetHandler()
local cct = Duel.GetCurrentChain()
local b1 = (c:IsOnField() or c:IsPublic()) and c:GetFlagEffect(id) < s.get_count(LOCATION_DECK)
local b2 = c:IsLocation(LOCATION_HAND) and c:GetFlagEffect(id + 100) == 0 and Duel.GetCurrentChain() > 2
local b2 = c:IsLocation(LOCATION_HAND) and c:GetFlagEffect(id + 100) == 0 and cct > 1
if chk == 0 then return b1 or b2 end
local op = b1 and 1 or 2
if b1 and b2 then
op = Scl.SelectOption(tp, true, "ChangeDEF", true, {id, 0})
end
--local op = b1 and 1 or 2
--if b1 and b2 then
--op = Scl.SelectOption(tp, true, "Damage", true, {id, 0})
--end
local op = b2 and 2 or 1
if op == 1 then
e:SetProperty(0)
e:SetCategory(CATEGORY_DEFCHANGE)
c:RegisterFlagEffect(id, RESET_CHAIN, 0, 1)
Duel.ChangeChainOperation(0,s.op1)
else
e:SetProperty(0)
c:RegisterFlagEffect(id + 100, RESET_CHAIN, 0, 1)
local cct = Duel.GetCurrentChain()
local ctgy = 0
if cct >= 3 then
ctgy = ctgy + CATEGORY_SPECIAL_SUMMON + CATEGORY_REMOVE
......@@ -38,40 +41,41 @@ function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
ctgy = ctgy + CATEGORY_DISABLE
end
e:SetCategory(ctgy)
Duel.ChangeChainOperation(0,s.op2)
end
e:SetLabel(op)
end
function s.op1(e,tp)
local g = Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
for tc in aux.Next(g) do
Scl.AddSingleBuff({e:GetHandler(),tc},"+DEF", -300)
end
s.chain_id_scl[cct] = op
end
function s.op2(e,tp)
local c = e:GetHandler()
function s.mixop(e,tp,eg,ep,ev,re,r,rp)
local cct = Duel.GetCurrentChain()
if cct >= 3 then
if c:IsRelateToChain(0) and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) > 0 then
local dg = Duel.GetDecktopGroup(1-tp, 3)
if #dg > 0 then
Duel.Remove(dg,POS_FACEDOWN,REASON_EFFECT)
local op = s.chain_id_scl[cct]
if op == 1 then
local g = Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
for tc in aux.Next(g) do
Scl.AddSingleBuff({e:GetHandler(),tc},"+DEF", -300)
end
else
local c = e:GetHandler()
if cct >= 3 then
if c:IsRelateToChain(0) and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) > 0 then
local dg = Duel.GetDecktopGroup(1-tp, 3)
if #dg > 0 then
Duel.Remove(dg,POS_FACEDOWN,REASON_EFFECT)
end
end
end
end
if cct >= 5 then
local f = function(tc)
return tc:IsFaceup() and tc:IsDefense(0)
if cct >= 5 then
local f = function(tc)
return tc:IsFaceup() and tc:IsDefense(0)
end
local g = Duel.GetMatchingGroup(f,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
if #g > 0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
end
end
local g = Duel.GetMatchingGroup(f,tp,LOCATION_MZONE,LOCATION_MZONE)
if #g > 0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
if cct >= 11 then
local e1 = Scl.CreateFieldTriggerContinousEffect({c, tp}, "BeforeEffectResolving", nil, nil, nil, nil, s.discon, s.disop, RESET_EP_SCL)
end
end
if cct >= 11 then
local e1 = Scl.CreateFieldTriggerContinousEffect({c, tp}, "BeforeEffectResolving", nil, nil, nil, nil, s.discon, s.disop, RESET_EP_SCL)
end
end
function s.discon(e,tp,eg,ep,ev,re)
return ev >= 2 and ep ~= tp
......
expansions/script/c130006037.lua
View file @ 1745db5f
......@@ -3,7 +3,10 @@ if not pcall(function() require("expansions/script/c130001000") end) then requir
local s,id = Scl.SetID(130006037, "LordOfChain")
function s.initial_effect(c)
local e1 = Scl.CreateSingleBuffEffect(c, "Reveal", 1, "Hand")
local e2 = Scl.CreateQuickMandatoryEffect(c, "ActivateEffect", nil, nil, nil, nil, "Hand,MonsterZone", nil, nil, s.mixtg)
local e2 = Scl.CreateQuickMandatoryEffect(c, "ActivateEffect", nil, nil, nil, nil, "Hand,MonsterZone", nil, nil, s.mixtg,s.mixop)
if not s.chain_id_scl then
s.chain_id_scl = {}
end
end
function s.get_count(zone)
local ct = Duel.GetFieldGroupCount(0, zone, 0) - Duel.GetFieldGroupCount(0, 0, zone)
......@@ -11,21 +14,21 @@ function s.get_count(zone)
end
function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c = e:GetHandler()
local cct = Duel.GetCurrentChain()
local b1 = (c:IsOnField() or c:IsPublic()) and c:GetFlagEffect(id) < s.get_count(LOCATION_GRAVE)
local b2 = c:IsLocation(LOCATION_HAND) and c:GetFlagEffect(id + 100) == 0 and Duel.GetCurrentChain() > 2
local b2 = c:IsLocation(LOCATION_HAND) and c:GetFlagEffect(id + 100) == 0 and cct > 1
if chk == 0 then return b1 or b2 end
local op = b1 and 1 or 2
if b1 and b2 then
op = Scl.SelectOption(tp, true, "ChangeATK", true, {id, 0})
end
--local op = b1 and 1 or 2
--if b1 and b2 then
--op = Scl.SelectOption(tp, true, "Damage", true, {id, 0})
--end
local op = b2 and 2 or 1
if op == 1 then
e:SetProperty(0)
e:SetCategory(CATEGORY_ATKCHANGE)
c:RegisterFlagEffect(id, RESET_CHAIN, 0, 1)
Duel.ChangeChainOperation(0,s.op1)
else
c:RegisterFlagEffect(id + 100, RESET_CHAIN, 0, 1)
local cct = Duel.GetCurrentChain()
local ctgy = 0
if cct >= 3 then
ctgy = ctgy + CATEGORY_SPECIAL_SUMMON + CATEGORY_REMOVE + CATEGORY_GRAVE_ACTION
......@@ -37,32 +40,34 @@ function s.mixtg(e,tp,eg,ep,ev,re,r,rp,chk)
ctgy = ctgy + CATEGORY_DISABLE
end
e:SetCategory(ctgy)
Duel.ChangeChainOperation(0,s.op2)
end
s.chain_id_scl[cct] = op
end
function s.op1(e,tp)
local g = Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
for tc in aux.Next(g) do
Scl.AddSingleBuff({e:GetHandler(),tc},"+ATK", 400)
end
end
function s.op2(e,tp)
local c = e:GetHandler()
function s.mixop(e,tp,eg,ep,ev,re,r,rp)
local cct = Duel.GetCurrentChain()
if cct >= 3 then
if c:IsRelateToChain(0) and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) > 0 then
Scl.SelectAndOperateCards("Banish", tp, Card.IsAbleToRemove, tp, "GY", "GY", 1, 1, nil)()
local op = s.chain_id_scl[cct]
if op == 1 then
local g = Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
for tc in aux.Next(g) do
Scl.AddSingleBuff({e:GetHandler(),tc},"+ATK", 400)
end
end
if cct >= 5 then
Scl.SelectAndOperateCards("SpecialSummon", tp, aux.NecroValleyFilter(Scl.IsCanBeSpecialSummonedNormaly2), tp, "GY", "GY", 1, 1, nil, e, tp)()
end
if cct >= 13 then
local f = function(te,tc)
return not Scl.IsSeries(tc, "LordOfChain")
else
local c = e:GetHandler()
if cct >= 3 then
if c:IsRelateToChain(0) and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) > 0 then
Scl.SelectAndOperateCards("Banish", tp, Card.IsAbleToRemove, tp, "GY", "GY", 1, 1, nil)()
end
end
if cct >= 5 then
Scl.SelectAndOperateCards("SpecialSummon", tp, aux.NecroValleyFilter(Scl.IsCanBeSpecialSummonedNormaly2), tp, "GY", "GY", 1, 1, nil, e, tp)()
end
if cct >= 13 then
local f = function(te,tc)
return not Scl.IsSeries(tc, "LordOfChain")
end
local e1 = Scl.CreateFieldBuffEffect({c, tp}, "NegateEffect", 1, f, {"OnField", "OnField"}, nil, nil, RESET_EP_SCL)
local e2 = Scl.CreateFieldBuffEffect({c, tp}, "=Name", 32274490, f, {"OnField", "OnField"}, nil, nil, RESET_EP_SCL)
end
local e1 = Scl.CreateFieldBuffEffect({c, tp}, "NegateEffect", 1, f, {"OnField", "OnField"}, nil, nil, RESET_EP_SCL)
local e2 = Scl.CreateFieldBuffEffect({c, tp}, "=Name", 32274490, f, {"OnField", "OnField"}, nil, nil, RESET_EP_SCL)
end
end
\ No newline at end of file
expansions/script/c130006038.lua
View file @ 1745db5f
......@@ -3,8 +3,8 @@ if not pcall(function() require("expansions/script/c130001000") end) then requir
local s,id = Scl.SetID(130006038, "LordOfChain")
function s.initial_effect(c)
local e1 = Scl.CreateActivateEffect(c, "FreeChain", nil, nil, "Send2GY,Draw", "!NegateEffect,!NegateActivation", s.con, nil,
{ { "~Target", "Send2GY", Card.IsAbleToGrave, 0, "OnField", s.ct },
{ "PlayerTarget", "Draw", s.ct} }, s.op)
{ {"~Target", "Send2GY", Card.IsAbleToGrave, 0, "OnField", s.ct },
{ "PlayerTarget", "Draw", s.ct } }, s.op)
local e2 = Scl.CreateQuickOptionalEffect(c, "ActivateEffect", "ShuffleIn2Deck", {1, id, "Chain"}, "ShuffleIn2Deck,AddFromDeck2Hand", nil, "Hand", s.scon, nil, s.stg,s.sop)
end
function s.ct(e,tp)
......@@ -12,7 +12,7 @@ function s.ct(e,tp)
return #g > 0 and 1 or 0
end
function s.con(e,tp)
return Duel.CheckPhaseActivity()
return Duel.GetCurrentPhase()==PHASE_MAIN1 and not Duel.CheckPhaseActivity()
end
function s.op(e,tp)
local g = Scl.GetMatchingGroup(Card.IsPublic, tp, "Hand", 0, nil)
......
expansions/script/c9910731.lua
View file @ 1745db5f
......@@ -60,6 +60,7 @@ function c9910731.conop(e,tp,eg,ep,ev,re,r,rp)
if sg:IsExists(Card.IsLocation,1,nil,LOCATION_HAND) then Duel.ShuffleHand(1-tp) end
local c=e:GetHandler()
for tc in aux.Next(sg) do
tc:RegisterFlagEffect(9910731,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,2,0,aux.Stringid(9910731,5))
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
......
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