watele

expansions/lflist.conf

@@ -359,7 +359,7 @@
 12300009 2 --黑圆桌·穿刺公
 12301117 0 --八掬胫村？
 12301125 0 --八掬胫洋苦处·宿傩
-12301130 0 --八掬胫黑肚处·大狱
+12301130 1 --八掬胫黑肚处·大狱
 12301666 1 --六天理·灭尽灭相
 #128
 12800000 2 --提灯剑舞姬
@@ -786,6 +786,7 @@
 26807023 1 --水之未眠
 26807024 0 --秋之未眠
 26807031 1 --夏之未愿
+26807032 1 --秋之未愿
 26812001 1 --缭花绚烂
 26818008 1 --命运的指引 卡维
 26818011 1 --全力竞速 抚子

expansions/script/c26807032.lua

@@ -63,10 +63,10 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	Duel.RegisterEffect(e3,tp)
 end
 function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp)
-	return c:IsType(TYPE_SYNCHRO+TYPE_TUNER)
+	return c:IsType(TYPE_SYNCHRO)
 end
 function cm.aclimit(e,re,tp)
-	return re:GetHandler():IsType(TYPE_SYNCHRO+TYPE_TUNER)
+	return re:GetHandler():IsType(TYPE_SYNCHRO)
 end
 function cm.handcon(e)
 	return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_ONFIELD,0)==0

expansions/script/c66915074.lua

@@ -260,7 +260,7 @@ function cm.GetItLevel(c,sync)
 	if c:IsLocation(LOCATION_SZONE) then
 		return 4
 	else
-		return c:GetSynchroLevel(sunc)
+		return c:GetSynchroLevel(sync)
 	end
 end
 function cm.SynMixCheckGoal(tp,sg,minc,ct,syncard,sg1,smat,gc,mgchk)

expansions/script/c71400009.lua

---异梦书中的公式证明图表
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400009.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--destroy
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetDescription(aux.Stringid(71400009,0))
-	e1:SetCountLimit(1,71400009)
-	e1:SetTarget(c71400009.tg1)
-	e1:SetOperation(c71400009.op1)
-	c:RegisterEffect(e1)
-	--multi attack
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_EXTRA_ATTACK)
-	e2:SetValue(c71400009.raval)
-	c:RegisterEffect(e2)
-	--hand des
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DESTROY)
-	e3:SetDescription(aux.Stringid(71400009,1))
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e3:SetCode(EVENT_LEAVE_FIELD)
-	e3:SetTarget(c71400009.tg3)
-	e3:SetOperation(c71400009.op3)
-	e3:SetCondition(c71400009.con3)
-	c:RegisterEffect(e3)
-end
-function c71400009.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,0)
-end
-function c71400009.op1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local sg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.HintSelection(sg)
-	if Duel.Destroy(sg,REASON_EFFECT)>0 then
-		Duel.BreakEffect()
-		Duel.SetLP(tp,Duel.GetLP(tp)-800)
-	end
-end
-function c71400009.raval(e,c)
-	local oc=e:GetHandler():GetOverlayCount()
-	return math.max(0,oc-1)
-end
-function c71400009.con3(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousLocation(LOCATION_ONFIELD)
-end
-function c71400009.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_HAND)
-end
-function c71400009.op3(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local dg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,1,1,nil)
-	if dg:GetCount()>0 then
-		Duel.Destroy(dg,REASON_EFFECT)
-	end
-end
\ No newline at end of file

expansions/script/c71400024.lua

---异梦书中的人偶
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400024.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--inactivatable
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_INACTIVATE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(c71400024.filter1)
-	c:RegisterEffect(e1)
-	local e1a=Effect.CreateEffect(c)
-	e1a:SetType(EFFECT_TYPE_FIELD)
-	e1a:SetCode(EFFECT_CANNOT_DISEFFECT)
-	e1a:SetRange(LOCATION_MZONE)
-	e1a:SetValue(c71400024.filter1)
-	c:RegisterEffect(e1a)
-	--pos
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400024,0))
-	e2:SetCategory(CATEGORY_POSITION)
-	e2:SetCountLimit(1)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
-	e2:SetCost(c71400024.cost2)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetTarget(c71400024.tg2)
-	e2:SetOperation(c71400024.op2)
-	c:RegisterEffect(e2)
-	--skip
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(71400024,1))
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e3:SetCode(EVENT_LEAVE_FIELD)
-	e3:SetOperation(c71400024.op3)
-	e3:SetCondition(c71400024.con3)
-	c:RegisterEffect(e3)
-end
-function c71400024.filter1(e,ct)
-	local p=e:GetHandler():GetControler()
-	local te,tp=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
-	return p==tp and te:GetHandler():IsSetCard(0x715)
-end
-function c71400024.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
-	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
-end
-function c71400024.filter2(c)
-	return c:IsPosition(POS_FACEUP_ATTACK) and c:IsCanChangePosition()
-end
-function c71400024.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400024.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end
-	local g=Duel.GetMatchingGroup(c71400024.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
-end
-function c71400024.op2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetMatchingGroup(c71400024.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,c)
-	Duel.ChangePosition(g,POS_FACEUP_DEFENSE,0,POS_FACEUP_DEFENSE,0)
-	local tc=g:GetFirst()
-	while tc do
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_SET_BASE_DEFENSE)
-		e1:SetValue(0)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_CANNOT_CHANGE_POSITION)
-		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e2)
-		tc=g:GetNext()
-	end
-end
-function c71400024.con3(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousLocation(LOCATION_ONFIELD)
-end
-function c71400024.op3(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SKIP_BP)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetTargetRange(1,0)
-	if Duel.GetTurnPlayer()==tp and ph>PHASE_MAIN1 and ph<PHASE_MAIN2 then
-		e1:SetLabel(Duel.GetTurnCount())
-		e1:SetCondition(c71400024.skipcon)
-		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
-function c71400024.skipcon(e)
-	return Duel.GetTurnCount()~=e:GetLabel()
-end
\ No newline at end of file

expansions/script/c81001000.lua

@@ -60,11 +60,12 @@ function cm.actcon(e)
 	local tp=e:GetHandlerPlayer()
 	return Duel.IsExistingMatchingCard(cm.actfilter,tp,LOCATION_SZONE,0,1,nil) and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
 end
-function cm.spcfilter(c,e)
+function cm.spcfilter(c)
 	return c:IsSetCard(0x1374) and c:IsFaceup() 
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(cm.spcfilter,tp,LOCATION_MZONE,0,1,nil)
+	local g=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,nil)
+	return g:GetCount()==1 and g:FilterCount(cm.spcfilter,nil)==1
 end
 function cm.filter(c,att)
 	return c:IsFaceup() and c:IsAttribute(att)
@@ -84,4 +85,14 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 		g:GetFirst():CompleteProcedure()
 	end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_SUMMON)
+	e1:SetTargetRange(1,0)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	Duel.RegisterEffect(e2,tp)
 end

expansions/strings.conf

@@ -1094,9 +1094,9 @@
 !setname 0x7714 蚀异梦境
 !setname 0xa714 幻异梦
 !setname 0xb714 幻异梦境
-!setname 0xc714 异梦物
-!setname 0xd714 蚀异梦物
-!setname 0xe714 幻异梦物
+!setname 0xc714 异梦像
+!setname 0xd714 蚀异梦像
+!setname 0xe714 幻异梦像
 !setname 0x717 黑白异梦
 
 #飄上月球の不死煙 2338626051 724 0x720-0x72f