watele

expansions/script/c66915001.lua

 --璀璨的星辉
+if not StarLight_from_K then 
+	StarLight_from_K={}
+	StarLight_from_K.Brightstarlight_Effect={}
+end
 function c66915001.initial_effect(c)
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE)
@@ -9,28 +13,24 @@ function c66915001.initial_effect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(2,66915001+EFFECT_COUNT_CODE_OATH)
+	e1:SetCountLimit(2,66915001)
 	e1:SetCondition(c66915001.spcon)
 	e1:SetTarget(c66915001.target)
 	e1:SetOperation(c66915001.spop)
 	c:RegisterEffect(e1)
-	--move
-	local e11=Effect.CreateEffect(c)
-	e11:SetType(EFFECT_TYPE_IGNITION)
-	e11:SetRange(LOCATION_MZONE)
-	e11:SetCountLimit(1)
-	e11:SetCondition(c66915001.seqcon)
-	e11:SetOperation(c66915001.seqop)
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
-	e5:SetRange(LOCATION_SZONE)
-	e5:SetTargetRange(LOCATION_MZONE,0)
-	e5:SetTarget(c66915001.eftg)
-	e5:SetLabelObject(e11)
-	c:RegisterEffect(e5)
+	StarLight_from_K.Brightstarlight_Effect[e1]=true
+	--spsummon limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(c66915001.sumlimit)
+	c:RegisterEffect(e2)
 end
 function c66915001.filter(c,e,tp)
-	return  c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsSetCard(0x1374) and (c:IsLocation(LOCATION_DECK) and Duel.GetMZoneCount(tp)>0 or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
+	return  c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0x1374) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
 end
 function c66915001.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.IsExistingMatchingCard(c66915001.filters,tp,LOCATION_SZONE,0,1,nil)
@@ -39,49 +39,18 @@ function c66915001.filters(c,e)
 	return c:IsSetCard(0x374) and c:IsFaceup() 
 end
 function c66915001.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c66915001.filter,tp,LOCATION_EXTRA+LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_DECK)
+	if chk==0 then return Duel.IsExistingMatchingCard(c66915001.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 end
 function c66915001.spop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c66915001.filter,tp,LOCATION_EXTRA+LOCATION_DECK,0,1,1,nil,e,tp)
+	local g=Duel.SelectMatchingCard(tp,c66915001.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
 	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		g:GetFirst():CompleteProcedure()
+		Duel.Hint(HINT_MUSIC,0,aux.Stringid(66915001,1))
 	end
 end
-function c66915001.seqcon(e,tp,eg,ep,ev,re,r,rp)
-	local seq=e:GetHandler():GetSequence()
-	if seq>4 then return false end
-	return (seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1))
-		or (seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1))
-end
-function c66915001.seqop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) or c:IsControler(1-tp) then return end
-	local seq=c:GetSequence()
-	if seq>4 then return end
-	if (seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1))
-		or (seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1)) then
-		local flag=0
-		if seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1) then flag=bit.replace(flag,0x1,seq-1) end
-		if seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1) then flag=bit.replace(flag,0x1,seq+1) end
-		flag=bit.bxor(flag,0xff)
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
-		local s=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,flag)
-		local nseq=0
-		if s==1 then nseq=0
-		elseif s==2 then nseq=1
-		elseif s==4 then nseq=2
-		elseif s==8 then nseq=3
-		else nseq=4 end
-		Duel.MoveSequence(c,nseq)
-	end
-end
-function c66915001.eftg(e,c)
-	local seq=c:GetSequence()
-	return c:IsType(TYPE_EFFECT) and c:IsSetCard(0x1374)
-		and seq<5 and math.abs(e:GetHandler():GetSequence()-seq)==1
-end
 function c66915001.sumlimit(e,c,sump,sumtype,sumpos,targetp)
 	return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374)
 end