new scripts

ocgcore/effect.h

@@ -338,6 +338,7 @@ public:
 #define EFFECT_NECRO_VALLEY_IM			293
 #define EFFECT_REVERSE_DECK				294
 #define EFFECT_REMOVE_BRAINWASHING		295
+#define EFFECT_BP_TWICE					296
 
 #define EVENT_STARTUP		1000
 #define EVENT_FLIP			1001

ocgcore/processor.cpp

@@ -2416,6 +2416,9 @@ int32 field::process_battle_command(uint16 step) {
 		if(peffect = is_player_affected_by_effect(infos.turn_player, EFFECT_SKIP_BP)) {
 			core.units.begin()->step = 39;
 			core.units.begin()->arg1 = 2;
+			if(is_player_affected_by_effect(infos.turn_player, EFFECT_BP_TWICE))
+				core.units.begin()->arg2 = 1;
+			else core.units.begin()->arg2 = 0;
 			if(!peffect->value)
 				add_process(PROCESSOR_PHASE_EVENT, 0, 0, 0, PHASE_BATTLE, 0);
 			else {
@@ -2527,6 +2530,9 @@ int32 field::process_battle_command(uint16 step) {
 		} else {
 			core.units.begin()->step = 39;
 			core.units.begin()->arg1 = ctype;
+			if(is_player_affected_by_effect(infos.turn_player, EFFECT_BP_TWICE))
+				core.units.begin()->arg2 = 1;
+			else core.units.begin()->arg2 = 0;
 			add_process(PROCESSOR_PHASE_EVENT, 0, 0, 0, PHASE_BATTLE, 0);
 			adjust_all();
 			return FALSE;
@@ -3407,6 +3413,7 @@ int32 field::process_battle_command(uint16 step) {
 	}
 	case 40: {
 		returns.ivalue[0] = core.units.begin()->arg1;
+		returns.ivalue[1] = core.units.begin()->arg2;
 		return TRUE;
 	}
 	}
@@ -3657,6 +3664,23 @@ int32 field::process_turn(uint16 step, uint8 turn_player) {
 		return FALSE;
 	}
 	case 12: {
+		if(core.units.begin()->arg2 == 0 && returns.ivalue[1]) {
+			core.units.begin()->arg2 = 1;
+			core.units.begin()->step = 8;
+			for(uint8 p = 0; p < 2; ++p) {
+				for(uint8 i = 0; i < 5; ++i) {
+					card* pcard = player[p].list_mzone[i];
+					if(!pcard)
+						continue;
+					pcard->announce_count = 0;
+					pcard->attacked_count = 0;
+					pcard->announced_cards.clear();
+					pcard->attacked_cards.clear();
+					pcard->battled_cards.clear();
+				}
+			}
+			return FALSE;
+		}
 		if(returns.ivalue[0] == 3) { // End Phase
 			core.units.begin()->step = 14;
 			return FALSE;

script/c15305240.lua

+--鹵獲装置
+function c15305240.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_CONTROL)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c15305240.target)
+	e1:SetOperation(c15305240.activate)
+	c:RegisterEffect(e1)
+end
+function c15305240.filter(c)
+	return c:IsFaceup() and c:IsType(TYPE_NORMAL) and c:IsAbleToChangeControler()
+end
+function c15305240.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c15305240.filter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,0,0,0)
+end
+function c15305240.activate(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsExistingMatchingCard(c15305240.filter,tp,LOCATION_MZONE,0,1,nil)
+		or not Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil)
+	then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+	local g1=Duel.SelectMatchingCard(tp,c15305240.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONTROL)
+	local g2=Duel.SelectMatchingCard(1-tp,Card.IsAbleToChangeControler,1-tp,LOCATION_MZONE,0,1,1,nil)
+	local c1=g1:GetFirst()
+	local c2=g2:GetFirst()
+	Duel.SwapControl(c1,c2,0,0)
+end

script/c16067089.lua

@@ -12,7 +12,7 @@ function c16067089.initial_effect(c)
 end
 function c16067089.cfilter(c,tp)
 	return c:IsCode(72677437) and c:GetPreviousControler()==tp
-		and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP_ATTACK)
+		and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP)
 end
 function c16067089.condition(e,tp,eg,ep,ev,re,r,rp)
 	return eg:IsExists(c16067089.cfilter,1,nil,tp)

script/c16437822.lua

+--フリント·アタック
+function c16437822.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c16437822.target)
+	e1:SetOperation(c16437822.activate)
+	c:RegisterEffect(e1)
+	--todeck
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(16437822,0))
+	e2:SetCategory(CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCondition(c16437822.retcon)
+	e2:SetTarget(c16437822.rettg)
+	e2:SetOperation(c16437822.retop)
+	c:RegisterEffect(e2)
+end
+function c16437822.filter(c)
+	return c:GetEquipCount()~=0 and c:GetEquipGroup():IsExists(Card.IsCode,1,nil,75560629) and c:IsDestructable()
+end
+function c16437822.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c16437822.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c16437822.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c16437822.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c16437822.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end
+function c16437822.retcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsStatus(STATUS_ACTIVATED)
+end
+function c16437822.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToDeck() end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
+end
+function c16437822.retop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e) then
+		Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_EFFECT)
+	end
+end

script/c18372968.lua

+--カミソーリトカゲ
+function c18372968.initial_effect(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(18372968,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_BATTLE_START)
+	e1:SetCondition(c18372968.descon)
+	e1:SetTarget(c18372968.destg)
+	e1:SetOperation(c18372968.desop)
+	c:RegisterEffect(e1)
+end
+function c18372968.cfilter(c)
+	return c:IsFaceup() and c:IsRace(RACE_REPTILE)
+end
+function c18372968.descon(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.GetAttackTarget()
+	return e:GetHandler()==Duel.GetAttacker() and d and d:IsPosition(POS_FACEDOWN_DEFENCE)
+		and Duel.IsExistingMatchingCard(c18372968.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler())
+end
+function c18372968.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,Duel.GetAttackTarget(),1,0,0)
+end
+function c18372968.desop(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.GetAttackTarget()
+	if d:IsRelateToBattle() and d:IsPosition(POS_FACEDOWN_DEFENCE)
+		and Duel.IsExistingMatchingCard(c18372968.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) then
+		Duel.Destroy(d,REASON_EFFECT)
+	end
+end

script/c19763315.lua

+--不運なリポート
+function c19763315.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c19763315.activate)
+	c:RegisterEffect(e1)
+end
+function c19763315.activate(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_BP_TWICE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(0,1)
+	if Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE then
+		e1:SetLabel(Duel.GetTurnCount())
+		e1:SetCondition(c19763315.bpcon)
+		e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_OPPO_TURN,2)
+	else
+		e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_OPPO_TURN,1)
+	end
+	Duel.RegisterEffect(e1,tp)
+end
+function c19763315.bpcon(e)
+	return Duel.GetTurnCount()~=e:GetLabel()
+end

script/c2122975.lua

+--トラップ·キャプチャー
+function c2122975.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c2122975.condition)
+	e1:SetCost(c2122975.cost)
+	e1:SetOperation(c2122975.activate)
+	c:RegisterEffect(e1)
+end
+function c2122975.condition(e,tp,eg,ep,ev,re,r,rp)
+	return rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP)
+end
+function c2122975.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,nil)
+end
+function c2122975.activate(e,tp,eg,ep,ev,re,r,rp)
+	if re:GetHandler():IsRelateToEffect(re) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_TO_GRAVE)
+		e1:SetOperation(c2122975.thop)
+		e1:SetReset(RESET_EVENT+0x17a0000)
+		re:GetHandler():RegisterEffect(e1)
+	end
+end
+function c2122975.thop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsHasEffect(EFFECT_NECRO_VALLEY) then
+		Duel.SendtoHand(e:GetHandler(),tp,REASON_EFFECT)
+	end
+end

script/c21790410.lua

@@ -47,7 +47,7 @@ function c21790410.eqop(e,tp,eg,ep,ev,re,r,rp)
 	if tc then
 		if not Duel.Equip(tp,tc,c,true) then return end
 		local e1=Effect.CreateEffect(c)
-		e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_EQUIP_LIMIT)
 		e1:SetReset(RESET_EVENT+0x1fe0000)

script/c2196767.lua

+--伝説の賭博師
+function c2196767.initial_effect(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(2196767,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_HANDES+CATEGORY_COIN)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c2196767.destg)
+	e1:SetOperation(c2196767.desop)
+	c:RegisterEffect(e1)
+end
+function c2196767.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil)
+		and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0
+		and Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3)
+end
+function c2196767.desop(e,tp,eg,ep,ev,re,r,rp)
+	local c1,c2,c3=Duel.TossCoin(tp,3)
+	if c1+c2+c3==3 then
+		local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+	elseif c1+c2+c3==2 then
+		local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND):RandomSelect(tp,1)
+		Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
+	elseif c1+c2+c3==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+	else
+		local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+		Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
+	end
+end

script/c23282832.lua

+--オーバーリミット
+function c23282832.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	e1:SetCost(c23282832.cost)
+	e1:SetTarget(c23282832.tg)
+	e1:SetOperation(c23282832.op)
+	c:RegisterEffect(e1)
+end
+function c23282832.filter(c,e,tp,tid)
+	return c:GetTurnID()==tid and c:IsReason(REASON_BATTLE) and c:IsType(TYPE_NORMAL)
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c23282832.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,500) end
+	Duel.PayLPCost(tp,500)
+end
+function c23282832.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
+		and Duel.IsExistingMatchingCard(c23282832.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp,Duel.GetTurnCount()) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,PLAYER_ALL,LOCATION_GRAVE)
+end
+function c23282832.op(e,tp,eg,ep,ev,re,r,rp)
+	local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ft1<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c23282832.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,ft1,ft1,nil,e,tp,Duel.GetTurnCount())
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c2461031.lua

@@ -55,7 +55,7 @@ function c2461031.eqop(e,tp,eg,ep,ev,re,r,rp)
 	if tc then
 		if not Duel.Equip(tp,tc,c,true) then return end
 		local e1=Effect.CreateEffect(c)
-		e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_EQUIP_LIMIT)
 		e1:SetReset(RESET_EVENT+0x1fe0000)

script/c26211048.lua

@@ -43,7 +43,7 @@ function c26211048.eqop(e,tp,eg,ep,ev,re,r,rp)
 	end
 	Duel.Equip(tp,tc,c,false)
 	local e1=Effect.CreateEffect(c)
-	e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+	e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetCode(EFFECT_EQUIP_LIMIT)
 	e1:SetReset(RESET_EVENT+0x1fe0000)

script/c30525991.lua

+--スパルタクァの呪術師
+function c30525991.initial_effect(c)
+	--recover
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(30525991,0))
+	e1:SetCategory(CATEGORY_DAMAGE)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c30525991.con)
+	e1:SetTarget(c30525991.tg)
+	e1:SetOperation(c30525991.op)
+	c:RegisterEffect(e1)
+end
+function c30525991.cfilter(c)
+	return c:GetPreviousLocation()==LOCATION_DECK
+end
+function c30525991.con(e,tp,eg,ep,ev,re,r,rp)
+	return not eg:IsContains(e:GetHandler()) and eg:IsExists(c30525991.cfilter,1,nil)
+end
+function c30525991.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsRelateToEffect(e) end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(500)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500)
+end
+function c30525991.op(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) or e:GetHandler():IsFacedown() then return end
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Damage(p,d,REASON_EFFECT)
+end

script/c30643162.lua

+--ストライク·ショット
+function c30643162.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetTarget(c30643162.target)
+	e1:SetOperation(c30643162.activate)
+	c:RegisterEffect(e1)
+end
+function c30643162.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local tg=Duel.GetAttacker()
+	if chkc then return chkc==tg end
+	if chk==0 then return tg:IsControler(tp) and tg:IsOnField() and tg:IsCanBeEffectTarget(e) end
+	Duel.SetTargetCard(tg)
+end
+function c30643162.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetAttacker()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(700)
+		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_PIERCE)
+		e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e2)
+	end
+end

script/c31036355.lua

@@ -10,10 +10,8 @@ function c31036355.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function c31036355.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
-		return Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,LOCATION_MZONE,0,1,nil)
-			and Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil)
-	end
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,0,0,0)
 end
 function c31036355.activate(e,tp,eg,ep,ev,re,r,rp)
@@ -27,7 +25,7 @@ function c31036355.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g2=Duel.SelectMatchingCard(1-tp,Card.IsAbleToChangeControler,1-tp,LOCATION_MZONE,0,1,1,nil)
 	local c1=g1:GetFirst()
 	local c2=g2:GetFirst()
-	if Duel.SwapControl(c1,c2,RESET_PHASE+PHASE_END,0) then
+	if Duel.SwapControl(c1,c2,0,0) then
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION)

script/c34334692.lua

+--儀式の供物
+function c34334692.initial_effect(c)
+	--ritual level
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_RITUAL_LEVEL)
+	e1:SetValue(c34334692.rlevel)
+	c:RegisterEffect(e1)
+end
+function c34334692.rlevel(e,c)
+	local lv=e:GetHandler():GetLevel()
+	if c:IsAttribute(ATTRIBUTE_DARK) then
+		local clv=c:GetLevel()
+		return lv*65536+clv
+	else return lv end
+end

script/c35073065.lua

@@ -21,30 +21,33 @@ function c35073065.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end
 	Duel.ConfirmCards(1-tp,e:GetHandler())
 	Duel.ShuffleHand(tp)
+	Duel.SetTargetCard(eg)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 end
 function c35073065.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local ec=eg:GetFirst()
 	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_CHANGE_RACE)
-		e1:SetValue(ec:GetRace())
-		e1:SetReset(RESET_EVENT+0x1ff0000)
-		c:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_CHANGE_ATTRIBUTE)
-		e2:SetValue(ec:GetAttribute())
-		e2:SetReset(RESET_EVENT+0x1ff0000)
-		c:RegisterEffect(e2)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_SINGLE)
-		e3:SetCode(EFFECT_CHANGE_LEVEL)
-		e3:SetValue(ec:GetLevel())
-		e3:SetReset(RESET_EVENT+0x1ff0000)
-		c:RegisterEffect(e3)
+		if ec:IsRelateToEffect(e) and ec:IsFaceup() then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_CHANGE_RACE)
+			e1:SetValue(ec:GetRace())
+			e1:SetReset(RESET_EVENT+0x1ff0000)
+			c:RegisterEffect(e1)
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+			e2:SetValue(ec:GetAttribute())
+			e2:SetReset(RESET_EVENT+0x1ff0000)
+			c:RegisterEffect(e2)
+			local e3=Effect.CreateEffect(c)
+			e3:SetType(EFFECT_TYPE_SINGLE)
+			e3:SetCode(EFFECT_CHANGE_LEVEL)
+			e3:SetValue(ec:GetLevel())
+			e3:SetReset(RESET_EVENT+0x1ff0000)
+			c:RegisterEffect(e3)
+		end
 		Duel.SpecialSummonComplete()
 	end
 end

script/c38450736.lua

@@ -50,7 +50,7 @@ function c38450736.eqop(e,tp,eg,ep,ev,re,r,rp)
 	if tc then
 		if not Duel.Equip(tp,tc,c,true) then return end
 		local e1=Effect.CreateEffect(c)
-		e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_EQUIP_LIMIT)
 		e1:SetReset(RESET_EVENT+0x1fe0000)

script/c42709949.lua

+--守護神の矛
+function c42709949.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(c42709949.target)
+	e1:SetOperation(c42709949.operation)
+	c:RegisterEffect(e1)
+	--Atk,def
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_EQUIP)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetValue(c42709949.value)
+	c:RegisterEffect(e2)
+	--Equip limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_EQUIP_LIMIT)
+	e3:SetValue(1)
+	c:RegisterEffect(e3)
+end
+function c42709949.target(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,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function c42709949.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Equip(tp,e:GetHandler(),tc)
+	end
+end
+function c42709949.value(e,c)
+	return Duel.GetMatchingGroupCount(Card.IsCode,0,LOCATION_GRAVE,LOCATION_GRAVE,nil,c:GetCode())*900
+end

script/c51987571.lua

@@ -10,6 +10,12 @@ function c51987571.initial_effect(c)
 	e1:SetTarget(c51987571.target)
 	e1:SetOperation(c51987571.operation)
 	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
 end
 function c51987571.condition(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsLocation(LOCATION_GRAVE)

script/c55589254.lua

+--氷炎の双竜
+function c55589254.initial_effect(c)
+	c:EnableReviveLimit()
+	--cannot special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c55589254.spcon)
+	e2:SetOperation(c55589254.spop)
+	c:RegisterEffect(e2)
+	--destroy
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(55589254,0))
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetCountLimit(1)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCost(c55589254.descost)
+	e3:SetTarget(c55589254.destg)
+	e3:SetOperation(c55589254.desop)
+	c:RegisterEffect(e3)
+end
+function c55589254.spfilter(c,att)
+	return c:IsAttribute(att) and c:IsAbleToRemoveAsCost()
+end
+function c55589254.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c55589254.spfilter,tp,LOCATION_GRAVE,0,2,nil,ATTRIBUTE_WATER)
+		and Duel.IsExistingMatchingCard(c55589254.spfilter,tp,LOCATION_GRAVE,0,1,nil,ATTRIBUTE_FIRE)
+end
+function c55589254.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g1=Duel.SelectMatchingCard(tp,c55589254.spfilter,tp,LOCATION_GRAVE,0,2,2,nil,ATTRIBUTE_WATER)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g2=Duel.SelectMatchingCard(tp,c55589254.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,ATTRIBUTE_FIRE)
+	g1:Merge(g2)
+	Duel.Remove(g1,POS_FACEUP,REASON_COST)
+end
+function c55589254.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c55589254.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c55589254.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

script/c57006589.lua

+--エネルギー吸収板
+function c57006589.initial_effect(c)
+	--reflect
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c57006589.condition)
+	e1:SetOperation(c57006589.operation)
+	c:RegisterEffect(e1)
+end
+function c57006589.condition(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return false end
+	local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE)
+	if ex and (cp==tp or cp==PLAYER_ALL) then return true end
+	ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER)
+	return ex and (cp==tp or cp==PLAYER_ALL) and Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_RECOVER)
+end
+function c57006589.operation(e,tp,eg,ep,ev,re,r,rp)
+	local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_REVERSE_DAMAGE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetLabel(cid)
+	e1:SetValue(c57006589.refcon)
+	e1:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e1,tp)
+end
+function c57006589.refcon(e,re,r,rp,rc)
+	local cc=Duel.GetCurrentChain()
+	if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end
+	local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
+	return cid==e:GetLabel()
+end

script/c57784563.lua

@@ -60,7 +60,7 @@ function c57784563.eqop(e,tp,eg,ep,ev,re,r,rp)
 			tc:RegisterEffect(e1)
 			local e2=Effect.CreateEffect(c)
 			e2:SetType(EFFECT_TYPE_EQUIP)
-			e2:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+			e2:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_IGNORE_IMMUNE)
 			e2:SetCode(EFFECT_DESTROY_SUBSTITUTE)
 			e2:SetReset(RESET_EVENT+0x1fe0000)
 			e2:SetValue(1)

script/c60306104.lua

+--進入禁止！No Entry！！
+function c60306104.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_POSITION)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,0x1c0)
+	e1:SetTarget(c60306104.target)
+	e1:SetOperation(c60306104.operation)
+	c:RegisterEffect(e1)
+end
+function c60306104.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAttackPos,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(Card.IsAttackPos,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
+end
+function c60306104.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsAttackPos,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.ChangePosition(g,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0)
+end

script/c67159705.lua

+--アーマード·サイバーン
+function c67159705.initial_effect(c)
+	--equip
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(67159705,0))
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(c67159705.eqtg)
+	e1:SetOperation(c67159705.eqop)
+	c:RegisterEffect(e1)
+	--unequip
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(67159705,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCondition(c67159705.uncon)
+	e2:SetTarget(c67159705.sptg)
+	e2:SetOperation(c67159705.spop)
+	c:RegisterEffect(e2)
+	--destroy sub
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_EQUIP)
+	e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e3:SetCode(EFFECT_DESTROY_SUBSTITUTE)
+	e3:SetCondition(c67159705.uncon)
+	e3:SetValue(c67159705.repval)
+	c:RegisterEffect(e3)
+	--eqlimit
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_EQUIP_LIMIT)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e4:SetValue(c67159705.eqlimit)
+	c:RegisterEffect(e4)
+	--destroy
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(67159705,2))
+	e5:SetCategory(CATEGORY_DESTROY)
+	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetRange(LOCATION_SZONE)
+	e5:SetCountLimit(1)
+	e5:SetCondition(c67159705.uncon)
+	e5:SetTarget(c67159705.destg)
+	e5:SetOperation(c67159705.desop)
+	c:RegisterEffect(e5)
+end
+function c67159705.uncon(e)
+	return e:GetHandler():IsStatus(STATUS_UNION)
+end
+function c67159705.repval(e,re,r,rp)
+	return bit.band(r,REASON_BATTLE)~=0
+end
+function c67159705.eqlimit(e,c)
+	return c:IsSetCard(0x103)
+end
+function c67159705.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0x103) and c:GetUnionCount()==0
+end
+function c67159705.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c67159705.filter(chkc) end
+	if chk==0 then return e:GetHandler():GetFlagEffect(67159705)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingTarget(c67159705.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local g=Duel.SelectTarget(tp,c67159705.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
+	e:GetHandler():RegisterFlagEffect(67159705,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
+end
+function c67159705.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	if not tc:IsRelateToEffect(e) or not c67159705.filter(tc) then
+		Duel.SendtoGrave(c,REASON_EFFECT)
+		return
+	end
+	if not Duel.Equip(tp,c,tc,false) then return end
+	c:SetStatus(STATUS_UNION,true)
+end
+function c67159705.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetFlagEffect(67159705)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+	e:GetHandler():RegisterFlagEffect(67159705,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
+end
+function c67159705.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)
+	end
+end
+function c67159705.desfilter(c)
+	return c:IsFaceup() and c:IsDestructable()
+end
+function c67159705.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c67159705.desfilter(chkc) end
+	if chk==0 then return e:GetHandler():GetEquipTarget():GetAttack()>=1000
+		and Duel.IsExistingTarget(c67159705.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c67159705.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c67159705.desop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if c:GetEquipTarget():GetAttack()<1000 then return end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_EQUIP)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetValue(-1000)
+	e1:SetReset(RESET_EVENT+0x1fe0000)
+	c:RegisterEffect(e1)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

script/c68184115.lua

@@ -47,7 +47,7 @@ function c68184115.eqop(e,tp,eg,ep,ev,re,r,rp)
 	if tc then
 		if not Duel.Equip(tp,tc,c,true) then return end
 		local e1=Effect.CreateEffect(c)
-		e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_EQUIP_LIMIT)
 		e1:SetReset(RESET_EVENT+0x1fe0000)

script/c69042950.lua

@@ -10,18 +10,20 @@ function c69042950.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function c69042950.mfilter(c,clv)
-	local lv=c:GetLevel()
-	return lv>0 and c:IsFaceup() and (not clv or lv==clv)
+	return c:IsFaceup() and c:GetLevel()==clv
+end
+function c69042950.mfilter2(c)
+	return c:IsFaceup() and c:IsLevelBelow(4)
 end
 function c69042950.spfilter(c,e,tp)
 	local lv=c:GetLevel()
-	return lv<=4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-		and Duel.IsExistingMatchingCard(c69042950.mfilter,tp,LOCATION_MZONE,0,1,nil)
+	return lv>0 and lv<=4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingMatchingCard(c69042950.mfilter,tp,LOCATION_MZONE,0,1,nil,lv)
 end
 function c69042950.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 		and Duel.IsExistingMatchingCard(c69042950.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
-		and Duel.IsExistingMatchingCard(c69042950.mfilter,tp,0,LOCATION_MZONE,1,nil) end
+		and Duel.IsExistingMatchingCard(c69042950.mfilter2,tp,0,LOCATION_MZONE,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
 end
 function c69042950.activate(e,tp,eg,ep,ev,re,r,rp)

script/c69207766.lua

@@ -56,7 +56,7 @@ function c69207766.eqop(e,tp,eg,ep,ev,re,r,rp)
 	if tc then
 		if not Duel.Equip(tp,tc,c,true) then return end
 		local e1=Effect.CreateEffect(c)
-		e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_EQUIP_LIMIT)
 		e1:SetReset(RESET_EVENT+0x1fe0000)

script/c71645242.lua

@@ -6,6 +6,8 @@ function c71645242.initial_effect(c)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	c:RegisterEffect(e1)
 	--token
+	local g=Group.CreateGroup()
+	g:KeepAlive()
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(71645242,0))
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
@@ -15,9 +17,11 @@ function c71645242.initial_effect(c)
 	e2:SetCondition(c71645242.spcon)
 	e2:SetTarget(c71645242.sptg)
 	e2:SetOperation(c71645242.spop)
+	e2:SetLabelObject(g)
 	c:RegisterEffect(e2)
 	local e3=e2:Clone()
 	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetLabelObject(g)
 	c:RegisterEffect(e3)
 	--special summon
 	local e4=Effect.CreateEffect(c)
@@ -31,17 +35,21 @@ function c71645242.initial_effect(c)
 	c:RegisterEffect(e4)
 end
 function c71645242.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:GetFirst():GetSummonType()~=SUMMON_TYPE_SPECIAL+0x20
+	if eg:GetFirst():GetSummonType()~=SUMMON_TYPE_SPECIAL+0x20 then
+		e:GetLabelObject():Clear()
+		e:GetLabelObject():Merge(eg)
+		return true
+	else return false end
 end
 function c71645242.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) end
-	Duel.SetTargetCard(eg)
+	Duel.SetTargetCard(e:GetLabelObject())
 	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
 end
 function c71645242.spop(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local g=eg:Filter(Card.IsRelateToEffect,nil,e)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
 	local tc=g:GetFirst()
 	if not tc then return end
 	local s0=false

script/c72053645.lua

+--ウェザー·レポート
+function c72053645.initial_effect(c)
+	--flip
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(72053645,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP)
+	e1:SetTarget(c72053645.target)
+	e1:SetOperation(c72053645.operation)
+	c:RegisterEffect(e1)
+end
+function c72053645.filter(c)
+	return c:IsFaceup() and c:IsCode(72302403) and c:IsDestructable()
+end
+function c72053645.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(c72053645.filter,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c72053645.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c72053645.filter,tp,0,LOCATION_ONFIELD,nil)
+	if Duel.Destroy(g,REASON_EFFECT)>0 then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_BP_TWICE)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetTargetRange(1,0)
+		if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE then
+			e1:SetLabel(Duel.GetTurnCount())
+			e1:SetCondition(c19763315.bpcon)
+			e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_SELF_TURN,2)
+		else
+			e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_SELF_TURN,1)
+		end
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function c72053645.bpcon(e)
+	return Duel.GetTurnCount()~=e:GetLabel()
+end

script/c75560629.lua

+--フリント
+function c75560629.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(c75560629.target)
+	e1:SetOperation(c75560629.operation)
+	c:RegisterEffect(e1)
+	--atkdown
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_EQUIP)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetCondition(c75560629.flcon)
+	e2:SetValue(-300)
+	c:RegisterEffect(e2)
+	--cannot attack
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_EQUIP)
+	e3:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e3:SetCondition(c75560629.flcon)
+	c:RegisterEffect(e3)
+	--cannot change pos
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_EQUIP)
+	e4:SetCode(EFFECT_CANNOT_CHANGE_POSITION)
+	e4:SetCondition(c75560629.flcon)
+	c:RegisterEffect(e4)
+	--equip limit
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_EQUIP_LIMIT)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e5:SetValue(c75560629.eqlimit)
+	c:RegisterEffect(e5)
+	--reequip
+	local e6=Effect.CreateEffect(c)
+	e6:SetDescription(aux.Stringid(75560629,0))
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e6:SetCode(EVENT_TO_GRAVE)
+	e6:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e6:SetCondition(c75560629.eqcon)
+	e6:SetTarget(c75560629.target)
+	e6:SetOperation(c75560629.operation)
+	c:RegisterEffect(e6)
+	local e7=e6:Clone()
+	e7:SetCode(EVENT_REMOVE)
+	c:RegisterEffect(e7)
+end
+function c75560629.flcon(e)
+	local tc=e:GetHandler():GetEquipTarget()
+	return tc:GetCode()~=83812099 or tc:IsDisabled()
+end
+function c75560629.eqlimit(e,c)
+	return c:GetCode()~=83812099 or c:IsDisabled()
+		or not c:GetEquipGroup():IsExists(Card.IsCode,1,e:GetHandler(),75560629)
+end
+function c75560629.filter(c)
+	return c:IsFaceup() and (c:GetCode()~=83812099 or c:IsDisabled()
+		or not c:GetEquipGroup():IsExists(Card.IsCode,1,nil,75560629))
+end
+function c75560629.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75560629.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c75560629.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,c75560629.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function c75560629.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Equip(tp,c,tc)
+	end
+end
+function c75560629.eqcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ec=c:GetPreviousEquipTarget()
+	return c:IsReason(REASON_LOST_TARGET) and ec and ec:IsReason(REASON_DESTROY)
+end

script/c76137276.lua

+--マジック·キャプチャー
+function c76137276.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c76137276.condition)
+	e1:SetCost(c76137276.cost)
+	e1:SetOperation(c76137276.activate)
+	c:RegisterEffect(e1)
+end
+function c76137276.condition(e,tp,eg,ep,ev,re,r,rp)
+	return rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL)
+end
+function c76137276.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,nil)
+end
+function c76137276.activate(e,tp,eg,ep,ev,re,r,rp)
+	if re:GetHandler():IsRelateToEffect(re) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_TO_GRAVE)
+		e1:SetOperation(c76137276.thop)
+		e1:SetReset(RESET_EVENT+0x17a0000)
+		re:GetHandler():RegisterEffect(e1)
+	end
+end
+function c76137276.thop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsHasEffect(EFFECT_NECRO_VALLEY) then
+		Duel.SendtoHand(e:GetHandler(),tp,REASON_EFFECT)
+	end
+end

script/c77972406.lua

+--反撃の毒牙
+function c77972406.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_BE_BATTLE_TARGET)
+	e1:SetCondition(c77972406.condition)
+	e1:SetTarget(c77972406.target)
+	e1:SetOperation(c77972406.activate)
+	c:RegisterEffect(e1)
+end
+function c77972406.condition(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	return tc:IsControler(tp) and tc:IsFaceup() and tc:IsSetCard(0x50)
+end
+function c77972406.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local tg=Duel.GetAttacker()
+	if chkc then return chkc==tg end
+	if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end
+	Duel.SetTargetCard(tg)
+end
+function c77972406.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetAttacker()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() and Duel.NegateAttack() then
+		Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1)
+		Duel.BreakEffect()
+		tc:AddCounter(0x9,1)
+	end
+end

script/c78663366.lua

@@ -27,12 +27,14 @@ function c78663366.operation(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetCountLimit(1)
 		e1:SetOperation(c78663366.retop)
 		Duel.RegisterEffect(e1,tp)
+		c:RegisterFlagEffect(78663366,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY,0,1)
 	end
 end
 function c78663366.retop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=e:GetLabelObject()
+	if tc:GetFlagEffect(78663366)==0 then return end
 	Duel.ReturnToField(tc)
-	if tc:IsLocation(LOCATION_MZONE) then
+	if tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then
 		local e1=Effect.CreateEffect(tc)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_UPDATE_ATTACK)

script/c80678380.lua

+--蛇神の勅命
+function c80678380.initial_effect(c)
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c80678380.condition)
+	e1:SetCost(c80678380.cost)
+	e1:SetTarget(c80678380.target)
+	e1:SetOperation(c80678380.activate)
+	c:RegisterEffect(e1)
+end
+function c80678380.condition(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev)
+end
+function c80678380.cfilter(c)
+	return c:IsSetCard(0x50) and not c:IsPublic()
+end
+function c80678380.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c80678380.cfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c80678380.cfilter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c80678380.target(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)
+	end
+end
+function c80678380.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateActivation(ev)
+	if re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

script/c81791932.lua

+--スネーク·ホイッスル
+function c81791932.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_DESTROYED)
+	e1:SetCondition(c81791932.condition)
+	e1:SetTarget(c81791932.target)
+	e1:SetOperation(c81791932.activate)
+	c:RegisterEffect(e1)
+end
+function c81791932.cfilter(c,tp)
+	return c:IsRace(RACE_REPTILE) and c:GetPreviousControler()==tp
+		and c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function c81791932.condition(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c81791932.cfilter,1,nil,tp)
+end
+function c81791932.filter(c,e,tp)
+	return c:IsLevelBelow(4) and c:IsRace(RACE_REPTILE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c81791932.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c81791932.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND)
+end
+function c81791932.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c81791932.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	if tc then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c81977953.lua

+--デザート·ツイスター
+function c81977953.initial_effect(c)
+	c:EnableReviveLimit()
+	--cannot special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c81977953.spcon)
+	e2:SetOperation(c81977953.spop)
+	c:RegisterEffect(e2)
+	--destroy
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(81977953,0))
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetCountLimit(1)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCost(c81977953.descost)
+	e3:SetTarget(c81977953.destg)
+	e3:SetOperation(c81977953.desop)
+	c:RegisterEffect(e3)
+end
+function c81977953.spfilter(c,att)
+	return c:IsAttribute(att) and c:IsAbleToRemoveAsCost()
+end
+function c81977953.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c81977953.spfilter,tp,LOCATION_GRAVE,0,2,nil,ATTRIBUTE_WIND)
+		and Duel.IsExistingMatchingCard(c81977953.spfilter,tp,LOCATION_GRAVE,0,1,nil,ATTRIBUTE_EARTH)
+end
+function c81977953.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g1=Duel.SelectMatchingCard(tp,c81977953.spfilter,tp,LOCATION_GRAVE,0,2,2,nil,ATTRIBUTE_WIND)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g2=Duel.SelectMatchingCard(tp,c81977953.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,ATTRIBUTE_EARTH)
+	g1:Merge(g2)
+	Duel.Remove(g1,POS_FACEUP,REASON_COST)
+end
+function c81977953.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c81977953.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable()
+end
+function c81977953.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and c81977953.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81977953.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c81977953.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c81977953.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

script/c83778600.lua

+--ミス·リバイブ
+function c83778600.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c83778600.target)
+	e1:SetOperation(c83778600.activate)
+	c:RegisterEffect(e1)
+end
+function c83778600.filter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENCE,1-tp)
+end
+function c83778600.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and c83778600.filter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)>0
+		and Duel.IsExistingTarget(c83778600.filter,tp,0,LOCATION_GRAVE,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c83778600.filter,tp,0,LOCATION_GRAVE,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c83778600.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE)
+	end
+end

script/c83812099.lua

+--フリントロック
+function c83812099.initial_effect(c)
+	--equip
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(83812099,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c83812099.eqcon1)
+	e1:SetTarget(c83812099.eqtg1)
+	e1:SetOperation(c83812099.eqop1)
+	c:RegisterEffect(e1)
+	--equip
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(83812099,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c83812099.eqcon2)
+	e2:SetTarget(c83812099.eqtg2)
+	e2:SetOperation(c83812099.eqop2)
+	c:RegisterEffect(e2)
+	--indes
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e3:SetCondition(c83812099.eqcon2)
+	e3:SetValue(1)
+	c:RegisterEffect(e3)
+end
+function c83812099.eqcon1(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():GetEquipGroup():IsExists(Card.IsCode,1,nil,75560629)
+end
+function c83812099.filter1(c,ec)
+	return c:IsFaceup() and c:IsCode(75560629) and c:CheckEquipTarget(ec)
+end
+function c83812099.eqtg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c83812099.filter1,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil,e:GetHandler()) end
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,0,LOCATION_SZONE)
+end
+function c83812099.eqop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.SelectMatchingCard(tp,c83812099.filter1,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil,c)
+	local eqc=g:GetFirst()
+	if eqc and c:IsRelateToEffect(e) and c:IsFaceup() then
+		Duel.Equip(tp,eqc,c)
+	end
+end
+function c83812099.eqcon2(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetEquipGroup():IsExists(Card.IsCode,1,nil,75560629)
+end
+function c83812099.filter2(c,eqc)
+	return c:IsFaceup() and eqc:CheckEquipTarget(c)
+end
+function c83812099.eqtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local eqc=e:GetHandler():GetEquipGroup():Filter(Card.IsCode,nil,75560629):GetFirst()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c83812099.filter2(chkc,eqc) end
+	if chk==0 then return Duel.IsExistingTarget(c83812099.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler(),eqc) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c83812099.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler(),eqc)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,eqc,1,0,0)
+end
+function c83812099.eqop2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local eqc=e:GetHandler():GetEquipGroup():Filter(Card.IsCode,nil,75560629):GetFirst()
+	if eqc and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Equip(tp,eqc,tc)
+	end
+end

script/c90673413.lua

@@ -44,7 +44,7 @@ function c90673413.operation(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
 	if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
-		if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end
+		if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end
 		Duel.Equip(tp,c,tc)
 		--Add Equip limit
 		local e1=Effect.CreateEffect(tc)

script/c9161357.lua

@@ -49,7 +49,7 @@ function c9161357.eqop(e,tp,eg,ep,ev,re,r,rp)
 		e:SetLabelObject(tc)
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
 		e1:SetCode(EFFECT_EQUIP_LIMIT)
 		e1:SetReset(RESET_EVENT+0x1fe0000)
 		e1:SetValue(c9161357.eqlimit)
@@ -58,7 +58,7 @@ function c9161357.eqop(e,tp,eg,ep,ev,re,r,rp)
 		if atk>0 then
 			local e2=Effect.CreateEffect(c)
 			e2:SetType(EFFECT_TYPE_EQUIP)
-			e2:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE)
+			e2:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_IGNORE_IMMUNE)
 			e2:SetCode(EFFECT_UPDATE_ATTACK)
 			e2:SetReset(RESET_EVENT+0x1fe0000)
 			e2:SetValue(atk)

script/c95090813.lua

@@ -74,7 +74,7 @@ function c95090813.eqop(e,tp,eg,ep,ev,re,r,rp)
 		if not Duel.Equip(tp,tc,c,false) then return end
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
 		e1:SetCode(EFFECT_EQUIP_LIMIT)
 		e1:SetReset(RESET_EVENT+0x1fe0000)
 		e1:SetValue(c95090813.eqlimit)
@@ -83,6 +83,7 @@ function c95090813.eqop(e,tp,eg,ep,ev,re,r,rp)
 		if atk<0 then atk=0 end
 		local e2=Effect.CreateEffect(c)
 		e2:SetType(EFFECT_TYPE_EQUIP)
+		e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
 		e2:SetCode(EFFECT_UPDATE_ATTACK)
 		e2:SetReset(RESET_EVENT+0x1fe0000)
 		e2:SetValue(atk/2)

script/c95395761.lua

@@ -52,7 +52,7 @@ function c95395761.eqop(e,tp,eg,ep,ev,re,r,rp)
 	if tc then
 		if not Duel.Equip(tp,tc,c,true) then return end
 		local e1=Effect.CreateEffect(c)
-		e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_EQUIP_LIMIT)
 		e1:SetReset(RESET_EVENT+0x1fe0000)

script/c99070951.lua

@@ -33,7 +33,7 @@ function c99070951.rmop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local g=Duel.GetDecktopGroup(tp,1)
 	local tc=g:GetFirst()
-	if not tc then return end
+	if not tc or not tc:IsAbleToRemove() then return end
 	Duel.DisableShuffleCheck()
 	Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
 	tc:RegisterFlagEffect(99070951,RESET_EVENT+0x1fe0000,0,1)

script/c99342953.lua

@@ -10,6 +10,7 @@ function c99342953.initial_effect(c)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetCode(EVENT_DESTROY)
+	e2:SetCondition(c99342953.ctcon)
 	e2:SetOperation(c99342953.ctop)
 	c:RegisterEffect(e2)
 	--special summon
@@ -27,11 +28,13 @@ function c99342953.initial_effect(c)
 end
 function c99342953.ctfilter(c)
 	return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0xc)
+		and (not c:IsReason(REASON_BATTLE) or bit.band(c:GetBattlePosition(),POS_FACEUP)~=0)
+end
+function c99342953.ctcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c99342953.ctfilter,1,nil)
 end
 function c99342953.ctop(e,tp,eg,ep,ev,re,r,rp)
-	if eg:IsExists(c99342953.ctfilter,1,nil) then
-		e:GetHandler():AddCounter(0xe,1)
-	end
+	e:GetHandler():AddCounter(0xe,1)
 end
 function c99342953.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0xe,2,REASON_COST) end

script/constant.lua

@@ -416,6 +416,7 @@ EFFECT_FORBIDDEN				=292
 EFFECT_NECRO_VALLEY_IM			=293
 EFFECT_REVERSE_DECK				=294
 EFFECT_REMOVE_BRAINWASHING		=295
+EFFECT_BP_TWICE					=296
 
 EVENT_STARTUP					=1000
 EVENT_FLIP						=1001