Updated cards that Summon a monster while changing one of its properties

If a non-activated effect allows a monster to be Summoned with a different property (e.g. "as a Level X monster") then that different property should be considered when any "cannot summon" type of effects are checked ("Cockadoodledoo" vs "Evilswarm Ophion" ruling).

Also updated cards such as "Virtual World Oto-Hime - Toutou" to make their effects usable while under a "you cannot Special Summon, except Tuners" restriction, as well as some activated effects that Summon something by changing its Level.

Author: pyrQ

official/c15123983.lua

@@ -48,7 +48,7 @@ function s.gyspop(e,tp,eg,ep,ev,re,r,rp)
 	if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local sc=Duel.SelectMatchingCard(tp,s.gyspfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,c):GetFirst()
-	if sc and Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)>0 and not sc:IsType(TYPE_TUNER) then
+	if sc and Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) and not sc:IsType(TYPE_TUNER) then
 		--It is treated as a Tuner
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
@@ -58,6 +58,7 @@ function s.gyspop(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetReset(RESET_EVENT|RESETS_STANDARD)
 		sc:RegisterEffect(e1)
 	end
+	Duel.SpecialSummonComplete()
 end
 function s.selfsptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()

official/c20799347.lua

@@ -3,80 +3,75 @@
 --Scripted by Naim
 local s,id=GetID()
 function s.initial_effect(c)
-	--Summon with no tribute
+	--If you control no monsters, or all monsters you control are Psychic and/or Wyrm monsters, you can Normal Summon this card without Tributing
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(id,0))
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
 	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
 	e1:SetCode(EFFECT_SUMMON_PROC)
 	e1:SetCondition(s.ntcon)
-	e1:SetValue(1)
 	c:RegisterEffect(e1)
-	--Special summon itself from GY
+	--Special Summon this card as a Tuner, but banish it when it leaves the field, also for the rest of this turn, you can only Special Summon Level/Rank 3 or higher monsters
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetCountLimit(1,id)
-	e2:SetCost(s.spcost)
+	e2:SetCost(Cost.Discard(function(c) return c:IsRace(RACE_PSYCHIC|RACE_WYRM) end))
 	e2:SetTarget(s.sptg)
 	e2:SetOperation(s.spop)
 	c:RegisterEffect(e2)
 end
-function s.cfilter(c)
-	return c:IsFacedown() or not (c:IsRace(RACE_PSYCHIC) or c:IsRace(RACE_WYRM))
+function s.ntconfilter(c)
+	return c:IsFacedown() or not c:IsRace(RACE_PSYCHIC|RACE_WYRM)
 end
 function s.ntcon(e,c,minc,zone)
 	if c==nil then return true end
 	local tp=c:GetControler()
-	return minc==0 and c:GetLevel()>4 and Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
-		and (Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 or not Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil))
-end
-function s.tgfilter(c)
-	return c:IsDiscardable() and c:IsMonster() and (c:IsRace(RACE_PSYCHIC) or c:IsRace(RACE_WYRM))
-end
-function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_HAND,0,1,nil) end
-	Duel.DiscardHand(tp,s.tgfilter,1,1,REASON_COST|REASON_DISCARD,nil)
+	return minc==0 and c:IsLevelAbove(5) and Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
+		and not Duel.IsExistingMatchingCard(s.ntconfilter,tp,LOCATION_MZONE,0,1,nil)
 end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	c:AssumeProperty(ASSUME_TYPE,c:GetType()|TYPE_TUNER)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,tp,0)
 end
 function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
-		--Treated as a tuner
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_ADD_TYPE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetValue(TYPE_TUNER)
-		e1:SetReset(RESET_EVENT|(RESETS_STANDARD&~RESET_TOFIELD))
-		c:RegisterEffect(e1)
-		--Banish it if it leaves the field
-		local e2=Effect.CreateEffect(c)
-		e2:SetDescription(3300)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
-		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT)
-		e2:SetReset(RESET_EVENT|RESETS_REDIRECT)
-		e2:SetValue(LOCATION_REMOVED)
-		c:RegisterEffect(e2,true)
-		--Restricted to level/rank 3+ monsters
-		local e3=Effect.CreateEffect(e:GetHandler())
-		e3:SetDescription(aux.Stringid(id,2))
-		e3:SetType(EFFECT_TYPE_FIELD)
-		e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
-		e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-		e3:SetTargetRange(1,0)
-		e3:SetTarget(s.splimit)
-		e3:SetReset(RESET_PHASE|PHASE_END)
-		Duel.RegisterEffect(e3,tp)
+	if c:IsRelateToEffect(e) then
+		c:AssumeProperty(ASSUME_TYPE,c:GetType()|TYPE_TUNER)
+		if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
+			--Treated as a tuner
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetCode(EFFECT_ADD_TYPE)
+			e1:SetValue(TYPE_TUNER)
+			e1:SetReset(RESET_EVENT|RESETS_STANDARD)
+			c:RegisterEffect(e1)
+			--Banish it when it leaves the field
+			local e2=Effect.CreateEffect(c)
+			e2:SetDescription(3300)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT)
+			e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+			e2:SetValue(LOCATION_REMOVED)
+			e2:SetReset(RESET_EVENT|RESETS_REDIRECT)
+			c:RegisterEffect(e2)
+		end
+		Duel.SpecialSummonComplete()
 	end
-end
-function s.splimit(e,c)
-	return not (c:IsLevelAbove(3) or c:IsRankAbove(3))
+	--For the rest of this turn, you can only Special Summon Level/Rank 3 or higher monsters
+	local e3=Effect.CreateEffect(e:GetHandler())
+	e3:SetDescription(aux.Stringid(id,2))
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+	e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e3:SetTargetRange(1,0)
+	e3:SetTarget(function(e,c) return not (c:IsLevelAbove(3) or c:IsRankAbove(3)) end)
+	e3:SetReset(RESET_PHASE|PHASE_END)
+	Duel.RegisterEffect(e3,tp)
 end

official/c42079445.lua

@@ -2,58 +2,58 @@
 --Descending Lost Star
 local s,id=GetID()
 function s.initial_effect(c)
-	--spsummon
+	--Special Summon 1 Synchro Monster from your GY in Defense Position, but its effects are negated, its Level is reduced by 1, its DEF becomes 0, also its battle position cannot be changed
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetTarget(s.sptg)
 	e1:SetOperation(s.spop)
+	e1:SetHintTiming(0,TIMING_STANDBY_PHASE|TIMING_MAIN_END|TIMINGS_CHECK_MONSTER_E)
 	c:RegisterEffect(e1)
 end
 function s.spfilter(c,e,tp)
-	return c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
+	if not c:IsSynchroMonster() then return false end
+	c:AssumeProperty(ASSUME_LEVEL,c:GetLevel()-1)
+	c:AssumeProperty(ASSUME_DEFENSE,0)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
 end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.spfilter(chkc,e,tp) end
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 		and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,0)
 end
 function s.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
-	if tc and tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
+	if not tc:IsRelateToEffect(e) then return end
+	tc:AssumeProperty(ASSUME_LEVEL,tc:GetLevel()-1)
+	tc:AssumeProperty(ASSUME_DEFENSE,0)
+	if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
+		local c=e:GetHandler()
+		--Its effects are negated
+		tc:NegateEffects(c)
+		--Its Level is reduced by 1
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_DISABLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetValue(-1)
 		e1:SetReset(RESET_EVENT|RESETS_STANDARD)
-		tc:RegisterEffect(e1,true)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_DISABLE_EFFECT)
-		e2:SetReset(RESET_EVENT|RESETS_STANDARD)
-		tc:RegisterEffect(e2,true)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_SINGLE)
-		e3:SetCode(EFFECT_UPDATE_LEVEL)
-		e3:SetValue(-1)
-		e3:SetReset(RESET_EVENT|RESETS_STANDARD)
-		tc:RegisterEffect(e3,true)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_SINGLE)
-		e4:SetCode(EFFECT_SET_DEFENSE_FINAL)
-		e4:SetValue(0)
-		e4:SetReset(RESET_EVENT|RESETS_STANDARD)
-		tc:RegisterEffect(e4,true)
-		local e5=Effect.CreateEffect(c)
-		e5:SetType(EFFECT_TYPE_SINGLE)
-		e5:SetCode(EFFECT_CANNOT_CHANGE_POSITION)
-		e5:SetReset(RESET_EVENT|RESETS_STANDARD)
-		tc:RegisterEffect(e5,true)
+		tc:RegisterEffect(e1)
+		--Its DEF becomes 0
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
+		e2:SetValue(0)
+		tc:RegisterEffect(e2)
+		--Also its battle position cannot be changed
+		local e3=e1:Clone()
+		e3:SetCode(EFFECT_CANNOT_CHANGE_POSITION)
+		tc:RegisterEffect(e3)
 	end
 	Duel.SpecialSummonComplete()
 end

official/c42338879.lua

@@ -2,43 +2,51 @@
 --Cockadoodledoo
 local s,id=GetID()
 function s.initial_effect(c)
-	--special summon
+	--If there are no monsters on the field, you can Special Summon this card (from your hand) as a Level 3 monster
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(s.spcon)
-	e1:SetOperation(s.spop)
+	e1:SetCondition(s.lv3spcon)
+	e1:SetOperation(s.spop(3))
+	e1:SetLabelObject({function(c) c:AssumeProperty(ASSUME_LEVEL,3) end})
 	c:RegisterEffect(e1)
-	--redirect
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e2:SetCondition(s.recon)
-	e2:SetValue(LOCATION_REMOVED)
+	--If your opponent controls a monster and you control no cards, you can Special Summon this card (from your hand) as a Level 4 monster
+	local e2=e1:Clone()
+	e2:SetCondition(s.lv4spcon)
+	e2:SetOperation(s.spop(4))
+	e2:SetLabelObject({function(c) c:AssumeProperty(ASSUME_LEVEL,4) end})
 	c:RegisterEffect(e2)
+	--If this face-up card would leave the field, banish it instead
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+	e3:SetCondition(function(e) return e:GetHandler():IsFaceup() end)
+	e3:SetValue(LOCATION_REMOVED)
+	c:RegisterEffect(e3)
+end
+function s.lv3spcon(e,c)
+	if c==nil then return true end
+	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and Duel.GetFieldGroupCount(0,LOCATION_MZONE,LOCATION_MZONE)==0
 end
-function s.spcon(e,c)
+function s.lv4spcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
-	return (Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE)==0
-		or (Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0)==0 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0))
-		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0
+		and Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0)==0
 end
-function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_CHANGE_LEVEL)
-	if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE)==0 then
-		e1:SetValue(3)
-	else
-		e1:SetValue(4)
+function s.spop(lv)
+	return function(e,tp,eg,ep,ev,re,r,rp,c)
+		c:AssumeProperty(ASSUME_LEVEL,lv)
+		--Special Summon this card (from your hand) as a Level 3 or 4 monster
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_LEVEL)
+		e1:SetValue(lv)
+		e1:SetReset(RESET_EVENT|(RESETS_STANDARD_DISABLE&~RESET_TOFIELD))
+		c:RegisterEffect(e1)
 	end
-	e1:SetReset(RESET_EVENT|RESETS_STANDARD_DISABLE&~RESET_TOFIELD)
-	c:RegisterEffect(e1)
-end
-function s.recon(e)
-	return e:GetHandler():IsFaceup()
 end