Fix The Man with the Mark

script/c100237001.lua

@@ -16,42 +16,32 @@ function s.initial_effect(c)
 	local e2=e1:Clone()
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	c:RegisterEffect(e2)
-	--indes
+	--monster indes
 	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
+	e3:SetType(EFFECT_TYPE_FIELD)
 	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(LOCATION_MZONE,0)
 	e3:SetCondition(s.indcon)
+	e3:SetTarget(s.indtg)
 	e3:SetValue(1)
 	c:RegisterEffect(e3)
 	local e4=e3:Clone()
 	e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
 	c:RegisterEffect(e4)
+	--indes
 	local e5=Effect.CreateEffect(c)
 	e5:SetType(EFFECT_TYPE_FIELD)
-	e5:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
 	e5:SetRange(LOCATION_MZONE)
-	e5:SetTargetRange(LOCATION_MZONE,0)
-	e5:SetCondition(s.indcon)
-	e5:SetTarget(s.indtg)
+	e5:SetTargetRange(LOCATION_ONFIELD,0)
+	e5:SetTarget(s.indtg2)
 	e5:SetValue(1)
 	c:RegisterEffect(e5)
-	local e6=e5:Clone()
-	e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	c:RegisterEffect(e6)
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_FIELD)
-	e7:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	e7:SetRange(LOCATION_MZONE)
-	e7:SetTargetRange(LOCATION_ONFIELD,0)
-	e7:SetCondition(s.indcon)
-	e7:SetTarget(s.indtg2)
-	e7:SetValue(1)
-	c:RegisterEffect(e7)
 end
 function s.thfilter(c)
-	return (c:IsCode(29762407) or aux.IsCodeListed(c,29762407) and c:IsType(TYPE_SPELL+TYPE_TRAP)) and (c:IsAbleToHand() or c:IsAbleToGrave())
+	return (c:IsCode(29762407) or aux.IsCodeListed(c,29762407) and c:IsType(TYPE_SPELL+TYPE_TRAP))
+		and (c:IsAbleToHand() or c:IsAbleToGrave())
 end
 function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
@@ -64,15 +54,15 @@ function s.thop(e,tp,eg,ep,ev,re,r,rp)
 	if tc:IsAbleToHand() and (not tc:IsAbleToGrave() or Duel.SelectOption(tp,1190,1191)==0) then
 		Duel.SendtoHand(tc,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,tc)
-	else
+	elseif tc:IsAbleToGrave() then
 		Duel.SendtoGrave(tc,REASON_EFFECT)
 	end
 end
 function s.indcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(aux.AND(Card.IsFaceup,Card.IsCode),tp,LOCATION_ONFIELD,0,1,nil,29762407)
+	return Duel.IsExistingMatchingCard(aux.AND(Card.IsFaceup,Card.IsCode),e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil,29762407)
 end
 function s.indtg(e,c)
-	return c:IsSetCard(0x2c9)
+	return c:IsSetCard(0x2c9) or e:GetHandler()==c
 end
 function s.indtg2(e,c)
 	return c:IsCode(29762407)