fix

expansions/script/c1000811.lua

@@ -161,7 +161,7 @@ function c1000811.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SendtoDeck(g,nil,2,REASON_COST)
 end
 function c1000811.bfilter(c,e,tp)
-	return c:IsCode(1000827) and c:IsCanBeSpecialSummoned(e,0,tp,true,true)
+	return c:IsCode(1000813) and c:IsCanBeSpecialSummoned(e,0,tp,true,true)
 end
 function c1000811.tgtarget(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetMZoneCount(tp)>0

expansions/script/c1000813.lua

@@ -59,7 +59,7 @@ function c1000813.spop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c1000813.val(e,re)
-	return c:IsType(TYPE_MONSTER) and e:GetOwnerPlayer()~=re:GetOwnerPlayer()
+	return e:IsActiveType(TYPE_MONSTER) and e:GetOwnerPlayer()~=re:GetOwnerPlayer()
 end
 function c1000813.aatkcon(e)
 	return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil,1000804)

expansions/script/c1000819.lua

 --悲叹的罗蕾莱
 function c1000819.initial_effect(c)
 	--FUSION
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+ local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,51105)
-	e1:SetTarget(c1000819.tg)
-	e1:SetOperation(c1000819.op)
+	e1:SetCode(EVENT_FREE_CHAIN) 
+	e1:SetCountLimit(1,1000819+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c1000819.target)
+	e1:SetOperation(c1000819.activate)
 	c:RegisterEffect(e1)
 end
 function c1000819.filter0(c)
@@ -17,17 +17,17 @@ function c1000819.filter1(c,e)
 	return c:IsOnField() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
 end
 function c1000819.filter2(c,e,tp,m,f,chkf)
-	return c:IsType(TYPE_FUSION) and c:IsSetCard(0x5204) and (not f or f(c))
+	return c:IsType(TYPE_FUSION) and c:IsSetCard(0x3204) and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
 end
 function c1000819.filter3(c)
 	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove()
 end
-function c1000819.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+function c1000819.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local chkf=tp
-		local mg1=Duel.GetFusionMaterial(tp):Filter(c1000819.filter0,nil)
-		local mg2=Duel.GetMatchingGroup(c1000819.filter3,tp,LOCATION_GRAVE+LOCATION_HAND,0,nil)
+		local mg1=Duel.GetFusionMaterial(tp)
+		local mg2=Duel.GetMatchingGroup(c1000819.filter3,tp,LOCATION_GRAVE,0,nil)
 		mg1:Merge(mg2)
 		local res=Duel.IsExistingMatchingCard(c1000819.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
 		if not res then
@@ -42,11 +42,12 @@ function c1000819.tg(e,tp,eg,ep,ev,re,r,rp,chk)
 		return res
 	end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_HAND+ LOCATION_ONFIELD+LOCATION_GRAVE)
 end
-function c1000819.op(e,tp,eg,ep,ev,re,r,rp)
+function c1000819.activate(e,tp,eg,ep,ev,re,r,rp)
 	local chkf=tp
-	local mg1=Duel.GetFusionMaterial(tp):Filter(c1000819.filter1,nil,e)
-	local mg2=Duel.GetMatchingGroup(c1000819.filter3,tp,LOCATION_GRAVE+LOCATION_HAND,0,nil)
+	local mg1=Duel.GetFusionMaterial(tp)
+	local mg2=Duel.GetMatchingGroup(c1000819.filter3,tp,LOCATION_GRAVE,0,nil)
 	mg1:Merge(mg2)
 	local sg1=Duel.GetMatchingGroup(c1000819.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
 	local mg3=nil
@@ -76,7 +77,7 @@ function c1000819.op(e,tp,eg,ep,ev,re,r,rp)
 			fop(ce,e,tp,tc,mat2)
 		end
 		tc:CompleteProcedure()
-		Duel.BreakEffect()
+		 Duel.BreakEffect()
 		Duel.SetLP(tp,Duel.GetLP(tp)-2000)
 	end
 end
\ No newline at end of file

expansions/script/c33330109.lua

@@ -67,7 +67,7 @@ function cm.setop(e,tp,eg,ep,ev,re,r,rp)
 	local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
 	local st=math.floor(ev/500)
 	if ft<=0 then return end
-	rsop.SelectSolve(HINTMSG_SET,tp,cm.setfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,math.min(ft,st,1),nil,cm.setfun,tp)
+	rsop.SelectSolve(HINTMSG_SET,tp,cm.setfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,math.min(ft,st),nil,cm.setfun,tp)
 end
 function cm.setfun(g,tp)
 	Duel.SSet(tp,g)

expansions/script/c81013038.lua

@@ -5,7 +5,7 @@ xpcall(function() require("expansions/script/c81000000") end,function() require(
 function cm.initial_effect(c)
 	Tenka.ArisaB(c)
 	--xyz summon
-	aux.AddXyzProcedure(c,nil,3,2)
+	aux.AddXyzProcedure(c,nil,2,2)
 	c:EnableReviveLimit()
 	--Destroy
 	local e1=Effect.CreateEffect(c)