eme

expansions/script/c33701377.lua

@@ -14,12 +14,12 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	Duel.SetLP(1-tp,Duel.GetLP(1-tp)*4)
 	local t2=Duel.IsPlayerCanDraw(tp)
 	local op=0
-	local m1={}
+	local m={}
 	local n={}
 	local ct=1
-	m1[ct]=aux.Stringid(m,0) n[ct]=1 ct=ct+1
-	if t2 then m1[ct]=aux.Stringid(m,1) n[ct]=2 ct=ct+1 end
-	local sp=Duel.SelectOption(tp,table.unpack(m1))
+	m[ct]=aux.Stringid(m,0) n[ct]=1 ct=ct+1
+	if t2 then m[ct]=aux.Stringid(m,1) n[ct]=2 ct=ct+1 end
+	local sp=Duel.SelectOption(1-tp,table.unpack(m))
 	op=n[sp+1]
 	Duel.BreakEffect()
 	if op==1 then
@@ -31,7 +31,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetTargetRange(0,1)
 		e1:SetValue(cm.damval)
 		Duel.RegisterEffect(e1,tp)
-	elseif op==2 then
+	else op==2 then
 		Duel.Draw(tp,3,REASON_EFFECT)
 	end
 end

expansions/script/c33711106.lua

@@ -69,7 +69,7 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then return c:IsLocation(LOCATION_HAND+LOCATION_GRAVE)
 		and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-	Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+	Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,false)
 	c:CreateEffectRelation(e)
 end
 function cm.mtop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c9300002.lua

 --无限魔力宝石
 function c9300002.initial_effect(c)
+	aux.AddCodeList(c,9300002)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)

expansions/script/c9310002.lua

@@ -3,11 +3,11 @@ function c9310002.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:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCountLimit(1,9310002+EFFECT_COUNT_CODE_OATH)
-	e1:SetCondition(c9310002.spcon)
+	e1:SetCondition(c9310002.sprcon)
 	c:RegisterEffect(e1)
 	--nontuner
 	local e2=Effect.CreateEffect(c)
@@ -24,7 +24,7 @@ function c9310002.initial_effect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
 	e3:SetCode(EVENT_BE_MATERIAL)
-	e3:SetCountLimit(2,9310002)
+	e3:SetCountLimit(2,9311002)
 	e3:SetCondition(c9310002.drcon)
 	e3:SetTarget(c9310002.thtg)
 	e3:SetOperation(c9310002.thop)
@@ -32,11 +32,14 @@ function c9310002.initial_effect(c)
 end
 c9310002.setname="Devildiocese"
 function c9310002.cfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_TUNER) and aux.AtkEqualsDef(c)
+	return c:IsFacedown() or not (c:IsType(TYPE_TUNER) and aux.AtkEqualsDef(c))
 end
-function c9310002.spcon(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
-	return #g>0 and #g==Duel.GetMatchingGroupCount(c9310002.cfilter,tp,LOCATION_MZONE,0,1,nil)
+function c9310002.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0
+		and not Duel.IsExistingMatchingCard(c9310002.cfilter,tp,LOCATION_MZONE,0,1,nil)
 end
 function c9310002.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0