update script

script/c101107039.lua

@@ -40,8 +40,9 @@ function c101107039.ffilter(c,fc,sub,mg,sg)
 	return c:IsFusionSetCard(0x273) and (not sg or not sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode()))
 end
 function c101107039.costchange(e,re,rp,val)
-	if Duel.GetLP(e:GetHandlerPlayer())<=2000 and re and re:GetHandler():IsSetCard(0x273)
-		and (re:IsActiveType(TYPE_MONSTER) or (re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsType(TYPE_TRAP))) then
+	if Duel.GetLP(e:GetHandlerPlayer())<=2000 and re
+		and (re:GetHandler():IsSetCard(0x273) and re:IsActiveType(TYPE_MONSTER)
+			or re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsType(TYPE_TRAP)) then
 		return 0
 	else return val end
 end

script/c101107071.lua

@@ -47,7 +47,7 @@ function c101107071.operation(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetTargetRange(0,LOCATION_MZONE)
-	e1:SetValue(c101107171.atklimit)
+	e1:SetValue(c101107071.atklimit)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	token:RegisterEffect(e1)
 end

script/c101107073.lua

+--ダイノルフィア・リヴァージョン
+--
+--Script by mercury233
+function c101107073.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(101107073,0))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCountLimit(1,101107073+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c101107073.condition)
+	e1:SetCost(c101107073.cost)
+	e1:SetTarget(c101107073.target(EVENT_CHAINING))
+	e1:SetOperation(c101107073.operation)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(TIMING_BATTLE_END,TIMING_BATTLE_START+TIMING_BATTLE_END)
+	e2:SetTarget(c101107073.target(EVENT_FREE_CHAIN))
+	c:RegisterEffect(e2)
+	local e3=e1:Clone()
+	e3:SetCode(EVENT_SUMMON)
+	e3:SetTarget(c101107073.target(EVENT_SUMMON))
+	c:RegisterEffect(e3)
+	local e4=e1:Clone()
+	e4:SetCode(EVENT_FLIP_SUMMON)
+	e4:SetTarget(c101107073.target(EVENT_FLIP_SUMMON))
+	c:RegisterEffect(e4)
+	local e5=e1:Clone()
+	e5:SetCode(EVENT_SPSUMMON)
+	e5:SetTarget(c101107073.target(EVENT_SPSUMMON))
+	c:RegisterEffect(e5)
+	local e6=e1:Clone()
+	e6:SetCode(EVENT_TO_HAND)
+	e6:SetTarget(c101107073.target(EVENT_TO_HAND))
+	c:RegisterEffect(e6)
+	local e7=e1:Clone()
+	e7:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e7:SetTarget(c101107073.target(EVENT_ATTACK_ANNOUNCE))
+	c:RegisterEffect(e7)
+	--negate damage
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_QUICK_O)
+	e0:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
+	e0:SetRange(LOCATION_GRAVE)
+	e0:SetCondition(c101107073.damcon)
+	e0:SetCost(aux.bfgcost)
+	e0:SetOperation(c101107073.damop)
+	c:RegisterEffect(e0)
+end
+function c101107073.cfilter(c)
+	return c:IsSetCard(0x273) and c:IsType(TYPE_FUSION) and c:IsFaceup()
+end
+function c101107073.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c101107073.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c101107073.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	e:SetLabel(1)
+	return true
+end
+function c101107073.filter(c,event)
+	if not (c:GetType()==TYPE_TRAP+TYPE_COUNTER and c:IsAbleToRemoveAsCost()) then return false end
+	local te=c:CheckActivateEffect(false,true,false)
+	return te and te:GetCode()==event
+end
+function c101107073.target(event)
+	return 	function(e,tp,eg,ep,ev,re,r,rp,chk)
+			if chk==0 then
+				if e:GetLabel()==0 then return false end
+				e:SetLabel(0)
+				return Duel.IsExistingMatchingCard(c101107073.filter,tp,LOCATION_GRAVE,0,1,nil,event)
+			end
+			e:SetLabel(0)
+			local _GetCurrentChain=Duel.GetCurrentChain
+			Duel.GetCurrentChain=function() return _GetCurrentChain()-1 end
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+			local g=Duel.SelectMatchingCard(tp,c101107073.filter,tp,LOCATION_GRAVE,0,1,1,nil,event)
+			local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true)
+			Duel.GetCurrentChain=_GetCurrentChain
+			Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
+			Duel.Remove(g,POS_FACEUP,REASON_COST)
+			e:SetProperty(te:GetProperty())
+			local tg=te:GetTarget()
+			if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
+			te:SetLabelObject(e:GetLabelObject())
+			e:SetLabelObject(te)
+			Duel.ClearOperationInfo(0)
+		end
+end
+function c101107073.operation(e,tp,eg,ep,ev,re,r,rp)
+	local te=e:GetLabelObject()
+	if not te then return end
+	e:SetLabelObject(te:GetLabelObject())
+	local op=te:GetOperation()
+	if op then op(e,tp,eg,ep,ev,re,r,rp) end
+end
+function c101107073.damcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetLP(tp)<=2000 and Duel.GetBattleDamage(tp)>0
+end
+function c101107073.damop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
+	Duel.RegisterEffect(e1,tp)
+end