2.0.0正式版 version

expansions/script/nef/TheElementTheory.lua

@@ -67,7 +67,7 @@ if not TET.ELCounter then
 					local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
 					local sg=g:RandomSelect(tp,1)
 					if Duel.Destroy(sg,REASON_EFFECT)>0 then
-						Duel.Damage(tp,Mystery*500,REASON_EFFECT)
+						Duel.Damage(tp,Mystery*600,REASON_EFFECT)
 					end
 				end
 				--融化
@@ -182,7 +182,7 @@ if not TET.ELCounter then
 					local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
 					local sg=g:RandomSelect(tp,1)
 					if Duel.Destroy(sg,REASON_EFFECT)>0 then
-						Duel.Damage(tp,Mystery*500,REASON_EFFECT)
+						Duel.Damage(tp,Mystery*600,REASON_EFFECT)
 					end
 				end
 				--感电
@@ -371,7 +371,7 @@ end
 function TET.crystal(e,tp,Mystery)
 	Duel.Hint(HINT_CARD,0,50708)
 	local g=Duel.GetMatchingGroup(TET.jjfilter,1-tp,LOCATION_MZONE,0,nil)
-	local gm=Mystery
+	local gm=Mystery*2
 	while gm>0 and g:GetCount()>0 do
 		local tc=g:RandomSelect(tp,1):GetFirst()
 		tc:AddCounter(0x500d,1)

script/c12028.lua

@@ -27,20 +27,30 @@ function c12028.condition(e,tp,eg,ep,ev,re,r,rp)
 	return ep~=tp and e:GetHandler():GetOverlayCount()>0
 end
 function c12028.operation(e,tp,eg,ep,ev,re,r,rp)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_DRAW)
-	e1:SetReset(RESET_PHASE+PHASE_END,2)
-	e1:SetCondition(c12028.con)
-	e1:SetOperation(c12028.op)
-	Duel.RegisterEffect(e1,tp)
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCountLimit(1)
+		e2:SetCode(EVENT_PHASE+PHASE_DRAW)
+		e2:SetLabel(0)
+		e2:SetCondition(c12028.damcon)
+		e2:SetOperation(c12028.damop)
+		e2:SetReset(RESET_PHASE+PHASE_DRAW+RESET_OPPO_TURN,1)
+		Duel.RegisterEffect(e2,tp)
+		DOT.DotCounter.Add(nil,1-tp,0,2000,2000,e)
 end
-function c12028.con(e,tp,eg,ep,ev,re,r,rp)
-	return ep~=tp
+function c12028.damcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()~=tp
 end
-function c12028.op(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Damage(1-tp,900,REASON_EFFECT)
+function c12028.damop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<1) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,2000,REASON_EFFECT)
+		DOT.DotCounter.Add(nil,1-tp,0,-2000,-2000,e)
+	end
 end
 function c12028.descost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end

script/c13047.lua

  --Sailor of Time
 function c13047.initial_effect(c)
+	--act
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(c13047.target)
+	e1:SetOperation(c13047.operation)
+	c:RegisterEffect(e1)
 	--sol
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
@@ -21,6 +30,19 @@ function c13047.initial_effect(c)
 	e2:SetOperation(c13047.desop)
 	c:RegisterEffect(e2)
 end
+function c13047.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c13047.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end
 function c13047.tgfilter(c)
 	return c:IsSetCard(0x13c) and c:IsAbleToHand() and (c:IsLocation(LOCATION_DECK) or (c:IsFaceup() and c:IsLocation(LOCATION_REMOVED)))
 end

script/c15075.lua

@@ -44,7 +44,7 @@ function c15075.spfilter(c)
 end
 function c15075.spcon(e,c)
 	if c==nil then return true end
-	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1
+	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
 		and Duel.IsExistingMatchingCard(c15075.spfilter,c:GetControler(),LOCATION_GRAVE,0,6,c)
 end
 function c15075.spop(e,tp,eg,ep,ev,re,r,rp,c)

script/c16000006.lua

 --猎梦者✿Huitloxopetl
+require "expansions/script/nef/darksyn"
 function c16000006.initial_effect(c)
+	DS.DarkTunerLimit(c)
 	--atk
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE)
@@ -23,9 +25,8 @@ function c16000006.initial_effect(c)
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(16000006,1))
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
-	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetCountLimit(1,16000006)
 	e2:SetCondition(c16000006.spcon)
@@ -33,13 +34,6 @@ function c16000006.initial_effect(c)
 	e2:SetTarget(c16000006.sptg)
 	e2:SetOperation(c16000006.spop)
 	c:RegisterEffect(e2)
-	--synchro summon
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
-	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e3:SetValue(c16000006.synlimit)
-	c:RegisterEffect(e3)
 	--spcon
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE)
@@ -59,7 +53,7 @@ function c16000006.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
 end
 function c16000006.filter(c)
-	return c:IsFaceup() and c:IsType(TYPE_TUNER) and not c:IsDisabled()  and not c:IsSetCard(0x6208)
+	return c:IsFaceup() and c:IsType(TYPE_TUNER) and not c:IsDisabled() and c:IsLevelBelow(12)
 end
 function c16000006.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c16000006.filter(chkc) end
@@ -82,6 +76,15 @@ function c16000006.operation(e,tp,eg,ep,ev,re,r,rp)
 		e2:SetCode(EFFECT_DISABLE_EFFECT)
 		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
 		tc:RegisterEffect(e2)
+		
+		local e5=Effect.CreateEffect(c)
+		e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e5:SetType(EFFECT_TYPE_SINGLE)
+		e5:SetCode(EFFECT_CHANGE_LEVEL)
+		e5:SetValue(tc:GetLevel()*3)
+		e5:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e5)
+		if (not tc:IsSetCard(0x6208)) and Duel.SelectYesNo(tp,aux.Stringid(16000006,2)) then
 			local e3=Effect.CreateEffect(c)
 			e3:SetType(EFFECT_TYPE_SINGLE)
 			e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
@@ -97,26 +100,20 @@ function c16000006.operation(e,tp,eg,ep,ev,re,r,rp)
 			e4:SetValue(0x6208)
 			e4:SetReset(RESET_EVENT+RESETS_STANDARD)
 			tc:RegisterEffect(e4)
-		local e5=Effect.CreateEffect(c)
-		e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e5:SetType(EFFECT_TYPE_SINGLE)
-		e5:SetCode(EFFECT_CHANGE_LEVEL)
-		e5:SetValue(tc:GetLevel()*3)
-		e5:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e5)
+		end
 	end
 end
-function c16000006.cfilter(c,tp)
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp and c:IsSetCard(0x5208) and c:IsAbleToRemoveAsCost()
+function c16000006.cfilter(c)
+	return c:IsSetCard(0x5208) and c:IsAbleToRemoveAsCost()
 end
 function c16000006.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:Filter(c16000006.cfilter,nil,tp):GetCount()>0
+	return true
 end
 function c16000006.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=eg:Filter(c16000006.cfilter,nil,tp)
-	if chk==0 then return g:GetCount()>0 end
-	local rc
-	if g:GetCount() == 1 then rc=g:GetFirst() else rc=g:Select(tp,1,1,nil):GetFirst() end
+	if chk==0 then return Duel.IsExistingMatchingCard(c16000006.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c16000006.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	local rc=g:GetFirst()
 	e:SetLabel(rc:GetLevel())
 	Duel.Remove(rc,POS_FACEUP,REASON_COST)
 end
@@ -127,7 +124,6 @@ end
 function c16000006.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
-		--c:CompleteProcedure()
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_UPDATE_LEVEL)

script/c21139.lua

@@ -68,16 +68,22 @@ function c21139.adop(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+		e1:SetReset(RESET_EVENT+0x1fe0000)
 		e1:SetValue(tc:GetAttack()/2)
 		tc:RegisterEffect(e1)
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_SET_DEFENSE_FINAL)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+		e1:SetReset(RESET_EVENT+0x1fe0000)
 		e1:SetValue(tc:GetDefense()/2)
 		tc:RegisterEffect(e1)
+		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetCode(EFFECT_CANNOT_TRIGGER)
+		e3:SetReset(RESET_EVENT+0x1fe0000)
+		e3:SetValue(1)
+		tc:RegisterEffect(e3)
 	end
 end
 function c21139.filter2(c,e,tp)

script/c21153.lua

@@ -16,6 +16,10 @@ function c21153.initial_effect(c)
 	e2:SetTargetRange(0,LOCATION_MZONE)
 	e2:SetTarget(c21153.atktarget)
 	c:RegisterEffect(e2)
+	local e5=e2:Clone()
+	e5:SetCode(EFFECT_CANNOT_TRIGGER)
+	e5:SetTarget(c21153.trtarget)
+	c:RegisterEffect(e5)
 	--Atk
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_FIELD)
@@ -68,3 +72,6 @@ end
 function c21153.atktarget(e,c)
 	return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER)
 end
+function c21153.trtarget(e,c)
+	return Duel.GetCurrentPhase()~=PHASE_MAIN1 and (c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER))
+end

script/c22049.lua

@@ -17,7 +17,7 @@ function c22049.initial_effect(c)
 	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
 	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetCondition(c22049.condition)
+	--e3:SetCondition(c22049.condition)
 	e3:SetTarget(c22049.target)
 	e3:SetOperation(c22049.operation)
 	c:RegisterEffect(e3)
@@ -48,12 +48,12 @@ function c22049.filter2(c)
 	return c:IsSetCard(0x177) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
 end
 function c22049.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c22049.filter2,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	if chk==0 then return Duel.IsExistingMatchingCard(c22049.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
 end
 function c22049.operation(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c22049.filter2,tp,LOCATION_DECK,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,c22049.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
 	if g:GetCount()>0 then
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,g)

script/c22052.lua

@@ -68,7 +68,8 @@ function c22052.sop(e,tp,eg,ep,ev,re,r,rp)
 end
 function c22052.condition(e,tp,eg,ep,ev,re,r,rp)
 	local loc=Duel.GetChainInfo(0,CHAININFO_TRIGGERING_LOCATION)
-	return ep~=tp and loc==LOCATION_MZONE and re:GetHandler():GetFlagEffect(22052)>0 and Duel.IsChainDisablable(ev) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+	return ep~=tp and loc==LOCATION_MZONE and Duel.IsChainDisablable(ev) --and re:GetHandler():GetFlagEffect(22052)>0 
+	and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
 end
 function c22052.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end

script/c22131.lua

@@ -20,5 +20,25 @@ function c22131.rdcon(e,tp,eg,ep,ev,re,r,rp)
 	return ep~=tp
 end
 function c22131.rdop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Damage(1-tp,500,REASON_BATTLE)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCountLimit(1)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetLabel(0)
+	e1:SetOperation(c22131.damop)
+	e1:SetReset(RESET_PHASE+PHASE_END,1)
+	Duel.RegisterEffect(e1,tp)
+	DOT.DotCounter.Add(nil,1-tp,0,500,500,e)
+end
+function c22131.damop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<1) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,500,REASON_EFFECT)
+		DOT.DotCounter.Add(nil,1-tp,0,-500,-500,e)
+	end
 end

script/c22225.lua

@@ -14,7 +14,7 @@ function c22225.initial_effect(c)
 	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOGRAVE+CATEGORY_DECKDES)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_CHAINING)
-	e2:SetRange(LOCATION_GRAVE)
+	e2:SetRange(LOCATION_GRAVE+LOCATION_MZONE)
 	e2:SetCountLimit(1,22225)
 	e2:SetCondition(c22225.condition)
 	e2:SetCost(c22225.cost)

script/c23057.lua

@@ -2,7 +2,7 @@
 function c23057.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_HANDES)
+	e1:SetCategory(CATEGORY_HANDES+CATEGORY_DAMAGE)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetCode(EVENT_FREE_CHAIN)
@@ -16,9 +16,9 @@ function c23057.cfilter(c)
 	return c:IsType(TYPE_MONSTER) and c:IsAbleToDeckAsCost()
 end
 function c23057.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c23057.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(c23057.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,c23057.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,c23057.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
 	Duel.ConfirmCards(1-tp,g)
 	Duel.SendtoDeck(g,nil,1,REASON_COST)
 end
@@ -31,5 +31,29 @@ function c23057.activate(e,tp,eg,ep,ev,re,r,rp)
 	if g:GetCount()>0 then
 		local sg=g:RandomSelect(1-tp,1,nil)
 		Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD)
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCountLimit(1)
+		e2:SetCode(EVENT_PHASE+PHASE_DRAW)
+		e2:SetLabel(0)
+		e2:SetCondition(c23057.damcon)
+		e2:SetOperation(c23057.damop)
+		e2:SetReset(RESET_PHASE+PHASE_DRAW+RESET_OPPO_TURN,1)
+		Duel.RegisterEffect(e2,tp)
+		DOT.DotCounter.Add(nil,1-tp,0,2000,2000,e)
+	end
+end
+function c23057.damcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()~=tp
+end
+function c23057.damop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<1) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,2000,REASON_EFFECT)
+		DOT.DotCounter.Add(nil,1-tp,0,-2000,-2000,e)
 	end
 end

script/c23076.lua

@@ -84,5 +84,28 @@ function c23076.damcon(e,tp,eg,ep,ev,re,r,rp)
 	return tc:GetPreviousLocation()==LOCATION_DECK and tc:GetCode()==code and tc:GetPreviousControler()==1-tp
 end
 function c23076.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.SetLP(1-tp,Duel.GetLP(1-tp)/2)
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCountLimit(1)
+		e2:SetCode(EVENT_PHASE+PHASE_DRAW)
+		e2:SetLabel(0)
+		e2:SetCondition(c23076.zzcon)
+		e2:SetOperation(c23076.zzop)
+		e2:SetReset(RESET_PHASE+PHASE_DRAW+RESET_OPPO_TURN,1)
+		Duel.RegisterEffect(e2,tp)
+		DOT.DotCounter.Add(nil,1-tp,0,2000,2000,e)
+end
+function c23076.zzcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()~=tp
+end
+function c23076.zzop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<1) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,2000,REASON_EFFECT)
+		DOT.DotCounter.Add(nil,1-tp,0,-2000,-2000,e)
+	end
 end

script/c23162.lua

@@ -40,7 +40,7 @@ function c23162.fusfilter(c)
 	return c:GetCounter(0x128a)>0
 end
 function c23162.val(e,c)
-	return Duel.GetCounter(0,LOCATION_ONFIELD,LOCATION_ONFIELD,0x128a)*300
+	return Duel.GetCounter(0,LOCATION_ONFIELD,LOCATION_ONFIELD,0x128a)*500
 end
 function c23162.atkfilter(c)
 	return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_EARTH)
@@ -55,12 +55,12 @@ function c23162.filter(c)
 	return c:IsAbleToDeck()
 end
 function c23162.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c23162.filter,tp,LOCATION_GRAVE,0,2,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(c23162.filter,tp,LOCATION_GRAVE,0,1,nil) end
 end
 function c23162.operation(e,tp,eg,ep,ev,re,r,rp)
-	if not Duel.IsExistingMatchingCard(c23162.filter,tp,LOCATION_GRAVE,0,2,nil) then return end
+	if not Duel.IsExistingMatchingCard(c23162.filter,tp,LOCATION_GRAVE,0,1,nil) then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,c23162.filter,tp,LOCATION_GRAVE,0,2,2,nil)
+	local g=Duel.SelectMatchingCard(tp,c23162.filter,tp,LOCATION_GRAVE,0,1,1,nil)
 	Duel.ConfirmCards(1-tp,g)
 	Duel.SendtoDeck(g,nil,1,REASON_COST)
 	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(23162,5))

script/c23168.lua

@@ -52,11 +52,16 @@ function c23168.ctop(e,tp,eg,ep,ev,re,r,rp,chk)
 	end
 end
 function c23168.desfilter(c)
-	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGrave()
+	return c:IsType(TYPE_SPELL) and c:IsAbleToGrave()
+end
+function c23168.cfmfilter(c)
+	return not c:IsPublic()
 end
 function c23168.tgop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c23168.desfilter,tp,0,LOCATION_ONFIELD,nil)
+	local g=Duel.GetMatchingGroup(c23168.desfilter,tp,0,LOCATION_ONFIELD+LOCATION_HAND,nil)
 	Duel.SendtoGrave(g,REASON_EFFECT)
+	local g2=Duel.GetMatchingGroup(c23168.cfmfilter,tp,0,LOCATION_ONFIELD+LOCATION_HAND,nil)
+	Duel.ConfirmCards(tp,g2)
 end
 function c23168.descon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

script/c23178.lua

@@ -11,7 +11,7 @@ function c23178.initial_effect(c)
 	e2:SetCode(EFFECT_UPDATE_ATTACK)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetTarget(c23178.lvtg)
-	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
 	e2:SetValue(200)
 	c:RegisterEffect(e2)
 	--Def
@@ -20,7 +20,7 @@ function c23178.initial_effect(c)
 	e3:SetCode(EFFECT_UPDATE_DEFENSE)
 	e3:SetRange(LOCATION_SZONE)
 	e3:SetTarget(c23178.lvtg)
-	e3:SetTargetRange(LOCATION_MZONE,0)
+	e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
 	e3:SetValue(200)
 	c:RegisterEffect(e3)
 	--dice
@@ -56,8 +56,8 @@ end
 function c23178.operation(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
 	local dc=Duel.TossDice(tp,1)
-	if dc<5 then
-		Duel.Draw(tp,1,REASON_EFFECT)
+	if dc<4 then
+		Duel.Draw(tp,dc,REASON_EFFECT)
 	else
 		Duel.Recover(tp,dc*200,REASON_EFFECT)
 	end

script/c23179.lua

@@ -11,7 +11,7 @@ function c23179.initial_effect(c)
 	e2:SetCode(EFFECT_SET_ATTACK)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_PLANT))
-	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
 	e2:SetValue(c23179.val1)
 	c:RegisterEffect(e2)
 	--Def
@@ -20,7 +20,7 @@ function c23179.initial_effect(c)
 	e3:SetCode(EFFECT_SET_DEFENSE)
 	e3:SetRange(LOCATION_SZONE)
 	e3:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_PLANT))
-	e3:SetTargetRange(LOCATION_MZONE,0)
+	e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
 	e3:SetValue(c23179.val2)
 	c:RegisterEffect(e3)
 	--dice
@@ -52,18 +52,45 @@ function c23179.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
 end
 function c23179.cfilter(c,sp)
-	return c:IsRace(RACE_PLANT) and c:IsFaceup() and c:GetControler()==sp and c:GetLevel()<=7
+	return c:IsFaceup() and c:GetControler()==sp and c:GetLevel()<=7
 end
-function c23179.filter(c,sp,e)
-	return c:IsRace(RACE_PLANT) and c:IsFaceup() and c:GetControler()==sp and c:GetLevel()<=7 and c:IsDestructable() and c:IsRelateToEffect(e)
+function c23179.filter(c,e)
+	return c:IsDestructable() and c:IsRelateToEffect(e)
 end
 function c23179.operation(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
 	local dc=Duel.TossDice(tp,1)
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c23179.filter,nil,tp,e)
-	if dc<5 and g:GetCount()>0 then
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c23179.filter,nil,e)
+	if dc<6 and g:GetCount()>0 then
 		Duel.Destroy(g,REASON_EFFECT)
 	else
-		Duel.Damage(tp,2000,REASON_EFFECT)
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCountLimit(1)
+		e2:SetCode(EVENT_PHASE+PHASE_DRAW)
+		e2:SetLabel(0)
+		e2:SetCondition(c23179.damcon)
+		e2:SetOperation(c23179.damop)
+		e2:SetReset(RESET_PHASE+PHASE_DRAW+RESET_OPPO_TURN,1)
+		Duel.RegisterEffect(e2,tp)
+		DOT.DotCounter.Add(nil,1-tp,0,2000,4000,e)
+	end
+end
+function c23179.damcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()~=tp
+end
+function c23179.damop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<2) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,2000,REASON_EFFECT)
+		if ct==2 then
+			DOT.DotCounter.Add(nil,1-tp,0,-2000,-2000,e)
+		else
+			DOT.DotCounter.Add(nil,1-tp,0,0,-2000,e)
+		end
 	end
 end

script/c23201.lua

@@ -6,7 +6,6 @@ function c23201.initial_effect(c)
 	e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_SEARCH)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,23201+EFFECT_COUNT_CODE_OATH)
 	e1:SetTarget(c23201.damtg)
 	e1:SetOperation(c23201.damop)
 	c:RegisterEffect(e1)

script/c23261.lua

@@ -6,8 +6,10 @@ function c23261.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(23261,0))
 	e1:SetCategory(CATEGORY_TODECK+CATEGORY_POSITION)
-	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c23261.dcon)
 	e1:SetTarget(c23261.destg)
 	e1:SetOperation(c23261.desop)
 	c:RegisterEffect(e1)
@@ -19,7 +21,6 @@ function c23261.initial_effect(c)
 	e2:SetRange(LOCATION_MZONE)
 	e2:SetCode(EVENT_PHASE+PHASE_END)
 	e2:SetCountLimit(1)
-	e2:SetCondition(c23261.drcon)
 	e2:SetTarget(c23261.drtg)
 	e2:SetOperation(c23261.drop)
 	c:RegisterEffect(e2)
@@ -59,8 +60,8 @@ end
 function c23261.cfilter(c)
 	return c:GetCounter(0x128a)>0
 end
-function c23261.drcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c23261.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
+function c23261.dcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp or Duel.IsExistingMatchingCard(c23261.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
 end
 function c23261.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end

script/c24004.lua

@@ -7,6 +7,20 @@ function c24004.initial_effect(c)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetOperation(c24004.sumop)
 	c:RegisterEffect(e1)
+	--poison
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(24004,0))
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetTarget(c24004.destg)
+	e3:SetOperation(c24004.desop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_SUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+	local e5=e3:Clone()
+	e5:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e5)
 end
 function c24004.sumop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetFlagEffect(tp,24004)~=0 then return end
@@ -19,3 +33,36 @@ function c24004.sumop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.RegisterEffect(e1,tp)
 	Duel.RegisterFlagEffect(tp,24004,RESET_PHASE+PHASE_END,0,1)
 end
+function c24004.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
+function c24004.desop(e,tp,eg,ep,ev,re,r,rp)
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCountLimit(1)
+	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e2:SetLabel(0)
+	e2:SetCondition(c24004.damcon)
+	e2:SetOperation(c24004.damop)
+	e2:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_OPPO_TURN,3)
+	Duel.RegisterEffect(e2,tp)
+	DOT.DotCounter.Add(nil,1-tp,0,400,800,e)
+end
+function c24004.damcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()~=tp
+end
+function c24004.damop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<2) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,400,REASON_EFFECT)
+		if ct==2 then
+			DOT.DotCounter.Add(nil,1-tp,0,-400,-400,e)
+		else
+			DOT.DotCounter.Add(nil,1-tp,0,0,-400,e)
+		end
+	end
+end

script/c24049.lua

@@ -25,8 +25,8 @@ function c24049.filter(c)
 	return (math.abs(c:GetAttack()-c:GetDefense())==200 or math.abs(c:GetAttack()-c:GetDefense())==2000) and not c:IsType(TYPE_LINK)
 end
 function c24049.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c24049.filter,1,nil) end
-	local g=Duel.SelectReleaseGroup(tp,c24049.filter,1,1,nil)
+	if chk==0 then return Duel.CheckReleaseGroupEx(tp,c24049.filter,1,nil) end
+	local g=Duel.SelectReleaseGroupEx(tp,c24049.filter,1,1,nil)
 	Duel.Release(g,REASON_COST)
 end
 function c24049.activate(e,tp,eg,ep,ev,re,r,rp)

script/c24055.lua

@@ -13,10 +13,20 @@ end
 function c24055.filter(c)
 	return c:IsSetCard(0x262)
 end
+function c24055.filter2(c)
+	return c:IsRace(RACE_INSECT)
+end
 function c24055.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c24055.filter,1,nil) end
-	local g=Duel.SelectReleaseGroup(tp,c24055.filter,1,1,nil)
+	if chk==0 then return Duel.CheckReleaseGroupEx(tp,c24055.filter,1,nil)
+		or Duel.CheckReleaseGroupEx(tp,c24055.filter2,2,nil) end
+	local g=Duel.SelectReleaseGroupEx(tp,c24055.filter2,1,1,nil)
+	if not g:GetFirst():IsSetCard(0x262) then
+		local g2=Duel.SelectReleaseGroupEx(tp,c24055.filter2,1,1,g:GetFirst())
+		g:Merge(g2)
+		Duel.Release(g,REASON_COST)
+	else
 		Duel.Release(g,REASON_COST)
+	end
 end
 function c24055.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -29,13 +39,13 @@ function c24055.activate(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetOperation(c24055.damop)
 	e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_OPPO_TURN,3)
 	Duel.RegisterEffect(e1,tp)
-	DOT.DotCounter.Add(nil,1-tp,0,300,900,e)
+	DOT.DotCounter.Add(nil,1-tp,0,400,1200,e)
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetCode(EFFECT_UPDATE_ATTACK)
 	e2:SetTargetRange(0,LOCATION_MZONE)
 	e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
-	e2:SetValue(-300)
+	e2:SetValue(-500)
 	Duel.RegisterEffect(e2,tp)
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
@@ -54,11 +64,11 @@ function c24055.damop(e,tp,eg,ep,ev,re,r,rp)
 		ct=ct+1
 		e:SetLabel(ct)
 		c:SetTurnCounter(ct)
-		Duel.Damage(1-tp,300,REASON_EFFECT)
+		Duel.Damage(1-tp,400,REASON_EFFECT)
 		if ct==3 then
-			DOT.DotCounter.Add(nil,1-tp,0,-300,-300,e)
+			DOT.DotCounter.Add(nil,1-tp,0,-400,-400,e)
 		else
-			DOT.DotCounter.Add(nil,1-tp,0,0,-300,e)
+			DOT.DotCounter.Add(nil,1-tp,0,0,-400,e)
 		end
 	end
 end

script/c24059.lua

@@ -20,8 +20,8 @@ function c24059.filter(c)
 	return (math.abs(c:GetAttack()-c:GetDefense())==200 or math.abs(c:GetAttack()-c:GetDefense())==2000) and not c:IsType(TYPE_LINK)
 end
 function c24059.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c24059.filter,1,nil) end
-	local g=Duel.SelectReleaseGroup(tp,c24059.filter,1,1,nil)
+	if chk==0 then return Duel.CheckReleaseGroupEx(tp,c24059.filter,1,nil) end
+	local g=Duel.SelectReleaseGroupEx(tp,c24059.filter,1,1,nil)
 	Duel.Release(g,REASON_COST)
 end
 function c24059.activate(e,tp,eg,ep,ev,re,r,rp)

script/c24066.lua

@@ -12,8 +12,8 @@ function c24066.initial_effect(c)
     local e2=Effect.CreateEffect(c)
     e2:SetType(EFFECT_TYPE_SINGLE)
     e2:SetCode(EFFECT_ADD_SETCODE)
-    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IMMEDIATELY_APPLY+EFFECT_FLAG_SET_AVAILABLE)
-    e2:SetRange(LOCATION_GRAVE+LOCATION_SZONE)
+    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE)
+    e2:SetRange(LOCATION_GRAVE+LOCATION_HAND)
     e2:SetValue(0x164)
     c:RegisterEffect(e2)
 end
@@ -31,7 +31,7 @@ function c24066.activate(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetOperation(c24066.damop)
 		e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_OPPO_TURN,5)
 		Duel.RegisterEffect(e1,tp)
-		DOT.DotCounter.Add(nil,1-tp,0,300,1500,e)
+		DOT.DotCounter.Add(nil,1-tp,0,400,2000,e)
 end
 function c24066.damcon(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetTurnPlayer()~=tp
@@ -43,11 +43,11 @@ function c24066.damop(e,tp,eg,ep,ev,re,r,rp)
 		ct=ct+1
 		e:SetLabel(ct)
 		c:SetTurnCounter(ct)
-		Duel.Damage(1-tp,300,REASON_EFFECT)
+		Duel.Damage(1-tp,400,REASON_EFFECT)
 		if ct==5 then
-			DOT.DotCounter.Add(nil,1-tp,0,-300,-300,e)
+			DOT.DotCounter.Add(nil,1-tp,0,-400,-400,e)
 		else
-			DOT.DotCounter.Add(nil,1-tp,0,0,-300,e)
+			DOT.DotCounter.Add(nil,1-tp,0,0,-400,e)
 		end
 	end
 end

script/c24068.lua

@@ -12,10 +12,20 @@ function c24068.initial_effect(c)
     local e2=Effect.CreateEffect(c)
     e2:SetType(EFFECT_TYPE_SINGLE)
     e2:SetCode(EFFECT_ADD_SETCODE)
-    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IMMEDIATELY_APPLY+EFFECT_FLAG_SET_AVAILABLE)
-    e2:SetRange(LOCATION_GRAVE+LOCATION_SZONE)
+    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE)
+    e2:SetRange(LOCATION_GRAVE+LOCATION_HAND)
     e2:SetValue(0x164)
     c:RegisterEffect(e2)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SSET)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCondition(c24068.spcon)
+	e3:SetTarget(c24068.sptg)
+	e3:SetOperation(c24068.spop)
+	c:RegisterEffect(e3)
 end
 function c24068.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then 
@@ -41,3 +51,23 @@ function c24068.activate(e,tp,eg,ep,ev,re,r,rp)
 		Duel.ShuffleDeck(tp)
 	end
 end
+function c24068.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c24068.spfilter,1,nil,tp)
+end
+function c24068.spfilter(c,tp)
+	return c:IsSetCard(0x164) and c:IsControler(tp)
+end
+function c24068.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,24063,0,0x4011,200,0,1,RACE_INSECT,ATTRIBUTE_DARK) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+end
+function c24068.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsRelateToEffect(e)
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,24063,0,0x208,200,0,1,RACE_INSECT,ATTRIBUTE_DARK) then
+		Duel.ConfirmCards(1-tp,eg)
+		local token=Duel.CreateToken(tp,24063)
+		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c24071.lua

@@ -20,6 +20,16 @@ function c24071.initial_effect(c)
 	e2:SetCode(EFFECT_BATTLE_DESTROY_REDIRECT)
 	e2:SetValue(LOCATION_REMOVED)
 	c:RegisterEffect(e2)
+	--tohand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(24071,3))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetTarget(c24071.thtg)
+	e3:SetOperation(c24071.thop)
+	c:RegisterEffect(e3)
 end
 function c24071.sfilter(c)
 	return c:IsSetCard(0x625) and c:IsType(TYPE_MONSTER) and c:GetLevel()==1 and c:IsAbleToRemoveAsCost()
@@ -52,3 +62,28 @@ function c24071.sop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoGrave(tg,REASON_EFFECT)
 	end
 end
+function c24071.thfilter(c)
+	return c:IsRace(RACE_ZOMBIE) and c:GetLevel()==1 and (c:IsAbleToHand())
+end
+function c24071.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c24071.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c24071.spfilter(c,e,tp)
+	return c:IsSetCard(0x83) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c24071.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
+	local g1=Duel.SelectMatchingCard(tp,c24071.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g1:GetCount()>0 then
+		local tc=g1:GetFirst()
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+		if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0
+		and Duel.SelectYesNo(tp,aux.Stringid(24071,3)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
\ No newline at end of file

script/c24164.lua

@@ -18,7 +18,7 @@ function c24164.initial_effect(c)
 	--disable
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(24164,1))
-	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_NEGATE)
+	e2:SetCategory(CATEGORY_TOGRAVE)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_CHAINING)
 	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
@@ -35,10 +35,10 @@ function c24164.initial_effect(c)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCode(EFFECT_CANNOT_ATTACK)
 	e1:SetCondition(c24164.adcon)
-	c:RegisterEffect(e1)
+	--c:RegisterEffect(e1)
 end
 function c24164.ovfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x115)
+	return c:IsFaceup() and c:IsSetCard(0x115) and c:IsSummonType(SUMMON_TYPE_SPECIAL)
 end
 function c24164.xyzop(e,tp,chk)
 	if chk==0 then return Duel.GetFlagEffect(tp,24164)==0 end
@@ -67,7 +67,7 @@ function c24164.operation(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c24164.discon(e,tp,eg,ep,ev,re,r,rp)
-	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp==1-tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp==1-tp and re:IsActiveType(TYPE_MONSTER) --and Duel.IsChainNegatable(ev)
 end
 function c24164.sfilter(c)
 	return c:IsRace(RACE_ZOMBIE) and c:GetLevel()==1
@@ -90,14 +90,14 @@ function c24164.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c24164.distg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
-	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
-		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	--Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsAbleToGrave() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,eg,1,0,0)
 	end
 end
 function c24164.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
-		Duel.Destroy(eg,REASON_EFFECT)
+	if re:GetHandler():IsRelateToEffect(re) then
+		Duel.SendtoGrave(eg,REASON_EFFECT)
 	end
 end
 function c24164.adcon(e)

script/c25043.lua

@@ -5,7 +5,7 @@ function c25043.initial_effect(c)
 	e1:SetDescription(aux.Stringid(25043,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
+	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
 	e1:SetCountLimit(1,25043)
 	e1:SetCost(c25043.spcost)
 	e1:SetTarget(c25043.sptg)
@@ -26,7 +26,7 @@ function c25043.initial_effect(c)
 	e3:SetDescription(aux.Stringid(25043,2))
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
 	e3:SetCode(EVENT_BATTLE_START)
-	e3:SetCountLimit(1,25043)
+	e3:SetCountLimit(1,25044)
 	e3:SetTarget(c25043.destg)
 	e3:SetOperation(c25043.desop)
 	c:RegisterEffect(e3)

script/c25046.lua

@@ -13,8 +13,8 @@ function c25046.filter(c)
 	return (math.abs(c:GetAttack()-c:GetDefense())==200 or math.abs(c:GetAttack()-c:GetDefense())==2000) and not c:IsType(TYPE_LINK)
 end
 function c25046.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c25046.filter,1,nil) end
-	local g=Duel.SelectReleaseGroup(tp,c25046.filter,1,1,nil)
+	if chk==0 then return Duel.CheckReleaseGroupEx(tp,c25046.filter,1,nil) end
+	local g=Duel.SelectReleaseGroupEx(tp,c25046.filter,1,1,nil)
 	Duel.Release(g,REASON_COST)
 end
 function c25046.activate(e,tp,eg,ep,ev,re,r,rp)

script/c25049.lua

@@ -4,7 +4,7 @@ function c25049.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	--e1:SetOperation(c25049.activate)
+	e1:SetOperation(c25049.activate)
 	c:RegisterEffect(e1)
 	--token
 	local e2=Effect.CreateEffect(c)
@@ -25,6 +25,14 @@ function c25049.initial_effect(c)
 	e3:SetTargetRange(0,LOCATION_MZONE)
 	e3:SetValue(c25049.val)
 	c:RegisterEffect(e3)
+	--destroy replace
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetCode(EFFECT_DESTROY_REPLACE)
+	e4:SetTarget(c25049.reptg)
+	c:RegisterEffect(e4)
 end
 function c25049.tfilter(c)
 	return c:IsSetCard(0x165) and c:IsAbleToHand()
@@ -54,5 +62,19 @@ function c25049.tokenop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.SpecialSummonComplete()
 end
 function c25049.val(e)
-	return Duel.GetMatchingGroupCount(Card.IsSetCard,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,0x164)*-400
+	return Duel.GetMatchingGroupCount(Card.IsSetCard,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,0x164)*-400-400
+end
+function c25049.repfilter(c)
+	return c:IsSetCard(0x164) and c:IsAbleToRemove()
+end
+function c25049.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return not c:IsReason(REASON_REPLACE)
+		and Duel.IsExistingMatchingCard(c25049.repfilter,tp,LOCATION_GRAVE,0,2,nil) end
+	if Duel.SelectEffectYesNo(tp,c,96) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE)
+		local g=Duel.SelectMatchingCard(tp,c25049.repfilter,tp,LOCATION_GRAVE,0,2,2,nil)
+		Duel.Remove(g,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
+		return true
+	else return false end
 end
\ No newline at end of file

script/c25050.lua

@@ -15,8 +15,8 @@ function c25050.filter(c)
 	return (math.abs(c:GetAttack()-c:GetDefense())==200 or math.abs(c:GetAttack()-c:GetDefense())==2000) and not c:IsType(TYPE_LINK)
 end
 function c25050.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c25050.filter,1,e:GetHandler()) end
-	local g=Duel.SelectReleaseGroup(tp,c25050.filter,1,1,e:GetHandler())
+	if chk==0 then return Duel.CheckReleaseGroupEx(tp,c25050.filter,1,e:GetHandler()) end
+	local g=Duel.SelectReleaseGroupEx(tp,c25050.filter,1,1,e:GetHandler())
 	Duel.Release(g,REASON_COST)
 end
 function c25050.sfilter(c)

script/c25059.lua

@@ -8,7 +8,7 @@ function c25059.initial_effect(c)
 	--draw
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_NO_TURN_RESET)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetCode(EVENT_RELEASE)
 	e2:SetCountLimit(1)

script/c25131.lua

@@ -24,7 +24,7 @@ function c25131.cfilter1(c)
 	return c:IsSetCard(0x223) and c:IsFaceup()
 end
 function c25131.con(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c25131.cfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and Duel.GetFlagEffect(tp,25131)==0
+	return Duel.IsExistingMatchingCard(c25131.cfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
 end
 function c25131.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and Duel.IsPlayerCanDraw(1-tp,1) end
@@ -35,11 +35,21 @@ function c25131.activate(e,tp,eg,ep,ev,re,r,rp)
 	local d2=Duel.Draw(1-tp,1,REASON_EFFECT)
 	if Duel.GetFlagEffect(tp,252230)>0 then
 		Duel.Draw(tp,1,REASON_EFFECT)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_CANNOT_DRAW)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetTargetRange(1,1)
+		e1:SetTarget(c25131.splimit)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
 	else
 		Duel.RegisterFlagEffect(tp,252230,0,0,0)
-		Duel.RegisterFlagEffect(tp,25131,RESET_PHASE+PHASE_END,0,1)
 	end
 end
+function c25131.splimit(e,c)
+	return not e:GetHandler():IsSetCard(0x414)
+end
 function c25131.cfilter2(c)
 	return c:IsSetCard(0x414) and c:IsFaceup()
 end

script/c26084.lua

@@ -15,7 +15,7 @@ function c26084.initial_effect(c)
 	--Activate2
 	local e2=e1:Clone()
 	e2:SetDescription(aux.Stringid(26084,1))
-	e2:SetCondition(c26084.condition)
+	--e2:SetCondition(c26084.condition)
 	e2:SetCountLimit(1,26084+EFFECT_COUNT_CODE_OATH)
 	--e2:SetCost(c26084.cost)
 	e2:SetTarget(c26084.target2)

script/c26087.lua

@@ -24,7 +24,7 @@ function c26087.condition2(e,tp,eg,ep,ev,re,r,rp)
 	return ec:GetSummonPlayer()==tp and ec:IsSetCard(0x229)
 end
 function c26087.filter(c)
-	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable()
+	return c:IsDestructable()
 end
 function c26087.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c26087.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end

script/c26088.lua

@@ -2,33 +2,57 @@
 function c26088.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e1:SetCondition(c26088.condition)
-	e1:SetTarget(c26088.target)
-	e1:SetOperation(c26088.activate)
+	e1:SetCost(c26088.cost)
+	e1:SetTarget(c26088.thtg)
+	e1:SetOperation(c26088.thop)
 	c:RegisterEffect(e1)
 	local e2=e1:Clone()
 	e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
-	e2:SetCondition(c26088.condition2)
 	c:RegisterEffect(e2)
+	Duel.AddCustomActivityCounter(26088,ACTIVITY_SPSUMMON,c26088.counterfilter)
+end
+function c26088.counterfilter(c)
+	return not c:IsType(TYPE_XYZ) or c:IsSetCard(0x229) 
 end
 function c26088.condition(e,tp,eg,ep,ev,re,r,rp)
 	local ec=eg:GetFirst()
-	return (ec:GetSummonType()==0x49000000 or ec:GetSummonType()==0x45000000 or ec:GetSummonType()==0x43000000)
-	and ec:GetSummonPlayer()==tp and ec:IsSetCard(0x229)
+	return ec:GetSummonPlayer()==tp and ec:IsSetCard(0x229) and eg:GetCount()==1
 end
-function c26088.condition2(e,tp,eg,ep,ev,re,r,rp)
-	local ec=eg:GetFirst()
-	return ec:GetSummonPlayer()==tp and ec:IsSetCard(0x229)
+function c26088.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(26088,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c26088.sumlimit2)
+	Duel.RegisterEffect(e1,tp)
+end
+function c26088.sumlimit2(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsSetCard(0x229) and c:IsType(TYPE_SYNCHRO+TYPE_XYZ)
+end
+function c26088.filter(c)
+	return c:IsSetCard(0x229) and Duel.IsExistingMatchingCard(c26088.thfilter,tp,LOCATION_DECK,0,1,nil,c:GetCode())
+end
+function c26088.thfilter(c,code)
+	return c:IsSetCard(0x229) and not c:IsCode(code) and c:IsAbleToHand()
 end
-function c26088.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
-	local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+function c26088.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26088.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
-function c26088.activate(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
-	Duel.Destroy(g,REASON_EFFECT)
+function c26088.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+		local code=tc:GetCode()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local g=Duel.SelectMatchingCard(tp,c26088.thfilter,tp,LOCATION_DECK,0,1,1,nil,code)
+		if g:GetCount()>0 then
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g)
+		end
 end

script/c26091.lua

@@ -38,10 +38,17 @@ function c26091.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local e5=e1:Clone()
 	e5:SetCode(EFFECT_CANNOT_SUMMON)
 	Duel.RegisterEffect(e5,tp)
+	local e2=e1:Clone()
+	e2:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2)
+	e2:SetTarget(c26091.sumlimit2)
+	Duel.RegisterEffect(e2,tp)
 end
 function c26091.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
 	return not c:IsSetCard(0x229)
 end
+function c26091.sumlimit2(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsSetCard(0x229) and c:IsType(TYPE_SYNCHRO+TYPE_XYZ)
+end
 function c26091.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetCurrentPhase()==PHASE_DRAW or Duel.GetCurrentPhase()==PHASE_MAIN1 end
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,100)

script/c27035.lua

@@ -42,6 +42,7 @@ function c27035.activate(e,tp,eg,ep,ev,re,r,rp)
 		local e2=Effect.CreateEffect(e:GetHandler())
 		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		e2:SetCountLimit(1)
+		e2:SetLabel(400)
 		e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
 		e2:SetCondition(c27035.damcon)
 		e2:SetOperation(c27035.damop)
@@ -54,5 +55,8 @@ function c27035.damcon(e,tp,eg,ep,ev,re,r,rp)
 end
 function c27035.damop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_CARD,0,27035)
-	Duel.Damage(1-tp,400,REASON_EFFECT)
+	local dam=e:GetLabel()
+	Duel.Damage(1-tp,dam,REASON_EFFECT)
+	e:SetLabel(dam+400)
+	DOT.DotCounter.Add(nil,1-tp,0,400,400,e)
 end

script/c27036.lua

@@ -2,7 +2,7 @@
 function c27036.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DAMAGE)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetCode(EVENT_FREE_CHAIN)
@@ -19,18 +19,17 @@ function c27036.filter(c)
 	return c:IsSetCard(0x208) and c:IsAttackAbove(1800)
 end
 function c27036.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c27036.cfilter,tp,LOCATION_SZONE,0,1,nil) or Duel.CheckReleaseGroup(tp,c27036.filter,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(c27036.cfilter,tp,LOCATION_SZONE,0,1,nil) or Duel.CheckReleaseGroupEx(tp,c27036.filter,1,nil) end
 	if Duel.IsExistingMatchingCard(c27036.cfilter,tp,LOCATION_SZONE,0,1,nil) then return end
-	local g=Duel.SelectReleaseGroup(tp,c27036.filter,1,1,nil)
+	local g=Duel.SelectReleaseGroupEx(tp,c27036.filter,1,1,nil)
 	Duel.Release(g,REASON_COST)
 end
 function c27036.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsAbleToRemove() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
 end
 function c27036.activate(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
@@ -38,11 +37,11 @@ function c27036.activate(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>=3 and Duel.IsChainDisablable(0) and Duel.SelectYesNo(1-tp,aux.Stringid(27036,0)) then
 		Duel.DiscardHand(1-tp,aux.TRUE,3,3,REASON_EFFECT+REASON_DISCARD,nil)
 	else
-		Duel.Destroy(tc,REASON_EFFECT)
-		Duel.Damage(1-tp,800,REASON_EFFECT)
+		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
 		local e2=Effect.CreateEffect(e:GetHandler())
 		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		e2:SetCountLimit(1)
+		e2:SetLabel(400)
 		e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
 		e2:SetCondition(c27036.damcon)
 		e2:SetOperation(c27036.damop)
@@ -55,5 +54,8 @@ function c27036.damcon(e,tp,eg,ep,ev,re,r,rp)
 end
 function c27036.damop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_CARD,0,27036)
-	Duel.Damage(1-tp,400,REASON_EFFECT)
+	local dam=e:GetLabel()
+	Duel.Damage(1-tp,dam,REASON_EFFECT)
+	e:SetLabel(dam+400)
+	DOT.DotCounter.Add(nil,1-tp,0,400,400,e)
 end

script/c27038.lua

@@ -4,7 +4,7 @@ function c27038.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCost(c27038.cost)
+	--e1:SetCost(c27038.cost)
 	c:RegisterEffect(e1)
 	--damage
 	local e2=Effect.CreateEffect(c)
@@ -108,17 +108,17 @@ function c27038.check(c,tp)
 end
 function c27038.dmtg2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return (c27038.check(Duel.GetAttacker(),tp) or c27038.check(Duel.GetAttackTarget(),tp)) end
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1200)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
 end
 function c27038.dmop2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Damage(1-tp,1200,REASON_EFFECT)
+	Duel.Damage(1-tp,800,REASON_EFFECT)
 end
 function c27038.dmtg3(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return eg:FilterCount(Card.IsSetCard,nil,0x242)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,400)
 end
 function c27038.dmop3(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Damage(1-tp,800,REASON_EFFECT)
+	Duel.Damage(1-tp,400,REASON_EFFECT)
 end
 function c27038.dmcon4(e,tp,eg,ep,ev,re,r,rp)
 	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end
@@ -133,17 +133,17 @@ function c27038.dmtg4(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c27038.dmtg5(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return (c27038.check(Duel.GetAttacker(),tp) or c27038.check(Duel.GetAttackTarget(),tp)) end
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,600)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300)
 end
 function c27038.dmop5(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Damage(1-tp,600,REASON_EFFECT)
+	Duel.Damage(1-tp,300,REASON_EFFECT)
 end
 function c27038.dmtg6(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return eg:FilterCount(Card.IsSetCard,nil,0x242)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,400)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,200)
 end
 function c27038.dmop6(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Damage(1-tp,400,REASON_EFFECT)
+	Duel.Damage(1-tp,200,REASON_EFFECT)
 end
 function c27038.bdcon(e,tp,eg,ep,ev,re,r,rp)
     local ec=eg:GetFirst()

script/c27039.lua

@@ -44,7 +44,7 @@ function c27039.operation(e,tp,eg,ep,ev,re,r,rp)
 		e2:SetType(EFFECT_TYPE_EQUIP)
 		e2:SetCode(EFFECT_DISABLE)
 		e2:SetReset(RESET_EVENT+0x1fe0000)
-		c:RegisterEffect(e2)
+		--c:RegisterEffect(e2)
 		--Equip limit
 		local e4=Effect.CreateEffect(c)
 		e4:SetType(EFFECT_TYPE_SINGLE)

script/c27046.lua

@@ -30,7 +30,7 @@ function c27046.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 function c27046.filter(c)
-	return c:IsSetCard(0x242) or c:GetLevel()>4
+	return c:IsSetCard(0x242) or c:GetLevel()>5
 end
 function c27046.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.CheckReleaseGroup(tp,c27046.filter,1,nil) end

script/c27059.lua

@@ -32,6 +32,7 @@ function c27059.initial_effect(c)
 	e5:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e5:SetTargetRange(1,0)
+	e5:SetTarget(c27059.splimit)
 	c:RegisterEffect(e5)
 	--Scarlet Destiny
 	local e6=Effect.CreateEffect(c)
@@ -43,6 +44,9 @@ function c27059.initial_effect(c)
 	e6:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x164))
 	c:RegisterEffect(e6)
 end
+function c27059.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return c:IsLevelBelow(5) or c:IsLevelAbove(7)
+end
 function c27059.filter(c)
 	return c:IsSetCard(0x168) and c:IsType(TYPE_TRAP) and c:IsSSetable()
 end

script/c27507.lua

@@ -10,13 +10,16 @@ function s.initial_effect(c)
 	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_DICE+CATEGORY_DAMAGE)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
 	e1:SetCode(EVENT_BATTLE_DAMAGE)
 	e1:SetCost(s.damcost)
 	e1:SetTarget(s.damtg)
 	e1:SetOperation(s.damop)
 	c:RegisterEffect(e1)
-	
+	local e4=e1:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e4:SetCondition(s.lkcon)
+	c:RegisterEffect(e4)
 	-- Indestructible (②)
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)
@@ -25,14 +28,27 @@ function s.initial_effect(c)
 	e2:SetRange(LOCATION_MZONE)
 	e2:SetCondition(s.indcon)
 	e2:SetValue(1)
-	c:RegisterEffect(e2)
+	--c:RegisterEffect(e2)
 	local e3=e2:Clone()
 	e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	c:RegisterEffect(e3)
+	--c:RegisterEffect(e3)
+	--special summon
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_SPSUMMON_PROC)
+	e5:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e5:SetRange(LOCATION_GRAVE)
+	e5:SetCountLimit(1,id)
+	e5:SetCondition(s.spcon)
+	e5:SetOperation(s.spop)
+	c:RegisterEffect(e5)
 end
 function s.lcheck(g)
 	return g:IsExists(Card.IsLinkSetCard,1,nil,0x242)
 end
+function s.lkcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
 function s.damcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
@@ -107,3 +123,16 @@ end
 function s.indcon(e)
 	return Duel.IsExistingMatchingCard(s.indfilter,e:GetHandlerPlayer(),LOCATION_MZONE+LOCATION_GRAVE,0,1,nil)
 end
+function s.spfilter(c)
+	return c:IsAbleToRemoveAsCost() and c:IsRace(RACE_ZOMBIE)
+end
+function s.spcon(e,c)
+	if c==nil then return true end
+	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(s.spfilter,c:GetControler(),LOCATION_GRAVE,0,3,c)
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_GRAVE,0,3,3,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end

script/c28001.lua

@@ -6,7 +6,7 @@ function c28001.initial_effect(c)
 	e1:SetDescription(aux.Stringid(28001,0))
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetCountLimit(1)
+	e1:SetCountLimit(1,28001)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCost(c28001.cost1)
 	e1:SetTarget(c28001.target)

script/c28006.lua

- 
 --秘封梦想家 梅莉
 function c28006.initial_effect(c)
 	--search
@@ -30,7 +29,7 @@ function c28006.initial_effect(c)
 end
 function c28006.shcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsFaceup() and c:IsPreviousLocation(LOCATION_ONFIELD) and c:GetPreviousControler()==tp and c:GetReasonPlayer()==1-tp
+	return c:IsFaceup() and c:IsPreviousLocation(LOCATION_ONFIELD) and c:GetPreviousControler()==tp
 end
 function c28006.thfilter(c)
 	return c:IsSetCard(0x211) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)

script/c28022.lua

@@ -6,7 +6,6 @@ function c28022.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCost(c28022.cost)
 	e1:SetTarget(c28022.target)
 	e1:SetOperation(c28022.activate)
 	c:RegisterEffect(e1)
@@ -23,16 +22,6 @@ function c28022.initial_effect(c)
 	e2:SetOperation(c28022.activate1)
 	c:RegisterEffect(e2)
 end
-function c28022.cffilter(c)
-	return c:IsSetCard(0x211) and not c:IsPublic()
-end
-function c28022.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c28022.cffilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-	local g=Duel.SelectMatchingCard(tp,c28022.cffilter,tp,LOCATION_HAND,0,1,1,e:GetHandler())
-	Duel.ConfirmCards(1-tp,g)
-	Duel.ShuffleHand(tp)
-end
 function c28022.filter(c)
 	return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP)
 end

script/c28064.lua

@@ -22,9 +22,9 @@ function c28064.cfilter(c)
 	return c:IsSetCard(0xc211) and c:IsAbleToRemoveAsCost()
 end
 function c28064.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c28064.cfilter,tp,LOCATION_MZONE,0,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(c28064.cfilter,tp,0x6,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c28064.cfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,c28064.cfilter,tp,0x6,0,1,1,nil)
 	Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function c28064.filter(c,e,tp)

script/c28501.lua

@@ -20,7 +20,7 @@ function c28501.initial_effect(c)
 	e4:SetCategory(CATEGORY_TOHAND)
 	e4:SetType(EFFECT_TYPE_IGNITION)
 	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1,285010)
+	e4:SetCountLimit(1,28501)
 	e4:SetTarget(c28501.settg)
 	e4:SetOperation(c28501.setop)
 	c:RegisterEffect(e4)

script/c28504.lua

@@ -21,6 +21,7 @@ function c28504.initial_effect(c)
 	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
 	e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetCountLimit(1,28504)
 	e4:SetCondition(c28504.rmcon)
 	e4:SetTarget(c28504.rmtg)
 	e4:SetOperation(c28504.rmop)

script/c34025.lua

@@ -32,9 +32,8 @@ function s.initial_effect(c)
     local e3=Effect.CreateEffect(c)
     e3:SetDescription(aux.Stringid(id,2))
     e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
     e3:SetCode(EVENT_DESTROYED)
-    e3:SetProperty(EFFECT_FLAG_DELAY)
     e3:SetCondition(s.spcon)
     e3:SetTarget(s.sptg)
     e3:SetOperation(s.spop)

script/c34028.lua

@@ -32,9 +32,8 @@ function s.initial_effect(c)
     local e3=Effect.CreateEffect(c)
     e3:SetDescription(aux.Stringid(id,2))
     e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
     e3:SetCode(EVENT_DESTROYED)
-    e3:SetProperty(EFFECT_FLAG_DELAY)
     e3:SetCondition(s.spcon)
     e3:SetTarget(s.sptg)
     e3:SetOperation(s.spop)

script/c34053.lua

@@ -12,7 +12,6 @@ function c34053.initial_effect(c)
 	--special summon
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(34053,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
 	e2:SetCountLimit(1,34053)
@@ -20,9 +19,15 @@ function c34053.initial_effect(c)
 	e2:SetTarget(c34053.sptg)
 	e2:SetOperation(c34053.spop)
 	c:RegisterEffect(e2)
+	local e4=e2:Clone()
+	e4:SetDescription(aux.Stringid(34053,3))
+	e4:SetCategory(CATEGORY_ANNOUNCE)
+	e4:SetCost(c34053.acost)
+	e4:SetTarget(c34053.actg)
+	e4:SetOperation(c34053.acop)
+	c:RegisterEffect(e4)
 	--poison
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(34053,2))
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
 	e3:SetCode(EVENT_BATTLE_START)
 	e3:SetTarget(c34053.destg)
@@ -35,29 +40,17 @@ function c34053.ntcon(e,c,minc)
 		and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_DECK,0)>Duel.GetFieldGroupCount(1-c:GetControler(),LOCATION_DECK,0)
 end
 function c34053.cfilter(c)
-	return (c:IsRace(RACE_INSECT) or c:IsSetCard(0x164)) and c:IsAbleToGraveAsCost()
+	return c:IsSetCard(0x164) and c:IsAbleToGraveAsCost()
 end
 function c34053.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		or Duel.IsExistingMatchingCard(c34053.cfilter,tp,LOCATION_MZONE,0,1,nil))
-		and Duel.IsExistingMatchingCard(c34053.cfilter,tp,0xe,0,1,nil) end
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
-		local g=Duel.SelectMatchingCard(tp,c34053.cfilter,tp,0xe,0,2,2,nil)
-		Duel.Release(g,REASON_COST)
-	else
-		local g=Duel.SelectMatchingCard(tp,c34053.cfilter,tp,0xe,0,1,1,nil)
-		if g:GetFirst():GetLocation()==LOCATION_HAND then
-			local g1=Duel.SelectMatchingCard(tp,c34053.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
-			g:Merge(g1)
-		else
-			local g1=Duel.SelectMatchingCard(tp,c34053.cfilter,tp,0xe,0,1,1,nil)
-			g:Merge(g1)
-		end
-		Duel.Release(g,REASON_COST)
-	end
+	if chk==0 then return Duel.IsExistingMatchingCard(c34053.cfilter,tp,LOCATION_SZONE+LOCATION_HAND,0,1,nil) end
+		local g=Duel.SelectMatchingCard(tp,c34053.cfilter,tp,LOCATION_SZONE+LOCATION_HAND,0,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+		e:SetLabelObject(g:GetFirst())
 end
 function c34053.sptg(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.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 end
 function c34053.spop(e,tp,eg,ep,ev,re,r,rp)
@@ -65,12 +58,33 @@ function c34053.spop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	if c:IsRelateToEffect(e) or c:IsLocation(LOCATION_GRAVE) then
 		Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)
-		--direct attack
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_DIRECT_ATTACK)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		c:RegisterEffect(e1)
+	end
+end
+function c34053.acost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c34053.cfilter,tp,LOCATION_SZONE+LOCATION_HAND,0,1,nil) end
+		local g=Duel.SelectMatchingCard(tp,c34053.cfilter,tp,LOCATION_SZONE+LOCATION_HAND,0,1,1,nil)
+		Duel.SendtoGrave(g,REASON_COST)
+		local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true)
+		if te then 
+			local tg=te:GetTarget()
+			if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
+			te:SetLabelObject(e:GetLabelObject())
+			e:SetProperty(te:GetProperty())
+			e:SetLabelObject(te)
+		end
+		Duel.ClearOperationInfo(0)
+end
+function c34053.actg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+end
+function c34053.acop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local te=e:GetLabelObject()
+	if c:IsRelateToEffect(e) and te then
+		e:SetLabelObject(te:GetLabelObject())
+		local op=te:GetOperation()
+		if op then op(e,tp,eg,ep,ev,re,r,rp) end
 	end
 end
 function c34053.destg(e,tp,eg,ep,ev,re,r,rp,chk)

script/c50000.lua

@@ -15,7 +15,7 @@ function c50000.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function c50000.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_EXTRA,0)%7==0 and Duel.GetFieldGroupCount(tp,0x3,0)%7==0 end
 	Duel.Remove(e:GetHandler(),POS_FACEDOWN,REASON_COST)
 end
 function c50000.filter(c)

script/c50231.lua

@@ -14,13 +14,29 @@ function c50231.initial_effect(c)
 	e4:SetTarget(c50231.btg)
 	e4:SetOperation(c50231.bop)
 	c:RegisterEffect(e4)
+	Duel.AddCustomActivityCounter(50231,ACTIVITY_SPSUMMON,c50231.counterfilter)
+end
+function c50231.counterfilter(c)
+	return c:IsSetCard(0x250)
 end
 function c50231.xyzfilter(c)
 	return c:IsAttribute(ATTRIBUTE_WATER) and c:IsSetCard(0x250) and c:IsFaceup()
 end
 function c50231.bcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST)
+	and Duel.GetCustomActivityCount(50231,tp,ACTIVITY_SPSUMMON)==0 end
 	e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c50231.sumlimit)
+	Duel.RegisterEffect(e1,tp)
+end
+function c50231.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsSetCard(0x250)
 end
 function c50231.filter(c)
 	return c:IsSetCard(0x250) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)

script/c50252.lua

@@ -24,26 +24,27 @@ function c50252.bcost(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c50252.btg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsPlayerCanSpecialSummonMonster(tp,50652,0x250,0x4011,0,1600,1,RACE_PLANT,ATTRIBUTE_WIND) end
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,50652,0x250,0x4011,900,1600,1,RACE_PLANT,ATTRIBUTE_WIND) end
 	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
 end
 function c50252.bop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,50652,0x250,0x4011,0,1600,1,RACE_PLANT,ATTRIBUTE_WIND) then return end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,50652,0x250,0x4011,900,1600,1,RACE_PLANT,ATTRIBUTE_WIND) then return end
 		local token = Duel.CreateToken(tp,50652)
 		local e2=Effect.CreateEffect(c)
 		e2:SetType(EFFECT_TYPE_SINGLE)
 		e2:SetCode(EFFECT_SET_ATTACK)
 		e2:SetValue(c:GetAttack()*2)
 		e2:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
-		token:RegisterEffect(e2)
+		--token:RegisterEffect(e2)
 		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
 		--effect
         local e1=Effect.CreateEffect(c)
         e1:SetDescription(aux.Stringid(50252,1))
         e1:SetCategory(CATEGORY_DRAW+CATEGORY_RECOVER)
-        e1:SetType(EFFECT_TYPE_IGNITION)
+        e1:SetType(EFFECT_TYPE_QUICK_O)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
         e1:SetRange(LOCATION_MZONE)
 		e1:SetCountLimit(1)
         e1:SetTarget(c50252.sptg)
@@ -61,7 +62,7 @@ function c50252.bop(e,tp,eg,ep,ev,re,r,rp)
 		e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
 		e4:SetRange(LOCATION_MZONE)
 		e4:SetCountLimit(1)
-		e4:SetReset(RESET_PHASE+PHASE_END)
+		e4:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
 		e4:SetOperation(c50252.desop)
 		token:RegisterEffect(e4)
 end
@@ -91,5 +92,7 @@ function c50252.eleop(e,tp,eg,ep,ev,re,r,rp)
 	TET.ELCounter.Add(nil,1-tp,50240,num,e)
 end
 function c50252.desop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetTurnPlayer()~=tp then
 		Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+	end
 end

script/c52010.lua

@@ -3,7 +3,7 @@ local s,id=GetID()
 function s.initial_effect(c)
 	--link summon
 	c:EnableReviveLimit()
-	aux.AddLinkProcedure(c,nil,2,3,s.lcheck)
+	aux.AddLinkProcedure(c,nil,3,4,s.lcheck)
 	-- Destroy when opponent activates effect (①)
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(id,0))
@@ -11,7 +11,7 @@ function s.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_CHAINING)
 	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1)
+	e1:SetCountLimit(1,id)
 	e1:SetCondition(s.descon)
 	e1:SetTarget(s.destg)
 	e1:SetOperation(s.desop)
@@ -22,7 +22,7 @@ function s.initial_effect(c)
 	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_BATTLE_DESTROYING)
-	e2:SetCountLimit(1)
+	e2:SetCountLimit(1,id)
 	e2:SetCondition(s.atkcon)
 	e2:SetOperation(s.atkop)
 	c:RegisterEffect(e2)
@@ -33,14 +33,13 @@ function s.initial_effect(c)
 	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e3:SetType(EFFECT_TYPE_IGNITION)
 	e3:SetRange(LOCATION_GRAVE)
-	e3:SetCountLimit(1,id+1)
 	e3:SetCost(s.spcost)
 	e3:SetTarget(s.sptg)
 	e3:SetOperation(s.spop)
 	c:RegisterEffect(e3)
 end
 function s.lcheck(g)
-	return g:GetClassCount(Card.GetLinkRace)==g:GetCount()
+	return g:GetClassCount(Card.GetCode)==g:GetCount()
 end
 function s.descon(e,tp,eg,ep,ev,re,r,rp)
 	return ep==1-tp and re:IsActiveType(TYPE_MONSTER)

script/c52020.lua

@@ -11,7 +11,7 @@ function s.initial_effect(c)
     e1:SetType(EFFECT_TYPE_QUICK_O)
     e1:SetCode(EVENT_FREE_CHAIN)
     e1:SetRange(LOCATION_MZONE)
-    e1:SetCountLimit(1)
+    e1:SetCountLimit(1,id)
     e1:SetTarget(s.sptg)
     e1:SetOperation(s.spop)
     c:RegisterEffect(e1)

script/c74560004.lua

@@ -12,6 +12,7 @@ function cCardno.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCondition(cCardno.spcon)
+	e1:SetOperation(cCardno.spop)
 	c:RegisterEffect(e1)
 	--search
 	local e2=Effect.CreateEffect(c)
@@ -32,7 +33,12 @@ end
 function cCardno.spcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
-	return not Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil)
+	return not Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_HAND,0,3,nil,0x456)
+end
+function cCardno.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_HAND,0,3,3,nil,0x456)
+	Duel.ConfirmCards(1-tp,g)
 end
 --
 function cCardno.tg(e,tp,eg,ep,ev,re,r,rp,chk)

script/c74560009.lua

@@ -85,7 +85,7 @@ end
 function cCardno.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if Duel.GetLocationCount(1-tp,LOCATION_SZONE)<2 then return end
-	for i=1,2 do
+	--for i=1,2 do
 		local tc=Duel.CreateToken(tp,74560016)
 		local te=tc:GetActivateEffect()
 		if te:IsActivatable(tp,true,true) then
@@ -95,5 +95,7 @@ function cCardno.op(e,tp,eg,ep,ev,re,r,rp)
 			local fop=te:GetOperation()
 			fop(e,tp,eg,ep,ev,re,r,rp)
 		end
-	end
+	--end
+	local tc2=Duel.CreateToken(tp,74560016)
+	Duel.MoveToField(tc2,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true)
 end
\ No newline at end of file

script/c74561040.lua

@@ -106,7 +106,7 @@ function cCardno.spop(e,tp,eg,ep,ev,re,r,rp)
 	end
 
 	Duel.Hint(HINT_SELECTMSG,tp,HINGMSG_LVRANK)
-	local lv=Duel.AnnounceLevel(tp,1,7)
+	local lv=Duel.AnnounceLevel(tp,1,10)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetCode(EFFECT_CHANGE_LEVEL)

script/c74561071.lua

@@ -19,8 +19,9 @@ function cCardno.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(Cardno,0))
 	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
+	local c=e:GetHandler()
 	local tc=g:GetFirst()
-	local e1=Effect.CreateEffect(e:GetHandler())
+	local e1=Effect.CreateEffect(c)
 	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetCode(EFFECT_IMMUNE_EFFECT)
@@ -29,17 +30,42 @@ function cCardno.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	e1:SetValue(cCardno.efilter)
 	tc:RegisterEffect(e1,true)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300)
+	if c:GetFlagEffect(Cardno)==0 then 
+		Nef.LogFormat('有白罗，就是这么自信！')
+	else 
+		Nef.LogFormat('双倍的白罗，双倍的自信！')
+	end
+	--double
+	if c:GetFlagEffect(Cardno)==0 and Duel.GetMatchingGroupCount(Card.IsDiscardable,tp,LOCATION_HAND,0,nil)>0 and Duel.IsPlayerCanSSet(tp) and Duel.SelectYesNo(tp,aux.Stringid(Cardno,1)) then
+		Duel.DiscardHand(tp,nil,1,1,REASON_COST,nil)
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
+		e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e2)
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e3:SetCode(EVENT_CHAIN_END)
+		e3:SetReset(EVENT_CHAIN_END)
+		e3:SetCountLimit(1)
+		e3:SetOperation(cCardno.reop)
+		c:RegisterEffect(e3)
+		c:RegisterFlagEffect(Cardno,RESET_CHAIN,0,1)
+	end
 end
 function cCardno.efilter(e,te)
 	return te:GetHandler()~=e:GetHandler()
 end
-function cCardno.actfilter(c)
-	return c:GetAttack() <= 0 and c:IsFaceup()
+function cCardno.actfilter(c,g)
+	return c:GetAttack() <= 0 and c:IsFaceup() and not g:IsContains(c)
 end
 function cCardno.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local num=3
 	local i=1
+	local gg=Group.CreateGroup()
 	while i <= num do 
 		Duel.Damage(1-tp,300,REASON_EFFECT)
 		local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
@@ -53,12 +79,32 @@ function cCardno.activate(e,tp,eg,ep,ev,re,r,rp)
 			tc:RegisterEffect(e1)
 			tc=g:GetNext()
 		end
-		local g2=Duel.GetMatchingGroup(cCardno.actfilter,tp,0,LOCATION_MZONE,nil)
-		if g2:GetCount()>0 then
-			local add=Duel.Destroy(g2,REASON_EFFECT)
-			num=num+add
+		local g2=Duel.GetMatchingGroup(cCardno.actfilter,tp,0,LOCATION_MZONE,nil,gg)
+		if c:GetFlagEffect(Cardno)>0 then
+			local g2c=g2:GetFirst()
+			while g2c do
+				local e1=Effect.CreateEffect(c)
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetCode(EFFECT_DISABLE)
+				e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+				g2c:RegisterEffect(e1)
+				local e2=Effect.CreateEffect(c)
+				e2:SetType(EFFECT_TYPE_SINGLE)
+				e2:SetCode(EFFECT_DISABLE_EFFECT)
+				e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+				g2c:RegisterEffect(e2)
+				g2c=g2:GetNext()
+			end
+		end
+		g2c=g2:GetCount()
+		if g2c>0 then
+			gg:Merge(g2)
+			num=num+g2c
 		end
 		i=i+1
 		Duel.BreakEffect()
 	end
 end
+function cCardno.reop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)
+end
\ No newline at end of file

script/c74562032.lua

@@ -54,10 +54,12 @@ end
 function cCardno.con(e,tp,eg,ep,ev,re,r,rp)
 	return true
 end
+function cCardno.filter(c)
+	return c:IsPublic()
+end
 function cCardno.tg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return Duel.GetMatchingGroupCount(Card.IsAbleToHand,tp,LOCATION_HAND,0,nil,1-tp)>0 and c:GetFlagEffect(Cardno)==0 end
-	--c:RegisterFlagEffect(Cardno,RESET_PHASE+PHASE_STANDBY,0,1)
+	if chk==0 then return Duel.GetMatchingGroupCount(Card.IsAbleToHand,tp,LOCATION_HAND,0,nil,1-tp)>0 and Duel.GetMatchingGroupCount(cCardno.filter,tp,LOCATION_HAND,0,nil)==0 end
 	Duel.ShuffleHand(tp)
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
 end

script/c82456.lua

@@ -8,7 +8,6 @@ function c82456.initial_effect(c)
 	e0:SetDescription(aux.Stringid(82456,1))
 	e0:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DESTROY)
 	e0:SetType(EFFECT_TYPE_IGNITION)
-	e0:SetCountLimit(1)
 	e0:SetRange(LOCATION_MZONE)
 	e0:SetCost(c82456.cost)
 	e0:SetTarget(c82456.target)
@@ -41,6 +40,10 @@ function c82456.filter(c)
 end
 function c82456.operation1(e,tp,eg,ep,ev,re,r,rp)
 	Duel.DiscardDeck(tp,3,REASON_EFFECT)
+	if Duel.GetRandomNumber(1,3)==1 then
+		Duel.Recover(tp,1,REASON_EFFECT)
+		Duel.Hint(21,0,aux.Stringid(82456,4))
+	end
 	local st1=Duel.GetOperatedGroup():FilterCount(Card.IsType,nil,TYPE_MONSTER)
 	local st2=Duel.GetOperatedGroup():FilterCount(Card.IsType,nil,TYPE_SPELL)
 	if st1>0 or st2>0 then

script/c86379013.lua

@@ -31,7 +31,7 @@ function c86379013.initial_effect(c)
 	e2:SetCode(EVENT_CUSTOM+86379010)
 	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
 	e2:SetRange(LOCATION_DECK)
-	e2:SetCost(c86379013.cost)
+	--e2:SetCost(c86379013.cost)
 	e2:SetCondition(c86379013.condition2)
 	e2:SetTarget(c86379013.target2)
 	e2:SetOperation(c86379013.operation2)
@@ -126,7 +126,7 @@ function c86379013.operation(e,tp,eg,ep,ev,re,r,rp)
 end
 --
 function c86379013.condition2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:GetFirst()==e:GetHandler() and Duel.GetCustomActivityCount(86379013,tp,ACTIVITY_SPSUMMON)==0 and ev~=0
+	return eg:GetFirst()==e:GetHandler() and ev~=0
 end
 function c86379013.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return 

script/c86379015.lua

@@ -31,7 +31,7 @@ function c86379015.initial_effect(c)
 	e2:SetCode(EVENT_CUSTOM+86379010)
 	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
 	e2:SetRange(LOCATION_DECK)
-	e2:SetCost(c86379015.cost)
+	--e2:SetCost(c86379015.cost)
 	e2:SetCondition(c86379015.condition2)
 	e2:SetTarget(c86379015.target2)
 	e2:SetOperation(c86379015.operation2)
@@ -113,7 +113,7 @@ function c86379015.operation(e,tp,eg,ep,ev,re,r,rp)
 end
 --
 function c86379015.condition2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:GetFirst()==e:GetHandler() and Duel.GetCustomActivityCount(86379015,tp,ACTIVITY_SPSUMMON)==0 and ev~=0
+	return eg:GetFirst()==e:GetHandler() and ev~=0
 end
 function c86379015.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return 

script/c86379017.lua

@@ -31,7 +31,7 @@ function c86379017.initial_effect(c)
 	e2:SetCode(EVENT_CUSTOM+86379010)
 	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
 	e2:SetRange(LOCATION_DECK)
-	e2:SetCost(c86379017.cost)
+	--e2:SetCost(c86379017.cost)
 	e2:SetCondition(c86379017.condition2)
 	e2:SetTarget(c86379017.target2)
 	e2:SetOperation(c86379017.operation2)
@@ -114,7 +114,7 @@ function c86379017.operation(e,tp,eg,ep,ev,re,r,rp)
 end
 --
 function c86379017.condition2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:GetFirst()==e:GetHandler() and Duel.GetCustomActivityCount(86379017,tp,ACTIVITY_SPSUMMON)==0 and ev~=0
+	return eg:GetFirst()==e:GetHandler() and ev~=0
 end
 function c86379017.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return 

script/c86379019.lua

@@ -31,7 +31,7 @@ function c86379019.initial_effect(c)
 	e2:SetCode(EVENT_CUSTOM+86379010)
 	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
 	e2:SetRange(LOCATION_DECK)
-	e2:SetCost(c86379019.cost)
+	--e2:SetCost(c86379019.cost)
 	e2:SetCondition(c86379019.condition2)
 	e2:SetTarget(c86379019.target2)
 	e2:SetOperation(c86379019.operation2)
@@ -99,7 +99,7 @@ function c86379019.operation(e,tp,eg,ep,ev,re,r,rp)
 end
 --
 function c86379019.condition2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:GetFirst()==e:GetHandler() and Duel.GetCustomActivityCount(86379019,tp,ACTIVITY_SPSUMMON)==0 and ev~=0
+	return eg:GetFirst()==e:GetHandler() and ev~=0
 end
 function c86379019.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return 

script/c86379231.lua

@@ -4,7 +4,8 @@ function c86379231.initial_effect(c)
 	local e1=aux.AddRitualProcEqual(c,c86379231.filter)
 	--leave grave
 	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetCountLimit(1,86379231)
 	e2:SetCost(c86379231.mscost)
@@ -12,6 +13,11 @@ function c86379231.initial_effect(c)
 	e2:SetOperation(c86379231.msop)
 	c:RegisterEffect(e2)
 	--
+	Duel.AddCustomActivityCounter(86379231,ACTIVITY_CHAIN,c86379231.chainfilter)
+end
+--
+function c86379231.chainfilter(re,tp,cid)
+	return re:GetHandler():IsSetCard(0x300) and re:IsActiveType(TYPE_MONSTER)
 end
 --
 --[[function c86379231.counterfilter(re,tp,cid)
@@ -39,7 +45,7 @@ end
 function c86379231.mstg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	local g=Duel.GetMatchingGroup(c86379231.msfilter,tp,LOCATION_GRAVE,0,nil)
-	if chk==0 then return g:GetCount()>=2 and g:GetClassCount(Card.GetAttribute)>=2 and Duel.GetLocationCount(tp,LOCATION_SZONE)>=2 end
+	if chk==0 then return g:GetCount()>=2 and g:GetClassCount(Card.GetAttribute)>=2 and Duel.GetLocationCount(tp,LOCATION_SZONE)>=2  and Duel.GetCustomActivityCount(86379231,tp,ACTIVITY_CHAIN)<=0 end
 	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,2,tp,LOCATION_GRAVE)
 end
 function c86379231.attfilter1(c,att1)

script/c86379233.lua

@@ -5,7 +5,8 @@ function c86379233.initial_effect(c)
 	--to grave
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_TOGRAVE)
-	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetCountLimit(1,86379233)
 	e2:SetCost(c86379233.mscost)
@@ -13,6 +14,11 @@ function c86379233.initial_effect(c)
 	e2:SetOperation(c86379233.msop)
 	c:RegisterEffect(e2)
 	--
+	Duel.AddCustomActivityCounter(86379233,ACTIVITY_CHAIN,c86379233.chainfilter)
+end
+--
+function c86379233.chainfilter(re,tp,cid)
+	return re:GetHandler():IsSetCard(0x300) and re:IsActiveType(TYPE_MONSTER)
 end
 --
 --[[function c86379233.counterfilter(re,tp,cid)
@@ -40,7 +46,7 @@ end
 function c86379233.mstg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	local g=Duel.GetMatchingGroup(c86379233.msfilter,tp,LOCATION_DECK,0,nil)
-	if chk==0 then return g:GetCount()>=2 and g:GetClassCount(Card.GetAttribute)>=2  end
+	if chk==0 then return g:GetCount()>=2 and g:GetClassCount(Card.GetAttribute)>=2 and Duel.GetCustomActivityCount(86379233,tp,ACTIVITY_CHAIN)<=0 end
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_DECK)
 end
 function c86379233.attfilter1(c,att1)

script/c86379382.lua

@@ -13,7 +13,8 @@ function c86379382.initial_effect(c)
 	--c1
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(86379382,1))
-	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetCost(c86379382.cost1)
 	e2:SetTarget(c86379382.tg1)
@@ -23,7 +24,8 @@ function c86379382.initial_effect(c)
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(86379382,2))
 	e3:SetCategory(CATEGORY_COUNTER)
-	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
 	e3:SetRange(LOCATION_SZONE)
 	e3:SetCost(c86379382.cost2)
 	e3:SetTarget(c86379382.tg2)
@@ -33,7 +35,8 @@ function c86379382.initial_effect(c)
 	local e4=Effect.CreateEffect(c)
 	e4:SetDescription(aux.Stringid(86379382,3))
 	e4:SetCategory(CATEGORY_DISABLE)
-	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_FREE_CHAIN)
 	e4:SetRange(LOCATION_SZONE)
 	e4:SetCost(c86379382.cost4)
 	e4:SetTarget(c86379382.tg4)
@@ -43,7 +46,8 @@ function c86379382.initial_effect(c)
 	local e5=Effect.CreateEffect(c)
 	e5:SetDescription(aux.Stringid(86379382,4))
 	e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetType(EFFECT_TYPE_QUICK_O)
+	e5:SetCode(EVENT_FREE_CHAIN)
 	e5:SetRange(LOCATION_SZONE)
 	e5:SetCost(c86379382.cost8)
 	e5:SetTarget(c86379382.tg8)
@@ -136,13 +140,42 @@ function c86379382.cost4(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x245,4,REASON_COST) end
 	Duel.RemoveCounter(tp,1,0,0x245,4,REASON_COST)
 end
+function c86379382.filter4(c)
+	return c:GetCounter(0x245)>0 and c:IsFaceup() and not c:IsDisabled() and not c:IsType(TYPE_NORMAL)
+end
 function c86379382.tg4(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
+	if chk==0 then return Duel.IsExistingMatchingCard(c86379382.filter4,tp,0,LOCATION_ONFIELD,1,nil) end
 end
 function c86379382.op4(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) then return end
-	--disable
+	local g=Duel.GetMatchingGroup(c86379382.filter4,tp,0,LOCATION_ONFIELD,e:GetHandler())
+	if g:GetCount()<=0 then return end
+	local tc=g:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetReset(RESET_EVENT+0x1fe0000)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetReset(RESET_EVENT+0x1fe0000)
+		tc:RegisterEffect(e2)
+		if tc:IsType(TYPE_TRAPMONSTER) then
+			local e3=Effect.CreateEffect(c)
+			e3:SetType(EFFECT_TYPE_SINGLE)
+			e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
+			e3:SetReset(RESET_EVENT+0x1fe0000)
+			tc:RegisterEffect(e3)
+		end
+		tc=g:GetNext()
+	end
+
+
+
+--[[--disable
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetTargetRange(0,LOCATION_ONFIELD)
@@ -150,7 +183,8 @@ function c86379382.op4(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_DISABLE)
 	e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
-	Duel.RegisterFlagEffect(tp,86379382,RESET_PHASE+PHASE_END,0,1)
+	Duel.RegisterFlagEffect(tp,86379382,RESET_PHASE+PHASE_END,0,1)]]
+
 end
 function c86379382.disable(e,c)
 	return c:GetCounter(0x245)>0

script/c86379509.lua

@@ -5,14 +5,14 @@ function c86379509.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	--e1:SetOperation(c86379509.acop)
+	e1:SetOperation(c86379509.acop)
 	c:RegisterEffect(e1)
 	--add counter
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(86379509,0))
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e2:SetRange(LOCATION_SZONE)
-	e2:SetCode(EVENT_DAMAGE)
+	e2:SetCode(EVENT_ADJUST)
 	e2:SetCondition(c86379509.ctcon)
 	e2:SetOperation(c86379509.ctop)
 	c:RegisterEffect(e2)
@@ -43,14 +43,24 @@ end
 --
 function c86379509.acop(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
-	e:GetHandler():AddCounter(0x128f,1)
+	local lp=Duel.GetLP(tp)
+	c86379509[tp]=lp
 end
 --
 function c86379509.ctcon(e,tp,eg,ep,ev,re,r,rp)
-	return ep==tp
+	local lp=Duel.GetLP(tp)
+	local op=c86379509[tp]
+	return op~=lp
 end
 function c86379509.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local lp=Duel.GetLP(tp)
+	local op=c86379509[tp]
+	if lp<op then
 		e:GetHandler():AddCounter(0x128f,1)
+		c86379509[tp]=lp
+	else
+		c86379509[tp]=lp
+	end
 end
 --
 function c86379509.sctfilter(c)

script/c86379619.lua

@@ -6,7 +6,6 @@ function c86379619.initial_effect(c)
 	e1:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
 	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,86379619)
 	e1:SetCondition(c86379619.spcon)
 	e1:SetOperation(c86379619.spop)
 	c:RegisterEffect(e1)
@@ -25,7 +24,7 @@ function c86379619.initial_effect(c)
 end
 --
 function c86379619.rfilter(c)
-	return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
+	return (c:IsType(TYPE_MONSTER) or c:IsSetCard(0x816f)) and c:IsAbleToRemoveAsCost()
 end
 function c86379619.spcon(e,c)
 	if c==nil then return true end

script/c86379654.lua

@@ -92,7 +92,7 @@ function c86379654.checkop4(e,tp,eg,ep,ev,re,r,rp)
 end
 --
 function c86379654.matfilter(c)
-	return not c:IsLinkType(TYPE_TOKEN) and c:IsSetCard(0x208)
+	return c:IsSetCard(0x208)
 end
 --
 function c86379654.cost(e,tp,eg,ep,ev,re,r,rp,chk)
@@ -195,11 +195,10 @@ function c86379654.op1_2(e,tp,eg,ep,ev,re,r,rp)
 end
 --
 function c86379654.filter(c)
-	return c:IsAbleToDeck() or bit.band(c:GetReason(),REASON_TEMPORARY)~=0
+	return bit.band(c:GetReason(),REASON_TEMPORARY)~=0
 end
 function c86379654.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c86379654.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_REMOVED)
+	if chk==0 then return Duel.IsExistingMatchingCard(c86379654.tzfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end
 end
 function c86379654.tdfilter(c)
 	return c:IsAbleToDeck() 
@@ -212,30 +211,7 @@ function c86379654.tzfilter(c)
 		or (c:IsPreviousLocation(LOCATION_FZONE) and Duel.CheckLocation(c:GetPreviousControler(),LOCATION_SZONE,5)))
 end
 function c86379654.operation2(e,tp,eg,ep,ev,re,r,rp)
-	if not Duel.IsExistingMatchingCard(c86379654.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) then return end
-	local c=e:GetHandler()
-	local off=1
-	local ops={}
-	local opval={}
-	if Duel.IsExistingMatchingCard(c86379654.tdfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) then
-		ops[off]=aux.Stringid(86379654,3)
-		opval[off-1]=1
-		off=off+1
-	end
 	if Duel.IsExistingMatchingCard(c86379654.tzfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) then
-		ops[off]=aux.Stringid(86379654,4)
-		opval[off-1]=2
-		off=off+1
-	end
-	local op=Duel.SelectOption(tp,table.unpack(ops))
-	local sel=opval[op]
-	if sel==1 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-		local g=Duel.SelectMatchingCard(tp,c86379654.tdfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil)
-		Duel.HintSelection(g)
-		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
-	end
-	if sel==2 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
 		local g=Duel.SelectMatchingCard(tp,c86379654.tzfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil)
 		Duel.HintSelection(g)

script/c86379862.lua

@@ -32,6 +32,17 @@ function c86379862.initial_effect(c)
 	e3:SetTarget(c86379862.thtg)
 	e3:SetOperation(c86379862.thop)
 	c:RegisterEffect(e3)
+	--tograve
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(86379862,2))
+	e4:SetCategory(CATEGORY_LEAVE_GRAVE)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CARD_TARGET)
+	e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetCondition(c86379862.drcon)
+	e4:SetTarget(c86379862.drtg)
+	e4:SetOperation(c86379862.thop)
+	c:RegisterEffect(e4)
 end
 --
 function c86379862.lcheck(g)
@@ -90,7 +101,7 @@ end
 --
 function c86379862.thcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp
+	return c:IsPreviousLocation(LOCATION_MZONE) 
 end
 function c86379862.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
@@ -106,6 +117,7 @@ function c86379862.thop(e,tp,eg,ep,ev,re,r,rp)
 	if not c:IsRelateToEffect(e) or c:IsLocation(LOCATION_SZONE) or c:IsFacedown() then return end
 	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end
 	Duel.Equip(tp,c,tc)
+	c:RegisterFlagEffect(86379862,RESET_EVENT+RESETS_STANDARD-RESET_TOGRAVE-RESET_LEAVE,0,1)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetCode(EFFECT_EQUIP_LIMIT)
@@ -177,6 +189,25 @@ function c86379862.desrepop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.GetControl(tc2,tp)
 	end
 end
+--
+function c86379862.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_LOST_TARGET)
+		and not e:GetHandler():GetPreviousEquipTarget():IsLocation(LOCATION_ONFIELD+LOCATION_OVERLAY) and e:GetHandler():GetFlagEffect(86379862)>0 and e:GetHandler():GetPreviousEquipTarget():IsSetCard(0x190)
+end
+function c86379862.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+
+
+
+
+
+
 --
 --Link Summon
 function c86379862.AddLinkProcedure(c,f,min,max,gf)

script/c86379864.lua

@@ -39,6 +39,17 @@ function c86379864.initial_effect(c)
 	e2:SetTarget(c86379864.thtg)
 	e2:SetOperation(c86379864.thop)
 	c:RegisterEffect(e2)
+	--tograve
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(86379864,2))
+	e4:SetCategory(CATEGORY_LEAVE_GRAVE)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CARD_TARGET)
+	e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetCondition(c86379864.drcon)
+	e4:SetTarget(c86379864.drtg)
+	e4:SetOperation(c86379864.thop)
+	c:RegisterEffect(e4)
 end
 --
 function c86379864.matfilter(c)
@@ -57,7 +68,7 @@ end
 --
 function c86379864.thcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp
+	return c:IsPreviousLocation(LOCATION_MZONE) 
 end
 function c86379864.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
@@ -73,6 +84,7 @@ function c86379864.thop(e,tp,eg,ep,ev,re,r,rp)
 	if not c:IsRelateToEffect(e) or c:IsLocation(LOCATION_SZONE) or c:IsFacedown() then return end
 	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end
 	Duel.Equip(tp,c,tc)
+	c:RegisterFlagEffect(86379864,RESET_EVENT+RESETS_STANDARD-RESET_TOGRAVE-RESET_LEAVE,0,1)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetCode(EFFECT_EQUIP_LIMIT)
@@ -125,6 +137,24 @@ function c86379864.desreptg(e,c)
 	local ec=tc:GetEquipTarget()
 	return c==ec or (c:GetSequence()==seq and c:IsControler(e:GetHandlerPlayer())) or ec:GetLinkedGroup():IsContains(c)
 end
+--
+function c86379864.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_LOST_TARGET)
+		and not e:GetHandler():GetPreviousEquipTarget():IsLocation(LOCATION_ONFIELD+LOCATION_OVERLAY) and e:GetHandler():GetFlagEffect(86379864)>0 and e:GetHandler():GetPreviousEquipTarget():IsSetCard(0x190)
+end
+function c86379864.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+
+
+
+
+--
 --Link Summon
 function c86379864.AddLinkProcedure(c,f,min,max,gf)
 	local e1=Effect.CreateEffect(c)

script/c86379868.lua

@@ -22,6 +22,17 @@ function c86379868.initial_effect(c)
 	e3:SetTarget(c86379868.thtg)
 	e3:SetOperation(c86379868.thop)
 	c:RegisterEffect(e3)
+	--tograve
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(86379868,2))
+	e4:SetCategory(CATEGORY_LEAVE_GRAVE)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CARD_TARGET)
+	e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetCondition(c86379868.drcon)
+	e4:SetTarget(c86379868.drtg)
+	e4:SetOperation(c86379868.thop)
+	c:RegisterEffect(e4)
 end
 --
 function c86379868.lcheck(g,lc)
@@ -70,7 +81,7 @@ end
 --
 function c86379868.thcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp
+	return c:IsPreviousLocation(LOCATION_MZONE) 
 end
 function c86379868.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
@@ -86,6 +97,7 @@ function c86379868.thop(e,tp,eg,ep,ev,re,r,rp)
 	if not c:IsRelateToEffect(e) or c:IsLocation(LOCATION_SZONE) or c:IsFacedown() then return end
 	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end
 	Duel.Equip(tp,c,tc)
+	c:RegisterFlagEffect(86379868,RESET_EVENT+RESETS_STANDARD-RESET_TOGRAVE-RESET_LEAVE,0,1)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetCode(EFFECT_EQUIP_LIMIT)
@@ -144,3 +156,18 @@ end
 function c86379868.eqlimit3(e,c)
 	return e:GetLabelObject()==c
 end
+--
+function c86379868.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_LOST_TARGET)
+		and not e:GetHandler():GetPreviousEquipTarget():IsLocation(LOCATION_ONFIELD+LOCATION_OVERLAY) and e:GetHandler():GetFlagEffect(86379868)>0 and e:GetHandler():GetPreviousEquipTarget():IsSetCard(0x190)
+end
+function c86379868.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+
+

script/c86379870.lua

@@ -35,6 +35,17 @@ function c86379870.initial_effect(c)
 	e4:SetTarget(c86379870.thtg)
 	e4:SetOperation(c86379870.thop)
 	c:RegisterEffect(e4)
+	--tograve
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(86379870,2))
+	e5:SetCategory(CATEGORY_LEAVE_GRAVE)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e5:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CARD_TARGET)
+	e5:SetCode(EVENT_TO_GRAVE)
+	e5:SetCondition(c86379870.drcon)
+	e5:SetTarget(c86379870.drtg)
+	e5:SetOperation(c86379870.thop)
+	c:RegisterEffect(e5)
 end
 --
 function c86379870.lcheck(g,lc)
@@ -51,7 +62,7 @@ end
 --
 function c86379870.thcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp
+	return c:IsPreviousLocation(LOCATION_MZONE) 
 end
 function c86379870.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
@@ -67,6 +78,7 @@ function c86379870.thop(e,tp,eg,ep,ev,re,r,rp)
 	if not c:IsRelateToEffect(e) or c:IsLocation(LOCATION_SZONE) or c:IsFacedown() then return end
 	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end
 	Duel.Equip(tp,c,tc)
+	c:RegisterFlagEffect(86379870,RESET_EVENT+RESETS_STANDARD-RESET_TOGRAVE-RESET_LEAVE,0,1)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetCode(EFFECT_EQUIP_LIMIT)
@@ -103,7 +115,19 @@ function c86379870.thop(e,tp,eg,ep,ev,re,r,rp)
 	e4:SetValue(c86379870.efilter)
 	e4:SetReset(RESET_EVENT+RESETS_STANDARD)
 	c:RegisterEffect(e4)
-	--direct attack only
+	--direct attack
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_DIRECT_ATTACK)
+	e5:SetRange(LOCATION_SZONE)
+	e5:SetTargetRange(LOCATION_MZONE,0)
+	e5:SetTarget(c86379870.etarget)
+	e5:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:RegisterEffect(e5)
+
+
+	--
+--[[	--direct attack only
 	local e5=Effect.CreateEffect(c)
 	e5:SetType(EFFECT_TYPE_FIELD)
 	e5:SetCode(EFFECT_DIRECT_ATTACK)
@@ -115,7 +139,8 @@ function c86379870.thop(e,tp,eg,ep,ev,re,r,rp)
 	local e6=e5:Clone()
 	e6:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
 	e6:SetValue(aux.TRUE)
-	c:RegisterEffect(e6)
+	c:RegisterEffect(e6)]]
+
 end
 function c86379870.eqlimit(e,c)
 	return c==e:GetLabelObject()
@@ -141,3 +166,16 @@ function c86379870.igcon(e)
 	local ct2=Duel.GetMatchingGroupCount(c86379870.igfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil,e:GetHandler())
 	return ct1==ct2
 end
+--
+function c86379870.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_LOST_TARGET)
+		and not e:GetHandler():GetPreviousEquipTarget():IsLocation(LOCATION_ONFIELD+LOCATION_OVERLAY) and e:GetHandler():GetFlagEffect(86379870)>0 and e:GetHandler():GetPreviousEquipTarget():IsSetCard(0x190)
+end
+function c86379870.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end

script/c888136.lua

@@ -28,7 +28,27 @@ function c888136.rdcon(e,tp,eg,ep,ev,re,r,rp)
 	return ep~=tp
 end
 function c888136.rdop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Damage(1-tp,700,REASON_BATTLE)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCountLimit(1)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetLabel(0)
+	e1:SetOperation(c888136.damop)
+	e1:SetReset(RESET_PHASE+PHASE_END,1)
+	Duel.RegisterEffect(e1,tp)
+	DOT.DotCounter.Add(nil,1-tp,0,700,700,e)
+end
+function c888136.damop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<1) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,700,REASON_EFFECT)
+		DOT.DotCounter.Add(nil,1-tp,0,-700,-700,e)
+	end
 end
 function c888136.filter(c,tp)
 	return c:IsLocation(LOCATION_GRAVE) and c:GetPreviousControler()~=tp
@@ -38,12 +58,16 @@ function c888136.dmcon(e,tp,eg,ep,ev,re,r,rp)
 end
 function c888136.dmtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	Duel.SetTargetPlayer(1-tp)
-	Duel.SetTargetParam(700)
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,700)
 end
 function c888136.dmop(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Damage(p,d,REASON_EFFECT)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCountLimit(1)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetLabel(0)
+	e1:SetOperation(c888136.damop)
+	e1:SetReset(RESET_PHASE+PHASE_END,1)
+	Duel.RegisterEffect(e1,tp)
+	DOT.DotCounter.Add(nil,1-tp,0,700,700,e)
 end

script/c888151.lua

@@ -29,7 +29,27 @@ function c888151.rdcon(e,tp,eg,ep,ev,re,r,rp)
 	return ep~=tp and Duel.GetFlagEffect(tp,8881510)~=0
 end
 function c888151.rdop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Damage(1-tp,1000,REASON_BATTLE)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCountLimit(1)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetLabel(0)
+	e1:SetOperation(c888151.damop)
+	e1:SetReset(RESET_PHASE+PHASE_END,1)
+	Duel.RegisterEffect(e1,tp)
+	DOT.DotCounter.Add(nil,1-tp,0,1000,1000,e)
+end
+function c888151.damop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<1) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,1000,REASON_EFFECT)
+		DOT.DotCounter.Add(nil,1-tp,0,-1000,-1000,e)
+	end
 end
 function c888151.filter(c)
 	return c:IsDestructable() and c:IsFaceup()

script/c888153.lua

- 
 --七曜-木符「翠绿风暴」
 function c888153.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	c:RegisterEffect(e1)
-	--indestructable
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e4:SetRange(LOCATION_SZONE)
-	e4:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
-	e4:SetCountLimit(1)
-	e4:SetValue(c888153.valcon)
-	c:RegisterEffect(e4)
+	--Immune
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_IMMUNE_EFFECT)
+	e0:SetRange(LOCATION_SZONE)
+	e0:SetTargetRange(LOCATION_ONFIELD,0)
+	e0:SetTarget(c888153.target)
+	e0:SetValue(c888153.efilter)
+	c:RegisterEffect(e0)
 	--to hand
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(888153,1))
@@ -26,8 +25,13 @@ function c888153.initial_effect(c)
 	e2:SetOperation(c888153.thop)
 	c:RegisterEffect(e2)
 end
-function c888153.valcon(e,re,r,rp)
-	return bit.band(r,REASON_EFFECT)~=0
+function c888153.target(e,c)
+	local te,g=Duel.GetChainInfo(0,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TARGET_CARDS)
+	return (not te or not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) or not g
+		or not g:IsContains(c)) and (e:GetHandler():IsSetCard(0x177) or e:GetHandler():IsRace(RACE_SPELLCASTER))
+end
+function c888153.efilter(e,te)
+	return te:GetOwnerPlayer()~=e:GetHandlerPlayer()
 end
 function c888153.thfilter(c)
 	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()

script/c888154.lua

@@ -53,7 +53,23 @@ function c888154.operation(e,tp,eg,ep,ev,re,r,rp)
 						e2:SetValue(0)
 					e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
 				tc:RegisterEffect(e2)
-			local s=math.ceil(ad/1400)
+			local s=math.floor(ad/700)
 		local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,s,s,nil)
 	Duel.Destroy(g,REASON_EFFECT)
+	local e1_=Effect.CreateEffect(c)
+	e1_:SetType(EFFECT_TYPE_SINGLE)
+	e1_:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
+	e1_:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1_:SetValue(1)
+	e1_:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+	tc:RegisterEffect(e1_)
+	local e2=e1_:Clone()
+	e2:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
+	tc:RegisterEffect(e2)
+	local e3=e1_:Clone()
+	e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
+	tc:RegisterEffect(e3)
+	local e4=e1_:Clone()
+	e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	tc:RegisterEffect(e4)
 end

script/c888167.lua

- 
 --七曜-火水符「燃素之柱」
 function c888167.initial_effect(c)
 	--damage
@@ -7,6 +6,7 @@ function c888167.initial_effect(c)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
 	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e4:SetCountLimit(1,888167)
 	e4:SetCost(c888167.cost)
 	e4:SetTarget(c888167.target)
 	e4:SetOperation(c888167.operation)
@@ -33,6 +33,14 @@ function c888167.operation(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetCondition(c888167.dcon)
 		e1:SetOperation(c888167.dop)
 		tc:RegisterEffect(e1)
+		local e1_1=Effect.CreateEffect(e:GetHandler())
+		e1_1:SetType(EFFECT_TYPE_FIELD)
+		e1_1:SetCode(EFFECT_CHANGE_DAMAGE)
+		e1_1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1_1:SetTargetRange(1,1)
+		e1_1:SetValue(c888167.damval1_1)
+		e1_1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1_1,tp)
 	end
 end
 function c888167.dcon(e,tp,eg,ep,ev,re,r,rp)
@@ -42,3 +50,10 @@ end
 function c888167.dop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.ChangeBattleDamage(ep,ev*2)
 end
+function c888167.damval1_1(e,re,val,r,rp,rc)
+	if Duel.GetCurrentPhase()==PHASE_END and bit.band(r,REASON_EFFECT)~=0 then
+		return val*2
+	else
+		return val
+	end
+end

script/c888168.lua

@@ -6,6 +6,7 @@ function c888168.initial_effect(c)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
 	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e4:SetCountLimit(1,888168)
 	e4:SetTarget(c888168.target)
 	e4:SetOperation(c888168.operation)
 	c:RegisterEffect(e4)
@@ -35,12 +36,24 @@ function c888168.operation(e,tp,eg,ep,ev,re,r,rp)
 		e2:SetReset(RESET_EVENT+0x1fe0000)
 		tc:RegisterEffect(e2)
 		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetDescription(aux.Stringid(888168,2))
 		e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
 		e3:SetRange(LOCATION_MZONE)
 		e3:SetCode(EVENT_BE_BATTLE_TARGET)
 		e3:SetReset(RESET_EVENT+0x1fe0000)
+		e3:SetCountLimit(1)
 		e3:SetOperation(c888168.dmop2)
 		tc:RegisterEffect(e3)
+		local e4=Effect.CreateEffect(e:GetHandler())
+		e4:SetDescription(aux.Stringid(888168,3))
+		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+		e4:SetRange(LOCATION_MZONE)
+		e4:SetCode(EVENT_PHASE+PHASE_END)
+		e4:SetReset(RESET_EVENT+0x1fe0000)
+		e4:SetCountLimit(1)
+		e4:SetTarget(c888168.dmtg4)
+		e4:SetOperation(c888168.dmop4)
+		tc:RegisterEffect(e4)
 	end
 end
 function c888168.mamoval(e,re,rp)
@@ -48,5 +61,32 @@ function c888168.mamoval(e,re,rp)
 end
 function c888168.dmop2(e,tp,eg,ep,ev,re,r,rp)
 	if ep~=tp then return end
-	Duel.Damage(1-tp,3000,REASON_EFFECT)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(888168,2))
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCountLimit(1)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetLabel(0)
+	e1:SetOperation(c888168.damop)
+	e1:SetReset(RESET_PHASE+PHASE_END,1)
+	Duel.RegisterEffect(e1,tp)
+	DOT.DotCounter.Add(nil,1-tp,0,800,800,e)
+end
+function c888168.damop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<1) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,800,REASON_EFFECT)
+		DOT.DotCounter.Add(nil,1-tp,0,-800,-800,e)
+	end
+end
+function c888168.dmtg4(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
+function c888168.dmop4(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Damage(1-tp,800,REASON_EFFECT)
 end

script/c888169.lua

@@ -6,6 +6,7 @@ function c888169.initial_effect(c)
 	e4:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DAMAGE)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888169)
 	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e4:SetTarget(c888169.target)
 	e4:SetOperation(c888169.operation)
@@ -15,29 +16,38 @@ function c888169.filter(c)
 	return c:IsFaceup() and c:IsType(TYPE_MONSTER)
 end
 function c888169.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c888169.filter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c888169.filter,tp,LOCATION_MZONE,0,1,nil) end
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c888169.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c888169.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local g=Duel.SelectTarget(tp,c888169.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	local g=Duel.SelectTarget(tp,c888169.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
 	local tc=g:GetFirst()
-	local dc=tc:GetDefense()
-	--if dc>1500 then dc=1500 end
-	--if dc<1000 then dc=1000 end
+	local dc=tc:GetDefense()*2
+	if dc>1000 then dc=1000 end
 	Duel.SetTargetPlayer(1-tp)
 	Duel.SetTargetParam(dc)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dc)
 end
 function c888169.operation(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
-	local dc=tc:GetDefense()
+	local dc=tc:GetDefense()*2
+	if dc>1000 then dc=1000 end
 	local c=e:GetHandler()
 	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		if tc:IsControler(tp) then
 			local e1=Effect.CreateEffect(c)
 			e1:SetType(EFFECT_TYPE_SINGLE)
 			e1:SetCode(EFFECT_UPDATE_ATTACK)
 			e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
 			e1:SetValue(dc)
 			tc:RegisterEffect(e1)
+		else
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+			e1:SetValue(-dc)
+			tc:RegisterEffect(e1)
+		end
 			local e2=Effect.CreateEffect(c)
 			e2:SetType(EFFECT_TYPE_SINGLE)
 			e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)

script/c888170.lua

- 
 --七曜-水木符「水精灵」
 function c888170.initial_effect(c)
 	--damage

script/c888171.lua

- 
 --七曜-木火符「森林大火」
 function c888171.initial_effect(c)
 	--damage
@@ -7,6 +6,7 @@ function c888171.initial_effect(c)
 	e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888171)
 	e4:SetTarget(c888171.target)
 	e4:SetOperation(c888171.operation)
 	c:RegisterEffect(e4)
@@ -39,5 +39,26 @@ function c888171.operation(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Damage(1-tp,ct*300,REASON_EFFECT,true)
 		Duel.Damage(tp,ct*300,REASON_EFFECT,true)
 		Duel.RDComplete()
+		local c=e:GetHandler()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCountLimit(1)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetLabel(0)
+		e1:SetOperation(c888168.damop)
+		e1:SetReset(RESET_PHASE+PHASE_END,1)
+		Duel.RegisterEffect(e1,tp)
+		DOT.DotCounter.Add(nil,1-tp,0,700,700,e)
+	end
+end
+function c888168.damop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabel()
+	if(ct<1) then
+		ct=ct+1
+		e:SetLabel(ct)
+		c:SetTurnCounter(ct)
+		Duel.Damage(1-tp,700,REASON_EFFECT)
+		DOT.DotCounter.Add(nil,1-tp,0,-700,-700,e)
 	end
 end

script/c888172.lua

@@ -5,6 +5,7 @@ function c888172.initial_effect(c)
 	e4:SetDescription(aux.Stringid(888172,1))
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888172)
 	e4:SetTarget(c888172.target)
 	e4:SetOperation(c888172.operation)
 	c:RegisterEffect(e4)

script/c888173.lua

@@ -6,6 +6,7 @@ function c888173.initial_effect(c)
 	e4:SetCategory(CATEGORY_DESTROY+CATEGORY_POSITION+CATEGORY_TODECK)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888173)
 	e4:SetTarget(c888173.target)
 	e4:SetOperation(c888173.operation)
 	c:RegisterEffect(e4)

script/c888174.lua

@@ -5,6 +5,7 @@ function c888174.initial_effect(c)
 	e4:SetDescription(aux.Stringid(888174,1))
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888174)
 	e4:SetCost(c888174.cost)
 	e4:SetTarget(c888174.target)
 	e4:SetOperation(c888174.operation)

script/c888175.lua

@@ -3,10 +3,11 @@ function c888175.initial_effect(c)
 	--atsdad
 	local e4=Effect.CreateEffect(c)
 	e4:SetDescription(aux.Stringid(888175,1))
-	e4:SetCategory(CATEGORY_TODECK+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+	e4:SetCategory(CATEGORY_TODECK+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_DRAW)
 	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888175)
 	e4:SetCost(c888175.cost)
 	e4:SetTarget(c888175.target)
 	e4:SetOperation(c888175.operation)
@@ -30,7 +31,7 @@ end
 function c888175.operation(e,tp,eg,ep,ev,re,r,rp)
 	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
 	if not tg then return end
-	Duel.SendtoDeck(tg,nil,0,REASON_EFFECT)
+	local tgc=Duel.SendtoDeck(tg,nil,0,REASON_EFFECT)
 	Duel.ShuffleDeck(tp)
 	Duel.BreakEffect()
 	local ag=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
@@ -58,4 +59,5 @@ function c888175.operation(e,tp,eg,ep,ev,re,r,rp)
 			sc=ag:GetNext()
 		end
 	end
+	if tgc==7 then Duel.Draw(tp,2,REASON_EFFECT) end
 end

script/c888176.lua

- 
 --七曜-金土符「淡黄色的阵风」
 function c888176.initial_effect(c)
 	--to hand
@@ -8,6 +7,7 @@ function c888176.initial_effect(c)
 	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888176)
 	e4:SetTarget(c888176.target)
 	e4:SetOperation(c888176.operation)
 	c:RegisterEffect(e4)
@@ -21,7 +21,7 @@ function c888176.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
 	local g=Duel.SelectTarget(tp,c888176.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
-	Duel.SetChainLimit(c888176.climit)
+	Duel.SetChainLimit(aux.FALSE)
 end
 function c888176.climit(e,tp)
 	return e:IsHasType(EFFECT_TYPE_ACTIVATE)

script/c888183.lua

- 
 --七曜-月木符「卫星向日葵」
 function c888183.initial_effect(c)
 	--posset
@@ -7,6 +6,7 @@ function c888183.initial_effect(c)
 	e4:SetCategory(CATEGORY_POSITION)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888183)
 	e4:SetTarget(c888183.target)
 	e4:SetOperation(c888183.operation)
 	c:RegisterEffect(e4)

script/c888184.lua

@@ -6,6 +6,7 @@ function c888184.initial_effect(c)
 	e4:SetCategory(CATEGORY_RECOVER)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888184)
 	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e4:SetTarget(c888184.target)
 	e4:SetOperation(c888184.operation)

script/c888186.lua

@@ -6,6 +6,7 @@ function c888186.initial_effect(c)
 	e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DISABLE+CATEGORY_DAMAGE)
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
 	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1,888186)
 	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e4:SetTarget(c888186.target)
 	e4:SetOperation(c888186.operation)

script/c888194.lua

- 
 --七曜-土金符「翡翠巨城」
 function c888194.initial_effect(c)
 	--damage
 	local e4=Effect.CreateEffect(c)
 	e4:SetDescription(aux.Stringid(888194,1))
 	e4:SetType(EFFECT_TYPE_ACTIVATE)
+	e4:SetCountLimit(1,888194)
 	e4:SetCode(EVENT_FREE_CHAIN)
 	e4:SetOperation(c888194.operation)
 	c:RegisterEffect(e4)

script/c99999016.lua

@@ -4,6 +4,7 @@ function c99999016.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCountLimit(1,99999057)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetTarget(c99999016.thtg)
 	e1:SetOperation(c99999016.thop)

script/c99999504.lua

@@ -55,26 +55,25 @@ function c99999504.tgtg(e,c)
 end
 function c99999504.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local c=e:GetHandler()
-	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
-	if chk==0 then return c:IsAbleToDeck() and g:GetCount()>0 end
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end
+	if chk==0 then return c:IsAbleToDeck()  end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,g:GetCount(),0,0)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil)
 end
 function c99999504.atkop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if c:IsRelateToEffect(e) then
 		Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
-		local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
-		local tc=g:GetFirst()
-		while tc do
+		local tc=Duel.GetFirstTarget()
+		if tc:IsRelateToEffect(e) and tc:IsFaceup() then
 			local e1=Effect.CreateEffect(c)
 			e1:SetType(EFFECT_TYPE_SINGLE)
 			e1:SetCode(EFFECT_UPDATE_ATTACK)
 			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 			e1:SetValue(1000)
 			tc:RegisterEffect(e1)
-			tc=g:GetNext()
 		end
 	end
 end
\ No newline at end of file