fix

expansions/script/c12847300.lua

@@ -63,6 +63,11 @@ function s.chop(e,tp,eg,ep,ev,re,r,rp)
 	end
 	c:SetEntityCode(89631139)
 	if not c:IsLocation(LOCATION_HAND) then Duel.ConfirmCards(tp,c) end
+	if Duel.GetMatchingGroupCount(Card.IsOriginalCodeRule,tp,0xff,0,nil,89631139)>3 then	
+		Debug.Message("因违反卡组只能投入三张同名卡的规则而判负")
+		local WIN_REASON_CREATORGOD=0x13
+		Duel.Win(1-tp,WIN_REASON_CREATORGOD)
+	end
 end
 function s.thfilter(c)
 	return (c:IsCode(89631139) or aux.IsCodeListed(c,89631139))

expansions/script/c65813000.lua

@@ -94,7 +94,7 @@ function s.filter(c,tc)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) then return end
+	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) or not c:IsRelateToEffect(e) then return end
 	c:AddMonsterAttribute(TYPE_EFFECT)
 	if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,c) and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
 		Duel.BreakEffect()

expansions/script/c65813005.lua

@@ -97,7 +97,7 @@ function s.filter1(c)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) then return end
+	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) or not c:IsRelateToEffect(e) then return end
 	c:AddMonsterAttribute(TYPE_EFFECT)
 	if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,c) and Duel.IsExistingMatchingCard(s.filter1,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
 		Duel.BreakEffect()

expansions/script/c65813010.lua

@@ -97,7 +97,7 @@ function s.filter1(c)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) then return end
+	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) or not c:IsRelateToEffect(e) then return end
 	c:AddMonsterAttribute(TYPE_EFFECT)
 	if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,c) and Duel.IsExistingMatchingCard(s.filter1,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,nil,c) and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
 		Duel.BreakEffect()

expansions/script/c65813015.lua

@@ -100,7 +100,7 @@ function s.filter1(c,tc)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) then return end
+	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) or not c:IsRelateToEffect(e) then return end
 	c:AddMonsterAttribute(TYPE_EFFECT)
 	if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,c) and Duel.IsExistingMatchingCard(s.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,c) and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
 		Duel.BreakEffect()

expansions/script/c65813020.lua

@@ -100,7 +100,7 @@ function s.filter1(c,tc)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) then return end
+	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) or not c:IsRelateToEffect(e) then return end
 	c:AddMonsterAttribute(TYPE_EFFECT)
 	if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,c) and Duel.IsExistingMatchingCard(s.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,c) and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
 		Duel.BreakEffect()

expansions/script/c65813025.lua

@@ -100,7 +100,7 @@ function s.filter1(c)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) then return end
+	if not Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_NORMAL_TRAP_MONSTER,2000,2000,2,RACE_MACHINE,ATTRIBUTE_EARTH) or not c:IsRelateToEffect(e) then return end
 	c:AddMonsterAttribute(TYPE_EFFECT)
 	if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,c) and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(s.filter1),tp,LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_GRAVE+LOCATION_REMOVED,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
 		Duel.BreakEffect()