Added new card scripts

Author: pyrQ

pre-release/c101304070.lua

@@ -0,0 +1,72 @@
+--２つに１つ
+--One of Two
+--scripted by pyrQ
+local s,id=GetID()
+function s.initial_effect(c)
+	--Reveal 1 monster and 2 Traps from your Deck, your opponent randomly picks 1, you look at the rest and banish 1 Trap, then your opponent chooses 1 of these effects for you to apply
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.activate)
+	c:RegisterEffect(e1)
+end
+function s.rescon(sg,e,tp,mg)
+	return sg:IsExists(Card.IsMonster,1,nil) and sg:IsExists(Card.IsTrap,2,nil)
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(aux.OR(Card.IsMonster,Card.IsTrap),tp,LOCATION_DECK,0,nil)
+	if chk==0 then return #g>=3 and Duel.IsPlayerCanRemove(tp) and aux.SelectUnselectGroup(g,e,tp,3,3,s.rescon,0) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
+	Duel.SetPossibleOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	Duel.SetPossibleOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function s.activate(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsPlayerCanRemove(tp) then return end
+	local g=Duel.GetMatchingGroup(aux.OR(Card.IsMonster,Card.IsTrap),tp,LOCATION_DECK,0,nil)
+	if #g<3 then return end
+	local sg=aux.SelectUnselectGroup(g,e,tp,3,3,s.rescon,1,tp,HINTMSG_CONFIRM)
+	if #sg==0 then return end
+	local opp=1-tp
+	Duel.ConfirmCards(opp,sg)
+	local picked_card=sg:RandomSelect(opp,1):GetFirst()
+	sg:RemoveCard(picked_card)
+	Duel.ConfirmCards(tp,sg)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local banished_card=sg:FilterSelect(tp,aux.AND(Card.IsTrap,Card.IsAbleToRemove),1,1,nil)
+	if #banished_card==0 or Duel.Remove(banished_card,POS_FACEUP,REASON_EFFECT)==0 then return end
+	sg:RemoveCard(banished_card)
+	local op=Duel.SelectEffect(opp,
+		{true,aux.Stringid(id,1)},
+		{true,aux.Stringid(id,2)})
+	Duel.BreakEffect()
+	if op==1 then
+		--● Show the picked card, and if it is a monster, either add it to your hand or Special Summon it. Otherwise, banish it. Shuffle the remaining card into the Deck
+		Duel.ConfirmCards(opp,picked_card)
+		if picked_card:IsMonster() then
+			aux.ToHandOrElse(picked_card,tp,
+				function()
+					return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and picked_card:IsCanBeSpecialSummoned(e,0,tp,false,false)
+				end,
+				function()
+					Duel.SpecialSummon(picked_card,0,tp,tp,false,false,POS_FACEUP)
+				end,
+				aux.Stringid(id,3)
+			)
+		else
+			Duel.Remove(picked_card,POS_FACEUP,REASON_EFFECT)
+		end
+	elseif op==2 then
+		--● Show the card that was not picked nor banished, and if it is a monster, add it to your hand. Otherwise, banish it. Shuffle the remaining card into the Deck
+		local other_card=sg:GetFirst()
+		Duel.ConfirmCards(opp,other_card)
+		if other_card:IsMonster() then
+			Duel.SendtoHand(other_card,nil,REASON_EFFECT)
+		else
+			Duel.Remove(other_card,POS_FACEUP,REASON_EFFECT)
+		end
+	end
+	Duel.ShuffleDeck(tp)
+end

pre-release/c101304078.lua

@@ -0,0 +1,52 @@
+--サモンショック
+--Summon Shock
+local s,id=GetID()
+local COUNTER_SUMMON=0x148
+function s.initial_effect(c)
+	c:EnableCounterPermit(COUNTER_SUMMON)
+	c:SetCounterLimit(COUNTER_SUMMON,4)
+	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	e0:SetHintTiming(0,TIMING_STANDBY_PHASE)
+	c:RegisterEffect(e0)
+	--Each time a monster(s) is Normal or Special Summoned, place 1 Summon Counter on this card (max. 4)
+	local e1a=Effect.CreateEffect(c)
+	e1a:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1a:SetCode(EVENT_SUMMON_SUCCESS)
+	e1a:SetRange(LOCATION_SZONE)
+	e1a:SetOperation(s.counterop)
+	c:RegisterEffect(e1a)
+	local e1b=e1a:Clone()
+	e1b:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e1b)
+	--If the 4th Summon Counter is placed on this card: Remove all Summon Counters from this card, and if you do, send all monsters on the field to the GY
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,0))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_CUSTOM+id)
+	e2:SetTarget(s.tgtg)
+	e2:SetOperation(s.tgop)
+	c:RegisterEffect(e2)
+end
+s.counter_place_list={COUNTER_SUMMON}
+function s.counterop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:AddCounter(COUNTER_SUMMON,1) and c:GetCounter(COUNTER_SUMMON)==4 then
+		Duel.RaiseSingleEvent(c,EVENT_CUSTOM+id,re,0,0,tp,0)
+	end
+end
+function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,PLAYER_ALL,LOCATION_MZONE)
+end
+function s.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,LOCATION_MZONE)
+	if c:IsRelateToEffect(e) and c:RemoveCounter(tp,COUNTER_SUMMON,c:GetCounter(COUNTER_SUMMON),REASON_EFFECT)
+		and c:GetCounter(COUNTER_SUMMON)==0 and #g>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end