1145141919810

expansions/script/c11113135.lua

+--～Niko和世界记录仪～
+local m=11113135
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	
+end

expansions/script/c112012.lua

@@ -19,7 +19,7 @@ function c112012.initial_effect(c)
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_PZONE)
-	e2:SetCost(1,112012)
+	e2:SetCountLimit(1,112012)
 	e2:SetCost(c112012.thcost)
 	e2:SetTarget(c112012.thtg)
 	e2:SetOperation(c112012.thop)

expansions/script/c13257360.lua

@@ -72,12 +72,10 @@ function cm.initial_effect(c)
 	e11:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
 	e11:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e11:SetOperation(cm.bgmop)
-	c:RegisterEffect(e11)
-	
+	c:RegisterEffect(e11)	
 end
 function cm.spfilter(c,ft,tp)
-	return c:IsSetCard(0x351)
-		and c:IsControler(tp) and c:IsAbleToDeckAsCost and (ft>0 or c:GetSequence()<5)
+	return c:IsSetCard(0x351) and c:IsControler(tp) and c:IsAbleToDeckAsCost() and (ft>0 or c:GetSequence()<5)
 end
 function cm.spcon(e,c)
 	if c==nil then return true end

expansions/script/c13257361.lua

@@ -11,8 +11,8 @@ function cm.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetCountLimit(1,m)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.operation)
+	e1:SetTarget(cm.drtg)
+	e1:SetOperation(cm.drop)
 	c:RegisterEffect(e1)
 	local e2=e1:Clone()
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)

expansions/script/c17060840.lua

@@ -18,7 +18,7 @@ function cm.initial_effect(c)
 	e5:SetType(EFFECT_TYPE_IGNITION)
 	e5:SetRange(LOCATION_PZONE)
 	e5:SetCountLimit(1,17060840)
-	e5:SetCondition(cm.thcon)
+	e5:SetCost(cm.cost)
 	e5:SetTarget(cm.thtg)
 	e5:SetOperation(cm.thop)
 	c:RegisterEffect(e5)
@@ -29,6 +29,10 @@ end
 function cm.indcon(e)
 	return Duel.IsExistingMatchingCard(cm.indfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil)
 end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
 function cm.thfilter(c)
 	return c:IsCode(17060830,17061210,17061220) and c:IsAbleToHand()
 end

expansions/script/c17060850.lua

@@ -10,8 +10,8 @@ function cm.initial_effect(c)
 	e1:SetCode(EVENT_CHAIN_SOLVING)
 	e1:SetRange(LOCATION_PZONE)
 	e1:SetCountLimit(1)
-	e1:SetCondition(c17032670.negcon)
-	e1:SetOperation(c17032670.negop)
+	e1:SetCondition(cm.negcon)
+	e1:SetOperation(cm.negop)
 	c:RegisterEffect(e1)
 	--
 	local e2=Effect.CreateEffect(c)
@@ -44,14 +44,14 @@ function cm.initial_effect(c)
 	e5:SetOperation(cm.penop)
 	c:RegisterEffect(e5)
 end
-function c17032670.cfilter(c)
+function cm.cfilter(c)
 	return c:IsFaceup() and c:IsSetCard(0x37f6)
 end
-function c17032670.negcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c17032670.cfilter,tp,LOCATION_MZONE,0,1,nil)
+function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
 		and rp==1-tp and re:IsActiveType(TYPE_TRAP)
 end
-function c17032670.negop(e,tp,eg,ep,ev,re,r,rp)
+function cm.negop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.SelectEffectYesNo(tp,e:GetHandler()) then 
 		Duel.Hint(HINT_CARD,0,17060850)
 		local rc=re:GetHandler()

expansions/script/c33701362.lua

@@ -10,11 +10,9 @@ function cm.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(TIMING_DAMAGE_STEP)
-	e1:SetCondition(cm.condition)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.operation)
-	c:RegisterEffect(e1)
-	
+	c:RegisterEffect(e1)	
 end
 function cm.cfilter(c)
 	return c:IsFaceup() and Duel.IsExistingMatchingCard(cm.filter,0,LOCATION_MZONE,0,2,c,c:GetCode())

expansions/script/c64800148.lua

+--亡国的姬骑士 妮可莉娜
+local m=64800148
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--rm
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.rmtg)
+	e1:SetOperation(cm.rmop)
+	c:RegisterEffect(e1)
+	--destroy replace
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_DESTROY_REPLACE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1,m+10000)
+	e4:SetTarget(cm.desreptg)
+	e4:SetValue(cm.desrepval)
+	e4:SetOperation(cm.desrepop)
+	c:RegisterEffect(e4)
+end
+
+--e1
+function cm.gtfilter(c,att)
+	return c:IsAttribute(att) and c:IsAbleToRemove()
+end
+function cm.rmtfilter1(c)
+	return  c:IsType(TYPE_MONSTER) and Duel.IsExistingMatchingCard(cm.gtfilter,tp,LOCATION_GRAVE,0,1,nil,c:GetAttribute()) and c:IsAbleToRemove()
+end
+function cm.rmfilter2(c)
+	return c:IsFaceup() and c:IsAbleToRemove()
+end
+
+function cm.gfilter(c)
+	return c:IsType(TYPE_MONSTER) and Duel.IsExistingMatchingCard(cm.gtfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil,c:GetAttribute()) and c:IsAbleToRemove()
+end
+function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chkc then return false end
+	if chk==0 then return Duel.IsExistingTarget(cm.rmtfilter1,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil)
+		and Duel.IsExistingTarget(cm.rmfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local rmg=Duel.SelectMatchingCard(tp,cm.gfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	local tc=rmg:GetFirst()
+	local att=tc:GetAttribute()
+	Duel.Remove(tc,POS_FACEUP,REASON_COST)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g1=Duel.SelectTarget(tp,cm.gtfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil,att)
+	local tc1=g1:GetFirst()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g2=Duel.SelectTarget(tp,cm.rmfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,tc1)
+	g1:Merge(g2)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g1,g1:GetCount(),0,0)
+end
+function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local tg=g:Filter(Card.IsRelateToEffect,nil,e)
+	if tg:GetCount()>0 then
+		Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)
+	end
+end
+
+--e4
+function cm.repfilter(c,tp)
+	return  c:IsLocation(LOCATION_MZONE) and c:IsCanChangePosition() and c:IsFaceup() and c:IsType(TYPE_MONSTER)
+		and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
+end
+function cm.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return eg:IsExists(cm.repfilter,1,nil,tp) end
+	if Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+		local g=eg:Filter(cm.repfilter,nil,tp)
+		g:KeepAlive()
+		e:SetLabelObject(g)
+		return true
+	end
+	return false
+end
+function cm.desrepval(e,c)
+	return cm.repfilter(c,e:GetHandlerPlayer())
+end
+function cm.desrepop(e,tp,eg,ep,ev,re,r,rp)
+	local tg=e:GetLabelObject() 
+	Duel.ChangePosition(tg,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
+end
\ No newline at end of file

expansions/script/c76900012.lua

@@ -45,10 +45,10 @@ function cm.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
  if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(s.chainlm)
+		Duel.SetChainLimit(cm.chainlm)
 	end
 end
-function s.chainlm(re,rp,tp)
+function cm.chainlm(re,rp,tp)
 	return tp==rp or not re:GetHandler():IsType(TYPE_SPELL+TYPE_TRAP)
 end
 function cm.sumop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c81012054.lua

-i--清冽之风·理子
+--清冽之风·理子
 local m=81012054
 local cm=_G["c"..m]
 Duel.LoadScript("c81000000.lua")