duiduiduiduidui

expansions/script/c33701015.lua

 --Sepialife - Blank Scherzo
---Scripted by AlphaKretin
+--Scripted by AlphaKretin cover bibeakwill
 --For Nemoma
 local s = c33701015
 local id = 33701015
@@ -7,7 +7,7 @@ function s.initial_effect(c)
 	c:SetSPSummonOnce(id)
 	--Special Summon
 	local e1 = Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW)
 	e1:SetDescription(aux.Stringid(id, 0))
 	e1:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_PHASE + PHASE_END)
@@ -21,7 +21,7 @@ function s.initial_effect(c)
 	local e2 = Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE + EFFECT_TYPE_CONTINUOUS)
 	e2:SetCode(EVENT_LEAVE_FIELD)
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_CANNOT_NEGATE)
 	e2:SetOperation(s.regop)
 	c:RegisterEffect(e2)
 	if not s.global_flag then
@@ -47,23 +47,32 @@ end
 function s.sptg(e, tp, eg, ep, ev, re, r, rp, chk)
 	local c = e:GetHandler()
 	if chk == 0 then
-		return Duel.GetLocationCount(tp, LOCATION_MZONE) > 0 and c:IsCanBeSpecialSummoned(e, 0, tp, false, false) and
-			Duel.IsPlayerCanDraw(tp, 2)
+		return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 	end
 	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, c, 1, 0, 0)
-	Duel.SetOperationInfo(0, CATEGORY_DRAW, nil, 2, 0, 0)
+	Duel.SetOperationInfo(0, CATEGORY_DRAW, nil, 1, 0, 0)
+end
+function s.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x144e)
 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
-		Duel.Draw(tp, 2, REASON_EFFECT)
+	if c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		local ct=Duel.GetMatchingGroupCount(s.cfilter,tp,LOCATION_MZONE,0,c)
+		if ct>2 then ct=2 end
+		if ct>0 then
+			Duel.Draw(tp,ct,REASON_EFFECT)
+		end
 	end
 end
-function s.ctfilter(c)
-	return not c:IsSetCard(0x144e)
+function s.ctfilter(c,tp)
+	return not (c:IsReason(REASON_DRAW) or c:IsSetCard(0x144e)) and c:IsControler(tp)
 end
 function s.ctop(e, tp, eg, ep, ev, re, r, rp)
-	s[tp] = s[tp] + eg:FilterCount(s.ctfilter, nil)
+	local ct0=eg:FilterCount(s.ctfilter,nil,0)
+	local ct1=eg:FilterCount(s.ctfilter,nil,1)
+	s[0]=s[0]+ct0
+	s[1]=s[1]+ct1
 end
 function s.resetop(e, tp, eg, ep, ev, re, r, rp)
 	s[0] = 0
@@ -97,7 +106,7 @@ function s.chainreg(e, tp, eg, ep, ev, re, r, rp)
 	e:GetHandler():RegisterFlagEffect(id, RESET_EVENT + 0x1fc0000 + RESET_CHAIN, 0, 1)
 end
 function s.drcon(e, tp, eg, ep, ev, re, r, rp)
-	return ep ~= tp and e:GetHandler():GetFlagEffect(id) ~= 0 and Duel.GetTurnPlayer()~=tp
+	return ep ~= tp and e:GetHandler():GetFlagEffect(id) ~= 0
 end
 function s.drop(e, tp, eg, ep, ev, re, r, rp)
 	Duel.Hint(HINT_CARD, 0, id)