Push by Appveyor

expansions/script/c17060835.lua

@@ -6,8 +6,7 @@ function c17060835.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(17060835,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_DECKDES)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_CHAIN_SOLVING)
+	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_PZONE)
 	e1:SetCountLimit(1,17060835)
 	e1:SetCondition(c17060835.spcon)
@@ -55,11 +54,11 @@ function c17060835.splimit(e,c)
 	if not c then return false end
 	return not c17060835.IsMillion_Arthur(c)
 end
-function c17060835.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_PENDULUM) and c17060835.IsMillion_Arthur(re:GetHandler()) and e:GetHandler()~=re:GetHandler()
+function c17060835.cfilter(c)
+	return c17060835.IsMillion_Arthur(c)
 end
-function c17060835.filter0(c)
-	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
+function c17060835.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c17060835.cfilter,tp,LOCATION_PZONE,0,1,e:GetHandler())
 end
 function c17060835.filter0(c)
 	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()

expansions/script/c17091001.lua

+--ユニコーンガンダム
+local m=17091001
+local cm=_G["c"..m]
+cm.dfc_front_side=m
+cm.dfc_back_side=m+1
+function c17091001.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
+	c:EnableReviveLimit()
+	--atk
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(17091001,0))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(c17091001.atkval)
+	c:RegisterEffect(e1)
+	--Negate and Change
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(17091001,1))
+	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c17091001.discon)
+	e2:SetCost(c17091001.discost)
+	e2:SetTarget(c17091001.distg)
+	e2:SetOperation(c17091001.disop)
+	c:RegisterEffect(e2)
+	--spsummon bgm
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetOperation(c17091001.sumsuc)
+	c:RegisterEffect(e3)
+end
+function c17091001.atkval(e,c)
+	return c:GetLinkedGroupCount()*600
+end
+function c17091001.discon(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) or not Duel.IsChainNegatable(ev) then return false end
+	if re:IsHasCategory(CATEGORY_NEGATE)
+		and Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT):IsHasType(EFFECT_TYPE_ACTIVATE) then return false end
+	local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_DESTROY)
+	return ex and tg~=nil and tc+tg:FilterCount(Card.IsOnField,nil)-tg:GetCount()>0
+end
+function c17091001.cfilter(c,g)
+	return g:IsContains(c) and not c:IsStatus(STATUS_BATTLE_DESTROYED)
+end
+function c17091001.discost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local lg=e:GetHandler():GetLinkedGroup()
+	if chk==0 then return Duel.CheckReleaseGroup(tp,c17091001.cfilter,1,nil,lg) end
+	local g=Duel.SelectReleaseGroup(tp,c17091001.cfilter,1,1,nil,lg)
+	Duel.Release(g,REASON_COST)
+end
+function c17091001.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+end
+function c17091001.disop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not Duel.NegateEffect(ev) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		Duel.Destroy(g,REASON_EFFECT)
+		if not c:IsRelateToEffect(e) or c:IsFacedown() or c:IsImmuneToEffect(e) then return end
+		Duel.BreakEffect()
+		local tcode=c.dfc_back_side
+		c:SetEntityCode(tcode,true)
+		c:ReplaceEffect(tcode,0,0)
+		Duel.Hint(11,0,aux.Stringid(17091001,3))
+	end
+end
+function c17091001.sumsuc(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(11,0,aux.Stringid(17091001,2))
+end	
\ No newline at end of file

expansions/script/c17091002.lua

+--ユニコーンガンダム
+local m=17091002
+local cm=_G["c"..m]
+function c17091002.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_LINK),2)
+	c:EnableReviveLimit()
+	--atk
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(c17091002.atkval)
+	c:RegisterEffect(e1)
+	--negate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(17091002,0))
+	e2:SetCategory(CATEGORY_NEGATE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c17091002.discon)
+	e2:SetTarget(c17091002.distg)
+	e2:SetOperation(c17091002.disop)
+	c:RegisterEffect(e2)
+	--back
+	local e8=Effect.CreateEffect(c)
+	e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e8:SetCode(EVENT_ADJUST)
+	e8:SetRange(LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_HAND+LOCATION_EXTRA)
+	e8:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
+	e8:SetCondition(c17091002.backon)
+	e8:SetOperation(c17091002.backop)
+	c:RegisterEffect(e8)
+end
+function c17091002.atkval(e,c)
+	return c:GetLinkedGroupCount()*600
+end
+function c17091002.discon(e,tp,eg,ep,ev,re,r,rp)
+	if e==re or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if not g or g:GetCount()~=1 then return false end
+	local tc=g:GetFirst()
+	e:SetLabelObject(tc)
+	return tc:IsOnField()
+end
+function c17091002.filter(c,re,rp,tf,ceg,cep,cev,cre,cr,crp)
+	return tf(re,rp,ceg,cep,cev,cre,cr,crp,0,c)
+end
+function c17091002.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local tf=re:GetTarget()
+	local res,ceg,cep,cev,cre,cr,crp=Duel.CheckEvent(re:GetCode(),true)
+	if chkc then return chkc:IsOnField() and c17091002.filter(chkc,re,rp,tf,ceg,cep,cev,cre,cr,crp) end
+	if chk==0 then return Duel.IsExistingTarget(c17091002.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetLabelObject(),re,rp,tf,ceg,cep,cev,cre,cr,crp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c17091002.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetLabelObject(),re,rp,tf,ceg,cep,cev,cre,cr,crp)
+end
+function c17091002.disop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.ChangeTargetCard(ev,Group.FromCards(tc))
+	end
+end
+function c17091002.backon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c.dfc_front_side and c:GetOriginalCode()==c.dfc_back_side
+end
+function c17091002.backop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tcode=c.dfc_front_side
+	c:SetEntityCode(tcode)
+	Duel.ConfirmCards(tp,Group.FromCards(c))
+	Duel.ConfirmCards(1-tp,Group.FromCards(c))
+	c:ReplaceEffect(tcode,0,0)
+end
\ No newline at end of file

expansions/script/c33700056.lua

@@ -4,6 +4,10 @@ function c33700056.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetCountLimit(1,33700056+EFFECT_COUNT_CODE_OATH)
+	e1:SetCost(function(e,tp,eg,ep,ev,re,r,rp,chk)
+		if chk==0 then return true end
+		Duel.Hint(11,0,33700056*16)
+	end)
 	c:RegisterEffect(e1)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c33700067.lua

@@ -97,5 +97,12 @@ function c33700067.cfilter(c)
 end
 function c33700067.con(e)
 	local g=Duel.GetMatchingGroup(c33700067.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil)
-	return g:GetClassCount(Card.GetCode)==5
+	if g:GetClassCount(Card.GetCode)==5 then
+		if e:GetHandler():GetFlagEffect(33700067)==0 then
+			e:GetHandler():RegisterFlagEffect(33700067,0x1fe1000,0,1)
+			Duel.Hint(11,0,aux.Stringid(33700067,0))
+		end
+	else
+		return false
+	end
 end
\ No newline at end of file

expansions/script/c33700501.lua

@@ -65,6 +65,7 @@ function cm.initial_effect(c)
 		local tcode=c.dfc_back_side
 		c:SetEntityCode(tcode,true)
 		c:ReplaceEffect(tcode,0,0)
+		Duel.Hint(11,0,m*16+3)
 	end)
 	c:RegisterEffect(e4)
 end

expansions/script/c37564851.lua

 --3L·终焉之舞
 local m=37564851
 local cm=_G["c"..m]
-xpcall(function() require("expansions/script/c57300000") end,function() require("script/c57300000") end)
+xpcall(function() require("expansions/script/c37564765") end,function() require("script/c37564765") end)
 function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	--Senya.CommonEffect_3L(c,m)