fix

script/c101107005.lua

@@ -46,7 +46,8 @@ function c101107005.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SendtoGrave(g,REASON_COST)
 end
 function c101107005.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	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)
 end
 function c101107005.spop1(e,tp,eg,ep,ev,re,r,rp)

script/c101107006.lua

@@ -31,8 +31,11 @@ function c101107006.initial_effect(c)
 	e3:SetValue(-1000)
 	c:RegisterEffect(e3)
 end
-function c101107006.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_FZONE,LOCATION_FZONE,1,nil)
+function c101107006.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_FZONE,LOCATION_FZONE,1,nil)
 end
 function c101107006.actcon(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.IsEnvironment(101107052)

script/c101107007.lua

@@ -63,6 +63,7 @@ function c101107007.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c101107007.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
 		local e2=Effect.CreateEffect(c)
 		e2:SetType(EFFECT_TYPE_SINGLE)
 		e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
@@ -72,6 +73,7 @@ function c101107007.spop(e,tp,eg,ep,ev,re,r,rp)
 		e2:SetCountLimit(1)
 		e2:SetValue(c101107007.indct)
 		c:RegisterEffect(e2)
+	end
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c101107007.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)

script/c101107008.lua

@@ -68,7 +68,7 @@ function c101107008.dacon(e,ctp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetEquipTarget():IsSetCard(0x16c)
 end
 function c101107008.spfilter(c,def)
-	return c:IsFaceup() and c:GetAttack()<=def and c:IsAbleToHand()
+	return c:IsFaceup() and c:IsAttackBelow(def) and c:IsAbleToHand()
 end
 function c101107008.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()

script/c101107010.lua

@@ -33,7 +33,7 @@ function c101107010.tgfilter(c)
 end
 function c101107010.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c101107010.tgfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
 	if Duel.GetLP(tp)<=2000 then
 		Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500)
 	end
@@ -41,7 +41,8 @@ end
 function c101107010.tgop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local g=Duel.SelectMatchingCard(tp,c101107010.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and Duel.GetLP(tp)<=2000 then
+	if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_GRAVE)
+		and Duel.GetLP(tp)<=2000 then
 		Duel.BreakEffect()
 		Duel.Damage(1-tp,500,REASON_EFFECT)
 	end

script/c101107015.lua

@@ -73,12 +73,12 @@ function c101107015.sumfilter(c)
 	return c:IsSetCard(0x8e) and c:IsSummonable(true,nil)
 end
 function c101107015.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101107015.sumfilter,tp,LOCATION_HAND,0,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107015.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
 end
 function c101107015.sumop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
-	local g=Duel.SelectMatchingCard(tp,c101107015.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,c101107015.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
 	local tc=g:GetFirst()
 	if tc then
 		Duel.Summon(tp,tc,true,nil)

script/c101107016.lua

@@ -26,7 +26,7 @@ function c101107016.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 function c101107016.spfilter(c,e,tp)
-	return c:IsSetCard(0x156) and c:IsType(TYPE_MONSTER)
+	return c:IsSetCard(0x156) and not c:IsCode(101107016)
 		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function c101107016.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
@@ -38,7 +38,6 @@ function c101107016.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
 end
 function c101107016.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) then
 		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)

script/c101107017.lua

@@ -59,9 +59,12 @@ end
 function c101107017.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) then return end
-	if Duel.SendtoHand(c,nil,REASON_EFFECT)>0 and c:IsLocation(LOCATION_HAND) then
+	if Duel.SendtoHand(c,nil,REASON_EFFECT)>0 and c:IsLocation(LOCATION_HAND)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local g=Duel.SelectMatchingCard(tp,c101107017.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+		if #g>0 then
 			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 		end
+	end
 end

script/c101107018.lua

@@ -20,7 +20,7 @@ function c101107018.initial_effect(c)
 	--spsummon
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(101107018,1))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
 	e3:SetType(EFFECT_TYPE_IGNITION)
 	e3:SetRange(LOCATION_MZONE)
 	e3:SetCountLimit(1,101107018+100)
@@ -41,9 +41,10 @@ function c101107018.thop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.SelectMatchingCard(tp,c101107018.thfilter,tp,LOCATION_DECK,0,1,1,nil)
 	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 and g:GetFirst():IsLocation(LOCATION_HAND) then
 		Duel.ConfirmCards(1-tp,g)
-		if Duel.SelectYesNo(tp,aux.Stringid(101107018,2)) then
-			Duel.BreakEffect()
 		local c=e:GetHandler()
+		if c:IsRelateToEffect(e) and c:IsFaceup() and not c:IsAttribute(ATTRIBUTE_LIGHT)
+			and Duel.SelectYesNo(tp,aux.Stringid(101107018,2)) then
+			Duel.BreakEffect()
 			local e1=Effect.CreateEffect(c)
 			e1:SetType(EFFECT_TYPE_SINGLE)
 			e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
@@ -85,6 +86,7 @@ function c101107018.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c101107018.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetLabel()>0 end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
 end
 function c101107018.spop(e,tp,eg,ep,ev,re,r,rp)
@@ -103,6 +105,7 @@ function c101107018.spop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 		local thg=g2:Select(tp,1,1,nil)
 		Duel.SendtoHand(thg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,thg)
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
 	end
 end

script/c101107020.lua

@@ -32,7 +32,7 @@ function c101107020.cfilter(c,oc)
 end
 function c101107020.spfilter(c,e,tp)
 	return c:IsSetCard(0x2066,0xe9) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-		and not Duel.IsExistingMatchingCard(c101107020.cfilter,tp,LOCATION_MZONE,0,1,nil,c)
+		and not Duel.IsExistingMatchingCard(c101107020.cfilter,tp,LOCATION_ONFIELD,0,1,nil,c)
 end
 function c101107020.operation(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -44,11 +44,11 @@ function c101107020.operation(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 	e1:SetValue(e:GetLabel())
 	c:RegisterEffect(e1)
-	if Duel.IsExistingMatchingCard(c101107020.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
+	if Duel.IsExistingMatchingCard(aux.NecroValleyFilter(c101107020.spfilter),tp,LOCATION_GRAVE,0,1,nil,e,tp)
 		and Duel.SelectYesNo(tp,aux.Stringid(101107020,1)) then
 		Duel.BreakEffect()
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,c101107020.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c101107020.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 	end
 end

script/c101107021.lua

@@ -38,7 +38,7 @@ end
 function c101107021.sstg(e,tp,eg,ep,ev,re,r,rp,chk)
 	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,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 end
 function c101107021.ssop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

script/c101107022.lua

@@ -4,7 +4,6 @@
 function c101107022.initial_effect(c)
 	--spsummon
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
@@ -31,10 +30,10 @@ end
 function c101107022.spcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
-	return Duel.CheckReleaseGroup(tp,c101107022.spfilter,1,nil)
+	return Duel.CheckReleaseGroup(tp,c101107022.spfilter,1,nil,tp)
 end
 function c101107022.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.SelectReleaseGroup(tp,c101107022.spfilter,1,1,nil)
+	local g=Duel.SelectReleaseGroup(tp,c101107022.spfilter,1,1,nil,tp)
 	Duel.Release(g,REASON_COST)
 	c:RegisterFlagEffect(0,RESET_EVENT+0x4fc0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(101107022,1))
 	local atk=g:GetFirst():GetBaseAttack()

script/c101107030.lua

@@ -4,7 +4,8 @@
 function c101107030.initial_effect(c)
 	--spsummon
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetDescription(aux.Stringid(101107030,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
@@ -41,13 +42,16 @@ function c101107030.spop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c101107030.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local c=e:GetHandler()
 		local g=Duel.GetMatchingGroup(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,nil)
-	if chk==0 then return g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE,1-tp,LOCATION_REASON_CONTROL)>0 end
+		return g:GetCount()>0 and Duel.GetMZoneCount(tp,c,tp,LOCATION_REASON_CONTROL)>0
+	end
 	Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,1,1-tp,LOCATION_MZONE)
 end
 function c101107030.ctop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,nil)
-	if g:GetCount()<=0 or Duel.GetLocationCount(tp,LOCATION_MZONE,1-tp,LOCATION_REASON_CONTROL)<=0 then return end
+	if g:GetCount()<=0 or Duel.GetMZoneCount(tp,nil,tp,LOCATION_REASON_CONTROL)<=0 then return end
 	local tg=g:GetMinGroup(Card.GetAttack)
 	local tc=tg:GetFirst()
 	if tg:GetCount()>1 then

script/c101107032.lua

@@ -12,7 +12,7 @@ function c101107032.initial_effect(c)
 	c:RegisterEffect(e1)
 	--add counter
 	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_COUNTER)
+	e2:SetCategory(CATEGORY_COUNTER+CATEGORY_DRAW+CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_DAMAGE_STEP_END)
 	e2:SetTarget(c101107032.cttg)
@@ -26,7 +26,7 @@ function c101107032.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c101107032.ctop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
+	if c:IsRelateToEffect(e) and c:IsFaceup() then
 		c:AddCounter(0x161,1)
 		local ct=c:GetCounter(0x161)
 		local dg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_DECK,0,nil,TYPE_MONSTER)

script/c101107033.lua

@@ -13,6 +13,7 @@ function c101107033.initial_effect(c)
 end
 function c101107033.operation(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
 	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
 	local tc=g:GetFirst()
 	local atk=0

script/c101107034.lua

@@ -18,7 +18,7 @@ function c101107034.initial_effect(c)
 	c:RegisterEffect(e1)
 	--disable and spsummon
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(86509711,1))
+	e2:SetDescription(aux.Stringid(101107034,1))
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DISABLE+CATEGORY_TOHAND)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_CHAINING)

script/c101107035.lua

@@ -96,4 +96,5 @@ function c101107035.tgop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local tg=g:FilterSelect(tp,Card.IsAbleToGrave,1,1,nil)
 	Duel.SendtoGrave(tg,REASON_EFFECT)
+	Duel.ShuffleExtra(1-tp)
 end

script/c101107038.lua

@@ -17,7 +17,7 @@ function c101107038.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_MZONE)
-	e2:SetHintTiming(0,TIMING_MAIN_END)
+	e2:SetHintTiming(0,TIMING_MAIN_END+TIMINGS_CHECK_MONSTER)
 	e2:SetCountLimit(1,101107038)
 	e2:SetCondition(c101107038.cpcon)
 	e2:SetCost(c101107038.cpcost)

script/c101107040.lua

@@ -59,12 +59,12 @@ function c101107040.splimit(e,se,sp,st)
 		or st&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
 end
 function c101107040.drcon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:IsActiveType(TYPE_SPELL)
+	local c=e:GetHandler()
+	return re and re:IsActiveType(TYPE_SPELL) and c:IsSummonType(SUMMON_TYPE_FUSION)
 end
 function c101107040.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
 	local dr,des=e:GetLabel()
-	if chk==0 then return c:IsSummonType(SUMMON_TYPE_FUSION) and dr and des and Duel.IsPlayerCanDraw(tp,dr)
+	if chk==0 then return dr and des and Duel.IsPlayerCanDraw(tp,dr)
 		and Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>=des end
 	Duel.SetOperationInfo(0,CATEGORY_DRAW,0,dr,tp,0)
 	Duel.SetTargetPlayer(tp)

script/c101107041.lua

@@ -58,18 +58,19 @@ function c101107041.drop(e,tp,eg,ep,ev,re,r,rp)
 	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
 	Duel.Draw(p,d,REASON_EFFECT)
 end
-function c101107041.filter(c,tp)
-	return c:IsSummonPlayer(1-tp) and c:IsOnField()
+function c101107041.filter(c,e,tp)
+	return c:IsSummonPlayer(1-tp) and c:IsLocation(LOCATION_MZONE) and c:IsAbleToRemove()
+		and (not e or c:IsRelateToEffect(e))
 end
 function c101107041.remtg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return eg:IsExists(c101107041.filter,1,nil,tp) end
-	Duel.SetTargetCard(eg)
-	local g=eg:Filter(c101107041.filter,nil,tp)
+	if chk==0 then return eg:IsExists(c101107041.filter,1,nil,nil,tp) end
+	local g=eg:Filter(c101107041.filter,nil,nil,tp)
+	Duel.SetTargetCard(g)
 	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1200)
 end
 function c101107041.remop1(e,tp,eg,ep,ev,re,r,rp)
-	local g=eg:Filter(c101107041.filter,nil,tp)
+	local g=eg:Filter(c101107041.filter,nil,e,tp)
 	local tc=g:GetFirst()
 	if not tc then return end
 	if g:GetCount()>1 then

script/c101107042.lua

@@ -18,7 +18,7 @@ function c101107042.initial_effect(c)
 	--pos
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(101107042,1))
-	e2:SetCategory(CATEGORY_TPGRAVE)
+	e2:SetCategory(CATEGORY_TOGRAVE)
 	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_MZONE)
@@ -72,7 +72,6 @@ function c101107042.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chk==0 then return Duel.IsExistingTarget(c101107042.cfilter,tp,0,LOCATION_MZONE,1,nil,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
 	local g=Duel.SelectTarget(tp,c101107042.cfilter,tp,0,LOCATION_MZONE,1,1,nil,tp)
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
 end
 function c101107042.tgop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()

script/c101107044.lua

@@ -34,7 +34,6 @@ function c101107044.initial_effect(c)
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(101107044,3))
 	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCategory(CATEGORY_TOHAND)
 	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
 	e3:SetRange(LOCATION_MZONE)
 	e3:SetCondition(c101107044.pencon)
@@ -48,7 +47,8 @@ end
 function c101107044.sptgfilter(c)
 	return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
 end
-function c101107044.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function c101107044.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c101107044.sptgfilter(chkc) end
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,c)
 	if chk==0 then return tc and Duel.GetMZoneCount(tp)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
@@ -56,14 +56,17 @@ function c101107044.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(101107044,4))
 	local g=Duel.SelectTarget(tp,c101107044.sptgfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,0)
+	if g:GetFirst():IsLocation(LOCATION_GRAVE) then
+		Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
+	end
 end
 function c101107044.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,c)
 	local fc=Duel.GetFirstTarget()
-	if not tc or Duel.GetMZoneCount(tp)<1 then return end
-	if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then
-		if not fc:IsRelateToEffect(e) then return end
+	if tc and Duel.GetMZoneCount(tp)>0
+		and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0
+		and fc:IsRelateToEffect(e) then
 		Duel.MoveToField(fc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
 	end
 end

script/c101107045.lua

@@ -8,7 +8,7 @@ function c101107045.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_XYZ_LEVEL)
-	e1:SetProperty(EFFECT_FLAG_SET_AVAIABLE)
+	e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
 	e1:SetRange(LOCATION_EXTRA)
 	e1:SetTargetRange(LOCATION_MZONE,0)
 	e1:SetTarget(c101107045.lvtg)
@@ -46,6 +46,7 @@ function c101107045.eval(e,re,rp)
 	local c=e:GetHandler()
 	local rc=re:GetHandler()
 	return re:IsActiveType(TYPE_MONSTER) and not rc:IsSummonLocation(LOCATION_GRAVE) and rc:IsSummonType(SUMMON_TYPE_SPECIAL)
+		and re:GetActivateLocation()==LOCATION_MZONE
 end
 function c101107045.discost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
@@ -53,8 +54,7 @@ function c101107045.discost(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c101107045.distg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,4) and Duel.IsPlayerCanDiscardDeck(1-tp,4) end
-	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,4)
-	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,4)
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,PLAYER_ALL,4)
 end
 function c101107045.cfilter(c,e,tp)
 	return c:IsLocation(LOCATION_GRAVE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

script/c101107046.lua

@@ -49,7 +49,7 @@ end
 function c101107046.rmop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) and Duel.Remove(tc,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then
-		tc:RegisterFlagEffect(101107046,RESET_EVENT+RESETS_STANDARD+RESET_OPPO_TURN,0,1)
+		tc:RegisterFlagEffect(101107046,RESET_EVENT+RESETS_STANDARD,0,1)
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		e1:SetCode(EVENT_PHASE+PHASE_END)
@@ -73,15 +73,16 @@ function c101107046.regop(e,tp,eg,ep,ev,re,r,rp)
 	e:GetLabelObject():SetLabel(ct)
 end
 function c101107046.tdcon(e,tp,eg,ep,ev,re,r,rp)
-	return rp==1-tp and e:GetHandler():IsPreviousControler(tp) and e:GetLabel()>0
+	local c=e:GetHandler()
+	return rp==1-tp and c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_ONFIELD)
 end
 function c101107046.tdfilter(c)
 	return c:IsType(TYPE_MONSTER) and c:IsFaceup() and c:IsAbleToDeck()
 end
 function c101107046.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c101107046.tdfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c101107046.tdfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end
 	local ct=e:GetLabel()
+	if chk==0 then return ct>0 and Duel.IsExistingTarget(c101107046.tdfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
 	local sg=Duel.SelectTarget(tp,c101107046.tdfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,ct,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0)

script/c101107048.lua

@@ -9,6 +9,7 @@ function c101107048.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
 	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e1:SetCountLimit(1,101107048)
 	e1:SetCondition(c101107048.spcon)

script/c101107050.lua

@@ -13,7 +13,7 @@ function c101107050.initial_effect(c)
 	c:RegisterEffect(e1)
 	--spsummon
 	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)

script/c101107052.lua

@@ -52,7 +52,7 @@ end
 function c101107052.adop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
-	if not tc:IsRelateToEffect(e) then return end
+	if not (tc:IsRelateToEffect(e) and tc:IsFaceup()) then return end
 	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
 	g:AddCard(tc)
 	local tc1=g:GetFirst()

script/c101107053.lua

@@ -31,7 +31,7 @@ end
 function c101107053.disop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local rc=re:GetHandler()
-	if rp==1-tp and c:GetFlagEffect(101107053)==0
+	if rp==1-tp and Duel.IsChainDisablable(ev) and c:GetFlagEffect(101107053)==0
 		and re:IsActiveType(TYPE_MONSTER) and (rc:IsAttack(0) or rc:IsDefense(0))
 		--and rc:IsRelateToEffect(re) and rc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED)
 		--and (rc:IsFaceup() or rc:IsLocation(LOCATION_GRAVE))

script/c101107055.lua

@@ -15,7 +15,7 @@ function c101107055.initial_effect(c)
 	--to hand
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(101107055,1))
-	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_TODECK)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetCountLimit(1,101107055)
@@ -69,9 +69,11 @@ function c101107055.thop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,g)
 		Duel.ShuffleHand(tp)
-		Duel.BreakEffect()
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
 		local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,1,nil)
+		if #sg>0 then
+			Duel.BreakEffect()
 			Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)
 		end
+	end
 end

script/c101107057.lua

@@ -33,7 +33,7 @@ function c101107057.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
 end
 function c101107057.cfilter(c)
-	return c:IsSetCard(0x8d) and c:IsFacedown()
+	return c:IsSetCard(0x8d) and c:IsFacedown() and c:IsCanChangePosition()
 end
 function c101107057.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

script/c101107059.lua

@@ -53,11 +53,11 @@ function c101107059.ctpermit(e)
 	local c=e:GetHandler()
 	return c:IsLocation(LOCATION_SZONE) and c:IsStatus(STATUS_CHAINING)
 end
-function c101107059.cfilter(c,tp)
-	return c:IsSummonPlayer(tp) and c:IsSetCard(0x163) and c:IsFaceup() and c:IsPreviousLocation(LOCATION_HAND+LOCATION_EXTRA)
+function c101107059.cfilter(c)
+	return c:IsSetCard(0x163) and c:IsFaceup() and c:IsPreviousLocation(LOCATION_HAND+LOCATION_EXTRA)
 end
 function c101107059.drcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c101107059.cfilter,1,nil,tp)
+	return eg:IsExists(c101107059.cfilter,1,nil)
 end
 function c101107059.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
@@ -77,7 +77,8 @@ end
 function c101107059.tdfilter(c)
 	return c:IsSetCard(0x163) and not c:IsCode(101107059) and c:IsAbleToDeck()
 end
-function c101107059.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+function c101107059.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c101107059.tdfilter(chkc) end
 	if chk==0 then return Duel.IsExistingTarget(c101107059.tdfilter,tp,LOCATION_GRAVE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
 	local g=Duel.SelectTarget(tp,c101107059.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil)

script/c101107060.lua

@@ -8,6 +8,7 @@ function c101107060.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetCountLimit(1,101107060+EFFECT_COUNT_CODE_OATH)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
 	e1:SetCost(c101107060.cost)
 	e1:SetTarget(c101107060.target)
 	e1:SetOperation(c101107060.activate)

script/c101107061.lua

@@ -33,7 +33,7 @@ function c101107061.initial_effect(c)
 end
 function c101107061.cfilter(c,tp)
 	return c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT)
-		and c:IsType(TYPE_UNION) and c:IsPreviousControler(tp)
+		and c:IsType(TYPE_UNION) and c:IsPreviousControler(tp) and c:IsFaceup()
 end
 function c101107061.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return eg:IsExists(c101107061.cfilter,1,nil,tp)
@@ -42,10 +42,12 @@ function c101107061.spfilter(c,e,tp)
 	return c:IsCode(62651957,65622692,64500000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function c101107061.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101107061.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c101107061.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
 function c101107061.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,c101107061.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
 	if #g>0 then
@@ -61,8 +63,11 @@ function c101107061.sprcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=Duel.SelectMatchingCard(tp,c101107061.sprcfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
 	Duel.SendtoDeck(g,nil,2,REASON_COST)
 end
+function c101107061.sprfilter(c,e,tp)
+	return c:IsCode(62651957,65622692,64500000) and c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
 function c101107061.sprtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101107061.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end
+	if chk==0 then return Duel.IsExistingMatchingCard(c101107061.sprfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end
 	local max=2
 	if Duel.IsPlayerAffectedByEffect(tp,59822133) or Duel.GetMZoneCount(tp)<2 then max=1 end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,max,tp,LOCATION_REMOVED)
@@ -70,8 +75,8 @@ end
 function c101107061.sprop(e,tp,eg,ep,ev,re,r,rp)
 	local max=2
 	if Duel.GetMZoneCount(tp)<1 then return end
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) or Duel.GetMZoneCount(tp)<2 then max=1 end
-	local g=Duel.GetMatchingGroup(c101107061.spfilter,tp,LOCATION_REMOVED,0,nil,e,tp)
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then max=1 end
+	local g=Duel.GetMatchingGroup(c101107061.sprfilter,tp,LOCATION_REMOVED,0,nil,e,tp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,max)
 	if sg then

script/c101107062.lua

@@ -34,7 +34,7 @@ end
 function c101107062.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)>0 then
+	if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local g=Duel.SelectMatchingCard(tp,c101107062.filter2,tp,LOCATION_DECK,0,1,1,nil,e,tp,tc)
 		if #g>0 then
@@ -50,8 +50,8 @@ function c101107062.activate(e,tp,eg,ep,ev,re,r,rp)
 				e2:SetCode(EFFECT_DISABLE_EFFECT)
 				e2:SetReset(RESET_EVENT+RESETS_STANDARD)
 				sc:RegisterEffect(e2)
-				Duel.SpecialSummonComplete()
 			end
+			Duel.SpecialSummonComplete()
 		end
 	end
 end

script/c101107065.lua

@@ -7,6 +7,7 @@ function c101107065.initial_effect(c)
 	e1:SetCategory(CATEGORY_ATKCHANGE)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetCost(c101107065.cost)
 	e1:SetTarget(c101107065.target)
 	e1:SetOperation(c101107065.operation)
@@ -35,7 +36,7 @@ function c101107065.operation(e,tp,eg,ep,ev,re,r,rp)
 		tc:RegisterEffect(e1)
 		local e2=Effect.CreateEffect(e:GetHandler())
 		e2:SetDescription(aux.Stringid(101107065,0))
-		e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+		e2:SetCategory(CATEGORY_RECOVER+CATEGORY_DRAW)
 		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 		e2:SetCode(EVENT_BATTLE_DESTROYING)
 		e2:SetLabelObject(tc)

script/c101107066.lua

@@ -9,7 +9,8 @@ function c101107066.initial_effect(c)
 	c:RegisterEffect(e1)
 	--negate
 	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_DISABLE)
+	e2:SetDescription(aux.Stringid(101107066,0))
+	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DISABLE)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
@@ -21,12 +22,13 @@ function c101107066.initial_effect(c)
 	c:RegisterEffect(e2)
 	--to hand
 	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
+	e3:SetDescription(aux.Stringid(101107066,1))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
 	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e3:SetCode(EVENT_LEAVE_FIELD)
 	e3:SetProperty(EFFECT_FLAG_DELAY)
 	e3:SetRange(LOCATION_SZONE)
-	e3:SetHintTiming(1,101107066+100)
+	e3:SetCountLimit(1,101107066+100)
 	e3:SetCondition(c101107066.thcon)
 	e3:SetTarget(c101107066.thtg)
 	e3:SetOperation(c101107066.thop)
@@ -41,6 +43,8 @@ function c101107066.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 		and Duel.IsExistingMatchingCard(c101107066.disfilter,tp,LOCATION_MZONE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
 	local g=Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,1,nil)
+	local dg=Duel.GetMatchingGroup(c101107066.disfilter,tp,LOCATION_MZONE,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
 end
 function c101107066.disop(e,tp,eg,ep,ev,re,r,rp)
@@ -49,7 +53,7 @@ function c101107066.disop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.SelectMatchingCard(tp,c101107066.disfilter,tp,LOCATION_MZONE,0,1,1,nil)
 	if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT) then
 		local tc=Duel.GetFirstTarget()
-		if tc:IsRelateToEffect(e) then
+		if tc:IsRelateToEffect(e) and not tc:IsDisabled() then
 			Duel.NegateRelatedChain(tc,RESET_TURN_SET)
 			local e1=Effect.CreateEffect(c)
 			e1:SetType(EFFECT_TYPE_SINGLE)
@@ -83,10 +87,10 @@ function c101107066.ffilter(c,e,tp,ft)
 	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x16c) and (c:IsAbleToHand() or ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
 end
 function c101107066.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
 		local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if chk==0 then return Duel.IsExistingMatchingCard(c101107066.ffilter,tp,LOCATION_DECK,0,1,nil,e,tp,ft) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+		return Duel.IsExistingMatchingCard(c101107066.ffilter,tp,LOCATION_DECK,0,1,nil,e,tp,ft)
+	end
 end
 function c101107066.thop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

script/c101107069.lua

@@ -59,8 +59,8 @@ function c101107069.operation(e,tp,eg,ep,ev,re,r,rp)
 			end
 			tc=g:GetNext()
 		end
-	end
 		Duel.SpecialSummonComplete()
+	end
 	local e2=Effect.CreateEffect(e:GetHandler())
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)

script/c101107074.lua

@@ -54,13 +54,11 @@ function c101107074.disop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.NegateRelatedChain(tc,RESET_TURN_SET)
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 		e1:SetCode(EFFECT_DISABLE)
 		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 		tc:RegisterEffect(e1)
 		local e2=Effect.CreateEffect(c)
 		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 		e2:SetCode(EFFECT_DISABLE_EFFECT)
 		e2:SetValue(RESET_TURN_SET)
 		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
@@ -68,7 +66,6 @@ function c101107074.disop(e,tp,eg,ep,ev,re,r,rp)
 		if tc:IsType(TYPE_TRAPMONSTER) then
 			local e3=Effect.CreateEffect(c)
 			e3:SetType(EFFECT_TYPE_SINGLE)
-			e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 			e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
 			e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 			tc:RegisterEffect(e3)

script/c101107077.lua

@@ -8,6 +8,7 @@ function c101107077.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
 	e1:SetCondition(c101107077.condition)
 	e1:SetCost(c101107077.cost)
 	e1:SetTarget(c101107077.target)

script/c101107079.lua

@@ -40,7 +40,8 @@ function c101107079.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:SetLabel(s)
 	if s==0 then
 		e:SetCategory(CATEGORY_DESTROY)
-		Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,1-tp,LOCATION_MZONE)
+		local g=Duel.GetMatchingGroup(c101107079.desfilter,tp,0,LOCATION_MZONE,nil,dif)
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 	end
 	if s==1 then
 		e:SetCategory(CATEGORY_SPECIAL_SUMMON)

script/c101107080.lua

@@ -17,14 +17,17 @@ function c101107080.condition(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetLP(tp)<100
 end
 function c101107080.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
+	local ct=2
+	if Duel.GetLP(tp)<10 then ct=4 end
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,ct) end
 	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(2)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+	Duel.SetTargetParam(ct)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct)
 end
 function c101107080.operation(e,tp,eg,ep,ev,re,r,rp)
 	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
 	if Duel.Draw(p,d,REASON_EFFECT)>0 and Duel.GetLP(p)<10 then
+		Duel.BreakEffect()
 		Duel.Draw(p,2,REASON_EFFECT)
 	end
 end