man!

expansions/script/c12029027.lua

@@ -33,48 +33,50 @@ end
 function cm.desop(e,tp,eg,ep,ev,re,r,rp)
 	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
 	if rp~=tp and loc==LOCATION_ONFIELD and bit.band(loc,re:GetHandler():GetLocation())==0 then
-		local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
-		if g:GetCount()>0 then
-			Duel.ConfirmCards(tp,g)
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
-			local sg=g:Select(tp,1,1,nil)
-			if Duel.Remove(sg,POS_FACEUP,REASON_EFFECT+REASON_TEMPORARY)~=0 then
-				local tt=Duel.GetOperatedGroup()
-				e:SetLabel(tt:GetCount())
-				local fid=c:GetFieldID()
-				local og=Duel.GetOperatedGroup()
-				local oc=og:GetFirst()
-				while oc do
-					if oc:IsControler(tp) then
-						oc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,0,1,fid)
-					else
-						oc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_STANDBY+RESET_OPPO_TURN,0,1,fid)
-					end
-					oc=og:GetNext()
-				end
-				og:KeepAlive()
-				local e1=Effect.CreateEffect(c)
-				e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-				e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-				e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
-				e1:SetCountLimit(1)
-				e1:SetLabel(fid)
-				e1:SetLabelObject(og)
-				e1:SetCondition(cm.retcon)
-				e1:SetOperation(cm.retop)
-				e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN)
-				Duel.RegisterEffect(e1,tp)
-			end
-		end
+		local hg=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+		if hg:GetCount()==0 then return end
+		Duel.ConfirmCards(tp,hg)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local g=hg:Select(tp,1,1,nil)
+		local tc=g:GetFirst()
+		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+		Duel.ShuffleHand(1-tp)
+		local c=e:GetHandler()
+		local fid=c:GetFieldID()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetCountLimit(1)
+		e1:SetLabel(fid)
+		e1:SetLabelObject(tc)
+		e1:SetCondition(cm.retcon)
+		e1:SetOperation(cm.retop)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
+		tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
 	end
 end
+function cm.retcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffectLabel(m)==e:GetLabel() then
+		return true
+	else
+		e:Reset()
+		return false
+	end
+end
+function cm.retop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	Duel.SendtoHand(tc,nil,REASON_EFFECT)
+end
 function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,PLAYER_ALL,LOCATION_REMOVED)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end
+	local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_REMOVED,LOCATION_REMOVED,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),PLAYER_ALL,LOCATION_REMOVED)
 end
 function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetFieldGroup(tp,LOCATION_REMOVED,LOCATION_REMOVED)
-	Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
-	local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK)
-end
+	local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_REMOVED,LOCATION_REMOVED,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	end
+end
\ No newline at end of file