wild

expansions/script/c25000000.lua

@@ -86,11 +86,24 @@ function cm.activate(e,tp)
 	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
 	e1:SetOperation(cm.opdo)
 	Duel.RegisterEffect(e1,tp)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-	e2:SetCode(EVENT_CHAIN_END)
-	e2:SetOperation(cm.opdo3)
-	Duel.RegisterEffect(e2,tp)
+	local g=Duel.GetMatchingGroup(nil,0,0x7f,0x7f,nil)
+	for tc in aux.Next(g) do
+		if tc:GetActivateEffect() then
+			local ce=tc:GetActivateEffect():Clone()
+			ce:SetRange(LOCATION_DECK)
+			local pro,pro2=ce:GetProperty()
+			ce:SetProperty(pro|EFFECT_FLAG_SET_AVAILABLE,pro2)
+			tc:RegisterEffect(ce,true)
+		elseif not c:IsSummonableCard() then
+			local tpe=tc:GetOriginalType()
+			tc:SetCardData(CARDDATA_TYPE,TYPE_MONSTER+TYPE_EFFECT)
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_CHANGE_TYPE)
+			e1:SetValue(tpe|TYPE_MONSTER|TYPE_EFFECT)
+			tc:RegisterEffect(e1,true)
+		end
+	end
 end
 function cm.opdo(e,tp,eg,ep,ev,re,r,rp)
 	local cev,effect_do,rtp,cost,target,operation,code=table.unpack(cm.chain_rev_tab[1])
@@ -132,45 +145,4 @@ function cm.opdo(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.op2(e,tp)
 	return false 
-end
-function cm.opdo3(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local full_flag=true
-	local code_pack={EFFECT_SKIP_DP,EFFECT_SKIP_SP,EFFECT_SKIP_M1,EFFECT_SKIP_BP,EFFECT_SKIP_M2}
-	local phase_pack={PHASE_STANDBY,PHASE_MAIN1,PHASE_BATTLE_START,PHASE_BATTLE,PHASE_END}
-	local cp=Duel.GetTurnPlayer()
-	for k,v in ipairs(code_pack) do
-		if Duel.GetCurrentPhase()<phase_pack[k] and cm.skip_check[cp+1][k]==0 then
-			local e2=Effect.CreateEffect(c)
-			e2:SetType(EFFECT_TYPE_FIELD)
-			e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-			e2:SetTargetRange(1,0)
-			e2:SetCondition(cm.reset)
-			e2:SetCode(v)
-			e2:SetLabel(k)
-			Duel.RegisterEffect(e2,cp)
-			cm.skip_check[cp+1][k]=1
-			full_flag=false
-			return
-		end
-	end
-	if full_flag==true then
-		cm.skip_check[cp+1]={0,0,0,0,0}
-		for k,v in ipairs(code_pack) do
-			if Duel.GetCurrentPhase()<phase_pack[k] and cm.skip_check[cp+1][k]==0 then
-				cm.skip_check[cp+1][k]=1
-				return
-			end
-		end
-	end
-	--
-end
-function cm.reset(e,tp)
-	local flag=false
-	for k,v in ipairs(cm.skip_check[e:GetHandlerPlayer()+1]) do
-		if v==0 then
-			flag=true
-		end
-	end
-	return flag and cm.skip_check[e:GetHandlerPlayer()+1][e:GetLabel()]==1
 end
\ No newline at end of file

expansions/script/c25000104.lua

@@ -115,14 +115,14 @@ function cm.econ2(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetFlagEffect(tp,m)==0 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and Duel.GetCurrentChain()==0 and Duel.GetTurnPlayer()==tp
 end
 function cm.ceoperation(e,tp,eg,ep,ev,re,r,rp)
-	if rp==tp or not re:IsActiveType(TYPE_MONSTER) then return end
+	if rp==tp then return end
 	local g=Group.CreateGroup()
 	Duel.ChangeTargetCard(ev,g)
 	Duel.ChangeChainOperation(ev,cm.repop)
 end
 function cm.repop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if c:IsFaceup() and c:IsRelateToEffect(e) then Duel.Destroy(c,REASON_EFFECT) end
+	if c:IsRelateToEffect(e) then Duel.Destroy(c,REASON_EFFECT) end
 end
 function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_CARD,0,m)

expansions/script/c25000403.lua

@@ -25,7 +25,7 @@ function cm.condition2(e,tp)
 	return Duel.GetFlagEffect(tp,25000000)>0 or Duel.GetFlagEffect(1-tp,25000000)>0
 end
 function cm.spcheck(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,true,true) and c:GetOriginalCode()==25000000
+	return Duel.IsPlayerCanSummon(tp,SUMMON_TYPE_NORMAL,c)
 end
 function cm.check(c)
 	return c:GetOriginalCode()==m and c:IsAbleToExtra()
@@ -41,16 +41,15 @@ function cm.operation(e,tp)
 	local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local sc=Duel.SelectMatchingCard(tp,cm.spcheck,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
-		if Duel.SpecialSummonStep(sc,0,tp,tp,true,true,POS_FACEUP) then
+		local sc=Duel.SelectMatchingCard(tp,cm.spcheck,tp,LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
+		if Duel.MoveToField(sc,tp,tp,LOCATION_MZONE,POS_FACEUP_ATTACK,true) then
 			sc:CopyEffect(ac,RESET_EVENT+0x7e0000)
 			local e1=Effect.CreateEffect(c)
 			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-			e1:SetCode(EFFECT_CHANGE_TYPE)
-			e1:SetValue(TYPE_MONSTER+TYPE_EFFECT)
+			e1:SetCode(EFFECT_DUAL_SUMMONABLE)
 			e1:SetReset(RESET_EVENT+0x7e0000)
-			sc:RegisterEffect(e1)
+			tc:RegisterEffect(e1)
+			Duel.Summon(tp,sc,true,nil)
 		end
 	end
 end
\ No newline at end of file