EMERGENCY

expansions/script/c65020066.lua

@@ -45,7 +45,7 @@ function c65020066.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c65020066.op1(e,tp,eg,ep,ev,re,r,rp)
 	local g1=Duel.SelectMatchingCard(tp,c65020066.refil1,tp,LOCATION_MZONE,0,1,1,nil,tp)
-	if g1:GetCount()>0 and Duel.Release(g,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(c65020066.fil1,tp,LOCATION_GRAVE,0,2,nil,e,tp) and Duel.GetMZoneCount(tp)>1 then
+	if g1:GetCount()>0 and Duel.Release(g1,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(c65020066.fil1,tp,LOCATION_GRAVE,0,2,nil,e,tp) and Duel.GetMZoneCount(tp)>1 then
 		local g=Duel.SelectMatchingCard(tp,c65020066.fil1,tp,LOCATION_GRAVE,0,2,2,nil,e,tp)
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
 	end

expansions/script/c65052002.lua

@@ -4,6 +4,7 @@ function c65052002.initial_effect(c)
 	c:EnableCounterPermit(0xda0,LOCATION_PZONE+LOCATION_MZONE)
 	aux.EnablePendulumAttribute(c)
 	c:EnableReviveLimit()
+	aux.AddCodeList(c,65052011)
 	--coun
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)

expansions/script/c65052007.lua

@@ -4,6 +4,7 @@ function c65052007.initial_effect(c)
 	c:EnableCounterPermit(0xda0,LOCATION_PZONE+LOCATION_MZONE)
 	aux.EnablePendulumAttribute(c)
 	c:EnableReviveLimit()
+	aux.AddCodeList(c,65052011)
 	--coun
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)

expansions/script/c65052008.lua

@@ -44,7 +44,7 @@ function c65052008.counterop(e,tp,eg,ep,ev,re,r,rp)
 end
 
 
-function c65052008.costfil(c)
+function c65052008.costfil(c,tp)
 	return c:IsDiscardable() and c:IsType(TYPE_MONSTER) and Duel.IsExistingTarget(c65052008.spfilter,tp,LOCATION_ONFIELD,0,1,nil,c:GetLevel())
 end
 function c65052008.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
@@ -59,9 +59,9 @@ function c65052008.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		if e:GetLabel()~=100 then return false end
 		e:SetLabel(0)
-		return Duel.IsExistingMatchingCard(c65052008.costfil,tp,LOCATION_HAND,0,1,nil)
+		return Duel.IsExistingMatchingCard(c65052008.costfil,tp,LOCATION_HAND,0,1,nil,tp)
 	end
-	local g0=Duel.SelectMatchingCard(tp,c65052008.costfil,tp,LOCATION_HAND,0,1,1,nil)
+	local g0=Duel.SelectMatchingCard(tp,c65052008.costfil,tp,LOCATION_HAND,0,1,1,nil,tp)
 	Duel.SendtoGrave(g0,REASON_COST+REASON_DISCARD)
 	local lv=g0:GetFirst():GetLevel()
 	local g=Duel.SelectTarget(tp,c65052008.spfilter,tp,LOCATION_ONFIELD,0,1,1,nil,lv)

expansions/script/c65052009.lua

@@ -4,6 +4,7 @@ function c65052009.initial_effect(c)
 	c:EnableCounterPermit(0xda0,LOCATION_PZONE+LOCATION_MZONE)
 	aux.EnablePendulumAttribute(c)
 	c:EnableReviveLimit()
+	aux.AddCodeList(c,65052011)
 	--coun
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)

expansions/script/c65052015.lua

@@ -4,6 +4,7 @@ function c65052015.initial_effect(c)
 	c:EnableCounterPermit(0xda0,LOCATION_PZONE+LOCATION_MZONE)
 	aux.EnablePendulumAttribute(c)
 	c:EnableReviveLimit()
+	aux.AddCodeList(c,65052011)
 	--coun
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)

expansions/script/c65052016.lua

@@ -76,7 +76,6 @@ function c65052016.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
 function c65052016.spop(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
 	local g=Duel.SelectMatchingCard(tp,c65052016.spfilter,tp,LOCATION_DECK,0,1,1,nil) 
 	if g:GetCount()>0 then
 		Duel.SendtoHand(g,tp,REASON_EFFECT)

expansions/script/c65052119.lua

@@ -20,14 +20,24 @@ function c65052119.initial_effect(c)
 	e2:SetTarget(c65052119.tg)
 	e2:SetOperation(c65052119.op)
 	c:RegisterEffect(e2)
+	--remain field
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e3:SetCode(EFFECT_REMAIN_FIELD)
+	e3:SetCondition(c65052119.recon)
+	c:RegisterEffect(e3)
 end
-function c65052119.tgfil(c)
-	return aux.IsCodeListed(c,65052110) and c:IsType(TYPE_SPELL+TYPE_TRAP) and (c:IsSSetable() or not c:IsForbidden())
+function c65052119.recon(e,c)
+	return Duel.IsPlayerAffectedByEffect(e:GetHandlerPlayer(),65052106)
+end
+function c65052119.tgfil(c,tp)
+	return aux.IsCodeListed(c,65052110) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:CheckUniqueOnField(tp) and c:IsSSetable() and not c:IsForbidden()
 end
 function c65052119.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c65052119.tgfil(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c65052119.tgfil,tp,LOCATION_GRAVE,0,1,e:GetHandler()) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
-	local g=Duel.SelectTarget(tp,c65052119.tgfil,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c65052119.tgfil(chkc,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c65052119.tgfil,tp,LOCATION_GRAVE,0,1,e:GetHandler(),tp) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
+	local g=Duel.SelectTarget(tp,c65052119.tgfil,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),tp)
 	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
 end
 function c65052119.op(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c65060051.lua

@@ -2,17 +2,7 @@
 function c65060051.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
-	--p effect
-	local e0=Effect.CreateEffect(c)
-	e0:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e0:SetType(EFFECT_TYPE_IGNITION)
-	e0:SetRange(LOCATION_PZONE)
-	e0:SetCountLimit(1,65060051)
-	e0:SetCost(c65060051.cost)
-	e0:SetTarget(c65060051.tg)
-	e0:SetOperation(c65060051.op)
-	c:RegisterEffect(e0)
-	--union
+	aux.EnableUnionAttribute(c,c65060051.eqlimit)
 	--equip
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(65060051,0))
@@ -32,20 +22,16 @@ function c65060051.initial_effect(c)
 	e2:SetTarget(c65060051.sptg)
 	e2:SetOperation(c65060051.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:SetValue(c65060051.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(c65060051.eqlimit)
-	c:RegisterEffect(e4)
+	--p effect
+	local e0=Effect.CreateEffect(c)
+	e0:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetCountLimit(1,65060051)
+	e0:SetCost(c65060051.cost)
+	e0:SetTarget(c65060051.tg)
+	e0:SetOperation(c65060051.op)
+	c:RegisterEffect(e0)
 	--owneffect
 	local e5=Effect.CreateEffect(c)
 	e5:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
@@ -109,9 +95,6 @@ function c65060051.op(e,tp,eg,ep,ev,re,r,rp)
 end
 
 
-function c65060051.repval(e,re,r,rp)
-	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
-end
 function c65060051.eqlimit(e,c)
 	return c:IsSetCard(0x5daa) or e:GetHandler():GetEquipTarget()==c
 end
@@ -120,13 +103,14 @@ function c65060051.filter(c)
 	return c:IsFaceup() and c:IsSetCard(0x5daa) and ct2==0
 end
 function c65060051.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c65060051.filter(chkc) and chkc~=e:GetHandler() end
+	local c=e:GetHandler()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c65060051.filter(chkc) end
 	if chk==0 then return e:GetHandler():GetFlagEffect(65060051)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
-		and Duel.IsExistingTarget(c65060051.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
+		and Duel.IsExistingTarget(c65060051.filter,tp,LOCATION_MZONE,0,1,c) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
-	local g=Duel.SelectTarget(tp,c65060051.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler())
+	local g=Duel.SelectTarget(tp,c65060051.filter,tp,LOCATION_MZONE,0,1,1,c)
 	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
-	e:GetHandler():RegisterFlagEffect(65060051,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
+	c:RegisterFlagEffect(65060051,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
 end
 function c65060051.eqop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -140,10 +124,11 @@ function c65060051.eqop(e,tp,eg,ep,ev,re,r,rp)
 	aux.SetUnionState(c)
 end
 function c65060051.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():GetFlagEffect(65060051)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():GetEquipTarget()~=nil end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-	e:GetHandler():RegisterFlagEffect(65060051,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
+	local c=e:GetHandler()
+	if chk==0 then return c:GetFlagEffect(65060051)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:GetEquipTarget()~=nil and c:IsCanBeSpecialSummoned(e,0,tp,true,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+	c:RegisterFlagEffect(65060051,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
 end
 function c65060051.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

expansions/script/c65060052.lua

@@ -2,6 +2,7 @@
 function c65060052.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
+	aux.EnableUnionAttribute(c,c65060052.eqlimit)
 	--p effect
 	local e0=Effect.CreateEffect(c)
 	e0:SetCategory(CATEGORY_DRAW)
@@ -33,20 +34,6 @@ function c65060052.initial_effect(c)
 	e2:SetTarget(c65060052.sptg)
 	e2:SetOperation(c65060052.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:SetValue(c65060052.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(c65060052.eqlimit)
-	c:RegisterEffect(e4)
 	--owneffect
 	local e5=Effect.CreateEffect(c)
 	e5:SetCategory(CATEGORY_TOHAND)
@@ -109,9 +96,6 @@ function c65060052.op(e,tp,eg,ep,ev,re,r,rp)
 end
 
 
-function c65060052.repval(e,re,r,rp)
-	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
-end
 function c65060052.eqlimit(e,c)
 	return c:IsSetCard(0x5daa) or e:GetHandler():GetEquipTarget()==c
 end

expansions/script/c65060053.lua

@@ -2,6 +2,7 @@
 function c65060053.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
+	aux.EnableUnionAttribute(c,c65060053.eqlimit)
 	--p effect
 	local e0=Effect.CreateEffect(c)
 	e0:SetCategory(CATEGORY_DISABLE)
@@ -32,20 +33,6 @@ function c65060053.initial_effect(c)
 	e2:SetTarget(c65060053.sptg)
 	e2:SetOperation(c65060053.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:SetValue(c65060053.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(c65060053.eqlimit)
-	c:RegisterEffect(e4)
 	--owneffect
 	local e5=Effect.CreateEffect(c)
 	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
@@ -129,9 +116,6 @@ function c65060053.op(e,tp,eg,ep,ev,re,r,rp)
 end
 
 
-function c65060053.repval(e,re,r,rp)
-	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
-end
 function c65060053.eqlimit(e,c)
 	return c:IsSetCard(0x5daa) or e:GetHandler():GetEquipTarget()==c
 end

expansions/script/c65060054.lua

@@ -2,6 +2,7 @@
 function c65060054.initial_effect(c)
 	 --pendulum summon
 	aux.EnablePendulumAttribute(c)
+	aux.EnableUnionAttribute(c,c65060054.eqlimit)
 	--p effect
 	local e0=Effect.CreateEffect(c)
 	e0:SetCategory(CATEGORY_DESTROY)
@@ -32,20 +33,6 @@ function c65060054.initial_effect(c)
 	e2:SetTarget(c65060054.sptg)
 	e2:SetOperation(c65060054.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:SetValue(c65060054.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(c65060054.eqlimit)
-	c:RegisterEffect(e4)
 	--owneffect
 	local e5=Effect.CreateEffect(c)
 	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
@@ -109,9 +96,6 @@ function c65060054.op(e,tp,eg,ep,ev,re,r,rp)
 end
 
 
-function c65060054.repval(e,re,r,rp)
-	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
-end
 function c65060054.eqlimit(e,c)
 	return c:IsSetCard(0x5daa) or e:GetHandler():GetEquipTarget()==c
 end

expansions/script/c65060055.lua

@@ -2,6 +2,7 @@
 function c65060055.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
+	aux.EnableUnionAttribute(c,c65060055.eqlimit)
 	--p effect
 	local e0=Effect.CreateEffect(c)
 	e0:SetCategory(CATEGORY_NEGATE)
@@ -35,20 +36,6 @@ function c65060055.initial_effect(c)
 	e2:SetTarget(c65060055.sptg)
 	e2:SetOperation(c65060055.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:SetValue(c65060055.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(c65060055.eqlimit)
-	c:RegisterEffect(e4)
 	--owneffect
 	local e5=Effect.CreateEffect(c)
 	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
@@ -115,9 +102,6 @@ function c65060055.op(e,tp,eg,ep,ev,re,r,rp)
 end
 
 
-function c65060055.repval(e,re,r,rp)
-	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
-end
 function c65060055.eqlimit(e,c)
 	return c:IsSetCard(0x5daa) or e:GetHandler():GetEquipTarget()==c
 end

expansions/script/c65060056.lua

@@ -2,6 +2,7 @@
 function c65060056.initial_effect(c)
 	 --pendulum summon
 	aux.EnablePendulumAttribute(c)
+	aux.EnableUnionAttribute(c,c65060056.eqlimit)
 	--p effect
 	local e0=Effect.CreateEffect(c)
 	e0:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY)
@@ -37,20 +38,6 @@ function c65060056.initial_effect(c)
 	e2:SetTarget(c65060056.sptg)
 	e2:SetOperation(c65060056.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:SetValue(c65060056.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(c65060056.eqlimit)
-	c:RegisterEffect(e4)
 	--owneffect
 	local e5=Effect.CreateEffect(c)
 	e5:SetCategory(CATEGORY_TOGRAVE)
@@ -112,9 +99,6 @@ function c65060056.op(e,tp,eg,ep,ev,re,r,rp)
 end
 
 
-function c65060056.repval(e,re,r,rp)
-	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
-end
 function c65060056.eqlimit(e,c)
 	return c:IsSetCard(0x5daa) or e:GetHandler():GetEquipTarget()==c
 end