Update c13391185.lua

script/c13391185.lua

@@ -4,23 +4,27 @@ function c13391185.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_CHANGE_TYPE)
+	e1:SetCode(EFFECT_ADD_TYPE)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCondition(c13391185.eqcon1)
-	e1:SetValue(TYPE_NORMAL+TYPE_MONSTER)
+	e1:SetValue(TYPE_NORMAL)
 	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(13391185,0))
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,13391185)
-	e2:SetCondition(c13391185.thcon)
-	e2:SetTarget(c13391185.thtg)
-	e2:SetOperation(c13391185.thop)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_REMOVE_TYPE)
+	e2:SetValue(TYPE_EFFECT)
 	c:RegisterEffect(e2)
+	--tohand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(13391185,0))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,13391185)
+	e3:SetCondition(c13391185.thcon)
+	e3:SetTarget(c13391185.thtg)
+	e3:SetOperation(c13391185.thop)
+	c:RegisterEffect(e3)
 end
 function c13391185.eqcon1(e)
 	local eg=e:GetHandler():GetEquipGroup()