refactor and fix by kiritosoft

Signed-off-by: wyykak <wyy_1414@126.com>

script/c74563608.lua

@@ -60,13 +60,9 @@ function c74563608.cost1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
 		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_ONFIELD+LOCATION_HAND,0,2,2,e:GetHandler())
 		Duel.Remove(g,POS_FACEUP,REASON_COST)
-	else
-		if Duel.IsPlayerAffectedByEffect(tp,74563666) then
-			Duel.PayLPCost(tp,666)
 	else
 			Duel.PayLPCost(tp,3666)
 	end
-	end
 end
 function c74563608.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chk==0 then

script/c74563609.lua

@@ -61,13 +61,9 @@ function c74563609.cost1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
 		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_ONFIELD+LOCATION_HAND,0,2,2,e:GetHandler())
 		Duel.Remove(g,POS_FACEUP,REASON_COST)
-	else
-		if Duel.IsPlayerAffectedByEffect(tp,74563666) then
-			Duel.PayLPCost(tp,666)
 	else
 			Duel.PayLPCost(tp,3666)
 	end
-	end
 end
 function c74563609.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local rg=Duel.GetDecktopGroup(1-tp,1)

script/c74563610.lua

@@ -60,13 +60,9 @@ function c74563610.cost1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
 		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_ONFIELD+LOCATION_HAND,0,2,2,e:GetHandler())
 		Duel.Remove(g,POS_FACEUP,REASON_COST)
-	else
-		if Duel.IsPlayerAffectedByEffect(tp,74563666) then
-			Duel.PayLPCost(tp,666)
 	else
 			Duel.PayLPCost(tp,3666)
 	end
-	end
 end
 function c74563610.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end

script/c74563666.lua

 --冰狱之王·撒旦
 function c74563666.initial_effect(c)
-	--change cost
+	--Cost Change
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_LPCOST_CHANGE)
 	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetCode(74563666)
 	e2:SetRange(LOCATION_MZONE)
 	e2:SetTargetRange(1,0)
+	e2:SetValue(c74563666.costchange)
 	c:RegisterEffect(e2)  
 	--special summon
 	local e1=Effect.CreateEffect(c)
@@ -40,6 +41,13 @@ function c74563666.initial_effect(c)
 	e2:SetOperation(c74563666.cpop)
 	c:RegisterEffect(e2)
 end
+function c74563666.costchange(e,re,rp,val)
+	if re and re:GetHandler():IsSetCard(0x996) then
+		return 666
+	else
+		return val
+	end
+end
 function c74563666.sprfilter(c)
 	return (c:IsRank(6) or c:IsLevel(6) or c:IsLink(6)) and c:IsAbleToRemoveAsCost()
 end