Merge branch 'master' of https://github.com/amarillonmc/no81cards

expansions/script/c11451462.lua

@@ -119,7 +119,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 		end
 		return false
 	end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_DECK)
 end
 function cm.spop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c11451463.lua

@@ -102,7 +102,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 		end
 		return false
 	end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_DECK)
 end
 function cm.spop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c11451464.lua

@@ -158,7 +158,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 		end
 		return false
 	end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,PLAYER_ALL,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_DECK)
 end
 function cm.spop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c11451465.lua

@@ -136,7 +136,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 		end
 		return false
 	end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,PLAYER_ALL,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_DECK)
 end
 function cm.spop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c11451466.lua

@@ -139,7 +139,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 		end
 		return false
 	end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,PLAYER_ALL,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_DECK)
 end
 function cm.spop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c11451467.lua

@@ -168,7 +168,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 		end
 		return false
 	end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,PLAYER_ALL,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_DECK)
 end
 function cm.spop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c11533716.lua

+--仪水镜的唤魔术 
+function c11533716.initial_effect(c)
+	--Activate 
+	local e1=Effect.CreateEffect(c) 
+	e1:SetType(EFFECT_TYPE_ACTIVATE) 
+	e1:SetCode(EVENT_FREE_CHAIN)  
+	e1:SetHintTiming(0,TIMING_STANDBY_PHASE) 
+	c:RegisterEffect(e1) 
+	--ritual summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11533716,1))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON) 
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) 
+	e1:SetCode(EVENT_TO_HAND) 
+	e1:SetProperty(EFFECT_FLAG_DELAY) 
+	e1:SetRange(LOCATION_SZONE)  
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) 
+	return (re==nil or not re:GetHandler():IsCode(11533716)) and eg:IsExists(function(c) return not c:IsPreviousLocation(LOCATION_DECK) end,1,nil) end) 
+	e1:SetCost(c11533716.cost1)
+	e1:SetTarget(c11533716.ritg)
+	e1:SetOperation(c11533716.riop)
+	c:RegisterEffect(e1)  
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11533716,1)) 
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON) 
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) 
+	e1:SetCode(EVENT_TO_DECK) 
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetRange(LOCATION_SZONE)  
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) 
+	return (re==nil or not re:GetHandler():IsCode(11533716)) end) 
+	e1:SetCost(c11533716.cost1)
+	e1:SetTarget(c11533716.ritg)
+	e1:SetOperation(c11533716.riop)
+	c:RegisterEffect(e1) 
+	--draw and to deck 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetDescription(aux.Stringid(11533716,2)) 
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) 
+	e2:SetCode(EVENT_TO_HAND) 
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_SZONE)  
+	e2:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) 
+	return (re==nil or not re:GetHandler():IsCode(11533716)) and eg:IsExists(function(c) return not c:IsPreviousLocation(LOCATION_DECK) end,1,nil) end) 
+	e2:SetCost(c11533716.cost2) 
+	e2:SetTarget(c11533716.drtdtg)
+	e2:SetOperation(c11533716.drtdop)
+	c:RegisterEffect(e2)  
+	local e2=Effect.CreateEffect(c) 
+	e2:SetDescription(aux.Stringid(11533716,2)) 
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) 
+	e2:SetCode(EVENT_TO_DECK) 
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_SZONE)  
+	e2:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) 
+	return (re==nil or not re:GetHandler():IsCode(11533716)) end) 
+	e2:SetCost(c11533716.cost2)
+	e2:SetTarget(c11533716.drtdtg)
+	e2:SetOperation(c11533716.drtdop)
+	c:RegisterEffect(e2) 
+	--to deck and sp 
+	local e3=Effect.CreateEffect(c) 
+	e3:SetDescription(aux.Stringid(11533716,3)) 
+	e3:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) 
+	e3:SetCode(EVENT_TO_HAND) 
+	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e3:SetRange(LOCATION_SZONE)  
+	e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) 
+	return (re==nil or not re:GetHandler():IsCode(11533716)) and eg:IsExists(function(c) return not c:IsPreviousLocation(LOCATION_DECK) end,1,nil) end) 
+	e3:SetCost(c11533716.cost3) 
+	e3:SetTarget(c11533716.tdsptg)
+	e3:SetOperation(c11533716.tdspop)
+	c:RegisterEffect(e3)  
+	local e3=Effect.CreateEffect(c) 
+	e3:SetDescription(aux.Stringid(11533716,3)) 
+	e3:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) 
+	e3:SetCode(EVENT_TO_DECK) 
+	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e3:SetRange(LOCATION_SZONE)  
+	e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) 
+	return (re==nil or not re:GetHandler():IsCode(11533716)) end) 
+	e3:SetCost(c11533716.cost3)
+	e3:SetTarget(c11533716.tdsptg)
+	e3:SetOperation(c11533716.tdspop)
+	c:RegisterEffect(e3) 
+	--rec
+	local e4=Effect.CreateEffect(c) 
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) 
+	e4:SetCode(EVENT_SUMMON_SUCCESS) 
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetCondition(c11533716.reccon) 
+	e4:SetOperation(c11533716.recop)  
+	c:RegisterEffect(e4)  
+	local e5=e4:Clone() 
+	e5:SetCode(EVENT_SPSUMMON_SUCCESS) 
+	c:RegisterEffect(e5)
+end
+function c11533716.filter(c,e,tp)
+	return c:IsSetCard(0x3a)  
+end  
+function c11533716.ritg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local mg=Duel.GetRitualMaterial(tp)  
+		return Duel.IsExistingMatchingCard(aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,c11533716.filter,e,tp,mg,nil,Card.GetLevel,"Equal")
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) 
+end
+function c11533716.riop(e,tp,eg,ep,ev,re,r,rp)
+	::cancel::
+	local mg=Duel.GetRitualMaterial(tp) 
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tg=Duel.SelectMatchingCard(tp,aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,1,nil,c11533716.filter,e,tp,mg,nil,Card.GetLevel,"Equal")
+	local tc=tg:GetFirst()
+	if tc then
+		mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
+		if mg2 then
+			mg:Merge(mg2)
+		end
+		if tc.mat_filter then
+			mg=mg:Filter(tc.mat_filter,tc,tp)
+		else
+			mg:RemoveCard(tc)
+		end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+		aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Equal")
+		local mat=mg:SelectSubGroup(tp,aux.RitualCheck,true,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Equal")
+		aux.GCheckAdditional=nil
+		if not mat then goto cancel end
+		tc:SetMaterial(mat)
+		Duel.ReleaseRitualMaterial(mat)
+		Duel.BreakEffect()
+		Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		tc:CompleteProcedure()
+	end
+end
+function c11533716.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFlagEffect(tp,11533716)==0 end 
+	Duel.RegisterFlagEffect(tp,11533716,RESET_CHAIN,0,1)
+end 
+function c11533716.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return c11533716.cost(e,tp,eg,ep,ev,re,r,rp,0) and Duel.GetFlagEffect(tp,21533716)==0 end 
+	Duel.RegisterFlagEffect(tp,21533716,RESET_PHASE+PHASE_END,0,1)
+	c11533716.cost(e,tp,eg,ep,ev,re,r,rp,1)
+end 
+function c11533716.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return c11533716.cost(e,tp,eg,ep,ev,re,r,rp,0) and Duel.GetFlagEffect(tp,31533716)==0 end 
+	Duel.RegisterFlagEffect(tp,31533716,RESET_PHASE+PHASE_END,0,1)
+	c11533716.cost(e,tp,eg,ep,ev,re,r,rp,1)
+end 
+function c11533716.cost3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return c11533716.cost(e,tp,eg,ep,ev,re,r,rp,0) and Duel.GetFlagEffect(tp,41533716)==0 end 
+	Duel.RegisterFlagEffect(tp,41533716,RESET_PHASE+PHASE_END,0,1)
+	c11533716.cost(e,tp,eg,ep,ev,re,r,rp,1)
+end 
+function c11533716.tdgck(g) 
+	return g:IsExists(Card.IsSetCard,1,nil,0x18e,0x3a) 
+end 
+function c11533716.drtdtg(e,tp,eg,ep,ev,re,r,rp,chk) 
+	local g=Duel.GetMatchingGroup(function(c,e) return c:IsAbleToDeck() and c:IsCanBeEffectTarget(e) end,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
+	if chk==0 then return g:CheckSubGroup(c11533716.tdgck,5,5) and Duel.IsPlayerCanDraw(tp,1) end 
+	local sg=g:SelectSubGroup(tp,c11533716.tdgck,false,5,5) 
+	Duel.SetTargetCard(sg)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) 
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0)
+end 
+function c11533716.drtdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) 
+	if Duel.Draw(tp,1,REASON_EFFECT)~=0 and g:GetCount()>0 then 
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT) 
+	end 
+end 
+function c11533716.tdfil(c) 
+	if not (c:IsType(TYPE_RITUAL) and c:IsAbleToDeck()) then return false end 
+	if c:IsType(TYPE_MONSTER) then 
+	return c:IsAttribute(ATTRIBUTE_WATER) 
+	elseif c:IsType(TYPE_SPELL) then 
+	return true  
+	else return false end 
+end 
+function c11533716.srfil(c,e,tp)
+	if not (c:IsSetCard(0x3a) and c:IsType(TYPE_MONSTER)) then return false end
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	return ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) 
+end
+function c11533716.tdsptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11533716.srfil,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end  
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)  
+end 
+function c11533716.tdspop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()  
+	if Duel.IsExistingMatchingCard(c11533716.srfil,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) then 
+		local tc=Duel.SelectMatchingCard(tp,c11533716.srfil,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp):GetFirst()  
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)  
+	end  
+end
+function c11533716.rckfil(c,e,tp) 
+	return c:IsSetCard(0x3a) and c:IsSummonPlayer(tp) and c:IsLevelAbove(1) 
+end 
+function c11533716.reccon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:Filter(c11533716.rckfil,nil,e,tp):GetCount()>0   
+end 
+function c11533716.recop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	Duel.Hint(HINT_CARD,0,11533716)
+	local ag=eg:Filter(c11533716.rckfil,nil,e,tp) 
+	local lv=ag:GetSum(Card.GetLevel) 
+	Duel.Recover(tp,lv*100,REASON_EFFECT) 
+	local g=Duel.GetMatchingGroup(function(c) return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) end,tp,LOCATION_MZONE,0,nil) 
+	if g:GetCount()>0 then 
+		local tc=g:GetFirst() 
+		while tc do 
+		local e1=Effect.CreateEffect(c) 
+		e1:SetType(EFFECT_TYPE_SINGLE) 
+		e1:SetCode(EFFECT_UPDATE_ATTACK) 
+		e1:SetRange(LOCATION_MZONE) 
+		e1:SetValue(lv*100/2) 
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD) 
+		tc:RegisterEffect(e1) 
+		tc=g:GetNext()  
+		end 
+	end 
+end 
+
+
+
+
+

expansions/script/c12852001.lua

@@ -69,8 +69,4 @@ function c12852001.seqop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.SwapSequence(tc1,tc2)
 		end  
 	end
-endcal tc2=sg:GetNext()
-			Duel.SwapSequence(tc1,tc2)
-		end  
-	end
 end
\ No newline at end of file

expansions/script/c12852002.lua

@@ -70,8 +70,3 @@ function c12852002.seqop(e,tp,eg,ep,ev,re,r,rp)
 		end  
 	end
 end
-al tc2=sg:GetNext()
-			Duel.SwapSequence(tc1,tc2)
-		end  
-	end
-end

expansions/script/c12852003.lua

@@ -140,9 +140,6 @@ function c12852003.thop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
 	end
 end
-function c12852003.eftg(e,c)
-	return c:IsType(TYPE_MONSTER) and c:GetEquipGroup():IsContains(e:GetHandler())
-end
 function c12852003.eftg(e,c)
 	return c:IsType(TYPE_MONSTER) and c:GetEquipGroup():IsContains(e:GetHandler())
 end
\ No newline at end of file

expansions/script/c12852004.lua

@@ -141,9 +141,4 @@ function c12852004.desop(e,tp,eg,ep,ev,re,r,rp)
 	if tc:IsRelateToEffect(e) then
 		Duel.Destroy(tc,REASON_EFFECT)
 	end
-endrp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
 end
\ No newline at end of file

expansions/script/c12852005.lua

@@ -118,7 +118,4 @@ function c12852005.pdop(e,tp,eg,ep,ev,re,r,rp)
 	if tc:IsRelateToBattle() and tc:IsRelateToEffect(e) then
 		Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
 	end
-end) and tc:IsRelateToEffect(e) then
-		Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
-	end
 end
\ No newline at end of file

expansions/script/c12852006.lua

@@ -132,10 +132,6 @@ function c12852006.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
 	Duel.RegisterFlagEffect(tp,c:GetCode()+10000,RESET_PHASE+PHASE_END,0,1)
 end
-function c12852006.activate1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.NegateActivation(ev)
-endSE+PHASE_END,0,1)
-end
 function c12852006.activate1(e,tp,eg,ep,ev,re,r,rp)
 	Duel.NegateActivation(ev)
 end
\ No newline at end of file

expansions/script/c12852008.lua

@@ -48,8 +48,4 @@ function c12852008.activate(e,tp,eg,ep,ev,re,r,rp)
 			end
 		end
 	end
-end,Duel.GetCurrentChain())
-			end
-		end
-	end
 end
\ No newline at end of file

expansions/script/c12852009.lua

@@ -56,7 +56,4 @@ function c12852009.eqop(e,tp,eg,ep,ev,re,r,rp)
 		local ec=sg:GetFirst()
 		Duel.Equip(tp,ec,tc)
 	end
-end	local ec=sg:GetFirst()
-		Duel.Equip(tp,ec,tc)
-	end
 end
\ No newline at end of file

expansions/script/c12852010.lua

@@ -149,9 +149,4 @@ function c12852010.copyop(e,tp,eg,ep,ev,re,r,rp)
 		--c:RegisterEffect(e1)
 		cid=c:CopyEffect(code,RESET_EVENT+RESETS_STANDARD,1)
 	end
-endSetValue(code)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		--c:RegisterEffect(e1)
-		cid=c:CopyEffect(code,RESET_EVENT+RESETS_STANDARD,1)
-	end
 end
\ No newline at end of file

expansions/script/c13131372.lua

 --煎稽蛋
 local m=13131372
-local cm=_G["c"..m]
-function cm.initial_effect(c)
+local c13131372=_G["c"..m]
+function c13131372.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetTarget(cm.sptg)
-	e1:SetOperation(cm.spop)
+	e1:SetTarget(c13131372.sptg)
+	e1:SetOperation(c13131372.spop)
 	c:RegisterEffect(e1)
 	local e2=e1:Clone()
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
@@ -20,9 +20,9 @@ function cm.initial_effect(c)
 	e3:SetCode(EVENT_SUMMON_SUCCESS)
 	e3:SetProperty(EFFECT_FLAG_DELAY) 
 	e3:SetRange(LOCATION_MZONE)
-	e3:SetCondition(cm.ctcon)
-	e3:SetTarget(cm.cttg)
-	e3:SetOperation(cm.ctop)
+	e3:SetCondition(c13131372.ctcon)
+	e3:SetTarget(c13131372.cttg)
+	e3:SetOperation(c13131372.ctop)
 	c:RegisterEffect(e3)
 	local e4=e3:Clone()
 	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
@@ -35,55 +35,56 @@ function cm.initial_effect(c)
 	e5:SetProperty(EFFECT_FLAG_DELAY) 
 	e5:SetRange(LOCATION_GRAVE)
 	e5:SetCountLimit(1,13131372)
-	e5:SetCondition(cm.thcon)
-	e5:SetTarget(cm.thtg)
-	e5:SetOperation(cm.thop)
+	e5:SetCondition(c13131372.thcon)
+	e5:SetTarget(c13131372.thtg)
+	e5:SetOperation(c13131372.thop)
 	c:RegisterEffect(e5)
 end
-function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+function c13131372.thcon(e,tp,eg,ep,ev,re,r,rp)
 	return eg:IsExists(Card.IsCode,1,nil,13131370)
 end
-function cm.thgf(c)
-	return c:IsCode(0x3b00) and c:IsAbleToDeck()
+function c13131372.thgfil(c)
+	return c:IsSetCard(0x3b00) and c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
 end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+function c13131372.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetHandler():IsAbleToHand() end
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
 end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+function c13131372.thop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.SendtoHand(c,tp,REASON_EFFECT)~=0 then
-		local g=Duel.GetMatchingGroup(cm.thgf,tp,LOCATION_REMOVED,0,nil)
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoHand(c,tp,REASON_EFFECT)
+		local g=Duel.GetMatchingGroup(c13131372.thgfil,tp,LOCATION_REMOVED,0,nil)
 		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
 	end
 end
 
-function cm.spfilter(c,e,tp)
+function c13131372.spfilter(c,e,tp)
 	return c:IsCode(13131370) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function c13131372.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+		and Duel.IsExistingMatchingCard(c13131372.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+function c13131372.spop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c13131372.spfilter),tp,LOCATION_DECK,0,1,1,nil,e,tp)
 	if g:GetCount()>0 then
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 	end
 end
-function cm.ctfilter(c,tp)
+function c13131372.ctfilter(c,tp)
 	return c:IsFaceup() and c:IsCode(13131370)
 end
-function cm.ctcon(e,tp,eg,ep,ev,re,r,rp)
-	return not eg:IsContains(e:GetHandler()) and eg:IsExists(cm.ctfilter,1,nil,tp)
+function c13131372.ctcon(e,tp,eg,ep,ev,re,r,rp)
+	return not eg:IsContains(e:GetHandler()) and eg:IsExists(c13131372.ctfilter,1,nil,tp)
 end
-function cm.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
+function c13131372.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
 end
-function cm.ctop(e,tp,eg,ep,ev,re,r,rp)
+function c13131372.ctop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)

expansions/script/c14000324.lua

@@ -20,7 +20,7 @@ function cm.initial_effect(c)
 	e3:SetDescription(aux.Stringid(m,0))
 	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_RELEASE)
 	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetRange(LOCATION_HAND)
+	e3:SetRange(LOCATION_HAND+LOCATION_GRAVE)
 	e3:SetCode(EVENT_CHAINING)
 	e3:SetCondition(cm.spcon)
 	e3:SetTarget(cm.sptg)

expansions/script/c14000328.lua

@@ -6,7 +6,7 @@ function cm.initial_effect(c)
 	--self special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_RELEASE)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_RELEASE)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
 	e1:SetCode(EVENT_CHAINING)
@@ -27,11 +27,10 @@ function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return eg:IsExists(cm.rfilter,1,nil) and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_GRAVE)
 end
-function cm.thfilter(c)
-	return cm.AOTU(c) and c:IsAbleToHand()
+function cm.spfilter(c,e,tp)
+	return cm.AOTU(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -41,12 +40,11 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 		local tc=g:GetFirst()
 		if not tc:IsLocation(LOCATION_SZONE) then return end
 		if Duel.Release(tc,REASON_EFFECT)~=0 then
-			if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0  and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-				local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+			if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0  and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+				local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
 				if g:GetCount()>0 then
-					Duel.SendtoHand(g,nil,REASON_EFFECT)
-					Duel.ConfirmCards(1-tp,g)
+					Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 				end
 			end
 		end

expansions/script/c14060018.lua

@@ -33,7 +33,7 @@ end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND)
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,PLAYER_ALL,LOCATION_ONFIELD)

expansions/script/c30006100.lua

@@ -220,21 +220,23 @@ function cm.cytg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
 	local mg=g:FilterSelect(tp,cm.copy,1,1,nil,e)
 	Duel.HintSelection(mg)
-	local te=mg:GetFirst():CheckActivateEffect(false,true,false)
-	e:SetLabelObject(te)
+	local te,ceg,cep,cev,cre,cr,crp=mg:GetFirst():CheckActivateEffect(false,true,true)
 	e:SetLabel(mg:GetFirst():GetCode())
 	e:SetCategory(te:GetCategory())
 	e:SetProperty(te:GetProperty())
 	e:GetHandler():RegisterFlagEffect(m+2,RESET_CHAIN,0,1)
 	e:GetHandler():RegisterFlagEffect(m+7,RESET_EVENT+RESETS_STANDARD,0,75)
 	local tg=te:GetTarget()
-	local re=Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT)
-	if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end
+	--local re=Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT)
+	if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
+	te:SetLabelObject(e:GetLabelObject())
+	e:SetLabelObject(te)
 	if Duel.GetCurrentPhase()==PHASE_STANDBY then
 		e:GetHandler():RegisterFlagEffect(m+3,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_STANDBY,EFFECT_FLAG_OATH,2,Duel.GetTurnCount())
 	else
 		e:GetHandler():RegisterFlagEffect(m+3,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_STANDBY,EFFECT_FLAG_OATH,1,0)
 	end
+	Duel.ClearOperationInfo(0)
 end
 function cm.dhlimit(e,c)
 	return c:IsCode(e:GetLabel())
@@ -243,13 +245,16 @@ function cm.cyop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=e:GetLabel()
 	local te=e:GetLabelObject()
-	local g=c:GetOverlayGroup():Filter(cm.copy,nil,e) 
-	if not te or g:GetCount()==0 then return end
-	if c:IsFaceup()  then
+	if not te then return end
+	e:SetLabelObject(te:GetLabelObject())
+	local g=c:GetOverlayGroup()
+Debug.Message(not te or not g:IsContains(te:GetHandler()))
+	if not te or not g:IsContains(te:GetHandler()) then return end
+	--if c:IsFaceup()  then
 		local op=te:GetOperation()
 		if op then
-			local re=Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT)
-			if te:GetCode()==EVENT_CHAINING then ev=ev-1 end
+			--local re=Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT)
+			--if te:GetCode()==EVENT_CHAINING then ev=ev-1 end
 			op(e,tp,eg,ep,ev,re,r,rp) 
 		end
 		local code=tc
@@ -263,7 +268,7 @@ function cm.cyop(e,tp,eg,ep,ev,re,r,rp)
 				tc1=mg:GetNext()
 			end
 		end
-	end
+	--end
 end
 function cm.name(c,code)
 	return c:IsCode(code)

expansions/script/c60002392.lua

@@ -51,7 +51,11 @@ if not cm.lblsz then
 			sol=1
 		else
 			cm._sset(tp,cg,...)
-			sol=cg:GetCount()
+			if aux.GetValueType(cg)=="Card" then
+				sol=1
+			elseif aux.GetValueType(cg)=="Group" then
+				sol=cg:GetCount()
+			end
 		end
 		return sol
 	end

expansions/script/c9910077.lua

@@ -10,10 +10,15 @@ function c9910077.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,9910077)
+	e1:SetCost(c9910077.thcost)
 	e1:SetTarget(c9910077.thtg)
 	e1:SetOperation(c9910077.thop)
 	c:RegisterEffect(e1)
 end
+function c9910077.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,2000) end
+	Duel.PayLPCost(tp,2000)
+end
 function c9910077.thfilter(c,tp)
 	return c:IsRace(RACE_FAIRY) and c:IsAbleToHand() and c:GetOwner()==tp
 end