ladies and xiangqinmen

expansions/script/c14000501.lua

@@ -117,7 +117,7 @@ function spo.pencon(e,tp,eg,ep,ev,re,r,rp)
 end
 
 if cm then
-cm.named_with_Spositch=1
+cm.named_with_Spositch=1 end
 function cm.initial_effect(c)
     --splimit
     spo.splimit(c)

expansions/script/c16100002.lua

@@ -65,6 +65,7 @@ function c16100002.op(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 		local g=Duel.SelectMatchingCard(tp,c16100002.tgf,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(tp,g)
 	end
 end
 --
@@ -101,6 +102,7 @@ function c16100002.repop(e,tp,eg,ep,ev,re,r,rp)
 		  Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONFIRM)
 		  sg=g:Select(1-tp,1,1,nil)
 		  Duel.SendtoHand(sg,tp,REASON_EFFECT)
+		  Duel.ConfirmCards(1-tp,sg)
 		end
 end
 --

expansions/script/c16100006.lua

@@ -18,7 +18,7 @@ function c16100006.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,16100006+100)
+	e2:SetCountLimit(1,16100006+100)
 	e2:SetCost(c16100006.cost)
 	e2:SetTarget(c16100006.tg)
 	e2:SetOperation(c16100006.op)

expansions/script/c16100007.lua

 --黑白熊 ふわふわ
-function c16100007.initial_effect(c)
+local s=c16100007
+local id=16100007
+function s.initial_effect(c)
 	c:EnableCounterPermit(0xccf)
 	--Cannot to grave 
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(16100007,0))
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetCode(EVENT_PHASE+PHASE_DRAW)
 	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,16100007)
-	e1:SetCondition(c16100007.con)
-	e1:SetOperation(c16100007.op)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.con)
+	e1:SetOperation(s.op)
 	c:RegisterEffect(e1)
 	--Recover
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(16100007,1))
+	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetCategory(CATEGORY_RECOVER)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_TO_GRAVE)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,16100007+10000)
-	e2:SetOperation(c16100007.operation)
+	e2:SetCountLimit(1,id+100)
+	e2:SetOperation(s.operation)
 	c:RegisterEffect(e2)
 end
-function c16100007.cfilter(c)
+function s.cfilter(c)
 	return c:IsSetCard(0xcc0) and not c:IsSetCard(0xccd)
 end
-function c16100007.con(e,tp)
-	local g=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_ONFIELD+LOCATION_HAND,0)
-	return (not g:IsExists(c16100007.cfilter,1,nil)) and Duel.GetTurnPlayer()==tp
+function s.con(e,tp)
+	return (not Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,nil)) and Duel.GetTurnPlayer()==tp
 end
-function c16100007.op(e,tp,eg,ep,ev,re,r,rp)
+function s.ctg(e,c,tp)
+	return c:IsLocation(LOCATION_DECK)
+end
+function s.op(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 		e1:SetCode(EFFECT_CANNOT_TO_GRAVE)
 		e1:SetTargetRange(1,0)
-		e1:SetTarget(function(e,c,tp)
-			return c:IsLocation(LOCATION_DECK)
-		end)
+		e1:SetTarget(s.ctg)
 		e1:SetReset(RESET_PHASE+PHASE_END)
 		Duel.RegisterEffect(e1,tp)
 		local e2=e1:Clone()
@@ -46,8 +48,12 @@ function c16100007.op(e,tp,eg,ep,ev,re,r,rp)
 		Duel.RegisterEffect(e2,tp)
 	if e:GetHandler():IsRelateToEffect(e) then
 	   Duel.SendtoHand(e:GetHandler(),1-tp,REASON_EFFECT)
+	   Duel.ConfirmCards(tp,e:GetHandler())
 	end
 end
-function c16100007.operation(e,tp,eg,ep,ev,re,r,rp)
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e)	then
 	Duel.Recover(tp,1000,REASON_EFFECT)
+	end
 end

expansions/script/c16100009.lua

 --像素熊
-function c16100009.initial_effect(c)
+local s=c16100009
+local id=16100009
+function s.initial_effect(c)
 	c:EnableCounterPermit(0xccf)
 	 --ac or sp
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(16100009,0))
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetCode(EVENT_TO_HAND)
-	e1:SetCountLimit(1,16100009)
-	e1:SetCondition(c16100009.condition)
-	e1:SetOperation(c16100009.op)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.condition)
+	e1:SetOperation(s.op)
 	c:RegisterEffect(e1)
 	--tohand
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(16100009,1))
+	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_RECOVER)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_TO_GRAVE)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,EFFECT_COUNT_CODE_DUEL)
-	e2:SetOperation(c16100009.operation)
+	e2:SetCountLimit(1,id+EFFECT_COUNT_CODE_DUEL)
+	e2:SetTarget(s.tg)
+	e2:SetOperation(s.operation)
 	c:RegisterEffect(e2)
 end
 --
-function c16100009.condition(e,tp,eg,ep,ev,re,r,rp)
+function s.condition(e,tp,eg,ep,ev,re,r,rp)
 	return not e:GetHandler():IsReason(REASON_DRAW) 
 end
 --
-function c16100009.filter(c)
+function s.filter(c)
 	return c:IsSetCard(0xcc0) and not c:IsSetCard(0xccd)
 end
 --
-function c16100009.filter1(c)
+function s.filter1(c)
 	return c:IsCode(16100002)
 end
 --
-function c16100009.op(e,tp,eg,ep,ev,re,r,rp)
-	if not Duel.IsExistingMatchingCard(c16100013.filter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,nil) then
+function s.op(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,nil) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
 		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e1:SetReset(RESET_PHASE+PHASE_END)
+		e1:SetReset(RESET_PHASE+PHASE_END,2)
 		e1:SetTargetRange(1,0)
-		e1:SetValue(c16100009.disop)
+		e1:SetValue(s.disop)
 		Duel.RegisterEffect(e1,tp)
 	else
 		Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
 	end
 end
 --
-function c16100009.disop(e,re,tp)
+function s.disop(e,re,tp)
 	local rc=re:GetHandler()
 	return rc:IsLocation(LOCATION_HAND) and (not rc:IsSetCard(0xcc0)) and not rc:IsImmuneToEffect(e)
 end
 --
-function c16100009.operation(e,tp,eg,ep,ev,re,r,rp)
-	if not Duel.IsExistingMatchingCard(c16100009.filter1,tp,LOCATION_ONFIELD,0,1,nil) then
+function s.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanSendtoHand(1-tp,e:GetHandler()) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,1-tp,0)
+end
+--
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e)   then
+	if not Duel.IsExistingMatchingCard(s.filter1,tp,LOCATION_ONFIELD,0,1,nil) then
 		local lp=Duel.GetLP(tp)   
-		Duel.SetLP(tp,lp-1000) end
-	if Duel.IsExistingMatchingCard(c16100009.filter1,tp,LOCATION_ONFIELD,0,1,nil) then
+		Duel.SetLP(tp,lp-1000) 
+	else
 		 Duel.Recover(tp,1000,REASON_EFFECT) end
 	Duel.SendtoHand(e:GetHandler(),1-tp,REASON_EFFECT)
 	Duel.ConfirmCards(tp,e:GetHandler())
+	end
 end
 --
\ No newline at end of file

expansions/script/c16100010.lua

@@ -69,6 +69,7 @@ function c16100010.activate(e,tp,eg,ep,ev,re,r,rp)
 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
 				sg=g:Select(tp,1,1,nil)
 				Duel.SendtoHand(sg,1-tp,REASON_EFFECT)
+				Duel.ConfirmCards(tp,sg)
 			end
 	end
 	end

expansions/script/c16100013.lua

 --绝望一闪 黑白熊病毒
-function c16100013.initial_effect(c)
+local s=c16100013
+local id=16100013
+function s.initial_effect(c)
 	c:EnableCounterPermit(0xccf)
 	 --ac or sp
 	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetCode(EVENT_TO_HAND)
-	e1:SetCountLimit(1,16100013)
-	e1:SetCondition(c16100013.condition)
-	e1:SetOperation(c16100013.op)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.condition)
+	e1:SetOperation(s.op)
 	c:RegisterEffect(e1)
 	--tohand
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(16100013,0))
+	e2:SetDescription(aux.Stringid(id,0))
 	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_RECOVER)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_TO_GRAVE)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,EFFECT_COUNT_CODE_DUEL)
-	e2:SetOperation(c16100013.operation)
+	e2:SetCountLimit(1,id+EFFECT_COUNT_CODE_DUEL)
+	e2:SetTarget(s.tg)
+	e2:SetOperation(s.operation)
 	c:RegisterEffect(e2)
 end
 --
-function c16100013.condition(e,tp,eg,ep,ev,re,r,rp)
+function s.condition(e,tp,eg,ep,ev,re,r,rp)
 	return not e:GetHandler():IsReason(REASON_DRAW) 
 end
 --
-function c16100013.filter(c)
+function s.filter(c)
 	return c:IsSetCard(0xcc0) and not c:IsSetCard(0xccd)
 end
 --
-function c16100013.filter1(c)
+function s.filter1(c)
 	return c:IsCode(16100002)
 end
 --
-function c16100013.op(e,tp,eg,ep,ev,re,r,rp)
-	if not Duel.IsExistingMatchingCard(c16100013.filter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,nil) then
+function s.op(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	if not Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,nil) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_CANNOT_REMOVE)
@@ -48,18 +52,21 @@ function c16100013.op(e,tp,eg,ep,ev,re,r,rp)
    end
 end
 --
-function c16100013.discon(e,tp,eg,ep,ev,re,r,rp)
-	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
-	return ep==tp and loc==LOCATION_HAND 
+function s.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanSendtoHand(1-tp,e:GetHandler()) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,1-tp,0)
 end
 --
-function c16100013.operation(e,tp,eg,ep,ev,re,r,rp)
-	if not Duel.IsExistingMatchingCard(c16100013.filter1,tp,LOCATION_ONFIELD,0,1,nil) then
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e)   then
+	if not Duel.IsExistingMatchingCard(s.filter1,tp,LOCATION_ONFIELD,0,1,nil) then
 		local lp=Duel.GetLP(tp)   
-		Duel.SetLP(tp,lp-1000) end
-	if Duel.IsExistingMatchingCard(c16100013.filter1,tp,LOCATION_ONFIELD,0,1,nil) then
+		Duel.SetLP(tp,lp-1000) 
+	else
 		 Duel.Recover(tp,1000,REASON_EFFECT) end
 	Duel.SendtoHand(e:GetHandler(),1-tp,REASON_EFFECT)
 	Duel.ConfirmCards(tp,e:GetHandler())
+	end
 end
 --

expansions/script/c16100014.lua

@@ -132,6 +132,7 @@ function c16100014.op1(e,tp,eg,ep,ev,re,r,rp)
 						Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
 						sg=g1:Select(tp,1,1,nil)
 						Duel.SendtoHand(sg,1-tp,REASON_EFFECT)
+						Duel.ConfirmCards(tp,sg)
 					end
 			end
 		else
@@ -150,6 +151,7 @@ function c16100014.op1(e,tp,eg,ep,ev,re,r,rp)
 						Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
 						sg=g1:Select(tp,1,1,nil)
 						Duel.SendtoHand(sg,1-tp,REASON_EFFECT)
+						Duel.ConfirmCards(tp,sg)
 					end
 		end
 	end

expansions/script/c33310210.lua

@@ -28,7 +28,7 @@ function c33310210.initial_effect(c)
 	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
 	e5:SetCode(EVENT_LEAVE_FIELD)
-	e5:SetCountLimit(1,33310211)
+	e5:SetCountLimit(1,33311211)
 	e5:SetCondition(c33310210.spcon)
 	e5:SetTarget(c33310210.sptg)
 	e5:SetOperation(c33310210.spop)

expansions/script/c33310211.lua

@@ -80,11 +80,6 @@ function c33310211.opdisable(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetOperatedGroup()
 	local gc=g:GetFirst()
 	Duel.ConfirmCards(1-tp,gc)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_PUBLIC)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-	gc:RegisterEffect(e1)
 	if gc:IsSetCard(0x551) and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(33310211,3)) then
 		local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
 		Duel.HintSelection(sg)

expansions/script/c33330400.lua

@@ -33,7 +33,7 @@ function rsnm.SummonFun(c,code,type2,isgrave,istograve)
 end
 function rsnm.counterfilter(c)
 	if c:GetSummonLocation()&LOCATION_HAND+LOCATION_DECK ==0 then return true end
-	return c:IsSetCard(0x4552) 
+	return c:IsSetCard(0x6552) 
 end
 function rsnm.spcfilter(c,tp)
 	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeckAsCost() and Duel.GetMZoneCount(tp,c,tp)>0
@@ -50,7 +50,7 @@ function rsnm.spop(e,tp)
 end
 function rsnm.spcfilter2(c,e)
 	local val=e:GetValue()
-	return c:IsSetCard(0x4552) and ((val==0 and c:IsAbleToDeckOrExtraAsCost()) or (val==1 and c:IsAbleToGraveAsCost()))
+	return c:IsSetCard(0x6552) and ((val==0 and c:IsAbleToDeckOrExtraAsCost()) or (val==1 and c:IsAbleToGraveAsCost()))
 end
 function rsnm.spcfilter3(g,tp,loc)
 	return Duel.GetMZoneCount(tp,g,tp)>0 and ((loc==LOCATION_ONFIELD and #g==1) or (loc==LOCATION_GRAVE and #g==2)) 
@@ -92,7 +92,7 @@ function rsnm.limop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.RegisterEffect(e1,tp)
 end
 function rsnm.splimit(e,c)
-	if c:IsLocation(LOCATION_HAND+LOCATION_DECK) then return not c:IsSetCard(0x4552)
+	if c:IsLocation(LOCATION_HAND+LOCATION_DECK) then return not c:IsSetCard(0x6552)
 	else return false
 	end
 end
@@ -100,7 +100,7 @@ function rsnm.thcon(e,tp,eg,ep,ev,re,r,rp)
 	return rp==1-tp and e:GetHandler():GetPreviousControler()==tp
 end
 function rsnm.thfilter(c)
-	return c:IsAbleToHand() and c:IsSetCard(0x4552)
+	return c:IsAbleToHand() and c:IsSetCard(0x6552)
 end
 function rsnm.thop(e,tp)
 	rshint.Select(tp,"th")
@@ -157,7 +157,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=aux.ExceptThisCard(e)
 	if not c then return end
 	local tc=e:GetLabelObject()
-	if not tc:IsSetCard(0x4552) then return end
+	if not tc:IsSetCard(0x6552) then return end
 	local e1=rsef.SV_IMMUNE_EFFECT(c,cm.val,nil,rsreset.est_pend)
 	e1:SetOwnerPlayer(tp)
 	local te=tc.flip_effect
@@ -175,7 +175,7 @@ function cm.poscon(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetAttacker():IsControler(1-tp)
 end
 function cm.posfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x4552)
+	return c:IsFaceup() and c:IsSetCard(0x6552)
 end
 function cm.posop(e,tp)
 	local g=Duel.GetMatchingGroup(cm.posfilter,tp,LOCATION_MZONE,0,nil)

expansions/script/c33330404.lua

@@ -7,7 +7,7 @@ function cm.initial_effect(c)
 	local e4=rsnm.FilpFun(c,m,"sp",nil,rsop.target(cm.spfilter,"sp",LOCATION_HAND+LOCATION_GRAVE ),cm.op,true)
 end
 function cm.spfilter(c,e,tp)
-	return c:IsSetCard(0x4552) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	return c:IsSetCard(0x6552) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 end
 function cm.op(e,tp)
 	rshint.Select(tp,"sp")

expansions/script/c33330411.lua

@@ -34,7 +34,7 @@ function cm.resfilter(c,e,tp)
 	return c:IsReleasable() and c:IsFaceup() and Duel.GetMZoneCount(tp,c,tp)>0
 end
 function cm.spfilter(c,e,tp)
-	return c:IsSetCard(0x4552) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
+	return c:IsSetCard(0x6552) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
 end
 function cm.spop(e,tp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end

expansions/script/c33330412.lua

@@ -15,7 +15,7 @@ function cm.op(e,tp)
 	local e1=rsef.FV_CANNOT_BE_TARGET({c,tp},"effect",aux.tgoval,aux.TargetBoolFunction(Card.IsFacedown),{LOCATION_MZONE,0},nil,rsreset.pend)
 end
 function cm.spfilter(c,e,tp)
-	return c:IsSetCard(0x4552) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and not c:IsCode(m)
+	return c:IsSetCard(0x6552) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and not c:IsCode(m)
 end
 function cm.spop(e,tp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end

expansions/script/c33403508.lua

@@ -84,6 +84,7 @@ function cm.regop2(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 local c=e:GetHandler()
+if not Duel.IsExistingMatchingCard(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) then return end 
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
 	local g1=Duel.SelectMatchingCard(tp,Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,1,nil)
 	local tc1=g1:GetFirst()

expansions/script/c81000000.lua

@@ -87,3 +87,24 @@ function Tenka.Asamiya(c)
 	e0:SetValue(81027000)
 	c:RegisterEffect(e0)
 end
+--
+function Tenka.EightOne(c)
+	c:EnableReviveLimit()
+	aux.AddCodeList(c,81005036)
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e0:SetRange(LOCATION_MZONE)
+	e0:SetCode(EFFECT_IMMUNE_EFFECT)
+	e0:SetValue(Tenka.efilter)
+	c:RegisterEffect(e0)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.FALSE)
+	c:RegisterEffect(e1)
+end
+function Tenka.efilter(e,te)
+	return te:IsActiveType(TYPE_TRAP)
+end

expansions/script/c960005.lua

 --葱喵的现实世界
 function c960005.initial_effect(c)
 	--Activate
-	local e0=Effect.CreateEffect(c)
-	e0:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e0:SetType(EFFECT_TYPE_ACTIVATE)
-	e0:SetCode(EVENT_FREE_CHAIN)
-	e0:SetOperation(c960005.activate)
-	c:RegisterEffect(e0)
-	--disable
 	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_DISABLE)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
-	e1:SetTarget(c960005.distarget)
+	e1:SetCategory(CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c960005.activate)
 	c:RegisterEffect(e1)
+	--disable
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_DISABLE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_FZONE,LOCATION_FZONE)
+	e2:SetTarget(c960005.distarget)
+	c:RegisterEffect(e2)
 	--disable effect
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e7:SetCode(EVENT_CHAIN_SOLVING)
-	e7:SetRange(LOCATION_SZONE)
-	e7:SetOperation(c960005.disop)
-	c:RegisterEffect(e7)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAIN_SOLVING)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetOperation(c960005.disoperation)
+	c:RegisterEffect(e3)
 	--maintain
 	local e4=Effect.CreateEffect(c)
 	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
@@ -32,51 +32,38 @@ function c960005.initial_effect(c)
 	e4:SetOperation(c960005.mtop)
 	c:RegisterEffect(e4)
 	--reverse damage
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_REVERSE_DAMAGE)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetTargetRange(1,0)
-	e2:SetRange(LOCATION_SZONE)
-	e2:SetValue(1)
-	c:RegisterEffect(e1)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_REVERSE_RECOVER)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetTargetRange(0,1)
-	e1:SetValue(1)
-	c:RegisterEffect(e1)
-	--change lp
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(960005,0))
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_TO_GRAVE)
-	e1:SetCondition(c960005.lpcon)
-	e1:SetOperation(c960005.lpop)
-	c:RegisterEffect(e1)
-	--activate Zombie World
 	local e5=Effect.CreateEffect(c)
-	e5:SetDescription(aux.Stringid(960005,0))
-	e5:SetType(EFFECT_TYPE_QUICK_O)
-	e5:SetRange(LOCATION_SZONE+LOCATION_GRAVE)
-	e5:SetCode(EVENT_FREE_CHAIN)
-	e5:SetCountLimit(1,960005)
-	e5:SetCost(aux.bfgcost)
-	e5:SetOperation(c960005.acop)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_REVERSE_DAMAGE)
+	e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e5:SetTargetRange(1,0)
+	e5:SetRange(LOCATION_SZONE)
+	e5:SetValue(1)
 	c:RegisterEffect(e5)
-end
-function c960005.activate(e,tp,eg,ep,ev,re,r,rp)
-   Duel.Hint(HINT_MUSIC,0,aux.Stringid(960005,2)) 
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_FIELD)
+	e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e6:SetCode(EFFECT_REVERSE_RECOVER)
+	e6:SetRange(LOCATION_SZONE)
+	e6:SetTargetRange(0,1)
+	e6:SetValue(1)
+	c:RegisterEffect(e6)
+	--change lp
+	local e7=Effect.CreateEffect(c)
+	e7:SetDescription(aux.Stringid(960005,0))
+	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e7:SetProperty(EFFECT_FLAG_DELAY)
+	e7:SetCode(EVENT_TO_GRAVE)
+	e7:SetCondition(c960005.lpcon)
+	e7:SetOperation(c960005.lpop)
+	c:RegisterEffect(e7)
 end
 function c960005.distarget(e,c)
-	return c:IsType(TYPE_FIELD)
+	return c~=e:GetHandler() and c:IsType(TYPE_FIELD)
 end
-function c960005.disop(e,tp,eg,ep,ev,re,r,rp)
+function c960005.disoperation(e,tp,eg,ep,ev,re,r,rp)
 	local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
-	if (tl==LOCATION_GRAVE or t1==LOCATION_FZONE) and re:IsActiveType(TYPE_FIELD) then
+	if bit.band(tl,LOCATION_FZONE+LOCATION_GRAVE)~=0 and re:IsType(TYPE_FIELD) then
 		Duel.NegateEffect(ev)
 	end
 end
@@ -88,13 +75,17 @@ function c960005.mtop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c960005.lpcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetLP(tp)<=Duel.GetLP(1-tp)-4000
+	return Duel.GetLP(1-tp)-Duel.GetLP(tp)>=4000
 end
 function c960005.lpop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.SetLP(tp,1-tp,8000)
+	Duel.SetLP(tp,8000)
+	Duel.SetLP(1-tp,8000)
 end
 function c960005.filter(c,tp)
-	return c:IsCode(960002) and c:GetActivateEffect() and c:GetActivateEffect():IsActivatable(tp,true,true)
+	return c:IsCode(c960005) and c:GetActivateEffect() and c:GetActivateEffect():IsActivatable(tp,true,true)
+end
+function c960005.actg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c960005.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil,tp) end
 end
 function c960005.acop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
@@ -110,7 +101,7 @@ function c960005.acop(e,tp,eg,ep,ev,re,r,rp)
 		te:UseCountLimit(tp,1,true)
 		local tep=tc:GetControler()
 		local cost=te:GetCost()
-		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
-		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+		if cost then cost(te,te,eg,ep,ev,re,r,rp,1) end
+		Duel.RaiseEvent(tc,960005,te,0,tp,tp,Duel.GetCurrentChain())
 	end
 end
\ No newline at end of file