eme

expansions/script/c33503201.lua

@@ -53,7 +53,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	if c:IsRelateToEffect(e) then
 		if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
 			local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
-			if #g>0 and Duel.SelectEffectYesNo(tp,aux.Stringid(m,1)) then
+			if #g>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
 				local sg=g:Select(tp,1,1,nil)
 				Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
 			else

expansions/script/c34501310.lua

@@ -72,8 +72,7 @@ function cm.disop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function cm.ddcon(e,tp,eg,ep,ev,re,r,rp)
-	local tp=GetOwner():GetHandler()
-	return Duel.GetCurrentPhase()~=PHASE_DRAW and tp~=ep
+	return Duel.GetCurrentPhase()~=PHASE_DRAW 
 end
 function cm.ddtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end

expansions/script/c40010050.lua

@@ -2,6 +2,7 @@
 local m=40010050
 local cm=_G["c"..m]
 cm.named_with_Revenger=1
+cm.named_with_Reverse=1
 function cm.Revenger(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.named_with_Revenger

expansions/script/c40010052.lua

@@ -74,7 +74,7 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	local g1=Duel.SelectMatchingCard(tp,cm.cfilter2,tp,loc,0,4,4,nil)
 	local g2=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_MZONE,nil)
 	if g1:GetCount()>0 and Duel.Release(g1,REASON_EFFECT)>0 and g2:GetCount()>0   then
-		Duel.SendtoGrave(g,REASON_EFFECT)
+		Duel.SendtoGrave(g2,REASON_EFFECT)
 		local sg=Duel.GetMatchingGroup(cm.sspfilter2,tp,LOCATION_DECK,0,nil,e,tp)
 		if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
 			Duel.BreakEffect()

expansions/script/c40010054.lua

@@ -11,9 +11,8 @@ end
 function cm.initial_effect(c)
 	--tohand
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_RELEASE+CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TOGRAVE)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
 	e1:SetCountLimit(1,m)
 	e1:SetCondition(cm.thcon)
@@ -34,9 +33,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)	  
 end
 function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
-	local tc=re:GetHandler()
-	return e:GetHandler():IsReason(REASON_EFFECT) and re:IsActiveType(TYPE_MONSTER)
-		and cm.Revenger(tc)
+	return re and re:GetHandler().named_with_Revenger
 end
 function cm.thfilter(c)
 	return cm.Revenger(c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsCode(m)
@@ -44,27 +41,38 @@ end
 function cm.rfilter(c)
 	return c:IsType(TYPE_MONSTER) and c:IsReleasableByEffect()
 end
-function cm.tgfilter(c)
-	return c:IsAbleToGrave()
-end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local b1=Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil)
-	local b2=Duel.IsExistingMatchingCard(cm.rfilter,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_MZONE,0,1,nil)
+	local b2=Duel.IsExistingMatchingCard(cm.rfilter,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,1,nil)
 	if chk==0 then return b1 or b2 end
-	local op=0
-	if b1 and b2 then op=Duel.SelectOption(tp,aux.Stringid(m,0),aux.Stringid(m,1))
-	elseif b1 then op=Duel.SelectOption(tp,aux.Stringid(m,0))
-	else op=Duel.SelectOption(tp,aux.Stringid(m,1))+1 end
-	e:SetLabel(op)
-	if op==0 then
+	local off=1
+	local ops,opval={},{}
+	if b1 then
+		ops[off]=aux.Stringid(m,0)
+		opval[off]=0
+		off=off+1
+	end
+	if b2 then
+		ops[off]=aux.Stringid(m,1)
+		opval[off]=1
+		off=off+1
+	end
+	local op=Duel.SelectOption(tp,table.unpack(ops))+1
+	local sel=opval[op]
+	e:SetLabel(sel)
+	if sel==0 then
+		e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 	else
+		e:SetCategory(CATEGORY_RELEASE+CATEGORY_TOGRAVE)
 		Duel.SetOperationInfo(0,CATEGORY_RELEASE,nil,1,0,0)
-		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+		Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_ONFIELD)
 	end
 end
 function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetLabel()==0 then
+	local c=e:GetHandler()
+	local sel=e:GetLabel()
+	if sel==0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 		local g1=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
 		if g1:GetCount()>0 then
@@ -76,7 +84,7 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 		local g2=Duel.SelectMatchingCard(tp,cm.rfilter,tp,LOCATION_HAND,0,1,1)
 		if g2:GetCount()>0 and Duel.Release(g2,REASON_EFFECT)>0 then
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-			local g3=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,0,LOCATION_MZONE,1,1,nil)
+			local g3=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,1,1,nil)
 			Duel.HintSelection(g3)
 			Duel.SendtoGrave(g3,REASON_EFFECT)
 		end

expansions/script/c40010056.lua

@@ -34,8 +34,10 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
 	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,2,2,nil)
-	if g:GetCount()>0 and Duel.Release(g,REASON_EFFECT)>0 and c:IsRelateToEffect(e) then
-		Duel.SendtoHand(c,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,c)
+	if g:GetCount()>0 and Duel.Release(g,REASON_EFFECT) then
+		if c:IsRelateToEffect(e) then
+			Duel.SendtoHand(c,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,c)
+		end
 	end
 end
\ No newline at end of file

expansions/script/c40010060.lua

@@ -35,7 +35,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)	
 end
 function cm.cfilter(c)
-	return (c:IsFaceup() or c:IsLocation(LOCATION_HAND)) and cm.Revenger(c) and c:IsType(TYPE_MONSTER) and c:IsReleasableByEffect()
+	return (c:IsFaceup() or c:IsLocation(LOCATION_HAND)) and (cm.Revenger(c) or c:IsCode(40010072)) and c:IsType(TYPE_MONSTER) and c:IsReleasableByEffect()
 end
 function cm.spfilter(c,e,tp)
 	return cm.Revenger(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(m)

expansions/script/c40010064.lua

@@ -35,7 +35,7 @@ function cm.initial_effect(c)
 	
 end
 function cm.cfilter(c,tp)
-	return c:IsFaceup() and cm.Revenger(c) and c:IsControler(tp) and c:IsOnField()
+	return c:IsFaceup() and (cm.Revenger(c) or c:IsCode(40010072)) and c:IsControler(tp) and c:IsOnField()
 end
 function cm.discon(e,tp,eg,ep,ev,re,r,rp)
 	if not (rp==1-tp and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET)) then return false end
@@ -59,7 +59,7 @@ function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
 	return bit.band(r,REASON_EFFECT)~=0
 end
 function cm.thfilter(c)
-	return cm.Revenger(c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsCode(m)
+	return cm.Revenger(c) and c:IsAbleToHand() and not c:IsCode(m)
 end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end

expansions/script/c40010066.lua

@@ -38,29 +38,31 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2) 
 end
 function cm.cfilter(c,tp)
-	return c:IsFaceup() and (cm.Revenger(c) or cm.BLASTERdark(c)) and c:IsControler(tp)
+	return c:IsFaceup() and ((cm.Revenger(c) or c:IsCode(40010072)) or cm.BLASTERdark(c)) and c:IsControler(tp)
 end
 function cm.setcon(e,tp,eg,ep,ev,re,r,rp)
 	return not eg:IsContains(e:GetHandler()) and eg:IsExists(cm.cfilter,1,nil,tp)
 end
 function cm.setfilter(c)
-	return cm.Revenger(c) and c:IsType(TYPE_TRAP+TYPE_SPELL) and c:IsSSetable()
+	return cm.Revenger(c) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
 end
 function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK,0,1,nil) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK,0,1,nil) end
 end
 function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
 	local g=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SSet(tp,g:GetFirst())
+	if #g>0 then
+		Duel.SSet(tp,g)
 	end
 end
 function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
 	return bit.band(r,REASON_EFFECT)~=0
 end
 function cm.filter(c)
-	return c:IsFaceup() and cm.Revenger(c)
+	return c:IsFaceup() and (cm.Revenger(c) or c:IsCode(40010072))
 end
 function cm.spfilter(c,e,tp)
 	return cm.Revenger(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c40010068.lua

@@ -35,7 +35,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)   
 end
 function cm.refilter(c)
-	return c:IsFaceup() and cm.Revenger(c) and c:IsReleasableByEffect()
+	return c:IsFaceup() and (cm.Revenger(c) or c:IsCode(40010072)) and c:IsReleasableByEffect()
 end
 function cm.retg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return false end

expansions/script/c40010070.lua

@@ -7,7 +7,7 @@ function cm.Revenger(c)
 	return m and m.named_with_Revenger
 end
 function cm.initial_effect(c)
-	c:EnableCounterPermit(0x5d)
+	c:EnableCounterPermit(0x588)
 	--activate
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_ACTIVATE)

expansions/script/c85400000.lua

@@ -39,6 +39,7 @@ function c85400000.initial_effect(c)
 	e4:SetProperty(EFFECT_FLAG_BOTH_SIDE)
 	e4:SetCondition(c85400000.ccdd)
 	e4:SetTarget(c85400000.cc)
+	e4:SetOperation(c85400000.ccc)
 	c:RegisterEffect(e4)
 ------破坏场上的「一块布丁」
 	local e5=Effect.CreateEffect(c)
@@ -166,8 +167,11 @@ function c85400000.bb(e,tp,eg,ep,ev,re,r,rp)
 end
 
 function c85400000.cc(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
 	if chk==0 then return Duel.IsExistingMatchingCard(c85400000.fil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,0)
+end
+function c85400000.ccc(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
 	local g=Duel.SelectMatchingCard(tp,c85400000.fil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
 	local ct=Duel.Destroy(g,REASON_EFFECT)
 	Duel.Hint(HINT_SOUND,0,aux.Stringid(85400000,4))

expansions/script/c85401890.lua

@@ -64,7 +64,7 @@ function c85401890.initial_effect(c)
 	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
 	e7:SetCode(EVENT_LEAVE_FIELD_P)
 	e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e7:SetRange(LOCATION_MZONE)
+	e7:SetRange(LOCATION_FZONE)
 	e7:SetOperation(c85401890.damp)
 	c:RegisterEffect(e7)
 ------离场前获得指示物数量