update cards that use Cost.Choice

Author: that-hatter

official/c40390147.lua

@@ -32,12 +32,12 @@ function s.spcheck(loc)
 end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
-	local loc=e:GetLabel()==1 and LOCATION_HAND or LOCATION_DECK
+	local loc=e:GetChainData().cost_choice==1 and LOCATION_HAND or LOCATION_DECK
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,loc)
 end
 function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	local loc=e:GetLabel()==1 and LOCATION_HAND or LOCATION_DECK
+	local loc=e:GetChainData().cost_choice==1 and LOCATION_HAND or LOCATION_DECK
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,loc,0,1,1,nil,e,tp)
 	if #g>0 then

official/c45935145.lua

@@ -61,12 +61,12 @@ s.effdetachcost=Cost.Choice(
 function s.efftg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return false end
 	if chk==0 then return true end
-	local op=e:GetLabel()
+	local cd=e:GetChainData()
 	local tc=Duel.GetFirstTarget()
-	if op==1 then
+	if cd.cost_choice==1 then
 		e:SetCategory(CATEGORY_TODECK)
 		Duel.SetOperationInfo(0,CATEGORY_TODECK,tc,1,tp,0)
-	elseif op==2 then
+	elseif cd.cost_choice==2 then
 		local categ=CATEGORY_SET|CATEGORY_LEAVE_GRAVE
 		if tc:IsMonster() then
 			e:SetCategory(CATEGORY_SPECIAL_SUMMON|categ)
@@ -79,11 +79,11 @@ end
 function s.effop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	if not tc:IsRelateToEffect(e) then return end
-	local op=e:GetLabel()
-	if op==1 then
+	local cd=e:GetChainData()
+	if cd.cost_choice==1 then
 		--Return it to the Deck
 		Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
-	elseif op==2 then
+	elseif cd.cost_choice==2 then
 		--If the target is a monster, Special Summon it face-up, or in face-down Defense Position, to your field
 		if tc:IsMonster() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 			and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP|POS_FACEDOWN_DEFENSE)>0

official/c78114463.lua

@@ -17,7 +17,7 @@ function s.initial_effect(c)
 	e1:SetDescription(aux.Stringid(id,1))
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_CHAINING)
-	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) end)
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return re:IsHasType(EFFECT_TYPE_ACTIVATE) and Chain.IsNegatable(ev) end)
 	e1:SetCost(Cost.AND(s.revealcost,s.paylpcost))
 	e1:SetTarget(s.target)
 	e1:SetOperation(s.activate)
@@ -35,7 +35,7 @@ function s.revealcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	end
 end
 function s.banish_activation_chk(e,tp)
-	local re=Duel.GetChainInfo(Duel.GetCurrentChain(),CHAININFO_TRIGGERING_EFFECT)
+	local re=Chain.GetTriggeringEffect()
 	local rc=re:GetHandler()
 	return rc:IsAbleToRemove(tp) or (not rc:IsRelateToEffect(re) and Duel.IsPlayerCanRemove(tp))
 end
@@ -45,16 +45,16 @@ s.paylpcost=Cost.Choice(
 )
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	local op=e:GetLabel()
 	local rc=re:GetHandler()
 	local relation=rc:IsRelateToEffect(re)
+	local cd=e:GetChainData()
 	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,tp,0)
-	if op==1 then
+	if cd.cost_choice==1 then
 		e:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
 		if rc:IsDestructable() and relation then
 			Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,tp,0)
 		end
-	elseif op==2 then
+	elseif cd.cost_choice==2 then
 		e:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
 		if relation then
 			Duel.SetOperationInfo(0,CATEGORY_REMOVE,rc,1,tp,0)
@@ -67,10 +67,10 @@ function s.banfilter(c,code,opp)
 	return c:IsOriginalCodeRule(code) and c:IsAbleToRemove(opp)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
-	local op=e:GetLabel()
 	local rc=re:GetHandler()
 	local code=rc:GetOriginalCodeRule()
-	if op==1 then
+	local cd=e:GetChainData()
+	if cd.cost_choice==1 then
 		--● Pay 1500 LP; negate the activation, and if you do, destroy that card, and if you do that, for the rest of this turn, neither player can activate cards, or the effects of cards, with its same original name
 		if Duel.NegateActivation(ev) and rc:IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then
 			--For the rest of this turn, neither player can activate cards, or the effects of cards, with its same original name
@@ -84,7 +84,7 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
 			e1:SetReset(RESET_PHASE|PHASE_END)
 			Duel.RegisterEffect(e1,tp)
 		end
-	elseif op==2 then
+	elseif cd.cost_choice==2 then
 		--● Pay 3000 LP; negate the activation, and if you do, banish that card, then your opponent banishes all cards with its same original name from their hand and Deck
 		if Duel.NegateActivation(ev) and rc:IsRelateToEffect(re) and Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)>0 then
 			local opp=1-tp
@@ -95,4 +95,4 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
 			end
 		end
 	end
-end
+end

official/c84417082.lua

@@ -29,15 +29,15 @@ function s.desallcheck(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	local g=e:GetLabel()==1
+	local g=e:GetChainData().cost_choice==1
 		and Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())
 		or Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,tp,0)
 end
 function s.desop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local exc=c:IsRelateToEffect(e) and c or nil
-	local g=e:GetLabel()==1
+	local g=e:GetChainData().cost_choice==1
 		and Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,exc)
 		or Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
 	if #g>0 then

official/c85692042.lua

@@ -75,9 +75,9 @@ function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
 function s.thop(e,tp,eg,ep,ev,re,r,rp)
-	local op=e:GetLabel()
-	local filter=(op==1 and s.mmfilter)
-		or (op==2 and s.l4filter)
+	local cd=e:GetChainData()
+	local filter=(cd.cost_choice==1 and s.mmfilter)
+		or (cd.cost_choice==2 and s.l4filter)
 		or s.stfilter
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 	local g=Duel.SelectMatchingCard(tp,filter,tp,LOCATION_DECK,0,1,1,nil)

pre-release/c100455026.lua

@@ -18,7 +18,7 @@ function s.initial_effect(c)
 			--● Add 1 "Witchcrafter" Spell from your Deck to your hand
 			{aux.TRUE,aux.Stringid(id,2),function(e,tp) return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end},
 			--● Reveal 1 "Witchcrafter" Normal or Quick-Play Spell in your hand; apply that Spell's activation effect
-			{Cost.Reveal(s.revealfilter,nil,1,1,function(e,tp,og) e:SetLabelObject(og) end),aux.Stringid(id,3),nil}
+			{Cost.Reveal(s.revealfilter,nil,1,1,function(e,tp,og) e:GetChainData().revealed_card=og:GetFirst() end),aux.Stringid(id,3),nil}
 		)
 	)
 	e1:SetTarget(s.efftg)
@@ -58,8 +58,7 @@ function s.efftg(e,tp,eg,ep,ev,re,r,rp,chk)
 	elseif cd.cost_choice==2 then
 		--● Reveal 1 "Witchcrafter" Normal or Quick-Play Spell in your hand; apply that Spell's activation effect
 		e:SetCategory(0)
-		local revealed_card=e:GetLabelObject():GetFirst()
-		local te,ceg,cep,cev,cre,cr,crp=revealed_card:CheckActivateEffect(true,true,true)
+		local te,ceg,cep,cev,cre,cr,crp=cd.revealed_card:CheckActivateEffect(true,true,true)
 		Duel.ClearTargetCard()
 		local tg=te:GetTarget()
 		e:SetProperty(te:GetProperty())

unofficial/c511001339.lua

@@ -32,7 +32,7 @@ function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	if e:GetLabel()==1 then
+	if e:GetChainData().cost_choice==1 then
 		Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1101)
 	end
 end
@@ -45,7 +45,7 @@ function s.operation(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetValue(1)
 	e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
 	c:RegisterEffect(e1)
-	if e:GetLabel()==1 then
+	if e:GetChainData().cost_choice==1 then
 		local e2=Effect.CreateEffect(c)
 		e2:SetType(EFFECT_TYPE_FIELD)
 		e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)