byd

expansions/script/c12400079.lua

@@ -31,11 +31,8 @@ function c12400079.initial_effect(c)
 	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e4:SetCode(EVENT_LEAVE_FIELD)
 	e4:SetCategory(CATEGORY_DESTROY)
-	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e4:SetRange(LOCATION_GRAVE)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
 	e4:SetCountLimit(1,12400084)
-	e4:SetCondition(c12400079.con4)
-	e4:SetCost(aux.bfgcost)
 	e4:SetTarget(c12400079.tg4)
 	e4:SetOperation(c12400079.op4)
 	c:RegisterEffect(e4)
@@ -96,21 +93,17 @@ function c12400079.op3(e,tp,eg,ep,ev,re,r,rp)
 		end
 	end	
 end
-function c12400079.t(c,tp)
-	return c:IsPreviousLocation(4) and c:IsRace(RACE_MACHINE) and c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousControler(tp)
-end
-function c12400079.con4(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c12400079.tt,1,nil,tp)
-end
 function c12400079.tg4(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,true,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(aux.TRUE,tp,4,4,1,nil) end
-	Duel.SelectTarget(tp,aux.TRUE,tp,4,4,1,1,nil)
+	if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,true,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,0)
 end
 function c12400079.op4(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-	Duel.Destroy(tc,REASON_EFFECT)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil)
+	Duel.Destroy(g,REASON_EFFECT)
 	end		
 end
\ No newline at end of file

expansions/script/c5012610.lua

 --食蜂操祈
 local s,id,o=GetID()
-c5012610.MoJin=true
+s.MoJin=true
 function s.initial_effect(c)
 	aux.AddCodeList(c,5012604)
 	--xyz summon
@@ -24,9 +24,12 @@ function s.initial_effect(c)
 	e2:SetTarget(s.target)
 	e2:SetOperation(s.operation)
 	c:RegisterEffect(e2)
-	local e3=e2:Clone()
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_CONTROL)
+	e3:SetDescription(aux.Stringid(id,0))
 	e3:SetType(EFFECT_TYPE_QUICK_O)
 	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
 	e3:SetCondition(s.condition2)
 	e3:SetCost(s.cost2)
 	e3:SetTarget(s.target2)
@@ -82,9 +85,16 @@ function s.operation(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function s.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
+	--if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
+	--local g=Duel.GetMatchingGroup(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,nil)
+	--Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
+--end
+	if chk==0 then
+		local c=e:GetHandler()
 		local g=Duel.GetMatchingGroup(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,nil)
-	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
+		return g:GetCount()>0 and Duel.GetMZoneCount(tp,c,tp,LOCATION_REASON_CONTROL)>0
+	end
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,1,1-tp,LOCATION_MZONE)
 end
 function s.operation2(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,nil)