tnndx

expansions/script/c81000000.lua

@@ -319,3 +319,44 @@ end
 function Tenka.MomokoBattleCon(e,tp,eg,ep,ev,re,r,rp)
 	return ep~=tp and Duel.GetAttackTarget()==nil
 end
+--
+function Tenka.FriendToLover(c)
+	--atkup
+	local ea=Effect.CreateEffect(c)
+	ea:SetCategory(CATEGORY_ATKCHANGE)
+	ea:SetDescription(aux.Stringid(81035001,1))
+	ea:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	ea:SetType(EFFECT_TYPE_QUICK_O)
+	ea:SetCode(EVENT_FREE_CHAIN)
+	ea:SetRange(LOCATION_MZONE)
+	ea:SetHintTiming(TIMING_DAMAGE_STEP)
+	ea:SetCountLimit(1)
+	ea:SetCondition(aux.dscon)
+	ea:SetTarget(Tenka.tg)
+	ea:SetOperation(Tenka.op)
+	c:RegisterEffect(ea)
+end
+function Tenka.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end
+	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function Tenka.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(0)
+		tc:RegisterEffect(e1)
+	end
+end
+function Tenka.FriendToLoverCon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	return tg and tg:IsContains(c)
+end

expansions/script/c81057002.lua

@@ -5,7 +5,7 @@ function cm.initial_effect(c)
 	--fusion material
 	c:EnableReviveLimit()
 	aux.AddFusionProcFun2(c,cm.ffiltera,cm.ffilterb,true)
-	aux.AddContactFusionProcedure(c,Card.IsAbleToRemoveAsCost,LOCATION_ONFIELD+LOCATION_GRAVE,0,Duel.Remove,POS_FACEUP,REASON_COST)
+	aux.AddContactFusionProcedure(c,Card.IsAbleToRemoveAsCost,LOCATION_ONFIELD+LOCATION_GRAVE,0,Duel.Remove,POS_FACEUP,REASON_COST+REASON_MATERIAL)
 	--spsummon bgm
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)