fix

expansions/script/c10111169.lua

@@ -25,17 +25,13 @@ function c10111169.initial_effect(c)
 	e3:SetRange(LOCATION_MZONE)
 	e3:SetValue(c10111169.val)
 	c:RegisterEffect(e3)
-	--④ 动态效果组
+	--summon success
 	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetCode(EFFECT_ADD_CODE)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e4:SetValue(10111169) -- 用于触发攻击力变化时的效果更新
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e4:SetOperation(c10111169.regop)
 	c:RegisterEffect(e4)
-	
-	-- 注册所有动态效果
-	c10111169.immef(c)
 end
 function c10111169.ntcon(e,c,minc)
 	if c==nil then return true end
@@ -60,13 +56,18 @@ end
 function c10111169.filter(c)
 	return c:IsFaceup() and c:IsRace(RACE_MACHINE)
 end
+
 -- ④效果组注册函数
-function c10111169.immef(c)
+function c10111169.regop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+
     -- 战斗伤害0
     local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetType(EFFECT_TYPE_FIELD)
     e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
-	e1:SetCondition(c10111169.immcon1)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e1:SetTargetRange(1,0)
+    e1:SetCondition(c10111169.atkcon(3000)) -- 条件：攻击力≥3000
     e1:SetValue(1)
     e1:SetReset(RESET_EVENT+RESETS_STANDARD)
     c:RegisterEffect(e1)
@@ -75,7 +76,7 @@ function c10111169.immef(c)
     local e2=Effect.CreateEffect(c)
     e2:SetType(EFFECT_TYPE_SINGLE)
     e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	e2:SetCondition(c10111169.immcon2)
+    e2:SetCondition(c10111169.atkcon(3500)) -- 条件：攻击力≥3500
     e2:SetValue(1)
     e2:SetReset(RESET_EVENT+RESETS_STANDARD)
     c:RegisterEffect(e2)
@@ -84,43 +85,32 @@ function c10111169.immef(c)
     local e3=Effect.CreateEffect(c)
     e3:SetType(EFFECT_TYPE_SINGLE)
     e3:SetCode(EFFECT_PIERCE)
-	e3:SetCondition(c10111169.immcon3)
+    e3:SetCondition(c10111169.atkcon(4000)) -- 条件：攻击力≥4000
     e3:SetValue(1)
     e3:SetReset(RESET_EVENT+RESETS_STANDARD)
     c:RegisterEffect(e3)
 
-	-- 效果无效
+   -- 效果无效（4500以上）
     local e4=Effect.CreateEffect(c)
     e4:SetDescription(aux.Stringid(10111169,1))
     e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
     e4:SetType(EFFECT_TYPE_QUICK_O)
     e4:SetCode(EVENT_CHAINING)
     e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1)
-	e4:SetCondition(c10111169.immcon4)
+    e4:SetCountLimit(1) -- 1回合1次
+    e4:SetCondition(c10111169.atkcon(4500))
     e4:SetTarget(c10111169.distg)
     e4:SetOperation(c10111169.disop)
     e4:SetReset(RESET_EVENT+RESETS_STANDARD)
     c:RegisterEffect(e4)
 end
 
--- ④效果条件判断 --
-function c10111169.immcon1(e)
-	return e:GetHandler():GetAttack()>=3000
-end
-
-function c10111169.immcon2(e)
-	return e:GetHandler():GetAttack()>=3500
-end
-
-function c10111169.immcon3(e)
-	return e:GetHandler():GetAttack()>=4000
-end
-
-function c10111169.immcon4(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():GetAttack()>=4500 
-		and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) 
-		and Duel.IsChainNegatable(ev)
+-- 攻击力条件检查函数
+function c10111169.atkcon(val)
+    return function(e)
+        local c=e:GetHandler()
+        return c:IsAttackAbove(val)
+    end
 end
 
 -- 共用效果函数 --

expansions/script/c10111172.lua

+-- 卡号：10111172
 function c10111172.initial_effect(c)
 	aux.AddCodeList(c,10111169)
 	--atkup
@@ -6,7 +7,7 @@ function c10111172.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e1:SetCode(EFFECT_UPDATE_ATTACK)
 	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(c10111170.val)
+	e1:SetValue(c10111172.val)
 	c:RegisterEffect(e1)
 	--defup
 	local e2=e1:Clone()
@@ -34,7 +35,7 @@ function c10111172.initial_effect(c)
 	e4:SetValue(LOCATION_REMOVED)
 	c:RegisterEffect(e4)
 end
-function c10111170.val(e,c)
+function c10111172.val(e,c)
 	return Duel.GetMatchingGroupCount(c10111170.filter,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())*100
 end
 function c10111172.cfilter(c)

expansions/script/c28315443.lua

@@ -76,9 +76,13 @@ end
 function c28315443.lvop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	local g=Duel.GetMatchingGroup(c28315443.lvfilter,tp,LOCATION_MZONE,0,nil,c:GetLevel())
+	if #g==0 then return end
+	local tc=g:GetFirst()
+	if #g>1 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local tc=Duel.SelectMatchingCard(tp,c28315443.lvfilter,tp,LOCATION_MZONE,0,1,1,nil,c:GetLevel()):GetFirst()
-	if not tc then return end
+		tc=g:Select(tp,1,1,nil):GetFirst()
+	end
 	Duel.HintSelection(Group.FromCards(tc))
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c28315548.lua

@@ -77,9 +77,13 @@ end
 function c28315548.lvop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	local g=Duel.GetMatchingGroup(c28315548.lvfilter,tp,LOCATION_MZONE,0,nil,c:GetLevel())
+	if #g==0 then return end
+	local tc=g:GetFirst()
+	if #g>1 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local tc=Duel.SelectMatchingCard(tp,c28315548.lvfilter,tp,LOCATION_MZONE,0,1,1,nil,c:GetLevel()):GetFirst()
-	if not tc then return end
+		tc=g:Select(tp,1,1,nil):GetFirst()
+	end
 	Duel.HintSelection(Group.FromCards(tc))
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c28315746.lua

@@ -76,9 +76,13 @@ end
 function c28315746.lvop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	local g=Duel.GetMatchingGroup(c28315746.lvfilter,tp,LOCATION_MZONE,0,nil,c:GetLevel())
+	if #g==0 then return end
+	local tc=g:GetFirst()
+	if #g>1 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local tc=Duel.SelectMatchingCard(tp,c28315746.lvfilter,tp,LOCATION_MZONE,0,1,1,nil,c:GetLevel()):GetFirst()
-	if not tc then return end
+		tc=g:Select(tp,1,1,nil):GetFirst()
+	end
 	Duel.HintSelection(Group.FromCards(tc))
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c33300754.lua

@@ -78,7 +78,7 @@ function s.damop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if c:IsRelateToEffect(e) then
 		Duel.SendtoHand(c,nil,REASON_EFFECT)
-		Duel.ConfirmCards(c)
+		Duel.ConfirmCards(1-tp,c)
 		local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
 		local tc=eg:GetFirst()
 		local atk=tc:GetAttack()/2

expansions/script/c33300760.lua

@@ -61,6 +61,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
 	if #g then
+		local tc=g:GetFirst()
 		Duel.SpecialSummonStep(g,0,tp,tp,false,false,POS_FACEUP)
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c53718013.lua

@@ -15,7 +15,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_CHAINING)
 	e2:SetRange(LOCATION_GRAVE)

expansions/script/c53718014.lua

@@ -15,7 +15,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_CHAINING)
 	e2:SetRange(LOCATION_GRAVE)

expansions/script/c53718015.lua

@@ -15,7 +15,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_CHAINING)
 	e2:SetRange(LOCATION_GRAVE)

expansions/script/c53718016.lua

@@ -14,7 +14,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_CHAINING)
 	e2:SetRange(LOCATION_GRAVE)

expansions/script/c60002404.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_ACTIVATING)
+	e1:SetCode(EVENT_CUSTOM+m)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.spop)
@@ -12,7 +12,6 @@ function cm.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e1:SetCode(EVENT_CHAIN_END)
 	e1:SetRange(LOCATION_MZONE)
-	--e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.bkop)
 	c:RegisterEffect(e1)
 	if not cm.global_check then
@@ -22,12 +21,22 @@ function cm.initial_effect(c)
 		ge1:SetCode(EVENT_CHAINING)
 		ge1:SetOperation(cm.checkop)
 		Duel.RegisterEffect(ge1,0)
+		local ge2=Effect.CreateEffect(c)
+		ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge2:SetCode(EVENT_CHAIN_ACTIVATING)
+		ge2:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
+		ge2:SetOperation(cm.chkop)
+		Duel.RegisterEffect(ge2,0)
 	end
 end
 function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
 	--local tp=e:GetHandlerPlayer()
 	Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1)
 end
+function cm.chkop(e,tp,eg,ep,ev,re,r,rp)
+	--if not e:GetHandler():IsOnField() then return end
+	Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+m,e,r,rp,ep,ev)
+end
 function cm.filter(c,tp)
 	local mg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,TYPE_MONSTER)
 	return c:IsSynchroSummonable(nil,mg)

expansions/script/c60002405.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_ACTIVATING)
+	e1:SetCode(EVENT_CUSTOM+m)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.spop)
@@ -12,7 +12,6 @@ function cm.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e1:SetCode(EVENT_CHAIN_END)
 	e1:SetRange(LOCATION_MZONE)
-	--e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.bkop)
 	c:RegisterEffect(e1)
 	if not cm.global_check then
@@ -22,12 +21,22 @@ function cm.initial_effect(c)
 		ge1:SetCode(EVENT_CHAINING)
 		ge1:SetOperation(cm.checkop)
 		Duel.RegisterEffect(ge1,0)
+		local ge2=Effect.CreateEffect(c)
+		ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge2:SetCode(EVENT_CHAIN_ACTIVATING)
+		ge2:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
+		ge2:SetOperation(cm.chkop)
+		Duel.RegisterEffect(ge2,0)
 	end
 end
 function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
 	--local tp=e:GetHandlerPlayer()
 	Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1)
 end
+function cm.chkop(e,tp,eg,ep,ev,re,r,rp)
+	--if not e:GetHandler():IsOnField() then return end
+	Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+m,e,r,rp,ep,ev)
+end
 function cm.filter(c,tp)
 	local mg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,TYPE_MONSTER)
 	return c:IsSynchroSummonable(nil,mg)

expansions/script/c60002406.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_ACTIVATING)
+	e1:SetCode(EVENT_CUSTOM+m)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.spop)
@@ -12,7 +12,6 @@ function cm.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e1:SetCode(EVENT_CHAIN_END)
 	e1:SetRange(LOCATION_MZONE)
-	--e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.bkop)
 	c:RegisterEffect(e1)
 	if not cm.global_check then
@@ -22,12 +21,22 @@ function cm.initial_effect(c)
 		ge1:SetCode(EVENT_CHAINING)
 		ge1:SetOperation(cm.checkop)
 		Duel.RegisterEffect(ge1,0)
+		local ge2=Effect.CreateEffect(c)
+		ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge2:SetCode(EVENT_CHAIN_ACTIVATING)
+		ge2:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
+		ge2:SetOperation(cm.chkop)
+		Duel.RegisterEffect(ge2,0)
 	end
 end
 function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
 	--local tp=e:GetHandlerPlayer()
 	Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1)
 end
+function cm.chkop(e,tp,eg,ep,ev,re,r,rp)
+	--if not e:GetHandler():IsOnField() then return end
+	Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+m,e,r,rp,ep,ev)
+end
 function cm.filter(c,tp)
 	local mg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,TYPE_MONSTER)
 	return c:IsSynchroSummonable(nil,mg)

expansions/script/c60002407.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_ACTIVATING)
+	e1:SetCode(EVENT_CUSTOM+m)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.spop)
@@ -12,7 +12,6 @@ function cm.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e1:SetCode(EVENT_CHAIN_END)
 	e1:SetRange(LOCATION_MZONE)
-	--e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.bkop)
 	c:RegisterEffect(e1)
 	if not cm.global_check then
@@ -22,12 +21,22 @@ function cm.initial_effect(c)
 		ge1:SetCode(EVENT_CHAINING)
 		ge1:SetOperation(cm.checkop)
 		Duel.RegisterEffect(ge1,0)
+		local ge2=Effect.CreateEffect(c)
+		ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge2:SetCode(EVENT_CHAIN_ACTIVATING)
+		ge2:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
+		ge2:SetOperation(cm.chkop)
+		Duel.RegisterEffect(ge2,0)
 	end
 end
 function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
 	--local tp=e:GetHandlerPlayer()
 	Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1)
 end
+function cm.chkop(e,tp,eg,ep,ev,re,r,rp)
+	--if not e:GetHandler():IsOnField() then return end
+	Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+m,e,r,rp,ep,ev)
+end
 function cm.filter(c,tp)
 	local mg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,TYPE_MONSTER)
 	return c:IsSynchroSummonable(nil,mg)

expansions/script/c60002408.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_ACTIVATING)
+	e1:SetCode(EVENT_CUSTOM+m)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.spop)
@@ -12,7 +12,6 @@ function cm.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e1:SetCode(EVENT_CHAIN_END)
 	e1:SetRange(LOCATION_MZONE)
-	--e1:SetCondition(cm.spcon)
 	e1:SetOperation(cm.bkop)
 	c:RegisterEffect(e1)
 	if not cm.global_check then
@@ -22,12 +21,22 @@ function cm.initial_effect(c)
 		ge1:SetCode(EVENT_CHAINING)
 		ge1:SetOperation(cm.checkop)
 		Duel.RegisterEffect(ge1,0)
+		local ge2=Effect.CreateEffect(c)
+		ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge2:SetCode(EVENT_CHAIN_ACTIVATING)
+		ge2:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
+		ge2:SetOperation(cm.chkop)
+		Duel.RegisterEffect(ge2,0)
 	end
 end
 function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
 	--local tp=e:GetHandlerPlayer()
 	Duel.RegisterFlagEffect(0,m,RESET_CHAIN,0,1)
 end
+function cm.chkop(e,tp,eg,ep,ev,re,r,rp)
+	--if not e:GetHandler():IsOnField() then return end
+	Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+m,e,r,rp,ep,ev)
+end
 function cm.filter(c,tp)
 	local mg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,TYPE_MONSTER)
 	return c:IsSynchroSummonable(nil,mg)