Merge pull request #265 from nekrozar/patch-1

new card DF16

c10441498.lua

+--輝神鳥ヴェーヌ
+function c10441498.initial_effect(c)
+	c:EnableReviveLimit()
+	--change level
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(10441498,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(c10441498.lvtg)
+	e1:SetOperation(c10441498.lvop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(10441498,1))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_RELEASE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c10441498.thcon)
+	e2:SetTarget(c10441498.thtg)
+	e2:SetOperation(c10441498.thop)
+	c:RegisterEffect(e2)
+end
+function c10441498.cfilter(c,tp)
+	return c:IsLevelAbove(1) and not c:IsPublic() and Duel.IsExistingTarget(c10441498.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,c:GetLevel())
+end
+function c10441498.lvfilter(c,lv)
+	return c:IsFaceup() and c:IsLevelAbove(1) and c:GetLevel()~=lv
+end
+function c10441498.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c10441498.lvfilter(chkc,e:GetLabel()) end
+	if chk==0 then return Duel.IsExistingTarget(c10441498.cfilter,tp,LOCATION_HAND,0,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local cg=Duel.SelectMatchingCard(tp,c10441498.cfilter,tp,LOCATION_HAND,0,1,1,nil,tp)
+	Duel.ConfirmCards(1-tp,cg)
+	Duel.ShuffleHand(tp)
+	local lv=cg:GetFirst():GetLevel()
+	e:SetLabel(lv)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c10441498.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,lv)
+end
+function c10441498.lvop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local lv=e:GetLabel()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_LEVEL)
+		e1:SetValue(lv)
+		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+	end
+end
+function c10441498.thfilter2(c,tp)
+	return c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_ONFIELD+LOCATION_HAND) and c:GetPreviousControler()==tp
+end
+function c10441498.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c10441498.thfilter2,1,e:GetHandler(),tp)
+end
+function c10441498.thfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c10441498.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c10441498.thfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c10441498.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c10441498.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c10441498.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
+end

c47435107.lua

+--原初の叫喚
+function c47435107.initial_effect(c)
+	aux.AddRitualProcGreaterCode(c,10441498)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(47435107,0))
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c47435107.spcon)
+	e1:SetCost(c47435107.spcost)
+	e1:SetTarget(c47435107.sptg)
+	e1:SetOperation(c47435107.spop)
+	c:RegisterEffect(e1)
+end
+function c47435107.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c47435107.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+end
+function c47435107.spfilter(c,e,tp,turn)
+	return c:IsType(TYPE_RITUAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsPreviousLocation(LOCATION_ONFIELD) and c:GetTurnID()==turn
+end
+function c47435107.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local turn=Duel.GetTurnCount()
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c47435107.spfilter(chkc,e,tp,turn) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c47435107.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,turn) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c47435107.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,turn)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c47435107.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

c47558785.lua

+--マイルド・ターキー
+function c47558785.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--scale change
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(47558785,0))
+	e1:SetCategory(CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c47558785.sctg)
+	e1:SetOperation(c47558785.scop)
+	c:RegisterEffect(e1)
+end
+function c47558785.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetLeftScale()>1 end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c47558785.scop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:GetLeftScale()<=1 then return end
+	local dc=Duel.TossDice(tp,1)
+	local sch=math.min(c:GetLeftScale()-1,dc)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_LSCALE)
+	e1:SetValue(-sch)
+	e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_UPDATE_RSCALE)
+	c:RegisterEffect(e2)
+end

c73820802.lua

+--鬼くじ
+function c73820802.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(TIMING_STANDBY_PHASE,0)
+	e1:SetTarget(c73820802.target1)
+	e1:SetOperation(c73820802.operation)
+	c:RegisterEffect(e1)
+	--instant(chain)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(73820802,0))
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e2:SetLabel(1)
+	e2:SetCondition(c73820802.condition)
+	e2:SetTarget(c73820802.target2)
+	e2:SetOperation(c73820802.operation)
+	c:RegisterEffect(e2)
+end
+function c73820802.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY and Duel.SelectYesNo(tp,94) then
+		e:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES)
+		e:SetLabel(1)
+		e:GetHandler():RegisterFlagEffect(73820802,RESET_PHASE+PHASE_END,0,1)
+		e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,65)
+	else
+		e:SetCategory(0)
+		e:SetLabel(0)
+	end
+end
+function c73820802.operation(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	if e:GetLabel()==0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
+	local op=Duel.SelectOption(1-tp,70,71,72)
+	Duel.ConfirmDecktop(tp,1)
+	local g=Duel.GetDecktopGroup(tp,1)
+	local tc=g:GetFirst()
+	if (op==0 and tc:IsType(TYPE_MONSTER)) or (op==1 and tc:IsType(TYPE_SPELL)) or (op==2 and tc:IsType(TYPE_TRAP)) then
+		Duel.Draw(1-tp,1,REASON_EFFECT)
+	else
+		local sg=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0):RandomSelect(1-tp,1)
+		Duel.SendtoGrave(sg,REASON_DISCARD+REASON_EFFECT)
+	end
+	Duel.MoveSequence(tc,1)
+end
+function c73820802.condition(e,tp,eg,ep,ev,re,r,rp)
+	return tp==Duel.GetTurnPlayer()
+end
+function c73820802.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetFlagEffect(73820802)==0 end
+	e:GetHandler():RegisterFlagEffect(73820802,RESET_PHASE+PHASE_END,0,1)
+end

c84046493.lua

+--ゴースト・ビーフ
+function c84046493.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--scale change
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(84046493,0))
+	e1:SetCategory(CATEGORY_DICE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c84046493.sctg)
+	e1:SetOperation(c84046493.scop)
+	c:RegisterEffect(e1)
+end
+function c84046493.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetLeftScale()<10 end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function c84046493.scop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:GetLeftScale()>=10 then return end
+	local dc=Duel.TossDice(tp,1)
+	local sch=math.min(10-c:GetLeftScale(),dc)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_LSCALE)
+	e1:SetValue(sch)
+	e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_UPDATE_RSCALE)
+	c:RegisterEffect(e2)
+end